Inwiefern geht das nicht ? Was tut sich denn ?
Das Programm ist ja durchaus übersichtlich *g*

Wenn du immer nur 0-er siehst, hat's was mit dem ADC
wenn das Display immer finster ist, hats was mit mit der Anzeige

Lass die ADC-Geschichte erstmal aus
mach erstmal eine Schleife, um zu sehen, ob die 7-Segmentgeschichte hinhaut
Code:
dim x as byte
   for   n = 1 to 10
         x = n-1;
         d= lookup(x, Value_Table)
         portd = D
         waitms 1000
   next
Die Zahlen sollten im sekundentakt von 0-9 gehen.