MODÜL DEĞERLENDİRME
MODÜL DEĞERLENDİRME
Mavi araç kırmızı araçtan X= 15 km geridedir. Mavi araç V1= 120 km/h,
kırmızı araç 80 km/h hızla aynı anda aynı yönde harekete başlamaktadır.
Mavi araç kırmızı aracı kaç dakika sonra (t) yakalayacağına ait programı
yazıınız.
V1
V1
Soru
X
t =
X
V1 – V2
1 saat = 60 dakika
Ekran Görüntüsü
Kodlar
Public Class Form1
Dim v1, v2, x, yakalama_suresi, yakalama_suresi_dakika As Single
Public Function hesapla(ByVal v1 As Single, ByVal v2 As Single, ByVal x
As Single) As Integer
yakalama_suresi = x / (v1 - v2)
yakalama_suresi_dakika = yakalama_suresi * 60
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
v1 = TextBox1.Text
v2 = TextBox2.Text
x = TextBox3.Text
hesapla(v1, v2, x)
Label4.Text = "Yakalama Süresi: " + yakalama_suresi_dakika.ToString
+ " dakikadır."
End Sub
End Class
60