1. Buatlah sebuah Form baru.
2. Buatlah beberapa objek seperti dibawah ini :
NAME
|
CAPTION
|
TOOL
|
| Label1 | Angka 1 | Label |
| Label2 | Angka 2 | Label |
| Label3 | Hasil | Label |
| Txt1 |
-
|
Textbox |
| Txt2 |
-
|
Textbox |
| TxtHasil |
-
|
Textbox |
| cmdTambah | TAMBAH | CommandButton |
| cmdKurang | KURANG | CommandButton |
| cmdKali | KALI | CommandButton |
| cmdBagi | BAGI | CommandButton |
3. Listing Programnya adalah :
Private Sub CMDTAMBAH_Click() TXTHASIL.Text = Val(TXT1.Text) + Val(TXT2.Text) End Sub Private Sub CMDKURANG_Click() TXTHASIL.Text = Val(TXT1.Text) – Val(TXT2.Text) End Sub Private Sub CMDKALI_Click() TXTHASIL.Text = Val(TXT1.Text) * Val(TXT2.Text) End Sub Private Sub CMDBAGI_Click() TXTHASIL.Text = Val(TXT1.Text) / Val(TXT2.Text) End Sub
4. Keterangan Listing Programnya :
- VAL disitu digunakan untuk melakukan perhitungan yang fungsi aslinya adalah merubah file yang bertipe STRING (bisa berupa huruf atau angka ) menjadi INTEGER (biasanya angka saja).
- TXTHASIL.Text = Val(TXT1.Text) + Val(TXT2.Text) maksudnya isi dari TXTHASIL adalah isi dari TXT1 ditambah isi dari TXT2.
begitu juga untuk yang pengurangan, pengalian, atau pembagian maksudnya juga seperti itu.
5. Cara memakai programnya :
- Masukan angka pertama terserah anda pada TXT1.
- Masukan angka kedua terserah anda pada TXT2.
- Tekan tombol TAMBAH, KURANG, KALI, atau BAGI untuk melakukan perhitungan TXT1 dan TXT2.
- Hasil dari perhitungan tersebut akan muncul pada TXTHASIL.
Selesai Juga Dech Tutorialnya....
Terimakasih Atas Kunjungannya....
Semoga Ilmu Yang Sedikit Ini Bermanfaat....
Jangan Lupa Like Post Ini Ya.... Terimakasih....

Print this page 

0 komentar:
Posting Komentar