Code Program Visual Basic Rumus Kecepatan

Ini adalah Program Fisika Untuk menghiting Kecepatan, Jarak, waktu. Sesuaikan Pilihan perhitungan yang mau anda cari.

OK, Untuk membuat program ini carannya gampang Anda Hanya perlu program Visual Basic dan seperangkat alat sholat.,,. hehehe.

Lihatlah di dalam gambar Program Terdiri atas : 5 Command Button, 5 Label dan 4 text Box.

Untuk meletakkan icon Program sesuai keinginan anda. Lihatlah icon program pada gambar program kecepatan di atas yang berwarna biru. ubahlah jika kamu miliki icon kamu sendiri.

Souce Code Program Kecepatan.exe

Source Code

Dim merlin As IAgentCtlCharacterEx
Const DATAPATH = "merlin.acs"


Private Sub Cmd_jarak_Click()
Txt_jarak = Txt_jarak.Text
Txt_waktu = Txt_waktu.Text
Txt_kecepatan = Txt_kecepatan.Text
Txt_hasil = Txt_kecepatan * Txt_waktu
End Sub

Private Sub Cmd_waktu_Click()
Txt_jarak = Txt_jarak.Text
Txt_waktu = Txt_waktu.Text
Txt_kecepatan = Txt_kecepatan.Text
Txt_hasil = Txt_jarak / Txt_kecepatan
End Sub

Private Sub Form_Load()
Agent1.Characters.Load "merlin.acs", DATAPATH
    Set merlin = Agent1.Characters("merlin.acs")
    merlin.LanguageID = &H409
    merlin.Show
    merlin.Play ("Announce")
    merlin.Play ("ReadContinued")
    merlin.MoveTo 700, 500
    merlin.MoveTo 100, 500
    merlin.MoveTo 400, 300
    merlin.Speak "Kecepatan adalah perbandingan antara jarak dengan waktu"
    merlin.Speak "maka v = s / t"
    merlin.Speak "OK kita cari berapa nilainya !!!"
    merlin.Play ("Write")
    ' ***************************************************
    ' Anda bisa menambahkan perintah lain yang anda
    ' ***************************************************
    merlin.Play ("Suggest")
    merlin.Play ("wave")
    merlin.Speak ("Da da,. Selamat Mencoba")
    merlin.Play ("Congratulate")
    merlin.Hide
End Sub

Private Sub CmdClose_Click()
End
End Sub

Private Sub Cmd_kcpatn_Click()
Txt_jarak = Txt_jarak.Text
Txt_waktu = Txt_waktu.Text
Txt_kecepatan = Txt_kecepatan.Text
Txt_hasil = Txt_jarak / Txt_waktu
End Sub

Private Sub CmdReset_Click()
Txt_jarak.Text = " "
Txt_waktu.Text = " "
Txt_kecepatan.Text = " "
Txt_hasil.Text = " "
End Sub
Private Sub Timer1_Timer()
If Label1.Visible = True Then
    Label1.Visible = False
Else
    Label1.Visible = True
End If
End Sub

Private Sub Image1_Click()

End Sub

Klik Disini Download Pack Program kecepatan.rar