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 :)

Terima Kasih Atas Kunjungan Anda
Judul: Calculator Sederhana Visual Basic 6.0 Part II
Ditulis Oleh bogorend
Jika mengutip harap berikan link yang menuju ke artikel Calculator Sederhana Visual Basic 6.0 Part II ini. Sesama blogger mari saling menghargai. Maaf apabila terjadi keterlambatan dalam membalas komentar, karena saya hanya mengurus blog ini sendirian dan tidak selalu online 24jam. Terima kasih.