Any one had any luck getting the Sure electronic display to work?
I've got the 6432 display (really two 6416, one above the other. I can get LEDs to light up - but not the ones I think shoul be activated.
The board works Ok - it comes with a C program that does it's stuff - I'm not familiar enough with C to go through the statement and 'work backwards.'
My code, that does not work is:
Code:
' File...... 8722 Sure Disp 01
' Purpose... Get Sure electronics dot matrix display working
' Date...... March 2010
clear
define OSC 40 ' Use HSPLL during compilation
' *****************************************************************************
' * *
' * VARIABLES *
' * *
' *****************************************************************************
Test_1 var long ' 32 bits
Test_2 var long ' 32 bits
Test_3 var long ' 32 bits
A var PORTC.0
B var PORTC.1
C var PORTC.2
D var PORTC.3
Data_R1 var PORTC.4
Data_R2 var PORTC.5
Data_G1 var PORTC.6
Data_G2 var PORTC.7
E var PORTE.0
Clock var PORTF.1
Latch var PORTF.0
' *****************************************************************************
' * *
' * INITIALISE *
' * *
' *****************************************************************************
ADCON1 = %00001111 ' All digital
CMCON = %00000111 ' Comparators off, this frees up PORTF
TRISA=0 : TRISB=0 : TRISC=0 : TRISD=0 : TRISE=0 : TRISF=0 : TRISG=0 : TRISH=0 : TRISJ=0
PORTA=0 : PORTB=0 : PORTC=0 : PORTD=0 : PORTE=0 : PORTF=0 : PORTG=0 : PORTH=0 : PORTJ=0
' *****************************************************************************
' * *
' * MAIN *
' * *
' *****************************************************************************
HIGH E ' Enables the display
low latch ' So PULSOUT goes high
Main:
Test_1 = %11111111111111111111111111111111 ' Active low - so all off
Test_2 = %11110000111100001111000011110000
Test_3 = %10101010101010101010101010101010
shiftout Data_G1, Clock, 4, [Test_2\32]
shiftout Data_G1, Clock, 4, [Test_2\32]
pulsout Latch,5
shiftout Data_R1, Clock, 4, [Test_1\32]
shiftout Data_R1, Clock, 4, [Test_1\32]
pulsout Latch,5
shiftout Data_R2, Clock, 4, [Test_1\32]
shiftout Data_R2, Clock, 4, [Test_1\32]
pulsout Latch,5
shiftout Data_G2, Clock, 4, [Test_3\32]
shiftout Data_G2, Clock, 4, [Test_3\32]
Pulsout Latch,5
A = 0
B = 0
C = 1
D = 0
GOTO Main
end
The web site is http://www.sure-electronics.com
Any help would be appreciated.
Regards Bill Legge
Bookmarks