top of page
Search

Cara Menggunakan Perulangan & Array Pada Visual Basic (2019).

PERULANGAN

Perintah perulangan adalah merupakan control perulangan yang berfungsi untuk melakukan perulangan (iterasi) dari suatu blok program secara berulang-ulang.

1. For … Next For … Next merupakan suatu control perulangan yang mempunayi nilai tetap, jumlah perulangan telah diketahui sebelumnya. Format penulisannya adalah sebagai berikut :

For Counter=niali_awal to nilai_akhir
[ Perintah ]
Next (Counter)

2. For Each … In … Next Merupakan suatu control yang digunakan untuk perulangan yang jumlah pengulangannya sesuai dengan jumlah elemen dari suatu koleksi objek dan biasanya tidak diketahui dengan pasti berapa jumlahnya. Koleksi merupakan kumpulan data atau objek yang didefinisikan dengan kode program.

Format Penulisannya :

For Each elemen In Group
   [ Perintah ]
   [ Perintah ]
Next [elemen]

3. While … While merupakan suatu control perulangan yang berfungsi untuk melakukan perulangan yang memiliki satu syarat tertentu. Dan akan terus dijalankan selama syarat tersebut terpenuhi dan begitupun sebaliknya jika syarat tidak terpenuhi maka pernyataan tidak akan dijalankan.

Format Penulisannya :

While (kondisi)
   [perintah1]
   [perintah2]
…
End While

4. DO While … LOOP Merupakan suatu control perulangan yang melakukan perulangan terlebih dahulu dan bentuk pengujian dilakukan belakangan atau sebaliknya.

Format penulisannya :

DO While (kondisi)
   [perintah1]
   [Exit Do]
   [perintah2]
LOOP

Bentuk 2:

DO 
   [perintah1]
   [Exit Do]
   [perintah2]
LOOP While (kondisi)

5. DO UNTIL Jika Do While melakukan perulangan selama kondisi memenuhi until akan melakukan perulangan hingga kondisi memenuhi. Selama kondisi tidak memenuhi, loop akan dijalankan terus.

Format penulisannya :

DO
   [perintah1]
LOOP UNTIL



Praktikum!!!


Perulangan FOR.

1. Buat project baru dengan nama Perulangan

2. Desain Tampilan form seperti gambar berikut ini :



3. Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:



4. Klik ganda pada Form1, kemudian ketikkan kode program berikut ini :

 Dim tgl, bln, thn As Integer
 
 For tgl = 1 To 31
    CmbTgl.Items.Add(tgl)
 Next tgl
 
 For bln = 1 To 12
    CmbBln.Items.Add(bln)
 Next bln
 
 For thn = 1900 To 9999
    CmbThn.Items.Add(thn)
 Next thn

5. Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.


Perulangan WHILE

1. Tambahkan Form baru, dengan nama Perulangan While.

2. Desain Tampilan form seperti gambar berikut ini :



3. Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:



4. Klik ganda pada Proses, kemudian ketikkan kode program berikut ini :

Dim angka As Integer
 
 ListBox1.Items.Clear()
 angka = 1
 While angka <= Val(TxtBatas.Text)
    ListBox1.Items.Add(angka)
    angka = angka + 1
 End While

5. Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.



Perulangan DO WHILE… LOOP

1. Tambahkan Form baru, dengan nama Form4.

2. Desain Tampilan form seperti gambar berikut ini :



3. Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:



4. Klik ganda pada Proses, kemudian ketikkan kode program berikut ini :

 Dim X%
 
 X = TxtAngka.Text
 Do
    X = X Mod 2
    If X = 0 Then
      MsgBox("Bilangan Genap")
      Exit Do
    ElseIf X = 1 Then
      MsgBox("Bilangan Ganjil")
      Exit Do
    End If
 Loop While Not X

5. Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.


Perulangan FOR EACH… IN… NEXT


1. Tambahkan Form baru, dengan nama Form5.

2. Desain Tampilan form seperti gambar berikut ini :



3. Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut :



4. Klik ganda pada Proses, kemudian ketikkan kode program berikut ini :

 For Each ctrl In Controls
     ctrl.Text = "Tombol"
 Next

5. Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.


ARRAY!!!


Array adalah sekumpulan data yang memiliki tipe yang sama, sejumlah tetap, serta disusun secara terstruktur dan disimpan dalam satu variabel yang sama, dan diurutkan dengan index.

1. Array Satu Dimensi Suatu array yang nilai dan ukurannya yang sudah ditentukan terlebih dahulu, dan memiliki satu dimensi.

Bentuk Umum :

