Membuat Aplikasi Kalkulator dari Visual Basic

Tutorial Pembuatan Kalkulator dari VB 6.0

1. Jalankan Microsoft Visual Basic 6.0 nya terlebih dahulu

2. Pilih Standard EXE lalu Open


3. Buat Tampilan Seperti berikut ini



 Isi dari Propertis di atas

Label :
(Name) : Label1
Caption : Kalkulator

Command Button 1:
(Name) : cmdAngka
Index : 1
Caption : 1

Command Button 2:
(Name) : cmdAngka
Index : 2
Caption : 2

Command Button 3:
(Name) : cmdAngka
Index : 3
Caption : 3

Command Button 4:
(Name) : cmdAngka
Index : 4
Caption : 4

Command Button 5:
(Name) : cmdAngka
Index : 5
Caption : 5

Command Button 6:
(Name) : cmdAngka
Index : 6
Caption : 6

Command Button 7:
(Name) : cmdAngka
Index : 7
Caption : 7

Command Button 8:
(Name) : cmdAngka
Index : 8
Caption : 8

Command Button 9:
(Name) : cmdAngka
Index : 9
Caption : 9

Command Button 10:
(Name) : cmdAngka
Index : 0
Caption : 0

Command Button 11:
(Name) : cmdOperator
Index : 1
Caption : +

Command Button 12:
(Name) : cmdOperator
Index : 2
Caption : -

Command Button 13:
(Name) : cmdOperator
Index : 3
Caption : x

Command Button 14:
(Name) : cmdOperator
Index : 4
Caption : /

Command Button 15:
(Name) : cmdOperator
Index : 5
Caption : %

Textbox :
(Name) : TxtDisplay
Caption : (kosongin)

Command Button 16 :
(Name) : CmdClearEntry
Caption : Ulangi

Command Button 17 :
(Name) : CmdSamaDengan
Caption : Tampil

Nb: Di dalem ganbar ada propertis Command Button (Menu) karna berhubung gw pake gambar yang gw pake buat tugas jadi ada menu disitu, kalo dalem Kalkulator nya sendiri gak ada propertis tsb.

Berikutnya tinggal membuat codingan nya setelah membuat propertis seperti di atas

Option Explicit
Private Hasil As Double
Private Const opNol = 0
Private Const opTambah = 1
Private Const opKurang = 2
Private Const opKali = 3
Private Const opBagi = 4
Private Operator As Integer
Private NilaiBaru As Boolean

Private Sub CmdClear_Click()
cmdClearEntry_Click
Hasil = 0
Operator = opNol
End Sub

Private Sub cmdClearEntry_Click()
TxtDisplay.Text = ""
End Sub

Private Sub CmdMenu_Click()
Form3.Show
Unload Me
End Sub

Private Sub cmdSamaDengan_Click()
Dim HasilBaru As Double
If TxtDisplay.Text = "" Then
HasilBaru = 0
Else
HasilBaru = CDbl(TxtDisplay.Text)
End If
Select Case Operator
Case opNol
Hasil = HasilBaru
Case opBagi
If HasilBaru = 0 Then
MsgBox "Tidak bisa dibagi 0", vbOKOnly + vbCritical, "Kalkulator ERROR"
Call CmdClear_Click
Else
Hasil = Hasil / HasilBaru
End If
Case opKurang
Hasil = Hasil - HasilBaru
Case opKali
Hasil = Hasil * HasilBaru
Case opTambah
Hasil = Hasil + HasilBaru
End Select
Operator = opNol
NilaiBaru = True
TxtDisplay.Text = Format$(Hasil)
End Sub

Private Sub cmdAngka_Click(Index As Integer)
If NilaiBaru Then
TxtDisplay.Text = Format$(Index)
NilaiBaru = False
Else
TxtDisplay.Text = _
TxtDisplay.Text & Format$(Index)
End If
End Sub

Private Sub cmdOperator_Click(Index As Integer)
cmdSamaDengan_Click
Operator = Index
NilaiBaru = True
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
txtDisplay_KeyPress KeyAscii
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
txtDisplay_KeyUp KeyCode, Shift
End Sub

Private Sub txtDisplay_Change()
TxtDisplay.SelStart = Len(TxtDisplay.Text)
End Sub

Private Sub txtDisplay_GotFocus()
txtDisplay_Change
End Sub

Private Sub txtDisplay_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr$(KeyAscii)
Select Case ch
Case "0"
cmdAngka_Click 0
Case "1"
cmdAngka_Click 1
Case "2"
cmdAngka_Click 2
Case "3"
cmdAngka_Click 3
Case "4"
cmdAngka_Click 4
Case "5"
cmdAngka_Click 5
Case "6"
cmdAngka_Click 6
Case "7"
cmdAngka_Click 7
Case "8"
cmdAngka_Click 8
Case "9"
cmdAngka_Click 9
Case " * ", "X", "X"
cmdOperator_Click opKali
Case " + "
cmdOperator_Click opTambah
Case vbCrLf, vbCr, " Tampil "
cmdSamaDengan_Click
Case " - "
cmdOperator_Click opKurang
Case " / "
cmdOperator_Click opBagi
Case "Ulangi"
cmdClearEntry_Click
End Select
KeyAscii = 0
End Sub

Private Sub txtDisplay_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyNumpad0
cmdAngka_Click 0
Case vbKeyNumpad1
cmdAngka_Click 1
Case vbKeyNumpad2
cmdAngka_Click 2
Case vbKeyNumpad3
cmdAngka_Click 3
Case vbKeyNumpad4
cmdAngka_Click 4
Case vbKeyNumpad5
cmdAngka_Click 5
Case vbKeyNumpad6
cmdAngka_Click 6
Case vbKeyNumpad7
cmdAngka_Click 7
Case vbKeyNumpad8
cmdAngka_Click 8
Case vbKeyNumpad9
cmdAngka_Click 9
Case vbKeyMultiply
cmdOperator_Click opKali
Case vbKeyAdd
cmdOperator_Click opTambah
Case vbKeySeparator
cmdSamaDengan_Click
Case vbKeySubtract
cmdOperator_Click opKurang
Case vbKeyDivide
cmdOperator_Click opBagi
Case vbKeyBack, vbKeyDelete
End Select
KeyCode = 0
End Sub

Sekian Penjelasan untuk Pembuatan Kalkulator di VB 6.0
semoga membantu pekerjaan anda nanti nya :)