Belli bir yükseklikten düşen topun kaç kez zıpladığını hesaplayan program..
Sadece 1 button kullanılacak ve kodları oraya yazacağız
Button1’e yazılacak kodlar;
[code language=”vb”]Dim yükseklik As Single
Dim zıplama As Integer
yükseklik = 20
zıplama = 0
While yükseklik > 0.001
yükseklik = yükseklik * 70 / 100
zıplama = zıplama + 1
End While
MsgBox("Lastik top duruncaya kadar" & zıplama & " kere zıplamıştır.")[/code]
bunu görsel olarak geliştirebiliriz bu bize hep aynı bı sayıyı verıyo shape ıle bı top yapıp tımerla sure belırleyıp topu zıplatabılırz görsel güzel olacaktır.