ok danke!
mit integer geht es!
Was ich machen möchte?
Mit der X und Y achse eines gameport joysticks 2 Schrittmotoren steuen,
das ganze soll ein kameraschwenkkopf werden
im prinzip muss ich jetzt ja nur noch die stellung der poties auslesen,
dann den wert mit ner formel auf einen wert zwischen 1 und 10 bringen und diesen dann in der waitms funktion verwenden
Aber das auslesen schnall ich noch nicht ganz...
Code:
$crystal = 6000000
'
Config Portb = Output '
Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5 , E = Portb.1 , Rs = Portb.0
Config Lcd = 16 * 2
Config Adc = Single , Prescaler = Auto
Dim Wert1 As Integer
Dim Wert2 As Integer
'1023 ganz Vorne
'520
'363
Do
Cls
Start Adc
Wert1 = Getadc(0 , 1)
Start Adc
Wert2 = Getadc(1 , 1)
Lcd Wert2
Lowerline
Lcd Wert2
Waitms 10
Loop
das geht jetzt zwar schon, aber irgenwie steht da 2 mal das gleiche... warum ??? ist nur die x achse nicht die y achse ?
programmier fehler ? oder karten fehler ?
Lesezeichen