Apa yang kamu ketahui tentang perulangan pada vb net

langsung saja gaess di simak materi tentang perulangan dan contohnya gaess πŸ™‚

Perulangan

Perulangan data atau yang biasa disebut dengan looping merupakan proses yang dilakukan secara berulang-ulang sampai batas yang ditentukan. Apabila dalam perulangan tersebut tidak disertakan batasnya maka program akan error karena proses itu akan berulang terus menerus sampai tak terhingga sementara variabel dalam komputer masih terbatas.

Berikut ini beberapa jenis perulangan :

  1. Perulangan menggunakan For To Do
  2. Perulangan menggunakan For DownTo Do
  3. Perulangan menggunakan Repeat Until
  4. Perulangan menggunakan While Do
  5. Perulangan menggunakan Label
  6. Perulangan tersarang (nested loop)
  7. Perulangan dengan banyak kondisi

Pada perulangan for – to – do ini menggunakan suatu variabel counter yang akan bertambah secara otomatis ketika perintah yang diulang telah selesai dikerjakan.

Contoh Program yang ditulis dalam event OnClick dari Button

procedure TForm1.BitBtn1Click(Sender: TObject);

var

a:integer;

begin

for a:=1 to 10 do

begin

Memo1.Lines.Add(IntToStr(i));

end;

end;

Perulangan ini sama seperti perulangan dengan menggunakan for – to – do tetapi arah isi counternya berkurang (mundur/turun). Perulangan ini akan berulang selama nilai variabel counter masih lebih besar atau sama dengan nilai_akhir. Nilai awal suatu counter harus lebih besar atau sama dengan daripada nilai akhirnya.

Contoh Program yang ditulis dalam event OnClick dari Button

procedure TForm1.BitBtn2Click(Sender: TObject);

var

i:integer;

begin

for i:=10 downto 1 do

begin

Memo1.Lines.Add(IntToStr(i));

end;

end;

Ca

Perulangan ini bekerja sampai kondisi yang diinginkan tercapai. Perulangan repeat until bisa digunakan sebagai perulangan yang menggunakan banyak kondisi keluar (multi condition loop).

Contoh Umum

procedure TForm1.Button1Click(Sender: TObject);

var i : integer;

begin

i:=1;

repeat

i:=i+2;

Memo1.Lines.Add(inttostr(i));

until i>=10

end;

Perulangan ini akan melakukan proses sampai kondisi yang ada setelah until mempunyai nilai true. Jadi repeat until berjalan selama kondisi salah sampai kondisi benar. Pengecekan kondisi berada di bagian bawah yaitu setelah until sehingga semua program yang memakai perulangan ini akan melakukan minimal 1 kali proses perulangan.

Perulangan ini hampir sama dengan perulangan Repeat Until tetapi pengecekannya berada diawal sebelum melakukan proses yang berulang. Perulangan ini berjalan selama kondisi pengecekan bernilai true. Jika kondisi telah mempunyai nilai false maka perulangan tidak dilakukan lagi.

Contoh program while do yang ditulis pada event title dari tombol Button.

procedure TForm1.Button1Click(Sender: TObject);

var i : integer;

begin

i:=1;

while (i<=10) do

begin

Memo1.Lines.Add(inttostr(i));

i:=i+2;

end;

end;

Label adalah suatu perintah untuk memberi tanda suatu baris program. Untuk pindah ke posisi yang ditandai oleh label, maka digunakan perintah Goto.

Berikut contoh program dengan menggunakan label:

procedure TForm1.Button1Click(Sender: TObject);

label

lanjut;

var i : integer;

begin

i:=1;

lanjut:

Memo1.Lines.Add(inttostr(i));

i:=i+1;

if (i < 5) then

goto lanjut;

end;

  1. Perulangan Tersarang (nested loop)

Perulangan tersarang (nested loop) adalah suatu perulangan dimana di dalam perulangan tersebut ada perulangan lain. Perulangan yang di ada di bagian terdalam, maka akan dikerjakan dulu sampai selesai baru mengerjakan perulangan yang ada diluarnya. Nested loop bisa merupakan kombinasi antara For To Do, For DownTo Do, Repeat Until, While Do.

  1. Perulangan dengan banyak kondisi

Perulangan dengan banyak kondisi adalah suatu perulangan dimana berjalannya suatu perulangan tidak hanya berdasarkan suatu kondisi saja tetapi bisa lebih dari satu kondisi. Operator yang bisa digunakan biasanya seperti And, Or, Not dan lain-lain.

Contoh Program :

