Perulangan - visual basic
Download as PPT, PDF0 likes1,206 views
Dokumen ini membahas berbagai jenis perulangan dalam pemrograman Visual Basic seperti Do Loop, Do While, Do Until, For Next, For Each Loop, dan While Loop. Termasuk contoh kode untuk mencetak bilangan urut menggunakan berbagai jenis perulangan. Di akhir diberikan latihan untuk membuat program yang menentukan tahun kabisat berdasarkan pilihan tahun di combo box.
![Do Loop
• Syntaks :
Do [{While | Until} condition]
[statements]
[Exit Do]
[statements]
Loop](https://image.slidesharecdn.com/perulangan-140324022415-phpapp01/85/Perulangan-visual-basic-2-320.jpg)
![For Next
Digunakan untuk mengulangi suatu perintah
dalam
jumlah yang ditentukan, serta besar
kenaikannya dapat
ditentukan.
Syntaks :
For index = start To end [Step step]
[statements]
[Exit For]
[statements]
Next [index]](https://image.slidesharecdn.com/perulangan-140324022415-phpapp01/85/Perulangan-visual-basic-5-320.jpg)
![For Each Loop
Digunakan untuk melakukan perulangan setiap
elemen dalam Array
Syntaks :
For Each element In group
[statements]
[Exit For]
[statements]
Next [element]](https://image.slidesharecdn.com/perulangan-140324022415-phpapp01/85/Perulangan-visual-basic-7-320.jpg)
![While Loop
• Digunakan jika ingin menghentikan
perulangan ketika kondisi tidak terpenuhi
• Syntaks :
While condition
[statements]
Wend](https://image.slidesharecdn.com/perulangan-140324022415-phpapp01/85/Perulangan-visual-basic-8-320.jpg)
Perulangan - visual basic
- 2. Do Loop • Syntaks : Do [{While | Until} condition] [statements] [Exit Do] [statements] Loop
- 3. Do While Perulangan DO WHILE adalah perulangan yang akan melakukan perulangan secara terus menerus selama kondisi pada WHILE memenuhi syarat (bernilai TRUE), hingga kondisi WHILE bernilai FALSE. Syntaks : Do While (Kondisi) Perintah-perintah (Statement) Loop
- 4. Do Until Perulangan Do Until merupakan perulangan yang akan melakukan Loop selama kondisi yang diseleksi bernilai FALSE (tidak terpenuhi) sampai dengan kondisi terpenuhi (TRUE) baru perulangan akan dihentikan. Syntaks : Do Until (Kondisi) Perintah-perintah (Statement) Loop
- 5. For Next Digunakan untuk mengulangi suatu perintah dalam jumlah yang ditentukan, serta besar kenaikannya dapat ditentukan. Syntaks : For index = start To end [Step step] [statements] [Exit For] [statements] Next [index]
- 6. Keterangan • Index variabel integer yang digunakan untuk melakukan perulangan • Start nilai awal variabel untuk memulai perulangan • End Nilai akhir variabel untuk menghentikan proses perulangan • Step besarnya kenaikan yang diinginkan dalam perulangan (opsional) • Statements instruksi-instruksi yang akan dilakukan jika kondisi memenuhi syarat. • End For digunakan untuk keluar dari perulangan For (optional)
- 7. For Each Loop Digunakan untuk melakukan perulangan setiap elemen dalam Array Syntaks : For Each element In group [statements] [Exit For] [statements] Next [element]
- 8. While Loop • Digunakan jika ingin menghentikan perulangan ketika kondisi tidak terpenuhi • Syntaks : While condition [statements] Wend
- 9. Contoh • Dengan menggunakan Perulangan, Buatlah Bilangan Urut dari angka 1 sampai 10. Langkahnya : Bukalah sebuah Form, kemudian tulis kode programnya sebagai berikut : For Next Code Private Sub Form_Activate() For i = 1 To 10 Print i Next i End Sub
- 10. Do While Code Private Sub Form_Activate() i = 1 Do While (i <= 10) Print i i = i + 1 Loop End Sub Do Until Code Private Sub Form_Activate() i = 1 Do Until (i > 10) Print i i = i + 1 Loop End Sub
- 11. Latihan • Buatlah Bilangan Urut dari 1 sampai 100 dengan menggunakan Objek ComboBox • Desain Form :
- 12. Kode Program Private Sub Form_Activate() For i = 1 To 100 Combo1.AddItem i Next i End Sub
- 13. Latihan 2 • Buatlah Pilihan Tanggal, Bulan dan Tahun didalam ComboBox • Tanggal (1-31), Bulan (1-12), Tahun (1900-2099)
- 14. Kembangkan Program sebelumnya • Carilah Penentuan Tahun Kabisat pada setiap pilihan tahun. • Rumus *: 1. Tahun Habis dibagi 4 2. Dan Bukan yang Habis dibagi 100, misalnya 1900 bukan tahun Kabisat 3. Atau Habis dibagi 400, seperti tahun 2000
- 17. Kode Program Private Sub cboTahun_Click() tahun = Val(cboTahun.Text) If ((tahun Mod 4 = 0) And Not (tahun Mod 100 = 0)) Or (tahun Mod 400 = 0) Then ket = "Tahun Kabisat" jum = "366 Hari" Else ket = "Bukan Tahun Kabisat" jum = "365 Hari" End If lblKeterangan = "Keterangan : " + ket lblJumlah = "Jumlah Hari : " + jum End Sub