Calculator Sederhana Visual Basic 6.0 Part II

4.Berikutnya, tinggal membuat coding untuk kalkulator tersebut. Jika Anda mengikuti semua
setting properties seperti di posting sebelumnya Calculator Sederhana Visual Basic 6.0 Part I , maka codingnya  seperti ini:

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 Hapus()

 Dim txt As String

 Dim min_len As Integer

     txt = TxtDisplay.Text

 If Left$(txt, 1) = "-" Then

    min_len = 2

 Else

    min_len = 1

 End If

 If Len(txt) > min_len Then

    TxtDisplay.Text = Left$(txt, Len(txt) - 1)

 Else

    TxtDisplay.Text = "0?"

 End If

End Sub

Private Sub cmdClearEntry_Click()

    TxtDisplay.Text = ""

End Sub

Private Sub CmdKeluar_Click()

    PILIHAN = MsgBox("Are You Sure?", vbOKCancel + 32, "MESSAGES")

 If PILIHAN = 1 Then

    Unload Me

 End If

End Sub

Private Sub cmdKoma_Click()

 If InStr(TxtDisplay.Text, ".") Then

    Beep

 Else

 If NilaiBaru Then

    TxtDisplay.Text = "."

    NilaiBaru = False

 Else

    TxtDisplay.Text = TxtDisplay.Text & "."

 End If

 End If

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 opTambah

       Hasil = Hasil + HasilBaru

    Case opKurang

       Hasil = Hasil - HasilBaru

    Case opKali

       Hasil = Hasil * HasilBaru

    Case opBagi

       If HasilBaru = 0 Then

          MsgBox "Tidak bisa dibagi 0?", vbOKOnly + vbCritical, "Kalkulator ERROR"

       Call cmdClearEntry_Click

       Else

          Hasil = Hasil / HasilBaru

       End If

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, "="

    cmdSamaDengan_Click

  Case "-"

    cmdOperator_Click opKurang

  Case "."

    cmdKoma_Click

  Case "/"

    cmdOperator_Click opBagi

  Case "C", "c"

    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 vbKeyDecimal

    cmdKoma_Click

  Case vbKeyBack, vbKeyDelete

    Hapus

 End Select

    KeyCode = 0

End Sub

Slesai :) sekarang tinggal jalankan programnya..
semoga bermanfaat :)