procedure TForm1.Button1Click(Sender: TObject);

var

i,a:integer;

begin

i:=0;

a:=0;

repeat

i:=i+1;

a:=i+1;

Memo1.Lines.Add(β€˜nilai I = β€˜+IntToStr(i));

Memo1.Lines.Add(β€˜nilai A = β€˜+IntToStr(a));

until (a>=15)or(i>=5);

end;

ini ada contoh penulisan script looping pada software delphy gaes πŸ™‚

Apa itu Percabangan ?

Percabangan adalah proses yang menjalankan suatu proses sesuai dengan blok kode yang akan di eksekusi dan mengabaikan blok kode program lainnya apabila masih didalam blok kode program yang dieksekusinya tersebut.

Macam – macam Percabangan pada Visual Basic

If – Then merupakan sebuah kondisi yang akan mengeksekusi perintah di dalam if jika kondisinya bernilai true. Perintah If – Then ini digunakan untuk program dengan 1 kondisi.

Bentuk Umum:

If (Kondisi) Then

       (Perintah)

End If

If – Then – Else merupakan bentuk percabangan yang akan menjalankan perintah pada then jika kondisi pada If terpenuhi, dan akan menjalankan perintah pada Else jika kondisi tidak terpenuhi. Biasanya perintah ini untuk kondisi ganda.

Bentuk Umum:

 If (Kondisi) then

     (Perintah 1)

Else

     (Perintah 2)

End If

Pada dasarnya penggunaan Select Case sama dengan IF hanya saja terdapat sedikit perbedaan pada struktur penulisannya.

Bentuk Umum:

Select Case (Pilihan)

Case 1 (Perintah 1)

Case 2 (Perintah 2)

Case 3 (Perintah 3)

… (Apabila lebih dari 3 Case)

End Select

Perulangan pada Visual Basic

Apa itu Perulangan ?

Perulangan ialah sebuah metode program untuk mengecek ulang terus menerus / berulang suatu blok program dalam batasan pada blok program tersebut

Macam – macam Perulangan pada Visual Basic

Perulangan For … Next digunakan untuk melakukan perulangan dengan jumlah tertentu yang dikehendaki.

Bentuk Umum:

For Indeks = (NilaiAwal) To (NilaiAkhir) Step (step)

(Pernyataan)

…..

Next Indeks

Do While merintahkan program untuk melakukan perulangan apabila kondisi persyaratan masih bernilai True. Apabila kondisi persyaratan bernilai False maka program akan keluar dari perulangan.

Bentuk Umum :

Do While ( Kondisi )

( Pernyataan )

…..

Loop

Pada perulangan Do While perulangan akan terus berjalan selama kondisi bernilai True dan akan berhenti jika kondisi bernilai False sedangkan pada perulangan Do Until perulangan akan terus berjalan apabila kondisi bernilai salah dan akan berhenti jika kondisi bernilai True.

Bentuk Umum :

Do

( Pernyataan )

….

Loop until ( Kondisi )

Perulangan While … Wend digunakan saat kita ingin pernyataan pada program dijalankan selama kondisi ekspresi yang di tetapkan masih bernilai True.

Bentuk Umum :

While ( ekspresi )

( Pernyataan )

….

Wend

Percabangan adalah metode yang ada pada semua bahasa pemrograman yang mengijinkan user untuk memilih dan mengeksekusi blok kode dan mengabaikan blok kode yang lain. Sedangkan Perulangan adalah metode yang terdapat pada semua bahasa pemrograman yang mengijinkan kita untuk mengeksekusi blok code berulang-ulang dalam kurun nilai tertentu. 

Macam-macam bentuk percabangan pada Visual Basic 6 :

1. If ....Then 

Digunakan untuk memilih dua kondisi atau lebih dengan memeriksa syarat pada tiap kondisi, jika syarat pada kondisi 1 bernilai benar ( True ) maka program akan menjalankan pernyataan 1, jika kondisi 1 bernilai salah ( False ) maka program akan memeriksa kondisi 2, jika syarat pada kondisi 2 benar ( True ) maka program akan menjalankan pernyataan 2 jika kondisi 2 benilai salah ( False ) maka program akan memeriksa kondisi berikutnya dan seterusnya hingga kondisi terakhir pada percabangan. 

Bentuk Umum :

If Kondisi1 Then Statement1 ElseIf Kondisi2 Then Statement2 Else Statement3 End if

2.Select Case

