Program Perulangan menggunakan VB 2012.

Fungsi Perulangan ( looping ) di gunakan untuk melakukan pengulangan terhadap kondisi Array
bentuk Perulangan ada 4, yaitu:

1. FOR – NEXT
2. DO – LOOP
3. DO –WHILE
4. DO – UNTIL

 Dan kali saya menggunakan For-Next untuk membuat Program Sederhana menggunakan Visual Studio 2012.

Baik lah, Sekarang kita langsung buka Aplikasi Visual Studio 2012. Buat lah From seperti ini .

1. File -> New Project -> Windows Form Aplication -> langsung tampil Form1vb.
2. dan langsung  buatlah Form Seperti  berikut : 

  

Buatlah!. Pada Toolbox pilih dan drag ke Form yang tersedia :

1. ListBox ( Silahkan atur pada jendela Properties Font dan besarnya huruf sesuka Anda ).
2. GrupBox ( Pada Properties =>  text:  ganti dengan nama " Perkalian " )
3. Radiobutton ( Pada Properties => text: ganti dengan nama " Single " )
4. Radiobutton 2 ( Pada  Properties +> text: ganti dengan nama " Multiple " )
5. Texbox1
6. Label1 ( Pada Properties =>  text: ganti dengan " s/d " )
7. Textbox2 lagi
8. Groupbox ( Pada Properties => text:  ganti dengan " Pengali " )
9. TextBox3
10. Button ( Pada Properties => text: ganti dengan " PROSES " )

 1.Sekarang masukan Script Berikut ini dengan menekan Tombol Button " Proses " Copykan kode berikut  antara:  privat sub dan End Sub .

1. If RadioButton2.Checked = True Then
2.             Dim A, B, C As Integer
3.             ListBox1.Items.Clear()
4.             For A = TextBox1.Text To TextBox2.Text Step 1
5.                 For B = 1 To TextBox3.Text Step 1
6.                     C = A * B
7.                     If A = 1 Then
8.                         ListBox1.Items.Add(A & "x" & B & "=" & C)
9.                     ElseIf A = 2 Then
10.                         ListBox1.Items.Add(A & "x" & B & "=" & C)
11.                     Else
12.                         ListBox1.Items.Add(A & "x" & B & "=" & C)
13.                     End If
14.                 Next
15.                 ListBox1.Items.Add("--------------")
16.             Next
17.         ElseIf RadioButton1.Checked = True Then
18.             Dim A, B, C As Integer
19.             ListBox1.Items.Clear()
20.             For A = 1 To TextBox3.Text Step 1
21.                 For B = 1 To TextBox3.Text Step 1
22.                     C = A * B
23.                     If A = 1 Then
24.                         ListBox1.Items.Add(A & "x" & B & "=" & C)
25.                     ElseIf A = 2 Then
26.                         ListBox1.Items.Add(A & "x" & B & "=" & C)
27.                     Else
28.                         ListBox1.Items.Add(A & "x" & B & "=" & C)
29.                     End If
30.                 Next
31.                 ListBox1.Items.Add("--------------")
32.             Next
33.         End If

    

2. Sekarang masukan Script Berikut ini dengan menekan Tombol Button " Reset " Copykan kode berikut  antara:  privat sub dan End Sub .

1.         ListBox1.Items.Clear()
2.         TextBox1.Clear()
3.         TextBox2.Clear()
4.         TextBox3.Clear()
5.         RadioButton1.Checked = False
6.         RadioButton2.Checked = False

-----------------------------------------------------------------------------------------------------------------------

Nah silahkan  tekan tombol  F5 ( untuk melakukan Proses Debug ),
jika :

• Tombol single kita pilih
• TextBox3 atau Pengali = 3
• Tekan Tombol " PROSES "

Maka akan Muncul tampilan berikut :

Jika anda pilih Tombol Multiple ( textBox1=2)  s/d (textBoxt2=4) dan Pengali ( textbox3=3)
Maka inilah tampilanya :

Jika anda pilih Tombol Reset. Maka inilah tampilanya :

SELESAI