RS232, Waitkey und Relais schalten ?!

[Roberto]

Hallo Leute

Irgendiwe stehe ich derzeit am Schlauch :-(

Ich habe zwei Mega8

Beim ersten habe ich einen Taster.
Wenn ich den Taster drücke, sendet der eine "1" per RS232 an den zweiten Mega8.
Der soll dann so lange das Relais schalten, solange ich beim ersten Mega8 die Taste drücke.

Im Prinzip funktioniert es ja, aber ich kriege es nicht hin, dass das Signal beim Relais konstant auf High bleibt.
Es kommt mehr ein Pulssignal zum Relais und das zieht so natürlich nicht an.

Der Code schaut so aus:


Do

A = Waitkey()

If A = 49 Then
Portb.0 = 1
else
Portb = 0
End If

Loop



Kriege da immer nur Pulse raus!



Habs dann auch so probiert:



Do
A = Waitkey() 'Warte auf Zeichen von
Starting:
If A = 49 Then
Portb.0 = 1
A = Inkey()
Goto Starting
End If
Portb = 0
Loop


oder so:


Do
Starting:
A = Waitkey() 'Warte auf Zeichen von
If A = 49 Then
Portb.0 = 1
Goto Starting
End If
Portb = 0
Loop


was mache ich falsch ?!

[BlueNature]

Servus Roberto!

Du machst da einen Denkfehler, die Byteinfortmation kommt ja nur einen Moment lang. Entweder du spendierts an und aus zwei Bytewerte oder du machst es mit einem ständigen Bytewert der in bestimmten Abständen wiederholt udn damit das Relais wie eine Art Monoflop retriggert. In der ersten Variante könntest du es wie folgt realisieren:



Do
A = Waitkey()
If A = 49 Then Portb.0 = 1
If A = 32 Then Portb.0 = 0
Loop


Dann mußt du natürlich auf der Senderseite auch etwas nachtragen:

Bei gedrückter Taste den Wert 49 senden udn bei losgelassener Taste eben die 32. Dann ist es speichernd programmiert und nicht wie von dir als Puls.

Grüße Wolfgang

[Roberto]

Hallo Wolfgang


Danke für die Schnelle Antwort :-)



Du machst da einen Denkfehler, die Byteinfortmation kommt ja nur einen Moment lang.

ahaaa, Du meinst, dass inzwischen, kurz, kein Zeichen da ist und das Relais inzwischen schon wieder ausschaltet..

Deine Idee werde ich morgen gleich probieren.
Klingt gut :-)


Gute Nacht noch und Danke :-)