update terbaru haya di barliannet.com

Senin, 23 Maret 2015

menyalakan led dengan cara rotasi pakai bascom atmga 8535

cara menyalakan led dengan sistem rotasi







listening program pakai bascom



'barlianno creativ
$regfile = "m8535.dat"
$crystal = 12000000


Config Portc = Output                                       'port c sebagai output
Dim X As Integer
Portc = 0
Do


Portc = &B00000001                                          'meyalakan satu led
Waitms 100
For X = 1 To 8
Shift Portc , Left , 1
Waitms 100
Next X
 
Portc = &B10000000                                        'meyalakan satu led
Waitms 100
For X = 1 To 8
Shift Portc , Right , 1
Waitms 100
Next X


    
Portc = &B00000011                                     'meyalakan dua led
Waitms 100
For X = 1 To 8
Shift Portc , Left , 1
Waitms 100
Next X
                                                       
'meyalakan dua led  dst
 
Portc = &B11000000
Waitms 100
For X = 1 To 8
Shift Portc , Right , 1
Waitms 100
Next X

 
Portc = &B00000111
Waitms 100
For X = 1 To 8
Shift Portc , Left , 1
Waitms 100
Next X

 
Portc = &B11100000
Waitms 100
For X = 1 To 8
Shift Portc , Right , 1
Waitms 100
Next X
Portc = &B00001111
Waitms 100
For X = 1 To 8
Shift Portc , Left , 1
Waitms 100
Next X

 
Portc = &B11110000
Waitms 100
For X = 1 To 8
Shift Portc , Right , 1
Waitms 100
Next X
Portc = &B00011111
Waitms 100
For X = 1 To 8
Shift Portc , Left , 1
Waitms 100
Next X

 
Portc = &B11111000
Waitms 100
For X = 1 To 8
Shift Portc , Right , 1
Waitms 100
Next X
Portc = &B00111111
Waitms 100
For X = 1 To 8
Shift Portc , Left , 1
Waitms 100
Next X

 
Portc = &B11111100
Waitms 100
For X = 1 To 8
Shift Portc , Right , 1
Waitms 100
Next X
Portc = &B01111111
Waitms 100
For X = 1 To 8
Shift Portc , Left , 1
Waitms 100
Next X

 
Portc = &B11111110
Waitms 50
For X = 1 To 8
Shift Portc , Right , 1
Waitms 100
Next X
Loop

selamat mencoba

0 komentar:

Posting Komentar