Perulangan Pada Visual Basic Net 2008

15 april 2018 oleh mawar, posted in mata kuliah, pemograman visual

Perulangan pada pemograman visual net 2008 terdiri dari
1. For Next
2. Do Loop
3. While

Berikut contoh perulangan pada pemograman visual

Desain Form berikut ini:

Berikut Kode Perintah VB Net 2008:

1. Klik 2 kali (double click) pada tombol “Tampil For-Next”, ketik kode berikut ini tampilan kodenya.

 Lstfor.Items.Clear()
 Dim a As Integer
     For a = 10 To 1 Step -2
     Lstfor.Items.Add(a)
 Next

2. Klik 2 kali (double click) pada tombol “Tampil Do-Loop”, ketik kode berikut ini tampilan kodenya.

LstDo.Items.Clear()
Dim a As Integer
    a = 10
Do Until a < 1
    LstDo.Items.Add(a)
    a = a - 2
 Loop

3. Klik 2 kali (double click) pada tombol “Tampil While”, ketik kode berikut ini tampilan kodenya.

LstWhile.Items.Clear()
Dim i As Integer
    i = 10
While i >= 1
LstWhile.Items.Add(i)
      i = i - 2
End While

Berikut tampilan Form setelah di jalankan

CONTOH PERULANGAN LAINNYA:

Desain Form Berikut Ini:

Ketik kode perintah berikut pada masing-masing contoh pada gambar diatas:

[1] Klik 2 kali (double click) pada tombol “Tampil abjad A-Z”, ketik kode berikut ini tampilan kodenya.

Dim x As Integer
For x = 65 To 90
  LstAbjact.Items.Add(Chr(x) & "=" & x * 2 & "=" & x)
  'LstAbjact.Items.Add(Asc("Aext

[2] Klik 2 kali (double click) pada tombol “Perkalian”, ketik kode berikut ini tampilan kodenya.

Dim z, x As Double
For x = 10 To 2 Step -1
  z = x * (11 - x)
  Lstperkalian.Items.Add(x & "x" & 11 - x & "=" & z)
Next

[3] Klik 2 kali (double click) pada “Form”, ketik kode berikut ini tampilan kodenya.

Dim x As Integer
For x = 2010 To 2020
  Ccombo.Items.Add(x)
Next

[4] Klik 2 kali (double click) pada “Form”, ketik kode berikut ini tampilan kodenya.

Dim y As Integer
For y = 2017 To 2001 Step -1
        ctahun.Items.Add(y & "/" & y + 1)
Next