Dim Array[indeks] As Tipe_Data

Contoh :

Dim Arr(2) As String
Arr(0) = TxtNim.Text
Arr(1) = TxtNama.Text
Arr(2) = TxtProdi.Text

2. Array Multi Dimensi Suatu array yang fungsinya hampir sama dengan array satu dimensi hanya saja pada array multi dimensi ini mewakili nilai table yang terdiri dari informasi yang diatur dalam baris dan kolom. Untuk mendefenisikan elemen table tertentu, kita harus menentukan dua indeks, pertama mengidentifikasi elemen baris dan yang mengidentifikasi elemen kolom. Array multidimensi memiliki lebih dari dua dimensi.

Bentuk Umum :

Dim Array[indeks,Indeks] As Tipe_Data
Dim Array[indeks,indeks,indeks] As Tipe_Data

Contoh :

Dim Arr(3, 1) As String
Arr(0, 0) = "NIM"
Arr(0, 1) = "NAMA"
Arr(1, 0) = "JENIS KELAMIN"
Arr(1, 1) = "PRODI"
Arr(2, 0) = "Laki-laki"
Arr(2, 1) = "Perempuan"
Arr(3, 0) = "Manajemen Informatika"
Arr(3, 1) = "Teknik Informatika"


Praktikum!!


Array Satu Dimensi.

1. Buat project baru, dengan nama Array.

2. Desain Tampilan form seperti gambar berikut ini :



3. Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:



4. Klik ganda pada Form Load, kemudian ketikkan kode program berikut ini :

 ListView1.GridLines = True
 ListView1.View = View.Details
 ListView1.Columns.Add("NIM")
 ListView1.Columns.Add("NAMA", 115)
 ListView1.Columns.Add("PRODI", 110)
 TxtNim.Text = 1
 TxtNama.Focus()

5. Klik ganda pada BtnTambah, kemudian ketikkan kode program berikut ini :

 Dim Arr(2) As String
 Arr(0) = TxtNim.Text
 Arr(1) = TxtNama.Text
 Arr(2) = TxtProdi.Text

 Dim listitem As ListViewItem
 listitem = New ListViewItem
 listitem = ListView1.Items.Add(Arr(0))
 listitem.SubItems.Add(Arr(1))
 listitem.SubItems.Add(Arr(2))

 TxtNim.Text = TxtNim.Text + 1
 TxtNama.Text = ""
 TxtProdi.Text = ""
 TxtNama.Focus()

6. Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui icon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.


Array Multi Dimensi!!!

1. Tambahkan Form baru, dengan nama Form2.

2. Desain Tampilan form seperti gambar berikut ini :



3. Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:



4. Klik ganda pada Form Load, kemudian ketikkan kode program berikut ini :

 Dim Arr(3, 1) As String
 Arr(0, 0) = "NIM"
 Arr(0, 1) = "NAMA"
 Arr(1, 0) = "JENIS KELAMIN"
 Arr(1, 1) = "PRODI"
 Arr(2, 0) = "Laki-laki"
 Arr(2, 1) = "Perempuan"
 Arr(3, 0) = "Manajemen Informatika"
 Arr(3, 1) = "Teknik Informatika"

 ListView1.GridLines = True
 ListView1.View = View.Details

 For Baris = 0 To 1
   For Kolom = 0 To 1
     ListView1.Columns.Add(Arr(Baris, Kolom), 100)
   Next Kolom
 Next Baris

 For Baris = 2 To 2
   For Kolom = 0 To 1
     CmbKelamin.Items.Add(Arr(Baris, Kolom))
   Next Kolom
 Next Baris

 For Baris = 3 To 3
   For Kolom = 0 To 1
     CmbProdi.Items.Add(Arr(Baris, Kolom))
   Next Kolom
 Next Baris

5. Klik ganda pada BtnProses, kemudian ketikkan kode program berikut ini :

Dim Arr(3) As String
 Arr(0) = TxtNIM.Text
 Arr(1) = TxtNAMA.Text
 Arr(2) = CmbKelamin.Text
 Arr(3) = CmbProdi.Text

 Dim listitem As ListViewItem
 listitem = New ListViewItem
 listitem = ListView1.Items.Add(Arr(0))
 listitem.SubItems.Add(Arr(1))
 listitem.SubItems.Add(Arr(2))
 listitem.SubItems.Add(Arr(3))
 TxtNIM.Text = TxtNIM.Text + 1
 TxtNAMA.Text = ""
 CmbKelamin.Text = ""
 CmbProdi.Text = ""
 TxtNAMA.Focus()

6. Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.

Comments

bottom of page