Pemrograman Visual:Perulangan: Difference between revisions
No edit summary |
|||
| Line 110: | Line 110: | ||
* Klik ganda pada Form1, kemudian ketikkan kode program berikut ini: | * Klik ganda pada Form1, 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 | |||
CmbThn.Items.Add(thn) | |||
Next thn | |||
</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 WHILE=== | |||
*Tambahkan Form baru, dengan nama Form3. | |||
*Desain Tampilan form seperti gambar berikut ini: | |||
*Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut: | |||