Code:
Dim Upx As Word
Dim Y As Word
Dim X As Word
Config Portd.7 = Output
Config Portc.0 = Output
Config Portc.1 = Output
Config Portd.6 = Output
Led1 Alias Portd.7
Led2 Alias Portc.0
Led3 Alias Portc.1
Led4 Alias Portd.6
'ADC Starten für AD-Wandler
Config Adc = Single , Prescaler = Auto
Start Adc
Led1 = 1
Led2 = 1
Led3 = 1
Led4 = 1
'sezt die nullstellung des Joysticks
Upx = Getadc(0)
Do
X = Getadc(0)
Y = Getadc(1)
If X > Upx Then
Led1 = 0
Waitms 100
End If
Led1 = 1
Led2 = 1
Led3 = 1
Led4 = 1
Loop
So hab ich das bis jezt aber es funzt net wirklich. Und es wäre nett wenn ihr nicht an meinen kleinen Programmier fähigkeiten mausert. Sondern mir beim lernen helft?