Cara membuat project Kalkulator dengan menggunakan Visual Basic

1. Desain awal program

2. Atur Properties Masing-masing Objek sebagai berikut:

NO.	OBJEK	PROPERTIES	PENGATURAN
1	Form1	Text	Project Kalkulator
		BackColor	Light Gray
2	Label1	Text	Operasi Matematika
		Bold	True
		FontSize	10
3	Label2	Text	Bilangan 1 :
4	Label3	Text	Bilangan 2 :
5	Label4	Text	Hasil
6	Label5	Text	Operator
		Bold	True
7	Textbox1	Name	Txtbil1
8	Textbox2	Name	Txtbil2
9	Textbox3	Name	Txthasil
10	Button1	Text	^
		Name	Btnpangkat
11	Button2	Text	*
		Name	Btnkali
12	Button3	Text	/
		Name	Btnbagi
13	Button4	Text	+
		Name	Btntambah
14	Button5	Text	-
		Name	Btnkurang
15	Button6	Text	Bersih
		Name	Btnbersih
16	Button7	Text	Tutup
		Name	Btntutup

                                                                                           

Tampilan program setelah pengaturan properties sebagai berikut:

3. Pemberian Perintah/Instruksi pada Program

     Alur Program:

a.    Masukkan nilai pada label2(Bilangan1) di Textbox1 (Txtbil1) dan label3(Bilangan2)di Textbox2 (Txtbil2).

b.    Setelah itu klik nilai yang ingin dicari seperti button1 (^), button2 (*), button3 (*), button4 (+), dan button5 (-) yang terdapat pada bagian label5 (Operator), dan hasil dari label2 (Bilangan1) dan label3 (Bilangan2) dari kedua bilangan tersebut akan muncul di Textbox3 (Txthasil)berdasarkanrumus yang terdapat pada Perintah Program.

c.    Jika diklik tombol Button6(Bersih), maka:

a.      Nilai yang terdapat pada Textbox1 (Txtbil1) akan hilang.

b.      Nilai yang terdapat pada Textbox2 (Txtbil2) akan hilang.

c.       Nilai yang terdapat pada Textbox3 (Txthasil) akan hilang.

d.    Jika diklik tombol Button7(Tutup), maka program akan ditutup (keluar dari program)

Perintah Program :

PrivateSub Btnpangkat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnpangkat.Click

        Txthasil.Text = txtbil1.Text ^ Txtbil2.Text

EndSub

PrivateSub Btnkali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkali.Click

        Txthasil.Text = txtbil1.Text * Txtbil2.Text

EndSub

PrivateSub Btnbagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbagi.Click

        Txthasil.Text = txtbil1.Text / Txtbil2.Text

EndSub

PrivateSub Btntambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btntambah.Click

        Txthasil.Text = Val(txtbil1.Text) + Txtbil2.Text

EndSub

PrivateSub Btnkurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkurang.Click

        Txthasil.Text = txtbil1.Text - Txtbil2.Text

EndSub

PrivateSub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click

        txtbil1.Clear()

        Txtbil2.Clear()

        Txthasil.Clear()

EndSub

PrivateSub Btntutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btntutup.Click

        Close()

EndSub

 

Tampilan Program Kalkulator Operasi Matematika  berdasarkan nilai yang ingin dicari sebagai berikut :

Untuk menjalankan program, klik tombol Start Debugging

 

 

 

Untuk menutup program, klik tombol Stop Debugging