Dim jarak As Single
Dim kecepatan As Single
Dim waktu As Single
Private Sub cmd1_click()
'menghitung kecepatan
lbl1.Caption = "Jarak (s) ="
lbl2.Caption = "Waktu (t) ="
lbl3.Caption = "m"
lbl4.Caption = "s"
cmdhitung2.Enabled = False
cmdhitung3.Enabled = False
cmdhitung.Enabled = True
End Sub
Private Sub cmd2_click()
'menghitung Jarak
lbl1.Caption = "Kecepatan (v) ="
lbl2.Caption = "Waktu (t) ="
lbl3.Caption = "m/s"
lbl4.Caption = "s"
cmdhitung.Enabled = False
cmdhitung3.Enabled = False
cmdhitung2.Enabled = True
End Sub
Private Sub cmd3_click()
'menghitung waktu
lbl1.Caption = "Jarak (s) ="
lbl2.Caption = "Kecepatan (v) ="
lbl3.Caption = "m"
lbl4.Caption = "m/s"
cmdhitung.Enabled = False
cmdhitung2.Enabled = False
cmdhitung3.Enabled = True
End Sub
Private Sub cmdhitung_click()
kecepatan = CSng(txt1.Text) / CSng(txt2.Text)
hasil = kecepatan
lblpesan.Caption = " Kecepatan = " & Format(hasil) + " m/s"
End Sub
Private Sub cmdhitung2_click()
jarak = CSng(txt1.Text) * CSng(txt2.Text)
hasil = jarak
lblpesan.Caption = "Jarak = " & Format(hasil) + " m"
End Sub
Private Sub cmdhitung3_click()
waktu = CSng(txt1.Text) / CSng(txt2.Text)
hasil = waktu
lblpesan.Caption = "Waktu = " & Format(hasil) + " s"
End Sub
Private Sub cmdlanjut_click()
lbl1.Caption = ""
lbl2.Caption = ""
lbl3.Caption = ""
lbl4.Caption = ""
txt1.Text = ""
txt2.Text = ""
lblpesan.Caption = ""
cmd1.Enabled = True
cmd2.Enabled = True
cmd3.Enabled = True
cmdhitung.Enabled = True
cmdhitung2.Enabled = True
cmdhitung3.Enabled = True
End Sub
Private Sub cmdreset_click()
txt1.Text = ""
txt2.Text = ""
lbl1.Caption = ""
lbl2.Caption = ""
lblpesan.Caption = ""
lbl3.Caption = ""
lbl4.Caption = ""
End Sub
Private Sub cmdselesai_click()
'mengakhiri program
End
End Sub
