malwww
- 1st May 2009, 02:11
please help i want to make a digital clock using picbasic pro and pic 16f84a and shift register ic 74hc164 4 digit lcd and i tested the instriction shiftout it works good but i dont know much about variables and this if my first test program it count from 0 to 9 please i need help how to use variables with shiftout and if there r any other ways thank you .
Include "modedefs.bas"
DEFINE SHIFT_PAUSEUS 1000
TRISB = 0
TRISA = 1
main:
porta.0 = 0
SHiftOUT portb.0,portb.1,LSBFIRST,[252\8]
pause 1000
SHiftOUT portb.0,portb.1,LSBFIRST,[96\8]
pause 1000
SHiftOUT portb.0,portb.1,LSBFIRST,[218\8]
pause 1000
SHiftOUT portb.0,portb.1,LSBFIRST,[242\8]
pause 1000
SHiftOUT portb.0,portb.1,LSBFIRST,[102\8]
pause 1000
SHiftOUT portb.0,portb.1,LSBFIRST,[182\8]
pause 1000
SHiftOUT portb.0,portb.1,LSBFIRST,[190\8]
pause 1000
SHiftOUT portb.0,portb.1,LSBFIRST,[224\8]
pause 1000
SHiftOUT portb.0,portb.1,LSBFIRST,[254\8]
pause 1000
SHiftOUT portb.0,portb.1,LSBFIRST,[246\8]
pause 1000
goto main
end
Include "modedefs.bas"
DEFINE SHIFT_PAUSEUS 1000
TRISB = 0
TRISA = 1
main:
porta.0 = 0
SHiftOUT portb.0,portb.1,LSBFIRST,[252\8]
pause 1000
SHiftOUT portb.0,portb.1,LSBFIRST,[96\8]
pause 1000
SHiftOUT portb.0,portb.1,LSBFIRST,[218\8]
pause 1000
SHiftOUT portb.0,portb.1,LSBFIRST,[242\8]
pause 1000
SHiftOUT portb.0,portb.1,LSBFIRST,[102\8]
pause 1000
SHiftOUT portb.0,portb.1,LSBFIRST,[182\8]
pause 1000
SHiftOUT portb.0,portb.1,LSBFIRST,[190\8]
pause 1000
SHiftOUT portb.0,portb.1,LSBFIRST,[224\8]
pause 1000
SHiftOUT portb.0,portb.1,LSBFIRST,[254\8]
pause 1000
SHiftOUT portb.0,portb.1,LSBFIRST,[246\8]
pause 1000
goto main
end