Program Kalkulator Sederhana dengan Visual Basic 6.0

Haloo sobat, pa kabar semua??? maaf baru bisa update blog, maklumlah orang sibuk hehehehe… (sok nya….. ) baiklah kali ini kita akan membuat program kalkulator dengan mengunakan bahasa kesayang Ms. Billgate yang bernama Visual Basic.
Berikut adalah daftar komponen yang ada dalam form kalkulator adalah sbb :

No	Jenis Properties	Nama Properties	Caption
1.	Texbox	Txtlayar	-
2.	Label	Label1	-
3.	CommandButton	cmdAngka(index)	0 – 9
4.	CommandButton	cmdOperator(index)	*, /, +, -
5.	CommandButton	CmdClear	C
6	CommandButton	CmdTitik	.
7	CommandButton	Cmdsamadengan	=

Dalam program ini dibutuhkan beberapa variabel, seperti bil1, bil2, TampilDiLayar, OperatorDipilih dan Hasil.
Devinisi variabel ditulis di paling atas (variabel public form) supaya dikenal oleh seluruh komponen dalam form,

Dim TampilDiLayar As String
Dim Bil1, Bil2 As Integer
Dim OperatorDipilih As Byte
Dim Hasil As Double

Pertama Kali form dijalankan (form_load), variabel tampildilayar diisi dengan 0, dan isi pada txtlayar juga diisi 0

TampilDiLayar = 0
Me.txtLayar.Text = 0

selanjutnya, menampilkan angka ke texbox txtlayar : disini perlu dibedakan apakah yang ada di txtLayar angka 0 atau bukan, dan isi variabel tampildilayar=0 atau tidak,

If Me.txtLayar.Text <> 0 And TampilDiLayar <> 0 Then
TampilDiLayar = TampilDiLayar & Me.cmdAngka(Index).Caption
Else
TampilDiLayar = Me.cmdAngka(Index).Caption
End If
Me.txtLayar.Text = TampilDiLayar

Lanjut mang, apabila salah satu tombol operator ( plus, minus, kali, bagi), maka akan dilakukan kegiatan sbb :

• variabel bil1 akan terisi dengan isi dari txtLayar yang sekarang ini sedang tampil
• mengisi variabel tampildilayar dengan 0
• menyimpan index untuk mengetahui operator apa yang dipilih

Bil1 = Val(TampilDiLayar)
OperatorDipilih = Index
TampilDiLayar = 0

dan terakhir, adalah tombol sama dengan (=), tombol ini berfungsi menangkap bilanagan kedua, bil2 adalah bilangan yang tampil di layar (txtlayar) setelah tombol operator dipilih, dan mengecek index operator yang dipilih selanjutnya untuk diproses.

Bil2 = Val(TampilDiLayar)
Select Case OperatorDipilih
Case 0 ‘pembagian
Hasil = Bil1 / Bil2
Case 1 ‘perkalian
Hasil = Bil1 * Bil2
Case 2 ‘pengurangan
Hasil = Bil1 – Bil2
Case Else ‘penambahan
Hasil = Bil1 + Bil2
End Select
Me.txtLayar.Text = Hasil