Cara Membuat Aplikasi Kalkulator Sederhana

Assalamu’alaikum Wr.Wb

Postingan kali ini saya akan mencoba memberikan kepada anda, bagaimana cara membuat aplikasi perhitungan yaitu membuat aplikasi Kalkulator.  Aplikasi kalkulator yang akan saya share adalah bentuk aplikasi kalkukalor sederhana. Dan  ini bisa anda gunakan untuk perhitungan dalam keseharian anda.

Ok, langsung saja langkah-langkahnya sebagai berikut :

     1.       Bukalah aplikasi visual basic 6.0 yang sudah terinstal pada PC anda.

     2.       Akan muncul kotak dialog New Project. Pilihlah Standart EXE lalu open.

     3.       Tambahkan beberapa objek ke dalam form, yaitu objek frame, 6 objek commandbutton, objek frame, 3 objek label, dan 3 objek textbox.

     4.       Kemudian Atur setiap properti form diatas seperti tabel berikut :

Komponen	Properti	Nilai
Form	Name	FmHitungan
	Caption	HitunganSederhan
Frame	Name	Frame1
Label	Name	Label1
	Caption	Bilangan 1
Label	Name	Label3
	Caption	Bilangan 2
Label	Name	Label3
	Caption	Hasil
CommandButton	Name	TbTambah
	Caption	+
CommandButton	Name	TbKurang
	Caption	-
CommandButton	Name	TbKali
	Caption	X
CommandButton	Name	TbBagi
	Caption	/
CommandButton	Name	TbC
	Caption	C
CommandButton	Name	TbExit
	Caption	Exit
Text	Name	TxtBil1
Text	Name	TxtBil2
Text	Name	TxtHasil

     5.       Lalu masuk kedalam halaman kode dan ketikkan kode program berikut secara lengkap

Option Explicit

Private Hasil As Double

' Untuk operasi pembagian

Private Sub TbBagi_Click()

    Hasil = Val(TxtBil1.Text) / Val(TxtBil2.Text)

    TxtHasil.Text = Hasil

End Sub

' Untuk operasi perkalian

Private Sub TbKali_Click()

    Hasil = Val(TxtBil1.Text) * Val(TxtBil2.Text)

    TxtHasil.Text = Hasil

End Sub

' Untuk operasi pengurangan

Private Sub TbKurang_Click()

    Hasil = Val(TxtBil1.Text) - Val(TxtBil2.Text)

    TxtHasil.Text = Hasil

End Sub

' Untuk operasi penambahan

Private Sub TbTambah_Click()

    Hasil = Val(TxtBil1.Text) + Val(TxtBil2.Text)

    TxtHasil.Text = Hasil

End Sub

' Untuk membatalkan semua operasi

Private Sub TbC_Click()

    TxtHasil.Text = ""

    TxtBil1.Text = ""

    TxtBil2.Text = ""

End Sub

' Untuk keluar dari form

Private Sub TbExit_Click()

    Unload Me

End Sub

      6.       Setelah selesai memasukkan semua kode program, jalankan program dengan menekan tombol F5. Berikut contoh hasil penjumlahan :

Contoh hasil aplikasi perhitungan

       

      semoga bermanfaat... :)