Wiki

Pemrograman Visual:Perulangan: Difference between revisions

← Older edit
Kangtain (talk | contribs)
Bureaucrats, Interface administrators, Suppressors, Administrators
9,154 edits
VisualWikitext
No edit summary
 
(5 intermediate revisions by the same user not shown)
Line 5: Line 5:
For … Next merupakan suatu control perulangan yang mempunayi nilai tetap, jumlah perulangan telah diketahui sebelumnya. Format penulisannya adalah sebagai berikut:
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===
===For Each … In … Next===
Line 17: Line 15:
Format Penulisannya:
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 …===
===While …===
Line 30: Line 26:
Format Penulisannya:
Format Penulisannya:


<syntaxhighlight lang="vbscript">
While (kondisi)
While (kondisi)
[perintah1]
[perintah1]
[perintah2]
[perintah2]
…
…
End While
End While
</syntaxhighlight>


===DO While … LOOP===
===DO While … LOOP===
Line 44: Line 38:
Format penulisannya :
Format penulisannya :


<syntaxhighlight lang="vbscript">
DO While (kondisi)
DO While (kondisi)
[perintah1]
[perintah1]
[Exit Do]
[Exit Do]
[perintah2]
[perintah2]
LOOP
LOOP
</syntaxhighlight>


Bentuk 2
Bentuk 2


<syntaxhighlight lang="vbscript">
DO
DO
[perintah1]
[perintah1]
[Exit Do]
[Exit Do]
[perintah2]
[perintah2]
LOOP While (kondisi)
LOOP While (kondisi)
</syntaxhighlight>


===DO UNTIL===
===DO UNTIL===
Line 68: Line 58:
Format penulisannya:
Format penulisannya:


<syntaxhighlight lang="vbscript">
DO
DO
[perintah1]
[perintah1]
LOOP UNTIL
LOOP UNTIL
</syntaxhighlight>


==Praktikum==
==Praktikum==


===Perulangan FOR===
===Perulangan FOR===
*Buat project baru dengan nama <code>Prak8</code>.
*Buat project baru dengan nama <code>Prak8</code>.
*Desain Tampilan form seperti gambar berikut ini:
*Desain Tampilan form seperti gambar berikut ini:
[[File:Pv-perulangan 84958.png|center|thumb]]
*Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:
*Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:


Line 113: Line 105:
* Klik ganda pada <code>Form1</code>, kemudian ketikkan kode program berikut ini:
* 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>.
*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 132: Line 122:


===Perulangan WHILE===
===Perulangan WHILE===
*Tambahkan Form baru, dengan nama <code>Form3</code>.
*Tambahkan Form baru, dengan nama <code>Form3</code>.
*Desain Tampilan form seperti gambar berikut ini:
*Desain Tampilan form seperti gambar berikut ini:
[[File:Pv-perulangan 92038.png|center|thumb]]
*Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:
*Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:


Line 175: Line 167:
* Klik ganda pada <code>Proses</code>, kemudian ketikkan kode program berikut ini:
* 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>.
*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 192: Line 182:
* Tambahkan Form baru, dengan nama <code>Form4</code>.
* Tambahkan Form baru, dengan nama <code>Form4</code>.
* Desain Tampilan form seperti gambar berikut ini:
* Desain Tampilan form seperti gambar berikut ini:
[[File:Pv-perulangan 107854.png|center|thumb]]
* Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:
* Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:


Line 224: Line 215:


* Klik ganda pada <code>Proses</code>, kemudian ketikkan kode program berikut ini:
* 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>.
* 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 245: Line 235:
*Tambahkan Form baru, dengan nama <code>Form5</code>.
*Tambahkan Form baru, dengan nama <code>Form5</code>.
*Desain Tampilan form seperti gambar berikut ini:
*Desain Tampilan form seperti gambar berikut ini:
[[File:Pv-perulangan 1183948.png|center|thumb]]
*Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:
*Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:


Line 284: Line 275:
* Klik ganda pada <code>Proses</code>, kemudian ketikkan kode program berikut ini:
* 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>.
*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>.
Retrieved from "https://kangtain.com/wiki/index.php/Pemrograman_Visual:Perulangan"