Wiki

Pemrograman Visual:Perulangan: Difference between revisions

← Older edit
Kangtain (talk | contribs)
Bureaucrats, Interface administrators, Suppressors, Administrators
9,154 edits
VisualWikitext
No edit summary
 
(9 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 Prak8.
 
*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:
{| class="wikitable"
{| class="wikitable"
|+
|+
Line 109: Line 103:
|}
|}


* Klik ganda pada Form1, kemudian ketikkan kode program berikut ini:
* Klik ganda pada <code>Form1</code>, kemudian ketikkan kode program berikut ini:
 
<syntaxhighlight lang="bash">
Dim tgl, bln, thn As Integer
For tgl = 1 To 31
    cmbTgl.Items.Add(tgl)
Next tgl
 
For bln = 1 To 12
    cmbBln.Items.Add(bln)
Next bln


For thn = 1900 To 9999
Dim tgl, bln, thn As Integer
    CmbThn.Items.Add(thn)
For tgl = 1 To 31
Next thn
    cmbTgl.Items.Add(tgl)
</syntaxhighlight>
Next tgl
For bln = 1 To 12
    cmbBln.Items.Add(bln)
Next bln
For thn = 1900 To 9999
    CmbThn.Items.Add(thn)
Next thn


*Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.
*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>.
*Simpan aplikasi Anda.
*Simpan aplikasi Anda.


===Perulangan WHILE===
===Perulangan WHILE===
*Tambahkan Form baru, dengan nama Form3.
 
*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:
{| class="wikitable"
{| class="wikitable"
|+
|+
Line 170: Line 165:
|}
|}


* Klik ganda pada Proses, 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 X%
    ListBox1.Items.Clear()
X = TxtAngka.Text
    angka = 1
Do
    While angka <= Val(TxtBatas.Text)
    X = X Mod 2
        ListBox1.Items.Add(angka)
    If X = 0 Then
        angka = angka + 1
        MsgBox("Bilangan Genap")
    End While
        Exit Do
    ElseIf X = 1 Then
        MsgBox("Bilangan Ganjil")
        Exit Do
    End If
Loop While Not X
</syntaxhighlight>


*Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.
*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>.
*Simpan aplikasi Anda.
*Simpan aplikasi Anda.
=== Perulangan DO WHILE…LOOP ===
* Tambahkan Form baru, dengan nama <code>Form4</code>.
* 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:
{| class="wikitable"
|+
!Object
!Properties
!Nilai
|-
| rowspan="2" |Form1
|Name
|Form1
|-
|Text
|Perulangan DO WHILE … LOOP
|-
|Label1
|Text
|Angka
|-
|TextBox1
|Name
|TxtAngka
|-
| rowspan="2" |Button1
|Name
|Button1
|-
|Text
|Proses
|}
* Klik ganda pada <code>Proses</code>, kemudian ketikkan kode program berikut ini:
        Dim X%
        X = TxtAngka.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
* 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>.
* Simpan aplikasi Anda.


===Perulangan FOR EACH … IN…NEXT===
===Perulangan FOR EACH … IN…NEXT===
*Tambahkan Form baru, dengan nama Form5.
*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:
{| class="wikitable"
{| class="wikitable"
|+
|+
Line 229: Line 273:
|}
|}


* Klik ganda pada Proses, kemudian ketikkan kode program berikut ini:
* Klik ganda pada <code>Proses</code>, kemudian ketikkan kode program berikut ini:
 
For Each ctrl In Controls
    ctrl.Text = "Tombol"
Next
 
*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>.
*Simpan aplikasi Anda.
 
[[Category:Materi]]
[[Category:Matkul]]
[[Category:Pemrograman Visual]]
Retrieved from "https://kangtain.com/wiki/index.php/Pemrograman_Visual:Perulangan"