Perulangan
Dan ARRAY
PERULANGAN
Perintah perulangan adalah merupakan
control perulangan yang berfungsi untuk melakukan perulangan (iterasi) dari
suatu blok program secara berulang-ulang.
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) |
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] |
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 |
DO
While ... LOOP
Merupakan suatu control perulangan yang
melakukan perulangan terlebih dahulu dan bentuk pengujian dilakukan belakangan
atau sebaliknya.
Format penulisannya :
|
DO
While (kondisi) [perintahl]
[Exit
Do] [perintah2]
LOOP |
Bentuk 2
|
DO
[perintah1]
[Exit
Do] [perintah2]
LOOP
While (kondisi) |
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
KE 1
Perulangan FOR
1.
Buat
project baru dengan nama Pratikum 9
2.
Buat
lah desain Form Sesuai gambar dibawah ini
3.
Tambahkan
kontrol ke form seperti pada gambar diatas dan atur propertinya seperti dibawah
ini
|
Object |
Properties |
Nilai |
|
Form 3 |
Name Text |
Form1 Perulangan FOR |
|
Label 1 |
Text |
Tgl/Bln/Thn |
|
ComboBox1 |
Name |
ComboBox1 |
|
ComboBox2 |
Name |
ComboBox2 |
|
ComboBox3 |
Name |
ComboBox3 |
4.
Klik
pada Form3 lalu masukan kodek program berikut ini :
|
Public Class Form3 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim tgl, bln, thn As Integer For tgl = 1 To 31 ComboBox1.Items.Add(tgl) Next tgl For bln = 1 To 12 ComboBox2.Items.Add(bln) Next bln For thn = 0 To 9999 ComboBox3.Items.Add(thn) Next thn End Sub End Class |
5.
Lalu
Jalankan dan Simpan
Perulangan
WHILE
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
|
Object |
Porperties |
Nilai |
|
Form4 |
Name Text |
Form4 Perulangan While |
|
Label 1 |
Text |
Batas |
|
Label 2 |
Text |
Tampilkan |
|
TextBox 1 |
Name |
TextBox 1 |
|
ListBox1 |
Name |
ListBox1 |
|
Button 1 |
Name Text |
Button 1 Proses |
4.
Klik
ganda pada Proses, kemudian ketikkan kode program berikut ini :
|
Public Class Form4 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim angka As Integer
ListBox1.Items.Clear() angka = 1 While angka <= Val(TextBox1.Text)
ListBox1.Items.Add(angka) angka
= angka + 1 End While End Sub End Class |
5.
Lalu
Jalankan dan isi sesuai keinginan anda setelah itu Simpan
Perulangan
DO WHILE...LOOP
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:
|
Object |
Properties |
Nilai |
|
Form5 |
Name Text |
Form5 Form5 |
|
Label 1 |
Text |
Angka |
|
TextBox1 |
Name |
TextBox1 |
|
Button1 |
Name Text |
Button1 Proses |
4.
Klik
ganda pada Proses, kemudian ketikkan kode program berikut ini :
|
Public Class Form5 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim X% X =
TextBox1.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 End Sub End Class |
5.
Lalu
Jalankan dan isi, setelah itu Simpan
Perulangan
FOR EACH ... IN...NEXT
1.
Tambahkan
Form baru, dengan nama Form6.
2.
Desain
Tampilan form seperti gambar berikut ini :
3.
Tambahkan
kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:
|
Object |
Properties |
Nilai |
|
Form6 |
Name Text |
Form6 Form6 |
|
Button 1 |
Name Text |
Button 1 Button 1 |
|
Button 2 |
Name Text |
Button 2 Button 2 |
|
Button 3 |
Name Text |
Proses Button3 |
4.
Klik
ganda pada Proses, kemudian ketikkan kode program berikut ini :
|
Public Class Form6 Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click For Each ctrl In Controls
ctrl.text = "Tombol" Next End Sub End Class |
5.
Jalan
kan aplikasi anda lalu jangan lupa disimpan
DASAR
TEORI 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.
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 |
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.
Arraymultidimensi 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 KE 2
1.
Buat
project baru, dengan nama Praktikum 9
2.
Desain
Tampilan form seperti gambar berikut ini :
3.
Tambahkan
kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel
dibawah ini.
|
Object |
Properties |
Nilai |
|
Form 1 |
Name Text |
Form1 Array Multi Dimensi |
|
Label 1 |
Text |
NIM |
|
Label 2 |
Text |
Nama |
|
Label 3 |
Text |
Kelamin |
|
Label 4 |
Text |
Prodi |
|
TextBox1 |
Name |
TextBox1 |
|
TextBox2 |
Name |
TextBox2 |
|
ListView1 |
Name |
ListView1 |
|
Button1 |
Name Text |
Button1 Proses |
4.
Klik
ganda pada Form Load, kemudian ketikkan kode program berikut ini :
|
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ListView1.GridLines = True
ListView1.View = View.Details
ListView1.Columns.Add("NIM", 100)
ListView1.Columns.Add("NAMA", 180)
ListView1.Columns.Add("PRODI", 200) End Sub |
5.
Klik
ganda pada BtnTambah, kemudian ketikkan kode program berikut ini :
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim arr(2) As String arr(0) =
TextBox1.Text arr(1) =
TextBox2.Text arr(2) =
TextBox3.Text Dim ob As ListViewItem ob = New ListViewItem ob =
ListView1.Items.Add(arr(0))
ob.SubItems.Add(arr(1)) ob.SubItems.Add(arr(2))
TextBox1.Text = TextBox1.Text + 1
TextBox2.Clear()
TextBox3.Clear()
TextBox2.Focus() End Sub |
6.
Lalu
Jalankan dan isi sesuai keinginan anda setelah itu Simpan
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
dibawah ini.
|
Object |
Properties |
Nilai |
|
Form 1 |
Name Text |
Form1 Array Multi Dimensi |
|
Label 1 |
Text |
NIM |
|
Label 2 |
Text |
Nama |
|
Label 3 |
Text |
Kelamin |
|
Label 4 |
Text |
Prodi |
|
TextBox1 |
Name |
TextBox1 |
|
ComboBox1 |
Name |
ComboBox1 |
|
ComboBox2 |
Name |
ComboBox2 |
|
TextBox2 |
Name |
TextBox2 |
|
ListView1 |
Name |
ListView1 |
|
Button1 |
Name Text |
Button1 Proses |
4.
Klik
ganda pada Form Load, kemudian ketikkan kode program berikut ini.
|
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load 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)
= "Teknik Informatika" arr(3, 1)
= "Sistem Informasi"
ListView1.GridLines = True
ListView1.View = View.Details For Baris = 0 To 1 For Kolom = 0 To 1
ListView1.Columns.Add(arr(Baris, Kolom), 110) Next Kolom Next Baris For Baris = 2 To 2 For Kolom = 0 To 1
ComboBox2.Items.Add(arr(Baris, Kolom)) Next Kolom Next Baris For Baris = 3 To 3 For Kolom = 0 To 1
ComboBox1.Items.Add(arr(Baris, Kolom)) Next Kolom Next Baris End Sub |
5.
Klik
ganda pada BtnTambah, kemudian ketikkan kode program berikut ini.
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim arr(3) As String arr(0) =
TextBox1.Text arr(1) =
TextBox2.Text arr(2) =
ComboBox2.Text arr(3) =
ComboBox1.Text Dim ob As ListViewItem ob = New ListViewItem ob =
ListView1.Items.Add(arr(0))
ob.SubItems.Add(arr(1))
ob.SubItems.Add(arr(2))
ob.SubItems.Add(arr(3))
TextBox1.Text = TextBox1.Text + 1
TextBox2.Clear()
ComboBox2.SelectedIndex = -1
ComboBox1.SelectedIndex = -1
TextBox1.Focus() End Sub |
6.
Lalu
Jalankan aplikasi anda dan isi sesuai keinginan anda setelah itu Simpan.
Komentar
Posting Komentar