Tutorial Membuat Kalkulator Sederhana dan Cantik

Kali ini kita akan belajar membuat kalkulator sederhana dengan VB 6.0, yang terdiri dari penjumlahan, pengurangan dan pembagian. Konsep pembuatannya di terapkan pada rumus matematika atau fisika, yang intinya kita harus mengetahui alur kerja secara manual dari rumus tersebut sehingga bisa diterjemahkan ke dalam bahasa pemrograman visual basic.

Langkah nya cukup sederhana dan mari kita mulai! 

1.      Siapkan format sederhana kalkulator dengan memperhatikan property yang akan kita gunakan. Pertama-tama buat sebuah lembaran kerja VB seperti berikut.

-          General (panah sebelah kiri) adalah pilihan object yang akan kita gunakan.

-          Properties (panah sebelah kanan) adalah pilihan pengaturan object yang kita gunakan. Untuk mengatur tulisan, ukuran, background, dll.

2.      Lanjutkan dengan mulai mengatur format object yang akan kita pakai. Gunakan Textbox dan Command Button.

-          Hilangkan tulisan Text 1 pada kolom properties disebelah kanan

-          Begitu juga pada Command Button, ganti dengan angka atau tanda hapus, tambah, kurang, bagi, kali yang kita gunakan.

-          Atur dengan ukuran yang pas dan sesuai kita inginkan.

-          Berikut adalah pengaturan property setiap object-nya adalah sebagai berikut :

Object	Properties	Value
Form9	Border Style Caption Start Up Position	1-Fixed Single Kalkulator 2-Center Screen
Text1	Alignment Text	1-Right Justify <kosong>
Command 1	Name Caption Index	cmd Angka 1 0
Command 2	Name Caption	cmdHapus C
Command 3	Name Caption Index	cmdOperator + 0
Command 4	Name caption	cmdHitung =

-          Buat kontrol array dari cmdAngka (sebanyak 10 buah) dan dari cmdOperator (sebanyak 3 buah). Kemudian atur property caption masing-masing sebagai berikut :

Object	Caption
cmdAngka(1) cmdAngka(2) … cmdAngka(10)	2 3 … ,
cmdOperator(1) cmdOperator(2) cmdOperator(3)	- * /

3.      Atur sendiri format dan ukuran setiap objectnya, hingga selesai seperti ini :

4.      Kemudian klik dua kali pada form yang telah kita siapkan, sehingga muncul format seperti ini.

-        Buka Jendela Code dan pada bagian Code Editor, lalu ketikkan kode programnya sebagai berikut :

Dim angka(1 To 2) As Single

Dim operator As String

Private Sub cmdAngka_Click(Index As Integer)

Text1.Text = Text1.Text & cmdAngka(Index).Caption

End Sub

Private Sub cmdOperator_Click(Index As Integer)

If Text1.Text = "" Then Exit Sub

angka(1) = CSng(Text1.Text)

operator = cmdOperator(Index).Caption

Text1.Text = ""

End Sub

Private Sub cmdHitung_Click()

Dim hasil As Single

If Text1.Text = "" Then Exit Sub

angka(2) = CSng(Text1.Text)

Select Case operator

Case "+"

hasil = angka(1) + angka(2)

Case "-"

hasil = angka(1) - angka(2)

Case "*"

hasil = angka(1) * angka(2)

Case "/"

hasil = angka(1) / angka(2)

End Select

5.      Untuk mempercantik kalkulator kita bisa menambahkan background kita dengan langkah seperti berikut :

-          Klik dua kali pada format (panah 1)

-          Pilih picture dan klik untuk memunculkan pilihan gambar (panah 2)

-          Ambil gambar di galeri penyimpanan gambar kita, dan pilih salah satu gambar yang kita sukai. Klik Open (panah 3). Maka background kalkulator kita akan berubah.

6.      Maka, kalkulator kita sudah bisa digunakan dengan klik tanda play pada toolbar.

SEMOGA BERMANFAAT .^_^.

*Jika ada pertanyaan, silahkan tuliskan pada kolom komentar. Terima Kasih.

(Vivi Afri Oviani)