BAB VIII VISUAL BASIC
8.1 Tujuan 1. Praktikan dapat mengetahui apa itu pemrogaman berbasis objek (OOP). 2. Praktikan dapat mengetahui IDE pada Visual Basic. 3. Praktikan dapat memahami struktur project pada Visual Basic. 4. Praktikan dapat membuat aplikasi sederhana menggunakan Visual Basic.
8.2 Alat dan Bahan 1. Microsoft Visual Basic 2010 Express 2. Personal Computer
8.3 Dasar Teori 8.3.1 Visual Basic Microsoft Visual Basic (sering disingkat sebagai VB saja) 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 merupakan turunan bahasa pemrograman basic dan menawarkan pengembangan perangkat lunak komputer berbasis grafik dengan cepat. Beberapa bahasa skrip seperti Visual Basic for Applications (VBA) dan Visual Basic Scripting Edition (VBScript), mirip seperti halnya Visual Basic, tetapi cara kerjanya yang berbeda. Para programmer dapat membangun aplikasi dengan menggunakan komponen-komponen yang disediakan oleh Microsoft Visual Basic Program-program yang ditulis dengan Visual Basic juga dapat menggunakan Windows API, tapi membutuhkan deklarasi fungsi luar tambahan.
193
194
8.3.2 Message Box MsgBox (message box) adalah salah satu fitur yang dapat digunakan di Visual Basic. Message Box digunakan untuk memberikan pesan dari sang pembuat program kepada pengguna program apabila terjadi sebuah kondisi tertentu. Message Box dalam visual basic terdiri dari bermacam tipe seperti Message Box OKOnly, Message Box OKCancel, Message Box YesNoCancel, Message Box YesNo, dll.
8.3.3 Check Box and Radio Button Check Box adalah sebuah kontrol pemilihan yang fungsinya hampir sama dengan Radio Button (Option), hanya saja bedanya pada check box ini adanya kotak dan tanda Cek (V) pada item yang terpilih. Radio Button (Option) adalah sebuah kontrol dimana user dapat memilih salah satu dari beberapa pilihan-pilihan yang ada. Pilihan ini siftanya tunggal, artinya user tidak dapat memilih lebih dari satu.
8.3.4 Combo Box ComboBox adalah kombinasi kemampuan dari TextBox dan ListBox karena user dapat memasukkan informasi seperti di TextBox dan user juga dapat memilih daftar item seperti pada ListBox. Properti ListBox dan ComboBox: 1. Text: Mengatur informasi yang akan ditampilkan. 2. ToolTipText: Menset ToolTip atau Hint pada objek. ToolTip digunakan untuk memberikan keterangan pada user tentang fungsi TextBox. 3. Enabled: Menset apakah sebuah objek diaktifkan atau tidak. Jika diset true maka TextBox dapat diedit. Sebaliknya jika di set False maka TextBox tidak dapat diedit. 4. Visible:Menset
apakah
sebuah
objek
ditampilkan
disembunyikan. Isii properti ini adalah antara True dan False.
atau
195
5. TabIndex:Menset urutan jika user menekan tombol TAB, karena secara default untuk pindah antar objek adalah TAB. TabIndex dimulai dari 0. 6. Sorted:Mengurutkan daftar item pada ComboBox dan ListBox. 7. List:Menset atau mengembalikan nilai dari daftar item. 8. ListCount:Mengembalikan nilai jumlah item.
8.3.5 Pencabangan Percabangan atau if digunakan untuk membandingkan suatu kondisi tertentu. Jika kondisi tersebut benar maka akan dijalankan blok pernyataan tertentu. Tetapi jika kondisi tersebut salah, pernyataan di dalam if tidak akan dijalankan, dan blok if tersebut akan dilompati. Bentuk umum dari percabangan adalah if
then.
8.3.6 Array Array adalah sekumpulan nilai data yang dikelompokkan dalam sebuah variabel. Array sendiri digunakan jika ada sebuah nilai data yang mempunyai tipe sama dan akan mendapatkan perlakukan yang sama. Misalnya kita mempunyai 100 data dengan tipe yang sama dan akan diperlakukan yang sama pula, maka lebih mudah menggunakan array dibanding 100 variabel yang berbeda. Setiap nilai data di dalam array disebut elemen array dan masing-masing dibedakan dengan nomor indeks. Array sendiri dideklarasikan dengan cara yang sama dengan variabel, yaitu menggunakan perintah Dim, kemudian diikuti tanda kurung dan jumlah elemennya dikurangi satu (karena indeks dimulai dari angka nol). Cara penulisan
array adalah
Dim
nama_array(jumlah_elemen - 1) As tipe_data.
8.3.7 Login Form login adalah form yang digunakan sebagai pengaman atau penyaring user, apabila di form login user memasukkan id dan passwordnya salah maka aka nada pemberitahuan dari program
196
tersebut. Dan biasanya dalam form login hanya terdapat dua buah kolom text yang akan diisikan username dan password. Dengan visual basic kita dapat
membuat form
login
dengan menggunakan
percabangan, jika data yang dimasukkan benar, maka akan memanggil tampilan yang berikutnya, dan jika password atau username salah maka akan muncul notifikasi yang menyatakan bahwa data yang dimasukkan salah.
8.4 Analisa dan Pembahasan 8.4.1 Message Box 1. Drag and Drop Button dari Toolbox ke Form 2. Edit BackColor, Font, ForeColor, dan Text pada Properties
Gambar 8.1 Desain form Message Box
3. Klik 2 kali pada Button tadi, maka kita akan masuk ke source code Button tersebut 4. Tambahkan source code berikut pada function Button1.Click : Messagebox.Show(“Selamat datang di Praktikum P7.” & “NIM Saya” & 21060115120000 + 4) Jalankan Aplikasi dengan Klik Start pada Toolbar
197
Gambar 8.2 Output Message Box
Seperti terlihat pada gambar diatas, perintah MessageBox.Show berfungsi untuk menampilkan karakter yang dimasukkan ke dalamnya. Perintah ini sangat mirip dengan perintah printf pada bahasa C. Penggunaan & dalam penulisan diatas berfungsi untuk menggabungkan 2 atau lebih variabel kata.
8.4.2 Check Box and Radio Button 1. Buat project baru. 2. Desain Tampilan form seperti gambar berikut ini :
Gambar 8.3 Desain form CheckBox & RadioButton
3. Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:
198
Tabel 8.1 Properti CheckBox & RadioButton
Object
Properties
Nilai
Form1
Name
Form1
Text
CheckBox dan RadioButton
Label1
Name
Lbl_Font
GroupBox1
Text
Efek
GroupBox2
Text
Font Style
CheckBox1
Text
StrikeOut
CheckBox2
Text
Underline
RadioButton1
Text
Regular
RadioButton2
Text
Italic
RadioButton3
Text
Bold
RadioButton4
Text
BoldItalic
4. Klik ganda pada CheckBox1, kemudian ketikkan kode program berikut ini : Lbl_Font.Font = New Font("Microsoft sans Serif", Lbl_Font.Font.Size, _ Lbl_Font.Font.Style Xor FontStyle.Strikeout)//berfungsi
untuk membuat teks berefek
strikeout 5. Klik ganda pada CheckBox2, kemudian ketikkan kode program berikut ini : Lbl_Font.Font = New Font("Microsoft sans Serif", Lbl_Font.Font.Size, _ Lbl_Font.Font.Style Xor FontStyle.Underline)//berfungsi
untuk membuat teks berefek
garis bawah 6. Klik ganda pada RadioButton1, kemudian ketikkan kode program berikut ini : Lbl_Font.Font = New Font("Microsoft sans Serif", Lbl_Font.Font.Size, _ Lbl_Font.Font.StyleXor
FontStyle.Regular)//berfungsi
membuat teks kembali seperti semula
199
7. Klik ganda pada RadioButton2, kemudian ketikkan kode program berikut ini : Lbl_Font.Font = New Font("Microsoft sans Serif", Lbl_Font.Font.Size, _ Lbl_Font.Font.Style Xor FontStyle.Italic)//berfungsi
untuk membuat teks miring 8. Klik ganda pada RadioButton3, kemudian ketikkan kode program berikut ini : Lbl_Font.Font = New Font("Microsoft sans Serif", _ Lbl_Font.Font.Size, Lbl_Font.Font.Style Xor FontStyle.Bold)//berfungsi
membuat teks tebal
9. Klik ganda pada RadioButton4, kemudian ketikkan kode program berikut ini : Lbl_Font.Font = New Font("Microsoft sans Serif", _ Lbl_Font.Font.Size, Lbl_Font.Font.Style Xor FontStyle.Bold Xor FontStyle.Italic)//berfungsi
untuk
membuat teks tebal dan miring 10. Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.
Gambar 8.4 Output CheckBox & RadioButton
Nampak jelas pada output program diatas, pada tool Checkbox terdapat perbedaan dengan RadioButton. Perbedaan tersebut terletak pada pemilihannya, dimana Checkbox bisa memilih lebih dari satu, dan RadioButton hanya dapat memilih salah satu diantara pilihan yang ada.
200
8.4.3 Combo Box Pembuatan program combo box dapat dilakukan dengan langkah sebagai berikut: 1. Buat project baru pada aplikasi Visual Basic 2. Desain form seperti
Gambar 8.5 Desain form Combo Box
3. Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:
Tabel 8.2 Properti ComboBox
Object
Properties
Nilai
Form1
Name
Form1
Text
Operator
Label1
Text
Nilai1
Label2
Text
Operator
Label3
Text
Nilai2
Label4
Text
Hasil
TextBox1
Name
TxtNilai1
ComboBox1
Name
CmbOperator
TextBox2
Name
TxtNilai2
TextBox3
Name
TxtHasil
Button1
Name
BtnProses
Text
Proses
201
4. Klik ganda pada Form3, kemudian ketikkan kode program berikut ini : CmbOperator.Items.Add("+")//berfungsi
memasukkan karakter
+ pada ComboBox CmbOperator.Items.Add("-")//berfungsi
memasukkan karakter -
pada ComboBox CmbOperator.Items.Add("x")//berfungsi
memasukkan karakter x
pada ComboBox CmbOperator.Items.Add("/")//berfungsi
memasukkan karakter /
pada ComboBox CmbOperator.Items.Add("Sisa")//berfungsi
memasukkan
karakter sisa pada ComboBox CmbOperator.Items.Add("Pangkat")//berfungsi
memasukkan
karakter pangkat pada ComboBox CmbOperator.Items.Add("<>")//berfungsi
memasukkan karakter
<> pada ComboBox CmbOperator.Items.Add("<")//berfungsi
memasukkan karakter
< pada ComboBox CmbOperator.Items.Add(">")//berfungsi
memasukkan karakter
> pada ComboBox CmbOperator.Items.Add("<=")//berfungsi
memasukkan karakter
<= pada ComboBox CmbOperator.Items.Add(">=")//berfungsi
memasukkan karakter
>= pada ComboBox CmbOperator.Items.Add("Like")//berfungsi
memasukkan
karakter Like pada ComboBox CmbOperator.Items.Add("Not")//berfungsi
memasukkan
karakter Not pada ComboBox CmbOperator.Items.Add("&")//berfungsi
& pada ComboBox
memasukkan karakter
202
5. Klik ganda pada tombol Proses, lalu ketikkan kode program berikut ini : Select Case
CmbOperator.Text
Case "+" TxtHasil.Text = Val(TxtNilai1.Text) + Val(TxtNilai2.Text)
//perintah yang dieksekusi jika karakter
yang diinput + Case "-" TxtHasil.Text = Val(TxtNilai1.Text) Val(TxtNilai2.Text)
//perintah yang dieksekusi jika
karakter yang diinput – Case "x" TxtHasil.Text = Val(TxtNilai1.Text) * Val(TxtNilai2.Text)
//perintah yang dieksekusi jika karakter
yang diinput x Case "/" TxtHasil.Text
=
Val(TxtNilai2.Text)
Val(TxtNilai1.Text)
/
//perintah yang dieksekusi jika
karakter yang diinput / Case "Sisa" TxtHasil.Text = Val(TxtNilai1.Text) mod Val(TxtNilai2.Text)
//perintah yang dieksekusi jika karakter yang diinput Sisa Case "Pangkat" TxtHasil.Text = Val(TxtNilai1.Text) ^ Val(TxtNilai2.Text)
//perintah yang dieksekusi jika karakter yang diinput Pangkat Case "<>" TxtHasil.Text = TxtNilai1.Text <> TxtNilai2.Text
//perintah yang dieksekusi jika karakter yang diinput <> Case "<" TxtHasil.Text = TxtNilai1.Text < TxtNilai2.Text
//perintah yang dieksekusi jika karakter yang diinput < Case ">"
203
TxtHasil.Text = TxtNilai1.Text > TxtNilai2.Text
//perintah yang dieksekusi jika karakter yang diinput > Case "<=" TxtHasil.Text = TxtNilai1.Text <= TxtNilai2.Text
//perintah yang dieksekusi jika karakter yang diinput <= Case ">=" TxtHasil.Text = TxtNilai1.Text >= TxtNilai2.Text
//perintah yang dieksekusi jika karakter yang diinput >= Case "Like" TxtHasil.Text = TxtNilai1.Text Like TxtNilai2.Text
//perintah yang dieksekusi jika karakter yang diinput Like Case "Not" TxtHasil.Text = Not TxtNilai1.Text = TxtNilai2.Text
//perintah yang dieksekusi jika karakter yang diinput Not Case "&" TxtHasil.Text = TxtNilai1.Text & TxtNilai2.Text
//perintah yang dieksekusi jika karakter yang diinput & End Select
//Pengakhiran program
6. Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.
Gambar 8.6 Output Combo Box
204
Hasil pembagian diatas adalah sebagian kecil dari menu yang digunakan pada comboBox yang telah kita buat. Dalam ComboBox kita dapat memilih suatu perintah dengan mengeklik anak panah bawah dari output program yang kita debug. Dengan pemberian perintah yang tepat,maka setelah menekan tombol Proses, data yang diinput yaitu 27/3 akan menghasilkan hasil yang sangat tepat yaitu 9.
8.4.4 Pencabangan 1. Buat form baru. 2. Desain Tampilan form seperti gambar berikut ini :
Gambar 8.7 Desain form percabangan
3. Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:
Tabel 8.3 Properti percabangan
Object
Properties
Nilai
Form1
Name
Form1
Text
Pencabangan IF
Name
Btn_if
Text
IF.. ENDIF
Name
Btn_if_else
Text
IF.. ELSE.. ENDIF
Button1
Button2
205
Button3
Name
Btn_case
Text
CASE.. ENDCASE
4. Klik ganda pada Btn_if, kemudian ketikkan kode program berikut ini : Private Sub Btn_if_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_if.Click Dim usia As String, nilai As Single, thn As Integer
//deklarasi usia sebagai string, nilai sebagai single,dan thn sebagai integer usia = InputBox("Usia Pegawai saat ini?", "Batasan usia pensiun", 0)
//variabel usia berupa box input berisikan
pertanyaan diatas. nilai = Val(usia)//variabel
nilai berisikan nilai dari variabel
usia If nilai >= 55 Then//jika nilai
lebih besar sama dengan 55
maka dijalankan perintah dibawahnya thn = nilai – 55//variabel
tahun bernilai variabel nilai dikurangi
55 MessageBox.Show("usia pegawai : " & usia & " Tahun", "Konfirmasi",MessageBoxButtons.OK,MessageBoxIcon.Infor mation)
//menampilkan pesan kotak pada output MessageBox.Show("Keterangan : Pegawai harus pensiun " & thn & " tahun yang lalu", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
//menampilkan pesan kotak pada output End If
//mengakhiri fungsi if
End Sub
//mengakhiri program
5. Klik ganda pada Btn_if_else, kemudian ketikkan kode program berikut ini : Private Sub Btn_if_else_Click(ByVal sender As
206
System.Object, ByVal e As System.EventArgs) Handles Btn_if_else.Click Dim usia As String, nilai As Single, thn As Integer
//deklarasi variabel usia sebagai string, variabel nilai sebagai single, dan variabel tahun sebagai integer. usia = InputBox("Usia Pegawai saat ini?", "Batasan usia pensiun", 0)
//variabel usia berupa box input berisikan
pertanyaan diatas. nilai = Val(usia)
//variabel nilai berisikan nilai dari variabel
usia If nilai >= 55 Then
//jika nilai>=55 maka akan dijalankan
perintah dibawahnya thn = nilai – 55//perintah
if yang dijalankan yaitu variabel
tahun sama dengan nilai dikurangi 55 MessageBox.Show("usia pegawai : " & usia & " Tahun", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
//menampilkan pesan kotak pada
output MessageBox.Show("Keterangan : Pegawai harus pensiun " & thn & " tahun yang lalu", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
//menampilkan pesan kotak pada output Else
//perintah bila kondisi if tidak terpenuhi
thn = 55 – nilai//variabel
nilai sama dengan 55 dikurang nilai
MessageBox.Show("usia pegawai : " & usia & " Tahun", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
//menampilkan pesan kotak pada output MessageBox.Show("Keterangan : Pegawai akan pensiun " & thn & " lagi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
output End If
//mengakhiri fungsi if
End sub
//mengakhiri program
//menampilkan pesan kotak pada
207
6.
Klik ganda pada Btn_case, kemudian ketikkan kode program berikut ini: Private Sub Btn_case_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_case.Click Dim isian As String, usia As Integer
//deklarasi variabel
isian sebagai string dan usia sebagai integer isian = InputBox("Usia anda saat ini?", "Status Anda")
//variabel isian berisikan box input dan pertanyaan usia = Val(isian)//
usia sama dengan nilai variabel isian
MessageBox.Show("Usia Anda saat ini : " & usia & " tahun", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
//menampilkan pesan kotak
pada output Select Case usia//pemilihan Case 1 To 4//case 1
case usia
sampai case 4
MessageBox.Show("Anda sekarang tergolong balita", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
//menampilkan pesan kotak pada
output Case5 To 16//case 5
sampai case 16
MessageBox.Show("Anda sekarang tergolong anak-anak", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
//menampilkan pesan kotak
pada output Case 17 To 24//case 17
sampai case 24
MessageBox.Show("Anda sekarang tergolong remaja", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
//menampilkan pesan kotak
pada output Case 25 To 55//case 25
sampai 55
MessageBox.Show("Anda sekarang tergolong dewasa", "Konfirmasi", MessageBoxButtons.OK,
208
MessageBoxIcon.Information)
//menampilkan pesan kotak
pada output Case Is >= 56
//case >=56
MessageBox.Show("Anda sekarang tergolong manula", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
//menampilkan pesan kotak pada output Case Else//case dalam
keadaan salah
MessageBox.Show("Anda salah memasukkan usia", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information) End Select//mengakhiri End Sub//mengakhiri
fungsi case
program
7. Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.
Gambar 8.8 Output percabangan if
Perbedaan percabangan if dengan yang lainnya terletak pada pengkondisiannya. Dimana if hanya dapat mengkondisikan input ke dalam sebuah kondisi. Keterbatasan inilah yang membuat if jarang
209
digunakan dalam programming. Misalnya saja pada program diatas, bila kita input data 60 maka hasil yang muncul tepat, namun apabila yang kita inputkan kurang dari 55 maka program tidak akan menampilkan hasil apa-apa.
Gambar 8.9 Output percabangan if else
Pada percabangan if else, setiap data yang diinput akan meleati pengkondisian lebih dari sekali. Ini adalah salah satu keunggulannya dibandingkan dengan if. Misalnya saja pada output diatas kita input angka 48 maka output yang muncul akan sesuai meskipun data yang diinput dibawah 55. Hal ini terjadi karena pengkondisiannya lebih dari sekali.
210
Gambar 8.10 Output percabangan case
Berbeda dengan percabangan-percabangan sebelumnya, pada case data yang diinput akan masuk ke salah satu case yang sesuai. Perintah akan dijalankan berdasarkan case yang cocok tadi. Bila input yang dimasukkan tidak ada yang cocok dengan case yang tersedia, maka akan muncul perintah default dan meminta user untuk input ulang data.
8.4.5 Array Pembuatan program array dapat dilakukan dengan langkah sebagai berikut: 1. Buat project baru pada aplikasi Visual Basic 2. Desain form seperti
211
Gambar 8.11 Desain form Array
3. Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut: Tabel 8.4 Properti Array
Object
Properties
Nilai
Form1
Name
Form1
Label1
Text Text
Array Satu Dimensi NIM
Label2
Text
Nama
Label3
Text
Prodi
TexBox1
Name
TxtNIM
TexBox2
Name
TxtNama
TexBox3
Name
TxtAsal
212
ListView1
Name
ListView1
Button1
Name Teks
Btn Tambah Tambah
4. Klik ganda pada Form Load, kemudian ketikkan kode program berikut ini : ListView1.GridLines = True
//mencantumkan data ke daftar
ListView1.View = View.Details ListView1.Columns.Add("NIM") ListView1.Columns.Add("NAMA", 115)//penginputan data
“Nama” pada kolum nama ListView1.Columns.Add("ASAL", 110) TxtNim.Text = 1//penginputan data
“Asal” pada kolum asal
TxtNama.Focus()//kembali
fokus ke nama
5. Klik ganda pada BtnTambah, kemudian ketikkan kode program berikut ini : Dim Arr(2) As String
//deklarasi variabel kumpulan data
maksimal 2 sebagai string Arr(0) = TxtNim.Text
//input data “NIM ke array (0)”
Arr(1) = TxtNama.Text
//input data “Nama ke array (1)”
Arr(2) = TxtAsal.Text
//input data “Asal ke array (2)”
Dim listitem As ListViewItem
//deklarasi variabel yang
ditampilkan dalam bentuk list. listitem = New ListViewItem
//penulisan list data baru dari
data input listitem = ListView1.Items.Add//memasukkan
data list1 ke
dalam tabel data (Arr(0)) listitem.SubItems.Add(Arr(1)) listitem.SubItems.Add(Arr(2))
//input data yang dinput masuk kedalam tabel dengan format sesuai pada listitem, mulai dari NIM,Nama,dan Asal. TxtNim.Text = TxtNim.Text + 1
//input Nim akan bertambah
213
setelah input kedua dimasukkan TxtNama.Text = "" TxtAsal.Text = ""
//perintah untuk mengosongkan teksbox TxtNama dan TxtAsal TxtNama.Focus()//kembali
fokus ke pengisian nama
6. Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui icon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.
Gambar 8.12 Output Array
Pada output array diatas, tidak jauh berbeda dengan yang telah dipelajari dalam bahasa C. Pada output diatas kita misalkan saja input NIM 21060115120004 dengan Nama Miftah Adiguna dan Asal Pemalang, lalu kita tekan proses, maka input yang kita masukkan tadi akan muncul di tabel yang ada dibawahnya. Setelah itu pada kolom NIM akan bertambah 1, hal ini sesuai dengan apa yang kita tuliskan pada program.
8.4.6 Login 1. Buat form baru pada aplikasi Visual Basic 2. Desain form seperti
214
Gambar 8.13 Desain form Login
3. Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut: Tabel 8.5 Properti Login
Object
Properties
Nilai
Form1
Name
Form1
Label1
Text Text
Pencabangan IF User Name
Label2
Text
Password
TextBox1
Name
TxtUserName
TextBox2
Name
TxtPassword
Button1
PasswordChar Name
* BtnLogin
Button2
Text Name
Login BtnCancel
Text
Cancel
4. Klik ganda pada BtnLogin, kemudian ketikkan kode program berikut ini: If TxtPassword.Text = "" And TxtUserName.Text = "" Then
215
//pengkondisian
password
dalam
keadaan
kosong,
dan
pengkondisian user name dalam keadaan kosong MessageBox.Show("User name dan Password harus diisi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Question)
//pesan output yang akan ditampilkan di Message box TxtUserName.Focus()//kembali
fokus
ke
pengisian user name ElseIf TxtPassword.Text = "" Then
//kondisi password dalam
keadaan kosong MessageBox.Show("Password harus diisi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Question)
//output yang
ditampilkan jika password kosong TxtPassword.Focus()
//kembali fokus ke pengisian
password ElseIf TxtUserName.Text = "" Then
//jika kondisi username
dalam keadaan kosong MessageBox.Show("User name harus diisi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Question)//output
yang
ditampilkan jika username kosong TxtUserName.Focus()//kembali
fokus ke pengsian username ElseIf TxtUserName.Text = "undip" And TxtPassword.Text = "undip" Then//pengkondisian
username dan password yang
benar MessageBox.Show("Password dan User Name Benar", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Question)//output
username dan password benar Form1.Show () //menampilkan
form1
yang ditampilkan jika
216
Else//jika input
datang untuk username dan password dalam
kondisi salah MessageBox.Show("Password dan User Name Anda Salah, ulangi lagi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Question)//output
yang akan ditampilkan
di message box TxtUserName.Text = "" TxtUserName.Text = "" //input
username dalam kedaan kosong TxtUserName.Focus()//kembali End If End Sub
fokus pada pengisian username
//akhir dari fungsi if //mengakhiri program
5. Klik ganda pada BtnCancel, kemudian ketikkan kode program berikut ini : End
6. Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start
Gambar 8.14 Output Login
217
Pada menu login diatas, kita sudah atur Username dan Password yang diinginkan, yaitu undip dengan password undip. Apabila kita kita masukkkan username dan password tadi lalu menekan login, maka kita akan masuk ke program array. Hal ini terjadi karena pada Form login telah kita hubungkan dengan form array yang telah dibuat sebelumnya.
218
8.5 Kesimpulan 1. Visual Basic merupakan Bahasa pemrograman yang berbasis GUI, sehingga memudahkan untuk programmer dalam membuat suatu algoritma program. 2. Perintah If Else, If ElseIf, dan Select Case digunakan untuk penyeleksian kondisi yang berisi nilai true dan false. 3. If Else yaitu perintah logika dimana untuk menyeleksi dua kondisi saja, jika If terpenuhi maka pernyataan If akan dijalankan, jika tidak terpenuhi maka pernyataan pada Else yang dijalankan. 4. If ElseIf yaitu perintah logika dimana untuk menyeleksi lebih dari dua kondisi, jika If terpenuhi maka pernyataan If akan dijalankan, jika tidak terpenuhi maka pernyataan If selanjutnya akan diperiksa, hingga pernyataan tidak ada yang terpenuhi dan pernyataan Else akan dijalankan. 5. Select Case digunakan untuk menyeleksi kondisi yang terdapat banyak kemungkinan, biasanya digunakan untuk efisiensi penulisan source kode program. 6. Fungsi Select Case lebih baik digunakan dalam pengolahan logika yang banyak daripada fungsi If ElseIf, karena penulisan source kode yang terstruktur dan lebih efisien. 7. Visual Basic dapat digunakan untuk perhitungan aritmatika, juga dapat digunakan untuk perhitungan logika. 8. Form login adalah form yang digunakan sebagai pengaman atau penyaring user, apabila di form login user memasukkan id dan passwordnya salah maka aka nada pemberitahuan dari program tersebut. 9. MsgBox (message box) adalah salah satu fitur yang dapat digunakan di Visual Basic. Message Box digunakan untuk memberikan pesan dari sang pembuat program kepada pengguna program apabila terjadi sebuah kondisi tertentu. 10. Array adalah sekumpulan nilai data yang dikelompokkan dalam sebuah variabel. 11. CheckBox berfungsi untuk menampilka pilihan pada program. Pada CheckBox kita dapat memilih lebih dari satu pilihan.
219
12. RadioButton berfungsi untuk menampilkan pilihan pada program. Pada RadioButton kita hanya dapat memilih satu pilihan saja. 13. ComboBox berfungsi untuk menampilkan pilihan berupa daftar. Kita dapat memilih pilihan dari daftar dengan klik panah bawah dan memilih pilihan yang kita inginkan.