Tutorial Program Hitung Sederhana dengan Visual Basic

Kali ini saya akan memberi tutorial sederhana, membuat program hitung menggunakan Visual Basic seperti gambar disamping.
Saya menggunakan komponen-komponen TextBox, Label, dan Command Button. Sedangkan Listing Program saya menggunakan Subroutine, If… Then, operator penggabungan, dan operator logika.
Saya menganggap kalian sudah membaca artikel sebelum ini.
Setelah kamu membuka Program VB, dan membuka Project baru, ikuti langkah ini :
1. Masukan 2 Komponen textbox 4 command button dan 1 label. Atur seperti gambar diatas.
2. Ubah Properties masing-masing Komponen, penjelasannya lihat tabel :

Nama	Properties	Nilai
Text1	Text	*kosong*
Text2	text	*kosong*
Command1	Caption	*
Command2	Caption	/
Command3	Caption	+
Command4	Caption	-
Label1	Caption	*kosongkan*

Kira-kira seperti itu.
3. kemudian Copy paste saja kode dibawah ini ke Jendela Kode.

Dim n1, n2, hasil As Double
Sub Clear()
Text1.Text = Empty
Text2.Text = Empty

Form1.Caption = "hasil : " & hasil
Text1.SetFocus
End Sub
Private Sub Command1_Click()
n1 = Text1.Text
n2 = Text2.Text

hasil = n1 * n2

Label1.Caption = "hasil perkalian " & n1 & " dan " & n2 & 

" adalah " & hasil
Call Clear
End Sub

Private Sub Command2_Click()
n1 = Text1.Text
n2 = Text2.Text

hasil = n1 \ n2

Label1.Caption = "hasil pembagian " & n1 & " dan " & n2 & 

" adalah " & hasil
Call Clear
End Sub

Private Sub Command3_Click()
n1 = Val(Text1)
n2 = Val(Text2)

hasil = n1 + n2

Label1.Caption = "hasil penambahan " & n1 & " dan " & n2 & 

" adalah " & hasil
Call Clear
End Sub

Private Sub Command4_Click()
n1 = Text1.Text
n2 = Text2.Text

hasil = n1 - n2

Label1.Caption = "hasil pengurangan " & n1 & " dan " & n2 & 

" adalah " & hasil
Call Clear
End Sub

Private Sub Form_Load()
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False

Text1.MaxLength = 5
Text2.MaxLength = 5
End Sub

Private Sub Text1_Change()
If Text2.Text = Empty Then
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Else
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
End If
End Sub

Private Sub Text2_Change()
If Text1.Text = Empty Then
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Else
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
End If
End Sub

Atau download disini Listing Programnya

Download Disini program yang sudah jadi.