Kegunaannya sama dengan bentuk If....Then namun Select Case digunakan dalam alur program yang membutuhkan banyak percabangan.
Bentuk Umum :
Select Case PilihanCase 1 Statement1 …Case 2 Statement2 …Case 3 Statement3 …End Select 

Macam-macam bentuk perulangan :

1. Do While … Loop

Kata while dalam pernyataan Do While merintahkan program untuk melakukan perulangan apabila kondisi persyaratan masih bernilai True. Apabila kondisi persyaratan bernilai False maka program akan keluar dari perulangan dan berpindah ke kode program berikutnya. Bentuk umum :

Do While Kondisi
Pernyataan
…
LoopSintaks di atas adalah bentuk Do While dimana kondisi akhir perulangan terletak di awal sedangkan bentuk Do While yang letak kondisi akhirnya di akhir adalah sbb :

Do
Statement
……
Loop While Kondisi

2. Do Until … Loop

Pada dasarnya, perulangan DO Until adalah sama dengan perulangan DO While. Yang membedakannya adalah pada perulangan Do While perulangan akan terus berjalan selama kondisi bernilai True dan akan berhenti jika kondisi bernilai False sedangkan pada perulangan Do Until perulangan akan terus berjalan apabila kondisi bernilai salah dan akan brhenti jika kondisi bernilai True. 

Bentuk Umum :

Do Until Kondisi
Pernyataan
…
LoopPerulangan Do Until juga memiliki bentuk sintaks yang lain dimana kondisi diletakkan di akhir pernyataan perulangan. Bentuk sintaksnya adalah sbb :

Do
Pernyataan
……
Loop Until Kondisi

3. While … Wend

Perulangan While … Wend digunakan saat kita ingin pernyataan pada program dijalankan selama kondisi ekspresi yang di tetapkan masih bernilai True.

Bentuk Umum :

Pernyataan
…
Wend

4. For … Next
Perulangan For … Next digunakan untuk melakukan perulangan dengan jumlah tertentu yang kita kehendaki. Kita harus mendeklarasikan sebuah variabel yang akan digunakan sebagai indeks untuk perulangan.
 
Bentuk Umum :

For Indeks = NilaiAwal To NilaiAkhir
Pernyataan
…..
Next Indeks


Contoh Programnya pada Visual Basic 6 : 1.Buat Form seperti pada gambar berikut


2. 2X klik pada dimana saja pada form untuk membuka code editor dan tuliskan code :


Private Sub Form_Load()
Combo1.AddItem ("A")
Combo1.AddItem ("B")
Combo1.AddItem ("C")
End Sub 

3. 2X klik pada command button "Hitung" untuk membuka code editor 

Private Sub Command1_Click()
Dim upah As Long
jk = Text2.TextIf Text1.Text = "" Or Text2.Text = "" Or Combo1.Text = "" Then
MsgBox "data belum lengkap", vbCritical, "error"
Exit Sub
End IfIf Not IsNumeric(Text2.Text) Then
MsgBox " Jam kerja harus angka", vbCritical, "error"
Else
Label5.Caption = Text1.Text
Label6.Caption = Combo1.Text
Label7.Caption = Text2.Text
Select Case Combo1.Text
Case "A"
If jk < 48 Then
upah = jk * 2000
Else
upah = Val(48) * 2000 + (jk - 48) * 2000
End If
Label8.Caption = upah
Case "B"
If jk < 48 Then
upah = jk * 3000
Else
upah = Val(48) * 3000 + (jk - 48) * 2000
End If
Label8.Caption = upah
Case "C"
If jk < 48 Then
upah = jk * 4000
Else
upah = Val(48) * 4000 + (jk - 48) * 2000
End If
Label8.Caption = upah
End Select
End If
End Sub

4. 2X Klik pada tombol "Exit: untuk membuka jendela code editor 

Private Sub Command2_Click()
End
End Sub

Percabangan dan Perulangan pada Visual Basic

Percabangan adalah metode yang ada pada semua bahasa pemrograman yang mengijinkan user untuk memilih dan mengeksekusi blok kode dan mengabaikan blok kode yang lain. Sedangkan Perulangan adalah metode yang terdapat pada semua bahasa pemrograman yang mengijinkan kita untuk mengeksekusi blok code berulang-ulang dalam kurun nilai tertentu. 

Macam-macam bentuk percabangan pada Visual Basic 6 :

1. If ....Then 

