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.