Menggunakan Perintah Option Button dan Command Button
Pada Visual Basic (VB)
Visual Basic merupakan sebuah bahasa pemrograman yang menawarkan Integrated Development Environment (IDE) visual untuk membuat program perangkat lunak berbasis sistem operasi Microsoft Windows dengan menggunakan model pemrograman (COM).
Visual Basic memiliki beberapa tombol perintah seperti Option Button dan Command Button.
Option Button :
Option Button adalah tombol yang digunakan untuk memberikan pilihan pada user, pada saat satu tombol dipilih, maka pilihan tersebut bernilai benar dan tombol yang lain bernilai salah.
Command Button :
Command Button adalah Tombol yang digunakan sebagai pemicu (trigger) untuk menjalankan sebuah event, misalnya menjumlahkan, menerjemahkan, memasukkan, menghapus input dan lain-lain. Tombol sejenis juga biasanya diberikan pada kotak dialog untuk mempermudah pengguna merespon dialog.
1.
Buatlah 3 buah label seperti pada Gambar diatas.
Pada Label 1, tulisan
Label 1 diganti dengan tulisan (Nama)
Pada Label 2, tulisan Label 2
diganti dengan tulisan (Jenis Kelamin)
Sedangkan Pada Label 3,
kosongkan kotak Labelnya
2.
Lalu Buatlah 1 buah Textbox Seperti pada Gambar ( disamping label 1 ) yang
dimana
dikosongkan
kotak Textboxnya.
3.
Lalu buatlah dua buah Option Button, yang terletak dibawah Textbox.
Option Button 1 diganti dengan
tulisan (Pria)
Dan Option Button 2 diganti
dengan tulisan (Wanita)
4.
Lalu Buatlah satu buah Command Button yang bertuliskan
(Ok)
5.
Klik lah Command Button 2x
6.
Pada gambar diatas Anda diminta untuk memasukan Syntax-syntax yang sesuai
Ketik
dim JK, Q As String,
Pada
syntax ini Q berfungsi sebagai suatu variabel yang dimana bertipe data String .
Lalu ketik If Option1.value = true then
Pada
syntax ini if berfungsi sebagai percabangan, value (nilai) dan jika benar maka
lanjutkan.
Ketik JK = “Pria”
Lalu ketik Else
Ketik JK = “wanita”
Maksud
dari syntax ditas adalah, jika yang dipilih adalah pria maka lakukan, dan
selain itu maka pilih wanita.
End if
Lalu akhiri program if (percabangan)
Lalu
ketik Q= msgbox (“ Anda yakin anda” +JK+ “?”, vbYesno + VbQuestion,
“Konfirmasi”)
Maksud syntax
diatas adalah sbuah kotak konfirmasi “apakah anda.......”’ dengan dua pilihan
yes atau no.
If Q = vbyes then
Jika Q = yes maka lakukan,
Label3.caption = text1.text + “(“JK”)”
Label ini berfungsi sebagai inputan
dari label pertama (hasil)
Else
Label3.caption = “ “
Jika tidak maka caption akan kembali
seperti semula.
End if
Akhiri program diatas
End sub
Lalu akhiri smua program
7.
Lalu akan muncul gambar seperti dibawah ini
Pada gambar dibawah ini muncul
kotak konfirmasi .
Jika anda memilih yes, maka akan muncul hasil seperti gambar dibawah ini yaitu :
Dewi Septiani(Wanita), tapi jika anda memilih tidak, maka kotak konfirmasi akan hilang.
Dewi Septiani(Wanita), tapi jika anda memilih tidak, maka kotak konfirmasi akan hilang.
0 komentar:
Posting Komentar