Lampu Zig - Zag Visual Basic / Paskal

$regfile = "m16def.dat"
Disini saya akan membagi semua program untuk membuat lampu ZigZag di program VB dan atau paskal. Silahkan mencoba.. Tapi harus dilengkapi hardwarenya terlebih dahulu :) :)


$crystal = 8000000
Config Portc = Output
Dim A(8) As Integer
        A(1) = 0
        A(2) = 5
        A(3) = 2
        A(4) = 7
        A(5) = 3
        A(6) = 6
        A(7) = 1
        A(8) = 4
        Dim I As Integer
Do
   For I = 1 To 8
      Portc = 0
      Waitms 300
      Portc.a(i) = 1
      Waitms 300
   Next
Loop


Program diatas untuk membuat #Lampu Zig - Zag Visual Basic / Paskal dengan syarat harus install baskomnya dulu :)
Klik Disini untuk download aplikasinya