Membuat Kalkulator Sederhana dengan Visual Basic 6

Posting tentang tugas kuliah?? Baru kali ini ai posting tugas di blog, hmm tentu tidak ada yang salah kan. OK. Terakhir main VB sama Lica, kakak kelas angkatan 2005 di SMK Negeri 1 Pasuruan. Tapi ai gak satu sekolah dengan Lica, wah kak Lica apa kabar yah??

Tugas I mata kuliah Programming Language II adalah membuat kalkulator sederhana, cukup bisa menambah dan mengurangi nilai 1 dan nilai 2. cukup simple, boleh ditambah dengan beberapa Command Button jika diperlukan.

Yang pertama : Siapkan sebuah Form1.form dengan control-control yang diperlukan, antara lain, (1) Frame, (4) Label, (2) Text, (7) CommandButton dengan masing-masing properties dan nilai sebagai berikut :

Control	Properties	Value
Form1	(Name)	Calculator
	BorderStyle	1 - Fixed Single
	Caption	Simple Calculator
	Moveable	False
Frame1	(Name)	frmInputNumber
	Caption	Input Number
Label1	(Name)	lblAngka1
	Caption	Angka 1
Label2	(Name)	lblAngka2
	Caption	Angka 2
Label3	(Name)	lblHasil
	Caption	Hasil
Label4	(Name)	lblBerapa
	Caption	. . . . . . . .
Text1	(Name)	txtAngka1
	TabIndex	1
	Text	[dikosongkan]
Text2	(Name)	txtAngka2
	TabIndex	2
	Text	[dikosongkan]
CommandButton1	(Name)	cmdAdd
	Caption	+
	TabIndex	3
CommandButton2	(Name)	cmdSubtract
	Caption	-
	TabIndex	4
CommandButton3	(Name)	cmdDivide
	Caption	/
	TabIndex	5
CommandButton4	(Name)	cmdMultiply
	Caption	x
	TabIndex	6
CommandButton5	(Name)	cmdReset
	Caption	R&eset
	TabIndex	7
CommandButton6	(Name)	cmdBack
	Caption	Ba&ck
	TabIndex	8
CommandButton7	(Name)	cmdExit
	Caption	E&xit
	TabIndex	9

Tabel Properties Calculator

Sebagai keterangan, control Form1 menggunakan berbagai konfigurasi properties diantaranya, BorderStyle dengan nilai 1 – Fixed Single ini dimaksudkan agar sebuah form tidak dapat di maximize atau di ubah ukuran kotak formnya oleh seorang username, karena jika hal itu dilakukan maka tampilan yang ada di desktop menjadi banyak ruang kosong, seperti ini

Sedangkan, Properties Moveable bernilai False, dimaksudkan agar sebuah kotak dialog (form) tidak dapat dipindah posisinya pada saat dijalankan.

TabIndex pada form Calculator diatur mulai dengan nilai 1 sampai 9 yang dimulai dari txtAngka1 sampai dengan cmdExit dimaksudkan agar pada saat penekanan tombol Tab pada keyboard maka kita dapat dengan mudah mengakses kontrol-kontrol tersebut sesuai dengan urutan yang telah diatur oleh admin sebelumnya.

Dan perlu diingat bahwa dalam mendapatkan hasil penjumlahan sederhana dengan Calculator ini kita menggunakan control Label4 dengan Name lblBerapa agar nilai yang telah diperoleh dari hasil penjumlahan tidak dapat diubah nilainya oleh user. Jadi hanya dapat dilihat hasilnya saja, cukup sederhana namun juga sangat berpengaruh terhadap hasil penjumlahan Anda.

Selanjutnya buat listing program, dengan cara double klik CommandButton atau View Code pada Object atau form Calculatornya…

Private Sub cmdAdd_Click()
lblBerapa = Val(txtAngka1.Text) + Val(txtAngka2.Text)
End Sub

Private Sub cmdSubtract_Click()
lblBerapa = Val(txtAngka1.Text) - Val(txtAngka2.Text)
End Sub

Private Sub cmdDivide_Click()
lblBerapa = Val(txtAngka1.Text) / Val(txtAngka2.Text)
End Sub

Private Sub cmdMultiply_Click()
lblBerapa = Val(txtAngka1.Text) * Val(txtAngka2.Text)
End Sub

Private Sub cmdReset_Click()
txtAngka1.Text = ""
txtAngka2.Text = ""
lblBerapa.Caption = ""
End Sub

Private Sub cmdBack_Click()
Account.Show
Calculator.Hide
End Sub

Private Sub cmdExit_Click()
Login.Hide
Account.Hide
Unload Me
MsgBox "Anda Berhasil Menggunakan Kalkulator", vbOKOnly, "Pesan"
End Sub

Nah sampai di listing cmdReset, button ini digunakan untuk menghilangkan isi text angka 1 dan text angka 2 serta label hasil, agar user dapat memasukkan nilai lagi tanpa menghapus isi text angka dan label hasil.

Untuk code program cmdBack digunakan untuk kembali ke form sebelumnya yaitu Account Name (tentunya jika form ini diperlukan, jika tidak kita bisa menghapus commandbutton cmdBack). Pada saat button Back di klik maka ada dua aksi disini, yang pertama adalah menampilkan form Account Name dan yang kedua menghilangkan tampilan form Calculator.
Selanjutnya cmdExit, ada tiga aksi yang akan ditimbulkan jika button Exit dijalankan, yaitu menutup form Login System, menutup Account Name, dan menutup tampilan dirinya sendiri yaitu Calculator dan akan menimbulkan aksi Pesan, seperti ini

Dan klik OK untuk mengakhiri program.

Jangan lupa simpan project Anda dengan nama Project1.vbp dan calculator.frm
Selamat mencoba….. ^_^

*Ilmu tak akan pernah habis dipelajari, bagai setitik air di lautan samudra*