Gorsel Programlama

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;

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.")

Projeyi indir