Kodenya adalah sebagai berikut:
Copy kode kodenya sebagai berikut:
/**
*Penulis: hati burung hitam
*Versi: 1.0
*/
Redupkan IntX Sebagai Double 'Variabel global yang digunakan untuk menyimpan nilai terhitung
Redupkan IntOperation Sebagai Jenis operasi Tandai Ganda
Dim isBegin As Boolean 'Apakah tag telah diberi nilai ke IntX
Public Sub Clear() 'Hapus fungsi perintah
layar.Caption = ""
Akhiri Sub
Sub Publik SavaToIntX()
Pilih Kasus IntOperation
Kasus 1 'Penambahan
Jika isBegin = Salah Maka
IntX = Val(layar.Caption)
isBegin = Benar
Kalau tidak
IntX = IntX + Val(layar.Caption)
Akhiri Jika
Kasus 2 'Pengurangan
Jika isBegin = Salah Maka
IntX = Val(layar.Caption)
isBegin = Benar
Kalau tidak
IntX = IntX - Val(layar.Caption)
Akhiri Jika
Kasus 3 'Perkalian
Jika isBegin = Salah Maka
IntX = Val(layar.Caption)
isBegin = Benar
Kalau tidak
IntX = IntX * Val(layar.Caption)
'layar.Caption = IntX
Akhiri Jika
Kasus 4 'Divisi
Jika isBegin = Salah Maka
IntX = Val(layar.Caption)
isBegin = Benar
Kalau tidak
IntX = IntX / Val(layar.Caption)
Akhiri Jika
Pilihan Akhir
Akhiri Sub
Sub Perintah Pribadi0_Klik()
layar.Caption = layar.Caption & 0
Akhiri Sub
Sub Perintah Pribadi1_Klik()
layar.Caption = layar.Caption & 1
Akhiri Sub
Sub Perintah Pribadi2_Klik()
layar.Caption = layar.Caption & 2
Akhiri Sub
Sub Perintah Pribadi3_Klik()
layar.Caption = layar.Caption & 3
Akhiri Sub
Sub Perintah Pribadi4_Klik()
layar.Caption = layar.Caption & 4
Akhiri Sub
Sub Perintah Pribadi5_Klik()
layar.Caption = layar.Caption & 5
Akhiri Sub
Sub Perintah Pribadi6_Klik()
layar.Caption = layar.Caption & 6
Akhiri Sub
Sub Perintah Pribadi7_Klik()
layar.Caption = layar.Caption & 7
Akhiri Sub
Sub Perintah Pribadi8_Klik()
layar.Caption = layar.Caption & 8
Akhiri Sub
Sub Perintah Pribadi9_Klik()
layar.Caption = layar.Caption & 9
Akhiri Sub
Sub Perintah PribadiClear_Click() 'Hapus perintah
isBegin = Salah
Operasi Int = 0
IntX = 0
layar.Caption = ""
Akhiri Sub
Sub Pribadi CommandEqual_Click() 'Operasi tanda sama dengan
Jika IntOperation <> 0 Lalu 'Saat ada tanda operasi
HubungiSavaToIntX
IntOperasi = 0
isBegin = Salah
layar.Caption = IntX
Akhiri Jika
Akhiri Sub
Sub Perintah PribadiMinus_Click() 'Operasi pengurangan
Jika IntOperation <> 0 Lalu 'Saat ada tanda operasi
HubungiSavaToIntX
Operasi Int = 2
Panggilan Jelas
Kalau tidak
Operasi Int = 2
HubungiSavaToIntX
Panggilan Jelas
Akhiri Jika
Akhiri Sub
Sub Pribadi CommandMultiple_Click() 'Operasi perkalian
Jika IntOperation <> 0 Lalu 'Saat ada tanda operasi
HubungiSavaToIntX
Operasi Int = 3
Panggilan Jelas
Kalau tidak
Operasi Int = 3
HubungiSavaToIntX
Panggilan Jelas
Akhiri Jika
Akhiri Sub
Sub Pribadi CommandPlus_Click() 'Operasi penambahan
Jika IntOperation <> 0 Lalu 'Saat ada tanda operasi
HubungiSavaToIntX
Operasi Int = 1
Panggilan Jelas
Kalau tidak
Operasi Int = 1
HubungiSavaToIntX
Panggilan Jelas
Akhiri Jika
Akhiri Sub
Sub Pribadi CommandSlash_Click() 'Operasi divisi
Jika IntOperation <> 0 Lalu 'Saat ada tanda operasi
HubungiSavaToIntX
IntOperasi = 4
Panggilan Jelas
Kalau tidak
IntOperasi = 4
HubungiSavaToIntX
Panggilan Jelas
Akhiri Jika
Akhiri Sub