Guten Morgen,

wie ich die Pins schalte, ist mir jetzt bekannt. Danke.

Das Problem ist, das ich über die RS232 Schnittstelle Daten senden möchte.

Ich habe versucht das mit folgendem Code zu lösen:


Code:
$regfile = "M32DEF.DAT"                                     ' Mega32
$crystal = 14745600                                         ' StAVeR-40 XTAL
$baud = 9600



Dim S As Integer
Dim Mybaud As Long

Mybaud = 9600

Config Porta = Output


Serin S , 0 , D , 0 , Mybaud , 0 , 8 , 1

If S = 1 Then

Wait 2
Porta.0 = 1
Porta.1 = 1
Porta.2 = 1
Porta.3 = 1
Porta.4 = 1
Porta.5 = 1
Porta.6 = 1
Porta.7 = 1
Wait 2
Porta.0 = 0
Porta.1 = 0
Porta.2 = 0
Porta.3 = 0
Porta.4 = 0
Porta.5 = 0
Porta.6 = 0
Porta.7 = 0
Wait 2

End If
Funktioniert aber nicht. Wenn ich über RS232 Integer 1 sende wird nichts ausgeführt?