Program For Bersarang Vb 6.0
Home »
Pemrograman Visual
» Program For Bersarang Vb 6.0
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....
Slamat siang om,
ReplyDeleteSaya 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