MEMBUAT KALKULATOR SEDERHANA MENGGUNAKAN V.B 6.0

Membuat Kalkulator Sederhana

Kali ini kita akan membuat kalkulator yang sangat sederhana dengan menggunakan visual basic 6.0.Untuk mempersingkat waktu mari langsung saja kita lakukan.

1.Langkah Pertama

            Bukalah sebuah proyek visual basic 6.0 dengan menggunakan standard exe.

  

2.Tampilan form

            Setelah anda membuka visual basic 6.0 standard exe maka anda akan melihat tampilan form seperti ini.

3.Objek

            Setelah membuat form maka tambahkanlah objek sebagai berikut:

1.      4 buah command button

2.      3 buah label

3.      3 buah text box

Dan atur properties nya sebagai berikut:

4 Buah command button

1.Ganti masing-masing caption dengan + - * / satu command button 1 lambang 2.Ganti masing-masing name menjadi cmdtambah,cmdkurang,cmdkali,cmdbagi harus sesuai dengan caption.

3 Buah label

1.Untuk label jangan ganti namenya kita menggunakan name yang standard (tidak di rubah) 2.Ganti masing-masing caption menjadi nilai1=,nilai2=,hasil=.

3.Buah textbox

1.Ganti masing-masing name menjadi txtnilai1,txtnilai2,txthasil text box ini harus di letakkan sejajar dengan label yang sebelumnya,seperti label nilai1= harus sejajar dengan txtnilai1,dan begitu juga dengan ke dua textbox yang lain hal ini dilakukan agar kita mudah untuk mengingatnya. 2.kosongkan text di setiap textbox

           

NB:Perhatikan dengan cermat properties di atas apabila anda salah memasukkan name atau caption maka project ini tidak akan berjalan.

Dan inilah Hasil objeknya.

4.menghias objek

1.     1. Jika anda ingin meletakkan gambar sebagai background form dengan cara klik properties picture dan browser lah gambar yang ingin anda masukkan pastikan yang anda seleksi adalah form.

2.     2. Mengganti warna pada command button yaitu dengan klik properties style ubah dari standard menjadi grapichal,setelah style diganti klik lagi properties backcolor sesuai dengan warna keinginan anda.

3.      3.Untuk mengganti background pada label & textbox klik  properties backcolor dengan warna yang anda inginkan.

4

1.      4.Dan untuk mengganti jenis tulisan klik properties font dan silahkan ganti jenis tulisan dengan tulisan yang anda inginkan.

5.Koding proyek

            Nah inilah bagian yang paling ditunggu-tunggu yaitu koding (listing) dari proyek ini.

Nah ini dia koding proyeknya.

Dim nilai1 As Integer, nilai2 As Integer, hasil As Single

Private Sub cmdbagi_Click()

nilai1 = txtnilai1.Text

nilai2 = txtnilai2.Text

hasil = nilai1 / nilai2

txthasil.Text = hasil

End Sub

Private Sub cmdkali_Click()

nilai1 = txtnilai1.Text

nilai2 = txtnilai2.Text

hasil = nilai1 * nilai2

txthasil.Text = hasil

End Sub

Private Sub cmdkurang_Click()

nilai1 = txtnilai1.Text

nilai2 = txtnilai2.Text

hasil = nilai1 - nilai2

txthasil.Text = hasil

End Sub

Private Sub cmdtambah_Click()

nilai1 = txtnilai1.Text

nilai2 = txtnilai2.Text

hasil = nilai1 + nilai2

txthasil.Text = hasil

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

    Dim answer As Integer

    answer = MsgBox("apakah anda sudah selesai & ingin keluar?", vbQuestion + vbYesNo, "confirmation")

    If answer = vbNo Then Cancel = -1

End Sub

 

Dan inilah Hasil dari proyek yang telah anda buat.