@ Patti:

Ja, ich glaube dir das auch...

Meinst du dieser Code wird auf dem RN-Control funkitonieren?



$regfile = "m32def.dat"
$crystal = 16000000



Config Portc = Output
Portc = 0

Dim W As Word

Enable Interrupts

Start Adc

Do
W = Getadc(0)
If W > 0 Then Portc.7 = 1 Else Portc.7 = 0
If W > 128 Then Portc.6 = 1 Else Portc.6 = 0
If W > 256 Then Portc.5 = 1 Else Portc.5 = 0
If W > 384 Then Portc.4 = 1 Else Portc.4 = 0
If W > 512 Then Portc.3 = 1 Else Portc.3 = 0
If W > 640 Then Portc.2 = 1 Else Portc.2 = 0
If W > 768 Then Portc.1 = 1 Else Portc.1 = 0
If W > 896 Then Portc.0 = 1 Else Portc.0 = 0

Waitms 10
Loop
End