Digunakan untuk memilih dua kondisi atau lebih dengan memeriksa syarat pada tiap kondisi, jika syarat pada kondisi 1 bernilai benar ( True ) maka program akan menjalankan pernyataan 1, jika kondisi 1 bernilai salah ( False ) maka program akan memeriksa kondisi 2, jika syarat pada kondisi 2 benar ( True ) maka program akan menjalankan pernyataan 2 jika kondisi 2 benilai salah ( False ) maka program akan memeriksa kondisi berikutnya dan seterusnya hingga kondisi terakhir pada percabangan. 

Bentuk Umum :

If Kondisi1 Then Statement1 ElseIf Kondisi2 Then Statement2 Else Statement3 End if

2.Select Case

Kegunaannya sama dengan bentuk If....Then namun Select Case digunakan dalam alur program yang membutuhkan banyak percabangan.
Bentuk Umum :
Select Case PilihanCase 1 Statement1 …Case 2 Statement2 …Case 3 Statement3 …End Select 

Macam-macam bentuk perulangan :

1. Do While … Loop

Kata while dalam pernyataan Do While merintahkan program untuk melakukan perulangan apabila kondisi persyaratan masih bernilai True. Apabila kondisi persyaratan bernilai False maka program akan keluar dari perulangan dan berpindah ke kode program berikutnya. Bentuk umum :

Do While Kondisi
Pernyataan
…
LoopSintaks di atas adalah bentuk Do While dimana kondisi akhir perulangan terletak di awal sedangkan bentuk Do While yang letak kondisi akhirnya di akhir adalah sbb :

Do
Statement
……
Loop While Kondisi

2. Do Until … Loop

Pada dasarnya, perulangan DO Until adalah sama dengan perulangan DO While. Yang membedakannya adalah pada perulangan Do While perulangan akan terus berjalan selama kondisi bernilai True dan akan berhenti jika kondisi bernilai False sedangkan pada perulangan Do Until perulangan akan terus berjalan apabila kondisi bernilai salah dan akan brhenti jika kondisi bernilai True. 

Bentuk Umum :

Do Until Kondisi
Pernyataan
…
LoopPerulangan Do Until juga memiliki bentuk sintaks yang lain dimana kondisi diletakkan di akhir pernyataan perulangan. Bentuk sintaksnya adalah sbb :

Do
Pernyataan
……
Loop Until Kondisi

3. While … Wend

Perulangan While … Wend digunakan saat kita ingin pernyataan pada program dijalankan selama kondisi ekspresi yang di tetapkan masih bernilai True.

Bentuk Umum :

Pernyataan
…
Wend

4. For … Next
Perulangan For … Next digunakan untuk melakukan perulangan dengan jumlah tertentu yang kita kehendaki. Kita harus mendeklarasikan sebuah variabel yang akan digunakan sebagai indeks untuk perulangan.
 
Bentuk Umum :

For Indeks = NilaiAwal To NilaiAkhir
Pernyataan
…..
Next Indeks

<![if !supportLineBreakNewLine]>

<![endif]>

Contoh Programnya pada Visual Basic 6 : 1.Buat Form seperti pada gambar berikut

<![if !vml]><![endif]>

2. 2X klik pada dimana saja pada form untuk membuka code editor dan tuliskan code :

Private Sub Form_Load()
Combo1.AddItem ("A")
Combo1.AddItem ("B")
Combo1.AddItem ("C")
End Sub 

3. 2X klik pada command button "Hitung" untuk membuka code editor 

Private Sub Command1_Click()
Dim upah As Long
jk = Text2.TextIf Text1.Text = "" Or Text2.Text = "" Or Combo1.Text = "" Then
MsgBox "data belum lengkap", vbCritical, "error"
Exit Sub
End IfIf Not IsNumeric(Text2.Text) Then
MsgBox " Jam kerja harus angka", vbCritical, "error"
Else
Label5.Caption = Text1.Text
Label6.Caption = Combo1.Text
Label7.Caption = Text2.Text
Select Case Combo1.Text
Case "A"
If jk < 48 Then
upah = jk * 2000
Else
upah = Val(48) * 2000 + (jk - 48) * 2000
End If
Label8.Caption = upah
Case "B"
If jk < 48 Then
upah = jk * 3000
Else
upah = Val(48) * 3000 + (jk - 48) * 2000
End If
Label8.Caption = upah
Case "C"
If jk < 48 Then
upah = jk * 4000
Else
upah = Val(48) * 4000 + (jk - 48) * 2000
End If
Label8.Caption = upah
End Select
End If
End Sub

4. 2X Klik pada tombol "Exit: untuk membuka jendela code editor 

Private Sub Command2_Click()
End
End Sub

Video yang berhubungan

Postingan terbaru

LIHAT SEMUA