Pada bab ini akan dibahas mengenai fungsi dari komponen Label, TextBox, dan CommandButton. Untuk memudahkan dalam pemahaman, pada bab ini akan lebih banyak memberikan contoh-contoh penggunaan dari komponen-komponen tersebut.
Contoh 1 :
Design-lah sebuah form dengan dengan ketentuan sebagai berikut ini :
| Komponen | Property | Nilai |
| Label1 | Caption | Ketikkan nama Anda |
| TextBox1 | Caption | [dikosongkan] |
| TextBox2 | Text | [dikosongkan] |
| Command1 | Caption | TAMPIL |
Hasilnya seperti contoh di bawah ini :
Form di atas didisain untuk menampilkan sesuatu yang diketikkan pada TextBox1 dan dimunculkan/ ditampilkan pada TextBox2 ketika tombol TAMPIL ditekan.
Pada saat form di atas dieksekusi (running), lalu Anda mengetikkan nama Anda pada TextBox1 dan menekan tombol TAMPIL, maka tidak akan ada yang muncul/ditampilkan apa yang Anda ketikkan pada TextBox2, mengapa? Sebab, untuk menampilkan sesuatu selalu mebutuhkan sebuah “perintah” berupa sintak-sintak. Berikut langkah-langkah dan sintak-sintak yang dibutuhkan untuk menampilkan :
1. Pada jendela Project, pilih View Code. Atau Anda bisa men-double-click pada bagian form yang kosong, maka akan muncul jendela seperti di bawah ini :
2. Lalu ubah obyek Form menjadi Command1 dan event-nya menjadi Click.
Obyek adalah nama dari komponen sedangkan Event adalah kejadian yang menyertai Obyek. Event Click berarti bahwa kejadian yang menyertai Obyek adalah kejadian menekan tombol Command1 (TAMPIL)
3.
4. Running form (atau dapat juga tekan F5), lalu ketikkan nama Anda dan Tekan tombol TAMPIL. Hasil yang didapat adalah sebagai berikut :
[ Penjelasan sintak : ]
Text2.Text = Text1.Text à artinya bahwa TextBox2 akan diinput dengan nilai yang ada pada TextBox1
Contoh 2 :
Design-lah sebuah form dengan dengan ketentuan sebagai berikut ini :
| Komponen | Property | Nilai |
| Label1 | Caption | HITUNG TOTAL BELANJA |
| Label2 | Caption | Nama Barang |
| Label3 | Caption | Harga |
| Label4 | Caption | Jumlah |
| Label5 | Caption | Total |
| TextBox1 | Text | [dikosongkan] |
| TextBox2 | Text | [dikosongkan] |
| TextBox3 | Text | [dikosongkan] |
| TextBox4 | Text | [dikosongkan] |
| Command1 | Caption | HITUNG |
berikut tampilan form :
Ketik sintak-sintak di bawah ini :
| Command1 >> (Tombol HITUNG) |
| Private Sub Command1_Click() Text4.Text = Text2.Text * Text3.Text End Sub |
Lalu running dan isi nama barang, harga dan jumlah lalu tekan tombol HITUNG, maka akan muncul Totalnya pada Text4 seperti form di bawah ini :
[ Penjelasan sintak : ]
Text4.Text = Text2.Text* Text3.Text
à artinya bahwa TextBox4 akan diinput dengan nilai hasil perkalian TextBox2 dengan TextBox3
Tidak ada komentar:
Posting Komentar