1.
Source
Code Kalkulator :
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
' menuliskan
angka
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
cmdClear_Click()
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
' hapus angka
Private Sub
cmdClearEntry_Click()
txtDisplay.Text =
""
End Sub
' menambahkan
koma (desimal)
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
' tombol
tambah/kurang/bagi/kali
Private Sub
cmdOperator_Click(Index As Integer)
cmdSamaDengan_Click
Operator = Index
NilaiBaru = True
End Sub
' Menghitung
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
'Tidak bisa
dibagi nol
If HasilBaru = 0
Then
MsgBox "Tidak
bisa dibagi 0", vbOKOnly + vbCritical, "Kalku ERROR"
Call
cmdClear_Click
Else
Hasil = Hasil /
HasilBaru
End If
End Select
Operator = opNol
NilaiBaru = True
txtDisplay.Text =
Format$(Hasil)
End Sub
Tampilan Kalkulator :