Hi Leute!

Ich muss euch jetzt mal fragen, ich weiß nicht wo das Problem liegt:

Mein Bascom Quelltext sieht so aus:
Code:
$baud = 9600


Config Portb = Output

    Dim Zeichen As Byte

    Zeichen = 0

Rsabfrage:
Do
  Zeichen = Inkey()
Loop Until Zeichen <> 0

If Zeichen = 70 Then Gosub Machwas
If Zeichen = 80 Then Gosub Mach

Goto Rsabfrage


Machwas:
     Portb.1 = 1
Goto Rsabfrage


Mach:
     Portb.1 = 0
Goto Rsabfrage
Der Mega8 wartet auf das Signal von der RS232 und soll dann je nach Wert die Subroutine aufrufen... Das Signal kommt von folgendem Proggi mit Hilfe der Port.dll:

Code:
Private Sub Command5_Click()
SENDBYTE (80)
End Sub

Private Sub Command6_Click()
SENDBYTE (70)
End Sub

Sub form_load()
 i = OPENCOM("COM1,9600,N,8,1")                         'Schnittstelle COM1 öffnen
 If i = 0 Then
  i = OPENCOM("COM2,9600,N,8,1")                        'Wenn COM1 belegt COM2 öffnen
 End If
 If i = 0 Then MsgBox ("Schnittstelle nicht geöffnet!!")
End Sub
Leider tut sich agr nicht wenn ich das VB programm laufen lasse!

Vielen Dank im Vorraus!