Cara Buat Kalkulator Sederhana Di Visual Basic 6

Assalamualaikum Wr.Wb Pada postingan kali ini saya akan membahas sedikit tentang bagaimana membuat kalkulator sederhana menggunhakan VB6, Kalkulatornya memang tidak Sebagus yang ada di windows hehe, langsung saja :

Buka VB6 nya dan buat desain seperti di bawah dengan komponen-komponen :

Komponen	Properti	Pengaturan
Form	Caption	Kalkulator Sederhana
Label1	Caption	Bilangan Pertama
Label2	Caption	Bilangan Kedua
Label3	Caption	Hasil
Text1	Text	(Kosongkan)
	Name	Bil1
Text2	Text	(Kosongkan)
	Name	Bil2
Text3	Text	(Kosongkan)
	Name	Hasil
	Enable	False
Command1	Caption	+
Command2	Caption	-
Command3	Caption	X
Command2	Caption	/
Command5	Caption	C

Desain Form :

Koding program :

Sintaks Untuk Command Tambah

Private Sub Command1_Click()
Me.hasil.Text = Val(Me.bil1.Text) + Val(Me.bil2.Text)
End Sub

Sintaks Untuk Command Kurang

Private Sub Command2_Click()
Me.hasil.Text = Val(Me.bil1.Text) - Val(Me.bil2.Text)
End Sub

Sintaks untuk Command Kali

Private Sub Command3_Click()
Me.hasil.Text = Val(Me.bil1.Text) * Val(Me.bil2.Text)
End Sub

Sintaks untuk Command Bagi. Agak panjang karena tidak bisa dibagi dengan 0 (nol).

Private Sub Command4_Click()

If Val(Me.bil2.Text) = 0 Then
MsgBox "Bilangan Tidak Bisa di bagi 0", vbOKOnly + vbCritical, "Erorr"
Call Command5_Click
Else
Me.hasil.Text = Val(Me.bil1.Text) / Val(Me.bil2.Text)
End If

End Sub

Sintaks untuk mengosongkan TextBox

Private Sub Command5_Click()
Me.bil1.Text = ""
Me.bil2.Text = ""
Me.hasil.Text = ""
Me.bil1.SetFocus

End Sub

Sintaks Pada bil1 & bil2 agar bisa di isi dengan angka saja

Private Sub bil1_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") & Chr(13) _
    And KeyAscii <= Asc("9") & Chr(13) _
    Or KeyAscii = vbKeyBack _
    Or KeyAscii = vbKeyDelete) Then
    Beep
   
    KeyAscii = 0
End If

End Sub

Private Sub bil2_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") & Chr(13) _
    And KeyAscii <= Asc("9") & Chr(13) _
    Or KeyAscii = vbKeyBack _
    Or KeyAscii = vbKeyDelete) Then
    Beep
   
    KeyAscii = 0
End If

End Sub

Tampilan Setelah Dijalankan:

Untuk Downlaod Sourde Codenya Klik Disini

Sekian Tutorial dari saya. Semoga bermanfaat