Code:
'=========================================================================
'======= SubRoutine to write to the 7 Seg Binary display ==========
'=========================================================================
Binary:
for z=0 to 3 'character position
lookup z,[0,2,6,8],chrpos ' value used to tell the I2C display which digit
SELECT CASE counter
case 0 :LOOKUP z, [$3f,$3f,$3f,$3f], chrdsp '0000
Case 1 :LOOKUP z, [$3f,$3f,$3f,$06], chrdsp '0001
Case 2 :LOOKUP z, [$3f,$3f,$06,$3f], chrdsp '0010
Case 3 :LOOKUP z, [$3f,$3f,$06,$06], chrdsp '0011
Case 4 :LOOKUP z, [$3f,$06,$3f,$3f], chrdsp '0100
Case 5 :LOOKUP z, [$3f,$06,$3f,$06], chrdsp '0101
Case 6 :LOOKUP z, [$3f,$06,$06,$3f], chrdsp '0110
Case 7 :LOOKUP z, [$3f,$06,$06,$06], chrdsp '0111
Case 8 :LOOKUP z, [$06,$3f,$3f,$3f], chrdsp '1000
Case 9 :LOOKUP z, [$06,$3f,$3f,$06], chrdsp '1001
Case 10 :LOOKUP z, [$06,$3f,$06,$3f], chrdsp '1010
Case 11 :LOOKUP z, [$06,$3f,$06,$06], chrdsp '1011
Case 12 :LOOKUP z, [$06,$06,$3f,$3f], chrdsp '1100
Case 13 :LOOKUP z, [$06,$06,$3f,$06], chrdsp '1101
Case 14 :LOOKUP z, [$06,$06,$06,$3f], chrdsp '1110
Case 15 :LOOKUP z, [$06,$06,$06,$06], chrdsp '1111
end select
I2cwrite sda,scl,bin00,chrpos,[chrdsp]
next z
return
The $3F represents a "0" and $06 is for a "1"
Bookmarks