Code Program Visual Basic Rumus Kinetik

yah,.,. ni satu Lagi  Energi kinetik. Program Visual basic ini sih sebenarnya udah ada d kompy  Lama bgt.,.,.,.,.  karena ada Org yang mesan pembuatan program Komputer tentang perhitungan Energi Kinetik tapi gak di Ambil., Hmmm kurang ajar tuh anak.,,. Huft

Ok ini sih sama saja sebenarnya cara pembuatan seperti posting saya terdahulu  tentang Code Program Visual Basic Rumus Kecepatan 

Nah munkin bagi anda penggila visual basic atau yang suka ngotak-ngatik komputer gak jelas,., hohooho dari pada cuma Facebook an menunggu orang komentar atau komentari kamu yuk belajar buat program dengan visual basic. Mana tau nanti kamu bisa seperti Bill Gates yg punya Perusahaan raksasa sebesar Microsoft. Uhk asyikk.k.k.k

Program terdiri atas 3 Command Button, 3 Text Button dan 1 Label.

Source Code

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

Private Sub Form_Load()
Agent1.Characters.Load "merlin.acs", DATAPATH
    Set merlin = Agent1.Characters("merlin.acs")
    merlin.LanguageID = &H409
    merlin.Show
    merlin.Play ("GetAttention")
    merlin.Play ("ReadContinued")
    merlin.MoveTo 700, 500
    merlin.MoveTo 100, 500
    merlin.MoveTo 400, 300
    merlin.Play ("Suggest")
    merlin.Speak "Energi Kinetik adalah energi gerak yang diberikan kepada benda terhadap kecepatannnya"
    merlin.Speak "maka Ek = 1/2 m v ^2"
    merlin.Speak "Masukkan Harga m dan v !!!"
    merlin.Play ("Write")
    ' ***************************************************
    ' Anda bisa menambahkan perintah lain yang anda
    ' ***************************************************
    merlin.Play ("Congratulate_2")
    merlin.Speak ("Kamu hebat,.,.!!")
    merlin.Play ("wave")
    merlin.Speak ("Da da,. Selamat Mencoba Terus, Jadilah Sang Juara")
    merlin.Play ("Congratulate")
    merlin.Hide
End Sub

Private Sub Cmd_exit_Click()
End
End Sub

Private Sub Cmd_hitung_Click()
Txt_massa = Txt_massa.Text
Txt_kcpatn = Txt_kcpatn.Text
Txt_Ek = 0.5 * Txt_massa * Txt_kcpatn * Txt_kcpatn
End Sub

Private Sub Cmd_reset_Click()
Txt_massa.Text = " "
Txt_kcpatn.Text = " "
Txt_Ek.Text = " "
End Sub
Private Sub Timer1_Timer()
If Label1.Visible = True Then
    Label1.Visible = False
Else
    Label1.Visible = True
End If
End Sub

Klik Disini Download Pack Program kinetik.rar