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?
Lesezeichen