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
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*
Selamat mencoba….. ^_^
*Ilmu tak akan pernah habis dipelajari, bagai setitik air di lautan samudra*
