Pemrograman Visual:Perulangan: Difference between revisions

← Older edit

VisualWikitext

@@ Line 5: / Line 5: @@
 For … Next merupakan suatu control perulangan yang mempunayi nilai tetap, jumlah perulangan telah diketahui sebelumnya. Format penulisannya adalah sebagai berikut:
-<syntaxhighlight lang="vbscript">
+ For Counter=niali_awal to nilai_akhir
-For Counter=niali_awal to nilai_akhir
+ [ Perintah ]
-[ Perintah ]
+ Next (Counter)
-Next (Counter)
-</syntaxhighlight>
 ===For Each … In … Next===
@@ Line 17: / Line 15: @@
 Format Penulisannya:
-<syntaxhighlight lang="vbscript">
+ For Each elemen In Group
-For Each elemen In Group
+ [ Perintah ]
-[ Perintah ]
+ [ Perintah ]
-[ Perintah ]
+ Next [elemen]
-Next [elemen]
-</syntaxhighlight>
 ===While …===
@@ Line 30: / Line 26: @@
 Format Penulisannya:
-<syntaxhighlight lang="vbscript">
+ While (kondisi)
-While (kondisi)
+ [perintah1]
-[perintah1]
+ [perintah2]
-[perintah2]
+ …
-…
+ End While
-End While
-</syntaxhighlight>
 ===DO While … LOOP===
@@ Line 44: / Line 38: @@
 Format penulisannya :
-<syntaxhighlight lang="vbscript">
+ DO While (kondisi)
-DO While (kondisi)
+ [perintah1]
-[perintah1]
+ [Exit Do]
-[Exit Do]
+ [perintah2]
-[perintah2]
+ LOOP
-LOOP
-</syntaxhighlight>
 Bentuk 2
-<syntaxhighlight lang="vbscript">
+ DO
-DO
+ [perintah1]
-[perintah1]
+ [Exit Do]
-[Exit Do]
+ [perintah2]
-[perintah2]
+ LOOP While (kondisi)
-LOOP While (kondisi)
-</syntaxhighlight>
 ===DO UNTIL===
@@ Line 68: / Line 58: @@
 Format penulisannya:
-<syntaxhighlight lang="vbscript">
+ DO
-DO
+ [perintah1]
-[perintah1]
+ LOOP UNTIL
-LOOP UNTIL
-</syntaxhighlight>
 ==Praktikum==
@@ Line 117: / Line 105: @@
 * Klik ganda pada <code>Form1</code>, kemudian ketikkan kode program berikut ini:
-<syntaxhighlight lang="vbscript" line="1">
+ Dim tgl, bln, thn As Integer
-Dim tgl, bln, thn As Integer
+ For tgl = 1 To 31
-For tgl = 1 To 31
+     cmbTgl.Items.Add(tgl)
-    cmbTgl.Items.Add(tgl)
+ Next tgl
-Next tgl
+ For bln = 1 To 12
-For bln = 1 To 12
+     cmbBln.Items.Add(bln)
-    cmbBln.Items.Add(bln)
+ Next bln
-Next bln
+ For thn = 1900 To 9999
-For thn = 1900 To 9999
+     CmbThn.Items.Add(thn)
-    CmbThn.Items.Add(thn)
+ Next thn
-Next thn
-</syntaxhighlight>
 *Jalankan aplikasi dengan menekan tombol <code>F5</code> (di keyboard), atau melalui ikon <code>Start Debugging</code> di toolbar, atau melalui menu <code>Debug</code> > <code>Start Debuging</code>.
@@ Line 181: / Line 167: @@
 * Klik ganda pada <code>Proses</code>, kemudian ketikkan kode program berikut ini:
-<syntaxhighlight lang="vbscript" line="1">
+         Dim angka As Integer
-        Dim angka As Integer
+     ListBox1.Items.Clear()
-    ListBox1.Items.Clear()
+     angka = 1
-    angka = 1
+     While angka <= Val(TxtBatas.Text)
-    While angka <= Val(TxtBatas.Text)
+         ListBox1.Items.Add(angka)
-        ListBox1.Items.Add(angka)
+         angka = angka + 1
-        angka = angka + 1
+     End While
-    End While
-</syntaxhighlight>
 *Jalankan aplikasi dengan menekan tombol <code>F5</code> (di keyboard), atau melalui ikon <code>Start Debugging</code> di toolbar, atau melalui menu <code>Debug</code> > <code>Start Debuging</code>.
@@ Line 231: / Line 215: @@
 * Klik ganda pada <code>Proses</code>, kemudian ketikkan kode program berikut ini:
-<syntaxhighlight lang="vbscript" line="1">
-        Dim X%
+         Dim X%
-        X = TxtAngka.Text
+         X = TxtAngka.Text
-        Do
+         Do
-            X = X Mod 2
+             X = X Mod 2
-            If X = 0 Then
+             If X = 0 Then
-                MsgBox("Bilangan Genap")
+                 MsgBox("Bilangan Genap")
-                Exit Do
+                 Exit Do
-            ElseIf X = 1 Then
+             ElseIf X = 1 Then
-                MsgBox("Bilangan Ganjil")
+                 MsgBox("Bilangan Ganjil")
-                Exit Do
+                 Exit Do
-            End If
+             End If
-        Loop While Not X
+         Loop While Not X
-</syntaxhighlight>
 * Jalankan aplikasi dengan menekan tombol <code>F5</code> (di keyboard), atau melalui ikon <code>Start Debugging</code> di toolbar, atau melalui menu <code>Debug</code> > <code>Start Debuging</code>.
@@ Line 292: / Line 275: @@
 * Klik ganda pada <code>Proses</code>, kemudian ketikkan kode program berikut ini:
-<syntaxhighlight lang="vbscript" line="1">
+ For Each ctrl In Controls
-For Each ctrl In Controls
+     ctrl.Text = "Tombol"
-    ctrl.Text = "Tombol"
+ Next
-Next
-</syntaxhighlight>
 *Jalankan aplikasi dengan menekan tombol <code>F5</code> (di keyboard), atau melalui ikon <code>Start Debugging</code> di toolbar, atau melalui menu <code>Debug</code> > <code>Start Debuging</code>.