Didalam Command1_Click() adanya kodingan dan terdapat angka = val (Text1.Text), val sebagai tipe data string yang akan diubah ke tipe data integer hasilnya akan di masukan pada variable i. Selanjutnya List1.Clear yang fungsinya untuk mereset list1 atau membersihkan yang ada pada List1 For, i = 1 To angka Artinya perulangan di mulai dari angka 1 sampai (value) variable angka, bintang = String (I, “*”) variable bintang akan menampung Hasil variable i yang isinya “*” dan di List1 akan menambahkan isi dari variable bintang, End Sub untuk menutup codingan.
Didalam Command2_Click() adanya kodingan dan terdapat angka = val (Text1.Text), val sebagai tipe data string yang akan diubah ke tipe data integer hasilnya akan di masukan pada variable j. Selanjutnya List1.Clear yang fungsinya untuk mereset list1 atau membersihkan yang ada pada List1, For I = 1 To angka To j step -1, artinya perulangan di mulai dari angka (value) angka sampai variable j tetapi lakukan pengurangan nilai 1, bintang = String (I, “*”) variable bintang akan menampung Hasil variable i yang isinya “*” dan di List1 akan menambahkan isi dari variable bintang, End Sub untuk menutup codingan.
inilah hasil jadinya.
Leave a comment