Wednesday 3 April 2013





Do Until Kondisi
Statemen1
       Statemen2
       ...
       StatemenN
Loop


  1. Rancangan from seperti diatas
  2. Tulis kode berikut didalam form1
Private Sub Form1_Load(Byval sender As system.object, Byval e As System.EventArgs) Handles MyBase. Load
Dim Halaman As Byte 
                                                                Halaman = 1
                                                                Do Until Halaman = 11
                                                                       LisBox1.Items.Add(Halaman)
                                                                       Halaman = Halaman + 1
                                                                Loop
                                                     End sub
                             End Class

Semoga Bermanfaat ya kawan-kawan......



Silahkan Tinggalkan Komentar Anda :

0 comments:

Blog Archive

Popular Posts