Membuat aplikasi kalkulator versi rougerdeluffy

Seringkali saat kita menggunakan komputer kita terbentur masalah untuk melakukan suatu perhitungan matematika, apakah itu perkalian, pembagian, penjumlahan atau yang lain sebagainya. Nah untuk mengatasi hal seperti ini biasanya kita akan menggunakan aplikasi-aplikasi yang sudah ada pada Komputer kita, seperti Microsoft Excel, Kalkulator atau aplikasi apa saja yang dapat melakukan perhitungan. Bahkan mungkin sering terjadi pula kita melihat ada orang yang menggunakan aplikasi perhitungan yang ada pada handponenya (Wah parah ini orang….).

Nah, pada tutorial kali ini penulis akan membagikan sebuah tips sederhana yaitu bagaimana membuat sebuah program aplikasi kalkulator sederhana yang dapat melakukan proses perhitungan matematika menggunakan bahasa program Microsoft Visual Basic 6.0. Praktekkanlah langkah-langkah di bawah ini untuk membuatnya.

Hasil Akhir

Gambar di atas merupakan tampilan program setelah selesai di buat.

Langkah 1

Jalankan aplikasi Visual basic 6.0. Pada form yang tampil, tambahkan 1 buah control TextBox, dan 20 buah kontrol CommandButton.

Langkah 2

Aturlah posisi dan ukuran setiap kontrol yang ditambahkan tersebut seperti terlihat pada gambar di bawah ini :

Langkah 3

Double klik pada area form, kemudian ketiklah kode berikut ini:

Dim Nilai1, Nilai2, Hasil As Double

Dim Operator As String

Langkah 4

Double klik pada tombol 0, kemudian ketiklah kode berikut ini:

Private Sub Cmd_0_Click()

If Txt_Angka = “0″ Then

Txt_Angka = “0″

Else

Txt_Angka = Txt_Angka & “0″

End If

End Sub

Langkah 5

Double klik pada tombol 1, kemudian ketiklah kode berikut ini:

Private Sub Cmd_1_Click()

If Txt_Angka = “0″ Then

Txt_Angka = “1″

Else

Txt_Angka = Txt_Angka & “1″

End If

End Sub

Langkah 6

Double klik pada tombol 2, kemudian ketiklah kode berikut ini:

Private Sub Cmd_2_Click()

If Txt_Angka = “0″ Then

Txt_Angka = “2″

Else

Txt_Angka = Txt_Angka & “2″

End If

End Sub

Langkah 7

Double klik pada tombol 3, kemudian ketiklah kode berikut ini:

Private Sub Cmd_3_Click()

If Txt_Angka = “0″ Then

Txt_Angka = “3″

Else

Txt_Angka = Txt_Angka & “3″

End If

End Sub

Langkah 8

Double klik pada tombol 4, kemudian ketiklah kode berikut ini:

Private Sub Cmd_4_Click()

If Txt_Angka = “0″ Then

Txt_Angka = “4″

Else

Txt_Angka = Txt_Angka & “4″

End If

End Sub

Langkah 9

Ulangin langkah di atas untuk per masing-masing tombol dan fungsi aritmatika seperti tambah (+), kurang (-), kali (*), dan bagi (/).

Private Sub Cmd_5_Click()

If Txt_Angka = “0″ Then

Txt_Angka = “5″

Else

Txt_Angka = Txt_Angka & “5″

End If

End Sub

Private Sub Cmd_6_Click()

If Txt_Angka = “0″ Then

Txt_Angka = “6″

Else

Txt_Angka = Txt_Angka & “6″

End If

End Sub

Private Sub Cmd_7_Click()

If Txt_Angka = “0″ Then

Txt_Angka = “7″

Else

Txt_Angka = Txt_Angka & “7″

End If

End Sub

Private Sub Cmd_8_Click()

If Txt_Angka = “0″ Then

Txt_Angka = “8″

Else

Txt_Angka = Txt_Angka & “8″

End If

End Sub

Private Sub Cmd_9_Click()

If Txt_Angka = “0″ Then

Txt_Angka = “9″

Else

Txt_Angka = Txt_Angka & “9″

End If

End Sub

Private Sub Cmd_Bagi_Click()

If Nilai1 = 0 Then

Nilai1 = Val(Txt_Angka)

Else

Nilai1 = Nilai1 / Val(Txt_Angka)

End If

Operator = “/”

Txt_Angka = “0″

End Sub

Private Sub Cmd_C_Click()

Txt_Angka = “0″

Nilai1 = 0

Hasil = 0

Operator = “”

End Sub

Private Sub Cmd_Kali_Click()

If Nilai1 = 0 Then

Nilai1 = Val(Txt_Angka)

Else

Nilai1 = Nilai1 * Val(Txt_Angka)

End If

Operator = “X”

Txt_Angka = “0″

End Sub

Private Sub Cmd_Kurang_Click()

If Nilai1 = 0 Then

Nilai1 = Val(Txt_Angka)

Else

Nilai1 = Nilai1 – Val(Txt_Angka)

End If

Operator = “-”

Txt_Angka = “0″

End Sub

Private Sub Cmd_Mod_Click()

If Nilai1 = 0 Then

Nilai1 = Val(Txt_Angka)

Else

Nilai1 = Nilai1 Mod Val(Txt_Angka)

End If

Operator = “MOD”

Txt_Angka = “0″

End Sub

Private Sub Cmd_Pangkat_Click()

If Nilai1 = 0 Then

Nilai1 = Val(Txt_Angka)

Else

Nilai1 = Nilai1 ^ Val(Txt_Angka)

End If

Operator = “^”

Txt_Angka = “0″

End Sub

Private Sub Cmd_Sama_Dengan_Click()

If Operator = “^” Then

Hasil = Nilai1 ^ Val(Txt_Angka)

Txt_Angka = Hasil

ElseIf Operator = “X” Then

Hasil = Nilai1 * Val(Txt_Angka)

Txt_Angka = Hasil

ElseIf Operator = “/” Then

Hasil = Nilai1 / Val(Txt_Angka)

Txt_Angka = Hasil

ElseIf Operator = “MOD” Then

Hasil = Nilai1 Mod Val(Txt_Angka)

Txt_Angka = Hasil

ElseIf Operator = “+” Then

Hasil = Nilai1 + Val(Txt_Angka)

Txt_Angka = Hasil

ElseIf Operator = “-” Then

Hasil = Nilai1 – Val(Txt_Angka)

Txt_Angka = Hasil

End If

Nilai1 = 0

Operator = “”

End Sub

Private Sub Cmd_Sqr_Click()

Txt_Angka = Sqr(Txt_Angka)

End Sub

Private Sub Cmd_Tambah_Click()

If Nilai1 = 0 Then

Nilai1 = Val(Txt_Angka)

Else

Nilai1 = Nilai1 + Val(Txt_Angka)

End If

Operator = “+”

Txt_Angka = “0″

End Sub

Private Sub Cmd_Titik_Click()

Txt_Angka = Txt_Angka & “.”

End Sub

Simple bukan