Wiki

Pemrograman Visual:Perulangan: Difference between revisions

← Older editNewer edit →
Kangtain (talk | contribs)
Bureaucrats, Interface administrators, Suppressors, Administrators
9,206 edits
VisualWikitext
Line 111: Line 111:
* Klik ganda pada Form1, kemudian ketikkan kode program berikut ini:
* Klik ganda pada Form1, kemudian ketikkan kode program berikut ini:


<syntaxhighlight lang="bash">
<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
Line 173: Line 173:


<syntaxhighlight lang="vbscript" line="1">
<syntaxhighlight lang="vbscript" line="1">
Dim X%
        Dim angka As Integer
X = TxtAngka.Text
    ListBox1.Items.Clear()
Do
     angka = 1
     X = X Mod 2
     While angka <= Val(TxtBatas.Text)
     If X = 0 Then
         ListBox1.Items.Add(angka)
         MsgBox("Bilangan Genap")
         angka = angka + 1
         Exit Do
     End While
    ElseIf X = 1 Then
        MsgBox("Bilangan Ganjil")
        Exit Do
     End If
Loop While Not X
</syntaxhighlight>
</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 F5 (di keyboard), atau melalui ikon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.
*Simpan aplikasi Anda.
*Simpan aplikasi Anda.
=== Perulangan DO WHILE…LOOP ===
* Tambahkan Form baru, dengan nama Form4.
* Desain Tampilan form seperti gambar berikut ini:
* 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 Proses, kemudian ketikkan kode program berikut ini:
<syntaxhighlight lang="vbscript" line="1">
        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
</syntaxhighlight>
* Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.
* Simpan aplikasi Anda.


===Perulangan FOR EACH … IN…NEXT===
===Perulangan FOR EACH … IN…NEXT===
Line 231: Line 280:
* Klik ganda pada Proses, kemudian ketikkan kode program berikut ini:
* Klik ganda pada Proses, kemudian ketikkan kode program berikut ini:


<syntaxhighlight lang="bash">
<syntaxhighlight lang="vbscript" line="1">
For Each ctrl In Controls
For Each ctrl In Controls
     ctrl.Text = "Tombol"
     ctrl.Text = "Tombol"
Line 239: Line 288:
*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 F5 (di keyboard), atau melalui ikon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.
*Simpan aplikasi Anda.
*Simpan aplikasi Anda.
[[Category:Materi]]
[[Category:Matkul]]
[[Category:Pemrograman Visual]]
Retrieved from "https://kangtain.com/wiki/index.php/Pemrograman_Visual:Perulangan"