SO hab jetzt das programm so gemacht, dass auf das lcd display die stellung des potis ausgegeben wird!!!

Code:
$regfile = "m8def.dat"
$crystal = 3686400

Config Portb = Output

Config Adc = Single , Prescaler = Auto
Start Adc
Dim W As Word , Channel As Byte
 Dim S As Word
 Dim D As Word

Channel = 0
A:

  W = Getadc(channel)
  S = W / 125
  D = S * 10
  Goto B


B:
Portb.4 = 1
Portb.5 = 1
Portb.3 = 1
Waitms D
Portb.4 = 0
Portb.5 = 0
Portb.3 = 0
Waitms 70
Portb.4 = 1
Portb.5 = 1
Portb.3 = 1
Waitms D
Portb.4 = 0
Portb.5 = 0
Portb.3 = 0
Waitms 70
Portb.4 = 1
Portb.5 = 1
Portb.3 = 1
Waitms D
Portb.4 = 0
Portb.5 = 0
Portb.3 = 0
Waitms 70
Waitms 400

Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
Config Lcd = 16 * 2
Config Portd = Output


  Waitms 1000
  Cls
  Lcd D

Goto A
hoffe es kann evtl. jemand brauchen!!!

Mfg

NRG

PS: nur eine frage hab ich noch, wie kann es sein, dass die leds bei geringem poti also für w=0 so ausschauen, wie wenn sie gedimmt sind???