Langkah Membuat Kalkulator Dengan VB,
Sepeti di bawah program untuk membuat kalkulator tersebut, Semoga dapat bermanfaat untuk temen-temen semua.
Maaf bila masih banyak kesalahan, silahkan mencoaba ^_^
Option Explicit
Dim TekanPertama As Boolean
Dim NilaiTerakhir As Long
Dim OperatorTerakhir As Long
---------------------------------------------
Private Sub CmdAC_Click()
Call Form_Load
End Sub
---------------------------------------------
Private Sub CmdAngka_Click(Index As Integer)
Dim strIndex As String
strIndex = CStr(Index)
If (TekanPertama) Then
TxtDisplay.Text = strIndex
TekanPertama = False
Else
If (TxtDisplay.Text = " 0 ") Then
TxtDisplay.Text = strIndex
Else
TxtDisplay.Text = TxtDisplay.Text & strIndex
End If
End If
End Sub
---------------------------------------------
Private Sub CmdC_Click()
TxtDisplay.Text = ""
End Sub
---------------------------------------------
Private Sub CmdOperator_Click(Index As Integer)
TekanPertama = True
If (OperatorTerakhir >= "0") Then
Call CmdSamadg_Click
End If
OperatorTerakhir = Index
NilaiTerakhir = TxtDisplay.Text
End Sub
---------------------------------------------
Private Sub CmdSamadg_Click()
Dim Hasil As Long
' Jika operator terakhir TAMBAH '
If (OperatorTerakhir = 0) Then
Hasil = NilaiTerakhir + TxtDisplay.Text
TxtDisplay.Text = Hasil
End If
' Jika operator terakhir KURANG '
If (OperatorTerakhir = 1) Then
Hasil = NilaiTerakhir - TxtDisplay.Text
TxtDisplay.Text = Hasil
End If
' Jika operator terakhir KALI '
If (OperatorTerakhir = 2) Then
Hasil = NilaiTerakhir * TxtDisplay.Text
TxtDisplay.Text = Hasil
End If
' Jika operator terakhir BAGI '
If (OperatorTerakhir = 3) Then
' Apakah Pembaginya NOL '
If (TxtDisplay.Text = "0") Then
TxtDisplay.Text = "E"
Else
Hasil = NilaiTerakhir / TxtDisplay.Text
TxtDisplay.Text = Hasil
End If
End If
OperatorTerakhir = -1
End Sub
---------------------------------------------
Private Sub Form_Load()
TekanPertama = True
NilaiTerakhir = 0
TxtDisplay.Text = "0"
OperatorTerakhir = -1
End Sub
