Servo steuern

[ShadowPhoenix]

Habe die Suche vom Forum verwendet, und mir irgendwie den Code zusammengeschneidert, aber es mag immer noch nicht =(
Ein carriage return wird hierbei gesendet, der Empfänger reagiert aber nicht =(

$regfile = "m8def.dat"
$crystal = 4000000
$baud = 9600

Config Pind.5 = Input
Config Pind.6 = Input

Declare Sub Send1

Dim X As String * 1
Dim Cr As String * 4

Cr = "13"
X = "A"

Do
Debounce Pind.5 , 0 , Send1 , Sub
Loop

Sub Send1:
Print X ; Chr(cr)
End Sub

$regfile = "m8def.dat"
$crystal = 4000000
$baud = 9600

Config Portb = Output

Declare Sub Loop1

Dim X As String * 10
Dim Y As String * 1

Y = "A"

Portb.5 = 0

Do
Input , X
If X = Y Then Gosub Loop1
Loop

Sub Loop1:
Toggle Portb.5
End Sub

Beim Sender ist X gleich "A" und beim Empfänger ist Y auch "A", dabei sollte doch nach Loop1 gesprungen werden...

[linux_80]

Hallo ShadowPhoenix,
ich hab deine beiden ersten Codestücke die Du hier im Thread gepostet hast mal eingegeben, und beide sind gelaufen, zumindest bei mir wenn an einem Ende der PC dran hängt.
mir scheint, das da noch irgendwo anders was zwickt.

Zu dem Print, Du must nicht extra dein CR senden, das macht der automatisch, nur wenn man es nicht senden will muss man dem Print ein ; anhängen.

[ShadowPhoenix]

Nun gut, PRINT X funktioniert, bei PRINT X; tut sich nix mehr =(

Sender:

$regfile = "m8def.dat"
$crystal = 4000000
$baud = 9600

Config Pind.5 = Input
Config Pind.6 = Input

Declare Sub Send1

Dim X As Integer

X = 1

Do
Debounce Pind.5 , 0 , Send1 , Sub
Loop

Sub Send1:
Print X;
End Sub

Empfänger:

$regfile = "m8def.dat"
$crystal = 4000000
$baud = 9600

Config Portb = Output

Declare Sub Loop1

Dim X As Integer
Dim Y As Integer

Y = 1

Portb.5 = 0

Do
Input , X
If X = Y Then Gosub Loop1
Loop

Sub Loop1:
Toggle Portb.5
End Sub

Bei Tastendruck geht die LED an, nochmal Druck sollte sie ausgehen, tut sie aber nicht!

Wenn ich PRINT X; schreibe, geht gar nichts mehr!

[linux_80]

Nun gut, PRINT X funktioniert, bei PRINT X; tut sich nix mehr =(

.....

Wenn ich PRINT X; schreibe, geht gar nichts mehr!

deswegen sollst Du es so ja nicht schreiben, les die letzte Zeile meines vorherigen Beitrags noch mal genau !

[ShadowPhoenix]

Jo kleiner Fehler von dir =)
Lies mal genau:

"Zu dem Print, Du must nicht extra dein CR senden, das macht der automatisch, nur wenn man es nicht senden will muss man dem Print ein ; anhängen."

... nur wenn man es nicht senden will, muss man ein ";" anhängen...

Da ich es nicht senden will, hänge ich ein ; an

[linux_80]

ja so wie's ausschaut brachst Du es aber, damit der andere AVR weiss das er was zu tun hat,
denn ein paar Beiträge weiter oben hast Du ja gefragt wie man ein CR sendet !
Das wäre die Antwort gewesen !

Gut n8

[ShadowPhoenix]

Ich dachte, es ist nicht nötig, CR mitzusenden?

Ich möchte nur, dass ich mehr als 1x eine "1" senden kann, und somit immer wieder Toggle Port ausgeführt wird.
Es geht aber wieder nur 1x...

[gpo]

Halo,

ein GOSUB erwartet kein SUB...ENDSUB, sondern wie auch der DEBOUNCE-Befehl eine SPRUNGMARKE: mit RETURN. Sieh Dir das mal in Deinen Programmen an. Das zitieren der Bascomhilfe erspar ich mir jetzt mal, aber ein Beispiel gibt es:

debounce taster, 1 , Schalten , Sub

Schalten:
Toggle led
Return

Günter

[ShadowPhoenix]

Danke für den Tip!
Funktioniert aber immer noch nicht!

Mein Sender sendet jetzt jede Sekunde das Zeichen, somit sollte die Led beim Empfänger abwechselnd schalten, tut sie aber nicht.

Beim Start beider AVR's bleibt die led konstant am Leuchten.
Mein neuer Code:


Sender:

$regfile = "m8def.dat"
$crystal = 4000000
$baud = 9600

Dim X As String * 1
X = "A"

Do
Print X
Wait 1
Loop

End

Empfänger:

$regfile = "m8def.dat"
$crystal = 4000000
$baud = 9600

Declare Sub Toggle1

Config Portb.5 = Output

Dim X As String * 1
Dim Y As String * 1
X = "A"

Do
Input , Y
If X = Y Then Gosub Toggle1
Loop

Toggle1:
Toggle Portb.5
Y = ""
Return

End

Habs mit IF X = Y THEN Toggle1 und mit Gosub toggle1 probiert, geht beides nicht!

Wo liegt nur der Fehler =(

[ShadowPhoenix]

Endlich, es funktioniert!
Fehler war in der INPUT-Anweisung. Wie "hrei" schon meinte, hätte ich <CR> mitsenden müssen. Tja, aber Meinungsverschiedenheit der User hat mich verwirrt, zudem stand auch nichts wegen <CR> in der Hilfe, geschweige denn wie man das sendet...


INPUT X; Chr(13);


Danke trotzdem an alle und Mfg