Friday, July 20, 2012

Contoh-Contoh Looping Pada Visual Basic

Tipe 1

Private Sub Command1_Click()
x = Val(Text1)
For i = 1 To x
For j = 1 To i
Print j;
Next j
Print
Next i
End Sub
For i untuk menginput angka 1 sampai x
For j untuk menginput angka 1 sampai i
Jika x = 8 maka Print j akan mencetak angka 1, kemudian Next j akan mencetak angka selanjutnya, setelah itu Next i akan berganti ke angka selanjutnya dan berulang sampai dengan nilai x.

Tipe 2
Private Sub Command2_Click()
x = Val(Text1)
For i = x To 1 Step -1
For j = 1 To i
Print j;
Next j
Print
Next i
End Sub
For i untuk menginput angka x sampai 1 dan selanjutnya dikurang 1
For j untuk menginput angka 1 sampai i
Jika x = 8 maka Print j akan mencetak angka 8, kemudian Next j akan mencetak angka selanjutnya, setelah itu Next i akan berganti ke angka selanjutnya dan berulang sampai dengan angka 1.
Tipe 3
Private Sub Command3_Click()
x = Val(Text1.Text)
For a = 1 To x
For b = 1 To a
Print a;
Next b
Print
Next a
End Sub
For a untuk menginput angka 1 sampai x
For b untuk menginput angka 1 sampai a
Jika x = 8 maka Print a akan mencetak angka 1, kemudian Next b akan mencetak angka selanjutnya sesuai jumlah pada a, setelah itu Next a akan berganti ke angka selanjutnya dan berulang sampai dengan nilai x.

Tipe 4
Private Sub Command4_Click()
x = Val(Text1.Text)
For a = x To 1 Step -1
For b = 1 To a
Print a;
Next b
Print
Next a
End Sub
For a untuk menginput angka x sampai 1 dan selanjutnya dikurang 1
For b untuk menginput angka 1 sampai a
Jika x = 8 maka Print a akan mencetak angka 8, kemudian Next b akan mencetak angka selanjutnya sesuai jumlah pada a, setelah itu Next a akan berganti ke angka selanjutnya dan berulang sampai dengan angka 1.
Tipe 5
Private Sub Command5_Click()
x = Val(Text1.Text)
For i = 1 To x
For j = i To 1 Step -1
Print j;
Next j
Print
Next i
End Sub

For i untuk menginput angka 1 sampai x
For j untuk menginput angka i sampai 1 dan selanjutnya dikurang 1
Jika x = 8 maka Print i akan mencetak angka 1, kemudian Next j akan mencetak angka selanjutnya, setelah itu Next i akan berganti ke angka selanjutnya dan berulang sampai dengan nilai x.
Tipe 6
Private Sub Command6_Click()
x = Val(Text1.Text)
For a = x To 1 Step -1
For b = a To 1 Step -1
Print b;
Next b
Print
Next a
End Sub
For a untuk menginput angka x sampai 1 dan selanjutnya dikurang 1
For b untuk menginput angka a sampai 1 dan selanjutnya dikurang 1
Jika x = 8 maka Print b akan mencetak angka 8, kemudian Next b akan mencetak angka selanjutnya, setelah itu Next a akan berganti ke angka selanjutnya dan berulang sampai dengan angka 1.

Clear
Private Sub Command7_Click()
Form1.Cls
Text1.Text = ""
End Sub
Form1.Cls untuk menghapus seluruh cetakan yang berada di Form1
Text1.Text = "" untuk menghapus input yang berada di Text1
 
Source :  http://trimaaja.blogspot.com/



HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari contoh program visual basic 6.0 di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

No comments:

Post a Comment