MEMBUAT KALKULATOR DENGAN VISUAL BASIC 6.0

Kali ini kita akan membuat kalkulator sederhana dengan menggunakan Microsoft Visual Basic 6.0. Dapat kita ketahui bahwa program dasar oprasi bilangan bulat antara lain Penjumlahan, Pengurangan, Perkalian, dan Pembagian. Dari komponen-komponen tersebutlah kita akan menentukan objek yang diperlukan dalam pembuatan kalkulator tersebut.

Langkah-langkah pembuatan kalkulator sederhana dengan Microsoft Visual Basic 6.0 antaralain:

1.       Tentunya kita harus membuka terlebih dahulu Visual Basic 6.0 dengan cara tekan menu Start+F+Setting lalu ketikan Visual Basic (versi windows 8).

2.       Klik standart.EXE

Maka akan tampak seperti dibawah ini:

3.       Disini kita mulai mendesign bagaimana tampilan kalkulator yang akan kita buat, kita bebas mendesignnya sesuai yang kita inginkan.Sebagai contoh, buatlah 4 label, 3 TextBox, 1 Frame, 6 CammonButton.

4.       Edit beberapa Propertis-From1

Nama Kontrol	Alphabetic	Catagoriez
Form1	CaptionName	Tugas Tambahan – 01 (Astiti Rahayu 1447)Frmlat_2
Label1	Caption	Program Operasi Hitung Bilangan Bulat
Label2	Caption	Bilangan Pertama
Label3	Caption	Bilangan Kedua
Label4	Caption	Hasil =
Text1	NameText	Txtbil1Kosongkan
Text2	NameText	Txtbil2Kosongkan
Text3	NameText	TxthasilKosongkan
Frame1	Name	Jenis Operasi
Command1	NameCaption	Cmdtambah+
Command2	NameCaption	Cmdkurang-
Command3	NameCaption	CmdkaliX
Command4	NameCaption	Cmdbagi:
Command4	NameCaption	CmdhapusHAPUS
Command4	NameCaption	CmdtutupTUTUP

Ubah hingga tampilannya sebagai berikut:

5.       Setelah mendesign tampilannya, kita perlu memasukan kode program pada masing – masing tombol hitung  “ +, -, x,dan : “ .

Doble click padaCommandButtonmasukan scrift sesuai dengan Tombol Hitung.

a.   Pada Tombol Hitung “+”

Private Sub Cmdkurang_Click()

  Dim Bil1, Bil2 As Integer

  Dim Hasil As Long

  Bil1 = Val(Txtbil1.Text)

  Bil2 = Val(Txtbil2.Text)

  Hasil = Val(Txthasil.Text)

 

  Hasil = (Bil1 +Bil2)

  Txthasil.Text = Hasil

End Sub

b.   Pada Tombol Hitung “-”

Private Sub Cmdtambah_Click()

  Dim Bil1, Bil2 As Integer

  Dim Hasil As Long

  Bil1 = Val(Txtbil1.Text)

  Bil2 = Val(Txtbil2.Text)

  Hasil = Val(Txthasil.Text)

 

  Hasil = (Bil1 - Bil2)

  Txthasil.Text = Hasil

End Sub

c.   Pada Tombol Hitung “X”

Private Sub Cmdkali_Click()

  Dim Bil1, Bil2 As Integer

  Dim Hasil As Long

  Bil1 = Val(Txtbil1.Text)

  Bil2 = Val(Txtbil2.Text)

  Hasil = Val(Txthasil.Text)

 

  Hasil = (Bil1 * Bil2)

  Txthasil.Text = Hasil

End Sub

d.   Pada Tombol Hitung “:”

Private Sub Cmdbagi_Click()

  Dim Bil1, Bil2 As Integer

  Dim Hasil As Single

  Bil1 = Val(Txtbil1.Text)

  Bil2 = Val(Txtbil2.Text)

  Hasil = Val(Txthasil.Text)

 

  Hasil = (Bil1 / Bil2)

  Txthasil.Text = Hasil

End Sub

e.   Pada Tombol Hapus

Private Sub cmdbatal_Click()

  Txtbil1.Text = “”

  Txtbil2.Text = “”

  Txthasil.Text = “”

End Sub

f.     Pada Tombol Tutup

Private Sub cmdtutup_Click()

  End

End Sub

6.       ClickView | Object, tekan F5 untuk menjalankan program. Cek program yang elah di buat.

7.      Bila prject sudah berjalan dengan benar, selanjutnya project dapat disave dengan klik File | Save Projectlalu simpan program dengan caraklik File | Make Project.

8.       Program siap dijalnkan.

Semoga Bermanfaat!!