Contoh Kegiatan Verbal Vb - Menciptakan Kalkulator Sederhana

Sebelumnya kita telah berguru mengenai Expresi di Visual Basic, kali ini kita akan mengaplikasikan apa yang telah kita pelajari sebelumnya ke agenda VB, Kali ini kita aka menciptakan agenda perhitungan sederhana atau kalkulator, oke berikut tutorialnya :

1. Pertama, menyerupai biasa, buka dan jalankan visual basic, kemudian buat agenda gres Standar EXE
2. Kedua tambahkan 3 label, 3 text box, dan 4 command buttton, atur luasnya, hingga menyerupai 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 semoga luasr form tidak dapat 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 semoga text3 tidak dapat gunakan.

Sehingga menyerupai 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 ialah 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 agenda dan anda akan menemukan :
Program secara otomatis, muncul / di mulai dari tengah (Center Screen)
Kita tidak akan dapat melebarkan luas form, pada dikala agenda berjalan (Fixed Single)
Text3 tidak akan dapat di klik menyerupai text1 dan 2 (Enabled = false)