Kalkulator Sederhana dengan VB6

Assalamu'alaikum
       Setelah 3 postingan terakhir adalah membahas tentang program-program java, sekarang saya kembali  membagi source code program VB. Program yang akan dibuat adalah kalkulator sederhana. Sebuah kalkulator sederhana berarti belum ada operasi yang komplex seperti kalkulator science. Kalkulator sederhana ini hanya ada operasi penjumlahan, pengurangan,pembagian,perkalian,pangkat,dan akar pangkat 2. contoh programnya adalah seperti di bawah ini:

langsung aja ke cara pembuatannya



Pertama kali pasti kita membuat desain formnya dulu seperti gambar di bawah ini
note: background dan warna command button bersifat optional, atur sesuai selera anda

sekarang kita samakan caption komponennya sbb:

• CommandButton1 sampai 9 captionnya ubah menjadi no 1-9
• CommandButton10 captionnya ubah menjadi 0
• CommandButton11 captionnya ubah menjadi =
• CommandButton12 captionnya ubah menjadi C
• CommandButton13 sampai 16 captionnya ubah menjadi +, -, x, dan /
• CommandButton17 dan 18 ubah captionnya menjadi SQR dan POW
• CommandButton19 sampai 23 berturut turut .(desimal) ,-/+,%, 1/x, phi

Sekarang klik dua kali pada form sehingga muncul jendela source codenya
Selanjutnya ubah "Form" pada pojok kiri atas menjadi general dan ubah "Load" yang ada di pojok kanan atas menjadi decalration lalu ketik pendeklarasian variable di bawah ini:

Dim y As Double
Dim x, z AsDouble

Lalu kembali ke form dengan cara klik "form" yang ada di pojok kanan atas jendela VB, setelah itu klik dua kali tombol 1 maka kita akan kembali ke jendela source code,kemudian ketik coding di bawah ini di bawah coding Private Sub Command1_Click()

Text1.Text = Text1.Text + "1"

lakukan langkah diatas pada tombol 0 sampai 9 sehingga coding lengkapnya seperti ini:

Private Sub Command10_Click()
Text1.Text = Text1.Text + "0"
End Sub

Private Sub Command1_Click()
Text1.Text = Text1.Text + "1"
End Sub

Private Sub Command2_Click()
Text1.Text = Text1.Text + "2"
End Sub
Private Sub Command3_Click()
Text1.Text = Text1.Text + "3"
End Sub
Private Sub Command4_Click()
Text1.Text = Text1.Text + "4"
End Sub
Private Sub Command5_Click()
Text1.Text = Text1.Text + "5"
End Sub
Private Sub Command6_Click()
Text1.Text = Text1.Text + "6"
End Sub
Private Sub Command7_Click()
Text1.Text = Text1.Text + "7"
End Sub
Private Sub Command8_Click()
Text1.Text = Text1.Text + "8"
End Sub
Private Sub Command9_Click()
Text1.Text = Text1.Text + "9"
End Sub
dan desimal sbb

Private Sub Command19_Click()
Text1.Text = Text1.Text + "."
End Sub

langkah diatas untuk tombol pengetikan angka sekarang ke operatornya. klik dua kali pada tombol +
lalu ketik coding di bawah ini tepat di bawah coding Private Sub Command13_Click()

y = 1
z = Val(Text1.Text)
Text1.Text = " "

Lakukan langkah yang sama dengan operator lainnya kecuali SQR sehingga coding lengkapnya seperti ini :

Private Sub Command13_Click()
y = 1
z = Val(Text1.Text)
Text1.Text = " "
End Sub
Private Sub Command14_Click()
y = 2
z = Val(Text1.Text)
Text1.Text = " "
End Sub
Private Sub Command15_Click()
y = 3
z = Val(Text1.Text)
Text1.Text = " "
End Sub
Private Sub Command16_Click()
y = 4
z = Val(Text1.Text)
Text1.Text = " "
End Sub
Private Sub Command18_Click()
y = 5
z = Val(Text1.Text)
Text1.Text = " "
End Sub

setelah itu kembali ke form dan klik 2 kali pada tombol SQR dan ketik coding di bawah ini

Private Sub Command17_Click()
Text1.Text = Val(Text1.Text) ^ 0.5
End Sub

kemudian coding untuk operator lainnya seperti -/+,%, 1/x, dan phi sebagai berikut:

Private Sub Command20_Click()
Text1.Text = -1 * Val(Text1.Text)
End Sub
Private Sub Command21_Click()
Text1.Text = Val(Text1.Text) / 100
End Sub
Private Sub Command22_Click()
Text1.Text = 1 / Val(Text1.Text)
End Sub
Private Sub Command23_Click()
Text1.Text = 3.14
End Sub

selanjutnya kembali lagi k form dan klik 2 kali pada tombol = dan ketik coding di bawah ini

Private Sub Command11_Click()
If y = 1 Then
x = z + Val(Text1.Text)
Text1.Text = x
ElseIf y = 2 Then
x = z - Val(Text1.Text)
Text1.Text = x
ElseIf y = 3 Then
x = z * Val(Text1.Text)
Text1.Text = x
ElseIf y = 4 Then
x = z / Val(Text1.Text)
Text1.Text = x
ElseIf y = 5 Then
x = z ^ Val(Text1.Text)
Text1.Text = x
End If
End Sub

Sudah hampir selesai tinggal tombol C yang belum ada codingnya. klik form kemudian klik dua kali tombol C, lalu ketik coding di bawah ini :

Private Sub Command12_Click()
Text1.Text = " "
End Sub

sekarang tekan tombol F5 dan hasilnya seperti berikut :

Jika masih ada kekurangan tolong di benahi dengan memberi komentar