ÖĞRENME FAALİYETİ-4’ÜN CEVAP ANAHTARI
1
2
3
4
5
6
7
8
D
C
A
D
D
A
C
A
ÖĞRENME FAALİYETİ-5’iN CEVAP ANAHTARI
1
2
3
4
5
6
7
8
9
10
A
B
C
C
D
D
A
A
D
C
MODÜL DEĞERLENDİRMENİN CEVAP ANAHTARI
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
63