728x90 AdSpace

  • Latest News

    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....
    • Blogger Comments
    • Facebook Comments

    1 Komentar Yang Masuk:

    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

    Item Reviewed: Program For Bersarang Vb 6.0 Rating: 5 Reviewed By: Ahmad Kurniawan Siddik
    Scroll to Top