 | Artikel Visual Basic |
| Basis Data - Database |
| Pemrograman Grafis |
| E-Book Tutorial |
| Video Kursus - Tutorial |
| Software - Open Source code |
| W E B Programming |
| Windows System |
| XBasicFramework |
| Berbagi Pengalaman |
| Quick Basic |
|
Software gratis! Open Source
Code
|
|
|
|
|
Perulangan (Looping)
Private Sub Command1_Click()
For i = 1 To 10
Picture1.Print i;
Next i
End Sub
'-----------------
Private Sub Command2_Click()
Do i = i + 1
Picture2.Print i;
Loop Until i = 10
End Sub
'-------------------
Private Sub Command3_Click()
While i < 10
i = i + 1
Picture3.Print i;
Wend
End Sub
'---------------------
Private Sub Command4_Click()
Do While i < 10
i = i + 1
Picture4.Print i;
Loop
End Sub
'------------------------
Private Sub Command5_Click()
Do i = i + 1
Picture5.Print i;
If i = 10 Then Exit Do
Loop
End Sub
download kode di sini |
|