Hey guys, ini materi visual basic tentang membuat n baris bilangan.
yang dipakai itu 1 label , 2 textbox dan 1 commandbutton..
gampang kok buatnya. :)
kodingannya
Private Sub Command1_Click()
N = Val(Text1)
For baris = 1 To N
If baris Mod 2 = 0 Then
awal = 5: akhir = 1
langkah = -1
Else
awal = 1: akhir = 5a
langkah = 1
End If
kal = ""
For i = awal To akhir Step langkah
kal = kal & Str(i)
Next i
List1.AddItem kal
Next baris
End Sub
semoga, bermanfaat ya postingannya ini :)
