KALKULATOR VB

Kalkulator VB
Program untuk membuat kalkulator sederhana yang bisa menggunakan hitung-tambah, kurang, kali, dan bagi.

Kode :
Option Explicit
Dim Operasil As Double, Operasi2 As Double
Dim Operator As String
Dim HapusTampilan As Boolean

Private Sub TblHapus_Click()
Tampilan.Caption = ""
End Sub
Private Sub Angka_Click(Index As Integer)
If HapusTampilan Then
Tampilan.Caption =""
HapusTampilan = False
End If
Tampilan.Caption = Tampilan.Caption + Angka(Index).Caption
End Sub

Private Sub Bagi_Click()
Operasi = Val (Tampilan.Caption)
Operasi = "/"
Tampilan.Caption =""
End Sub

Private Sub Desimal_Click()
If HapusTampilan Then
Tampilan.Caption =""
HapusTampilan =False
End If
If InStr(Tampilan.Caption,".") Then
Exit Sub
Else
Tampilan.Caption = Tampilan.Caption +"."
End If
End Sub
Private Sub SamaDengan_Click()
Dim hasil As Double

On Error GoTo ErrorHandler
Operasi2 = Val (Tampilan.Caption)
If Operator ="+"Then hasil = Operasi1+ Operasi2
If Operator ="-"Then hasil = Operasi1 – Operasi2
If Operator ="*"Then hasil = Operasi1* Operasi2
If Operator ="/" And Operasi2 <> "0" Then hasil = _Operasi1 / Operasi2
Tampilan,Caption = hasil
HapusTampilan = True
Exit Sub
ErrorHandler:
MsgBox "Hitungan menghasilkan kesalahan berikut" _
& vbCrLf & Err.Description
Tampilan.Caption = "SALAH"
HapusTampilan = True
End Sub
Private Sub Kurang_Click()
Operasi1 = Val(Tampilan.Caption)
Operator ="-"
Tampilan.Caption =""
End Sub
Private Sub SatuPer_Click()
If Val(Tampilan.Caption) <> 0Then Tampilan.Caption _
= 1/ Val (Tampilan.Caption)
End Sub

Private Sub Tambah_Click()
Operasi1 =Val(Tampilan.Caption)
Operator ="+"
Tampilan.Caption =""
End Sub

Private Sub TambahKurang_Click()
Tampilan.Caption =-Val(Tampilan.Caption)
End Sub

Private Sub Kali_Clilck()
Operasi1 =Val(Tampilan.Caption)
Operator ="*"
Tampilan.Caption =""
End Sub