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 komp

onen-komponen TextBox, Label, dan Command Button. Sedangkan Listing Program saya menggunakan Subroutine, If… Then, operator penggabungan, dan operator logika.

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*

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