this is wat i want to do but the serin cuz the 7seg leds blinkin and not working look at the quote #3 up u will see the schematic and the code to
Code:
@ DEVICE WDT_ON, PWRT_ON,MCLR_ON,CPD_OFF, BOD_OFF, PROTECT_OFF,INTRC_OSC_NOCLKOUT
Include "modedefs.bas"
DEFINE OSC 4
intcon = 0
vrcon = 0
CMCON = 7
SDO Var PortB.4
SCLK Var PortB.5
BTM Var PortB.6
BTN VAR PORTB.7
SEG var byte
Digit var byte[4]
index var byte
B0 var word
D0 var byte
PORTA = %00001
PORTB = %11000000
TRISA = %00001
TRISB = %11000000
B0 = 0
loop:
''''' i tryed clock but it cuz problem to
''''if i put here anythings so 7seg doesnt works,,,just blinkin
MAIN:
serin porta.0,n2400,[],b0 this serin cuzin delays so the 7seg led blink and 'stops
if btN = 0 then b0 = b0 - 1
if btm = 0 then b0 = b0 +1
D0 = B0 DIG 0
READ D0,DIGIT[0]
D0 = B0 DIG 1
READ D0,DIGIT[1]
D0 = B0 DIG 2
READ D0,DIGIT[2]
D0 = B0 DIG 3
READ D0,DIGIT[3]
for index = 0 to 3
seg = digit [index]
SHIFTOUT SDO,SCLK,0,[SEG\8]
PORTB.0[index] = 1
PAUSEUS 999
PORTB=0
NEXT INDEX
GOTO MAIN ' return not workling????
END
data @0,3,159,37,13,153,73,65,31,1,9
[/QUOTE]
Bookmarks