-
-
Erfahrener Benutzer
Fleißiges Mitglied
Eigentlich wollte ich ja einen neuen Thread aufmachen - aber dieser eignet sich auch das Problem mal ebend zu berichten.
Habe den IR-Sensor Sharp Gd12 und habe diesen an mein RN-Control dramgeschlossen.
Das Problem ist, ich bekomme keine Auswertung.
Ich messe mit meinem Multimeter eine Spannung am Ausgang des Sensors, diese kann aber irgendwie nicht ausgewertet werden.
$regfile = "m32def.dat"
$crystal = 7372800
Do
Config Portc = Output
Portc = 0
Dim W As Word
Enable Interrupts
Start Adc
W = Getadc(7)
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
Diesen Code habe ich aus einem Beitrag hier vom Forum.
Er war zwar ursprünglich für einen Mega 16, aber ich habe dass einfach so
$regfile = "m32def.dat" geändert...
Kann mir jemand sagen warum das nicht funktioniert???
Müsste es ja eigentlich!
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- Anhänge hochladen: Nein
- Beiträge bearbeiten: Nein
-
Foren-Regeln
Lesezeichen