15/12/2012

Program For Bersarang Vb 6.0

AksFullShare-Beberapa Hari/Minggu yang lalu saya telah berbagi tentang pemprograman visual basic 6.0 yaitu "Program Perulangan For Next" dan "Program Perulangan Do While" nah kali ini masih di visual basic untuk kali ini saya akan berbagi Contoh sederhana "Program For Bersarang".

Berikut Screen Shootnya :



Koding/Kode Program :

Private Sub Command1_Click()
For baris = 1 To 6
    kal = ""
    For i = 1 To 5
        kal = kal & Str(i)
    Next i
    List1.AddItem kal
Next baris
For baris = 1 To 5
    kal = ""
    For i = 1 To baris
        kal = kal & Str(i)
    Next i
    List2.AddItem kal
Next baris
       
End Sub


Semoga apa yang saya share selalu bermanfaat buat para pengunjung....

1 comment:

  1. Slamat siang om,

    Saya punya contoh kasus,
    Nah, klw seumpama contoh :

    Text1.text : "1234"
    Text2.text : "2"

    Dari contoh di atas di eksekusi dan menghasilkan angka2 Unix dari hasil random serta angka yg sudah mengalami proses random itu tidak akan muncul lagi serta di akhiri dengan msgbox "data selesai" Dengan hasil :

    TextHasil_1(1).text : "12", TextHasil_1(1).text : "13", TextHasil_1(3).text : "14"
    TextHasil_1(4).text : "21", TextHasil_1(5).text : "23", TextHasil_1(6).text : "24"
    TextHasil_1(7).text : "31", TextHasil_1(8).text : "32", TextHasil_1(9).text : "34"
    TextHasil_1(10).text : "41", TextHasil_1(11).text : "42", TextHasil_1(12).text : "43"
    Msgbox "data selesai"

    Karena text2.text bernilai "2",
    Klw nilai text2.text bernilai "3", maka hasilnya : "123","124","132","134","142","143","213","214","231","234","241"243","312","314","321","324","341","342","412","413","421","423","431","432".
    Msgbox "data selesai"

    Mohon bantuannya om.. Terimakasih

    ReplyDelete

Ingat !!! Jangan Hanya Bisa Berkomentar, Berikanlah Solusi Dari Komentar Anda. Thanks