Contoh Program Ekspresi VB - Membuat Kalkulator Sederhana

Sebelumnya kita telah belajar mengenai Expresi di Visual Basic, kali ini kita akan mengaplikasikan apa yang telah kita pelajari sebelumnya ke program VB, Kali ini kita aka membuat program perhitungan sederhana atau kalkulator, baiklah berikut tutorialnya :

1. Pertama, seperti biasa, buka dan jalankan visual basic, lalu buat program baru Standar EXE
2. Kedua tambahkan 3 label, 3 text box, dan 4 command buttton, atur luasnya, sampai seperti ini :

3. Ketiga, ganti properties,

ITEM	PROPERTIES	KETERANGAN
Form1	Border Style	1. Fixed Single
Form1	Start Up Position	2. Center Screen
Label1	Caption	Bilangan 1
Label2	Caption	Bilangan 2
Label3	Caption	Hasil
Text1, 2, 3	Text	(Kosongkan)
Command1	Caption	+
Command2	Cptionn	-
Command3	Caption	X
Command4	Caption	/
Text3	Enable	False
Command 1,2,3	Font Size	18

Note :
- Border Style Fixed Single Di Form berfungsi agar luasr form tidak bisa di ubah ketika di jalankan
- Start Up Position "Center Screen", Agar Posisi Form ketika di jalankan berada di tengah layar
- Enable "False" Di Label3 di maksudkan agar text3 tidak bisa gunakan.

Sehingga seperti ini :

4. Jika sudah, tuliskan script berikut :

Private Sub Command1_Click()
a = Val(Text1) 'Nilai a sesuai dengan apa yang di tuliskan di text1
b = Val(Text2) 'Nilai b sesuai dengan apa yang di tuliskan di text2
c = a + b 'Nilai C adalah a + b, Jika a = 1 dan b = 2, maka nilai c = 3
Text3 = c 'Text3 = Nilai dari Variabel c
End Sub

Private Sub Command2_Click()
a = Val(Text1)
b = Val(Text2)
c = a - b
Text3 = c
End Sub

Private Sub Command3_Click()
a = Val(Text1)
b = Val(Text2)
c = a * b
Text3 = c
End Sub

Private Sub Command4_Click()
a = Val(Text1)
b = Val(Text2)
c = a / b
Text3 = c
End Sub

Private Sub Command1_Click() a = Val(Text1) 'Nilai a sesuai dengan apa yang di tuliskan di text1 b = Val(Text2) 'Nilai b sesuai dengan apa yang di tuliskan di text2 c = a + b 'Nilai C adalah a + b, Jika a = 1 dan b = 2, maka nilai c = 3 Text3 = c 'Text3 = Nilai dari Variabel c End Sub Private Sub Command2_Click() a = Val(Text1) b = Val(Text2) c = a - b Text3 = c End Sub Private Sub Command3_Click() a = Val(Text1) b = Val(Text2) c = a * b Text3 = c End Sub Private Sub Command4_Click() a = Val(Text1) b = Val(Text2) c = a / b Text3 = c End Sub

5. Langkah terakhir, coba jalankan program dan anda akan menemukan :
Program secara otomatis, muncul / di mulai dari tengah (Center Screen)
Kita tidak akan bisa melebarkan luas form, pada saat program berjalan (Fixed Single)
Text3 tidak akan bisa di klik seperti text1 dan 2 (Enabled = false)

Itulah tutorial mengenai cara membuat kalkulator sederhana
sekain tutorial kali ini, Selamat mencoba