Hallo,

ich versuche seid ein paar tagen eine 7Segment-Anzeige zum laufen zu bringen. Nur hab ich keinen blassen schimmer wieso das nicht so geht wie ich das will hab ich vielleicht einen kleinen denkfehler?

Es soll einfach die erste stelle des AD-Wertes auf dem segement angezeigt werden.

Code:
$regfile = "m8def.dat"

$crystal = 5200000


$hwstack = 32
$swstack = 10
$framesize = 40


' *********************************  Config  ********************************

Config Portd = Output

Config Adc = Single , Prescaler = Auto , Reference = Avcc

Start Adc

Dim D As Word
Dim N As Word
Dim W As Word

' *********************************  Main  ********************************

Do

   W = Getadc(0)
   N = W / 100
   D = Lookup(n , Value_table)
   Portd = D
   Waitms 333

Loop


End

' *********************************  Data  ********************************

Value_table:
Data &B10000001 ,                                           '0
Data &B11101101 ,                                           '1
Data &B01000011 ,                                           '2
Data &B01001001 ,                                           '3
Data &B00101101 ,                                           '4
Data &B00011001 ,                                           '5
Data &B00010001 ,                                           '6
Data &B11001101 ,                                           '7
Data &B00000001 ,                                           '8
Data &B00001001 ,                                           '9