Hi, so, nun melde ich mich nochmal zu Wort ![Zwinkern](http://www.roboternetz.de/phpBB2/images/smiles/icon_wink.gif)
Also passt auf. Mein Sensor funktioniert soweit, nurhab ich wohl noch das gleiche Problem wie Lenox, dass meine Werte Springen, und auch über 256 hinausgehen. Eigendlich hab ich ja die Zeile so angegeben, wieso er das nicht macht ist mir eigendlich unklar. Ich werde es einfach nochmal aufspielen, vielleicht hab ich was falsch gemacht.
Nun habe ich aber noch ein anderes Problem.
Ich möchte, dass mir die Gradanzahl ausgegeben wird, d.h. ich benötige eine Kleine Rechnung in meinem Code, die er jedoch als falsch erkennt.
Als Fehlermeldung bekomm ich "Source variable does not match the target variable" das bezieht sich auf die Zeile: Grad = Sensor *(360 / 1024)
Schaut es euch einfach mal an
Code:
'Erster Test des Displays Wintek 27 * 4 von Pollin
'Besondere Lernleistung von Felix König
$regfile = "m168def.dat"
$crystal = 16000000 'Quarzfrequenz
$baud = 9600
'$hwstack = 32
'$framesize = 32
'$swstack = 32
'Die üblichen Definitionen bei Standardprogrammen auf Miniboard
Config Lcd = 40 * 4 'Bascom kennt keine Display mit 27 * 4 Zeichen,
'daher 40 * 4 verwenden
Config Lcdpin = Pin , Db4 = Portb.5 , Db5 = Portb.0 , Db6 = Portd.7 , Db7 = Portd.6 , E = Portb.3 , E2 = Portc.3 , Rs = Portd.3 , 'Rw = Portc.2
'man achte auf die Ergänzung E2
Dim ___lcdno As Byte ' Systemvariable der LCD-Bibliothek
___lcdno = 0 ' wählt den ersten Chip aus
Initlcd 'die beiden oberen Zeilen initialisieren
Cls 'die beiden oberen Zeilen löschen
___lcdno = 1 'auf Chip 2 schalten
Initlcd 'die beiden unteren Zeilen initialisieren
Cls 'die beiden unteren Zeilen löschen
___lcdno = 0 ' wählt die obere Zeile aus
Locate 1 , 1 ' schreibt in die erste Zeile an Position 1
Lcd " Besondere Lernleistung "; ' den Text in Anführungszeichen
Locate 2 , 1 ' schreibt in die zweite Zeile an Position 1
Lcd " von Felix Koenig 13 BGD"
Cursor Off ' unterdrückt den Cursor
___lcdno = 1 ' wählt die beiden unteren Zeilen aus
Locate 1 , 1
Lcd "Windrichtung : ";
Locate 2 , 1
Lcd "Grad : "
Cursor Off ' unterdrückt den Cursor
Config Adc = Single , Prescaler = Auto , Reference = Avcc 'Konfiguriert den AD Wandler
Start Adc 'Startet den AD Wandler
Config Pinc.2 = Input 'ADC 2 an Ctrl
Dim Sensor As Byte 'Deklariert "Sensor" als Byte
Dim Grad As Byte 'Deklariert die Gradvariable "Grad" als Byte
Do ' Beginnt die Abfrageschleife zur Werteerfassung
Sensor = Getadc(2) ' Der AD Wert wird am Pin C2 abgelesen und in die Veriable "Sensor" geschrieben
Grad = Sensor *(360 / 1024)
'Print "Sensor " ; Sensor
___lcdno = 1 'wählt die unteren 2 Zeilen aus
If Grad = 0 Then '
Locate 2 , 8
Lcd "0° / 360°"
Else
Locate 2 , 8
Lcd Grad ; "°"
End If
Waitms 500 '500 ms Wartezeit zwischen der Abfragewiederholung
Loop 'Ende der Abfrageschleife, Sprung zum Anfang der Schleife
End 'Programmende
Vieleicht könnt ihr mir ja noch so einen wunderbaren und hilfreichen tipp geben.
Viele Grüße Felix
Lesezeichen