Program Sederhana Menghitung Cepat Rambat Bunyi Menggunakan VB

Cepat rambat bunyi adalah besarnya jarak yang ditempuh oleh bunyi tiap sekon. Menghitung Kecepatan Rambat Bunyi dapat dilakukan dengan rumus:

v = s / t

dengan:

v = kelajuan rambat bunyi (m/s)     
s = jarak yang ditempuh (m)
 t = waktu tempuh (s)

Listing Program :

Private Sub Command1_Click()

p = Text1.Text / Text2.Text

Text3.Text = p

End Sub

Private Sub Command2_Click()

Text1.Text = " "

Text2.Text = " "

Text3.Text = " "

Text1.SetFocus

End Sub

Private Sub Command3_Click()

End

End Sub

Flowchart Program :

LISTING PROGRAM MENGHITUNG FAKTORIAL ANGKA MELALUI VISUAL BASIC

Private Sub Command1_Click()
Dim a, b, i As Integer
i = 1
b = Text1.Text
For a = 1 To b
i = i * a
Next
Text2.Text = i
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Text1_Change()

End Sub

FLOWCHART PROGRAM :