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:
Code:
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:

Code:
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:
Code:
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 ?!