PENJUMLAHAN DENGAN VB 2010 EXPRESS

Rubah name Textbox1 menjadi satu, Textbox2 menjadi dua, Textbox3 menjadi tiga.

Saat program pertama kali dijalankan, textbox1, textbox2, textbox3 tidak bisa di isi. Jika ingin memulai menghitung harus menekan tombol start dulu, maka textbox1, textbox2, textbox3 otomatis akan aktif dan bisa di isi, serta kursor akan otomatis di textbox1. 

Saat tombol delete di tekan, maka textbox1, textbox2, textbox3 akan menjadi tidak aktif (tidak bisa di isi) serta textbox1, textbox2, textbox3 akan bersih tidak ada isinya. 

kodenya dibawah ini :

Public Class Form1

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        satu.Enabled = True
        dua.Enabled = True
        satu.Focus()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        satu.Enabled = False
        dua.Enabled = False
        tiga.Enabled = False
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        End
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        tiga.Text = Val(satu.Text) + Val(dua.Text)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        tiga.Text = Val(satu.Text) - Val(dua.Text)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        tiga.Text = Val(satu.Text) * Val(dua.Text)
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        tiga.Text = Val(satu.Text) / Val(dua.Text)
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        tiga.Text = Val(satu.Text) ^ Val(dua.Text)
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        satu.Text = ""
        dua.Text = ""
        tiga.Text = ""
        satu.Enabled = False
        dua.Enabled = False
    End Sub
End Class