Fakultas Teknik Praktikum 4
MODUL PRAKTIKUM PEMROGRAMAN VISUAL BASIC
Moh. Anshori Aris Widya, S.Kom UNIPDU (Universitas Pesantren Tinggi Darul Ulum) 2013-2014
UNIPDU | Komplek Pondok Pesantren Tinggi Darul ‘Ulum Peterongan Jombang 61481
2014
PRAKTIKUM 4 LOOPING STATEMENT AND LOOPING CONTROL
A. Tujuan - Mengenal Looping Statement dalam Visual Basic 2008 - Mengenal Looping Control dalam Visual Basic 2008 B. Perangkat Lunak (Software) - Microsoft Visual Basic 2008 C. Looping Statement dalam Visual Basic 2008 Looping Statement adalah sebuah perintah perulangan yang digunakan untuk meng-ulang suatu pernyataan yang telah ditulis sekali namun dapat dijalankan sebanyak perulangan yang ditentukan. Berikut ini macam-macam looping statement antara lain : 1. For i = x To y Statement1 Statement2 Statement….. Next Contoh Script Penjelasan For i = 1 To 25 Jalankan dari i = 1 sampai i = 25 If i mod 2 = 0 Then Jika i mod 2 = 0 maka ListBox1.Items.Add(i) Tambahkan i ke dalam item ListBox1 End If If selesai Next Lanjut Script ini digunakan untuk menampilkan angka genap yang ada diantara 1 dan 25 2. For i = x To y Step z Statement1 Statement2 Statement….. Next Contoh Script Penjelasan For i = 1 To 25 Step 3 Jalankan dari i = 1 sampai i = 25 dengan 3 loncatan ListBox1.Items.Add(i) Tambahkan i ke dalam item ListBox1 Next Lanjut Script ini digunakan untuk menampilkan angka yang ada diantara 0 dan 25 dengan 3x loncatan. 3. While Statement Perintah1 Perintah2 Perintah….. Operator Inkrement End While
1 | Pemrograman Visual Basic UNIPDU 2013-2014
Contoh Script Penjelasan Dim nilai as Byte Deklarasikan nilai sebagai Byte nilai = 1 nilai = 1 While nilai < 25 Jalankan ketika nilai < 25 If nilai mod 2 = 0 Then Jika nilai mod 2 = 0 maka ListBox1.Items.Add(nilai) Tambahkan i ke dalam item ListBox1 End If If selesai nilai += 1 Tambahkan 1 ke dalam nilai End While While Selesai Script ini digunakan untuk menampilkan angka genap yang ada diantara 1 dan 25 4. Do Perintah1 Perintah2 Perintah….. Operator Inkrement Loop Until Statement Contoh Script Penjelasan Dim nilai as Byte Deklarasikan nilai sebagai Byte nilai = 1 nilai = 1 Do Jalankan If nilai mod 2 = 0 Then Jika nilai mod 2 = 0 maka ListBox1.Items.Add(nilai) Tambahkan i ke dalam item ListBox1 End If If selesai nilai += 1 Tambahkan 1 ke dalam nilai Loop Until nilai > 25 Ulang lagi sampai nilai > 25 Script ini digunakan untuk menampilkan angka genap yang ada diantara 1 dan 25 5. Do Perintah1 Perintah2 Perintah….. Operator Inkrement Loop While Statement Contoh Script Penjelasan Dim nilai as Byte Deklarasikan nilai sebagai Byte nilai = 1 nilai = 1 Do Jalankan If nilai mod 2 = 0 Then Jika nilai mod 2 = 0 maka ListBox1.Items.Add(nilai) Tambahkan i ke dalam item ListBox1 End If If selesai nilai += 1 Tambahkan 1 ke dalam nilai Loop While nilai < 25 Ulang ketika nilai < 25 Script ini digunakan untuk menampilkan angka genap yang ada diantara 1 dan 25 6. Do Until Statement Perintah1 Perintah2 Perintah….. Operator Inkrement Loop 2 | Pemrograman Visual Basic UNIPDU 2013-2014
Contoh Script Penjelasan Dim nilai as Byte Deklarasikan nilai sebagai Byte nilai = 1 nilai = 1 Do Until nilai = 25 Jalankan sampai nilai = 25 If nilai mod 2 = 0 Then Jika nilai mod 2 = 0 maka ListBox1.Items.Add(nilai) Tambahkan i ke dalam item ListBox1 End If If selesai nilai += 1 Tambahkan 1 ke dalam nilai Loop Ulang Script ini digunakan untuk menampilkan angka genap yang ada diantara 1 dan 25 7. Do While Statement Perintah1 Perintah2 Perintah….. Operator Inkrement Loop Contoh Script Penjelasan Dim nilai as Byte Deklarasikan nilai sebagai Byte nilai = 1 nilai = 1 Do While nilai < 25 Jalankan ketika nilai < 25 If nilai mod 2 = 0 Then Jika nilai mod 2 = 0 maka ListBox1.Items.Add(nilai) Tambahkan i ke dalam item ListBox1 End If If selesai nilai += 1 Tambahkan 1 ke dalam nilai Loop Ulang Script ini digunakan untuk menampilkan angka genap yang ada diantara 1 dan 25 D. Looping Control dalam Visual Basic 2008 Looping Control merupakan suatu control yang digunakan menangani perintah yang dijalankan berulang-ulang atau perintah yang terotomatisasi. Control yang dimaksud adalah Timer. Timer akan menjalankan perintah yang telah ditulis setiap saat selama masih memenuhi syarat atau kriteria. Perbedaan dengan Looping Statement adalah jika Looping Control, yang melakukan peng-ulangan yaitu control itu sendiri sedangkan Looping Statement yaitu logika peng-ulangan yang telah ditentukan oleh programmer. E. Praktikum Membuat Aplikasi Windows 1. Konsep Project a. Aplikasi ini untuk menampilkan angka ganjil 2. Buat Form baru pada project yang telah dibuat pada praktikum sebelumnya 3. Tambahkan control-kontrol berikut ke dalam Form Design No
1
Object
Form
Property Name Text FormBorder StartPosition ControlBox
3 | Pemrograman Visual Basic UNIPDU 2013-2014
Nilai frmpraktikum5 Periksa Angka Ganjil FixedSingle CenterScreen False
2
Label
Text
Dari Angka
3
Label
Text
Sampai Angka
TextBox
Name Text TextAlign Font
txt1 (dikosongi) Right Calibri, 12
5
TextBox
Name Text TextAlign Font
txt2 (dikosongi) Right Calibri, 12
6
ListBox
Name Font
ListHasil Calibri, 14
Button
Name Text TextAlign Image ImageAlign
btntampil Tampilkan MiddleRight (sesuai perintah saat praktikum) MiddleLeft
Button
Name Text TextAlign Image ImageAlign
btnhapus Hapus Data MiddleRight (sesuai perintah saat praktikum) MiddleLeft
Button
Name Text TextAlign Image ImageAlign
btnkeluar Keluar Program MiddleRight (sesuai perintah saat praktikum) MiddleLeft
4
7
8
9
4. Desain sedemikian rupa sehingga menjadi gambar dibawah ini 1
2 6
3 4 5 7 8 9
4 | Pemrograman Visual Basic UNIPDU 2013-2014
5. Berikut ini listing aplikasi tersebut Dim awal, akhir As Double
a. btntampil (Tombol Tampilkan) Private Sub btntampil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntampil.Click awal = Convert.ToDouble(txt1.Text) akhir = Convert.ToDouble(txt2.Text) For x = awal To akhir If x Mod 2 = 1 Then ListHasil.Items.Add(x) End If Next End Sub
b. btnhapus (Tombol Hapus Data) Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click txt1.Text = "" txt2.Text = "" ListHasil.Items.Clear() txt1.Focus() End Sub
c. btnkeluar (Tombol Keluar Program) Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click Close() End Sub
6. Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging. 7. Analisa dan perhatikan apakah project yang dibuat telah sesuai konsep yang telah ditentukan (konsep akan diterangkan pada saat praktikum). 8. Simpan Project anda (untuk penjelasan mengenai Listing Program akan diterangkan pada saat praktikum).
5 | Pemrograman Visual Basic UNIPDU 2013-2014
F. Praktikum Membuat Aplikasi Windows 1. Konsep Project a. Aplikasi ini untuk Menampilkan Hari, Tanggal dan Jam Sekarang. 2. Buat Form baru pada project yang telah dibuat pada praktikum sebelumnya 3. Tambahkan control-kontrol berikut ke dalam Form Design No
Object
Property Name Text FormBorder StartPosition MaximizeBox MinimizeBox
Nilai frmpraktikum6 Tanggal dan Waktu Sekarang FixedSingle CenterScreen False False
1
Form
2
Label
Text
Hari
3
Label
Text
Tanggal
4
Label
Text
Jam
TextBox
Name Text Font ForeColor ReadOnly
txthari (dikosongi) Calibri, 14 Maroon True
TextBox
Name Text Font ForeColor ReadOnly
txttanggal (dikosongi) Calibri, 14 Maroon True
TextBox
Name Text Font ForeColor ReadOnly
txtjam (dikosongi) Calibri, 14 Maroon True
Timer
Name Enabled Interval
tmr1 True 1000
5
6
7
8
4. Desain sedemikian rupa sehingga menjadi gambar dibawah ini 1 2
5
3
6
4
7
6 | Pemrograman Visual Basic UNIPDU 2013-2014
5. Berikut ini listing aplikasi tersebut a. tmr1 (Timer) Private Sub tmr1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmr1.Tick txthari.Text = Format(Now, "dddd") txttanggal.Text = Format(Now, "dd-MM-yyyy") txtjam.Text = Format(Now, "HH:mm:ss") End Sub
6. Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging. 7. Analisa dan perhatikan apakah project yang dibuat telah sesuai konsep yang telah ditentukan (konsep akan diterangkan pada saat praktikum). 8. Simpan Project anda (untuk penjelasan mengenai Listing Program akan diterangkan pada saat praktikum). G. Referensi - Suryanto Thabrani. Mudah & Cepat Menguasai Visual Basic, Jakarta: Mediakita, 2008. - Ketut Darmayuda. Pemrograman Aplikasi Database dengan Microsoft Visual Basic .NET 2008, Bandung: Informatika, 2010. - Soetam Rizky. Learning By Sample Visual Basic 2008, Jakarta: Prestasi Pustaka, 2010. - Wahana Komputer. Paling Dicari: Visual Basic 2010 Source Code, Yogyakarta: Andi Publisher, 2010.
7 | Pemrograman Visual Basic UNIPDU 2013-2014
