Code:
Dim W1 As Byte
Dim S1 As String * 16
Dim Baud_com1 As Integer
Dim Baud_com2 As Integer
Dim Databits_com1 As Byte
Dim Databits_com2 As Byte
Dim Parity_com1 As Byte
Dim Parity_com2 As Byte
Dim Stopbits_com1 As Byte
Dim Stopbits_com2 As Byte

Readeeprom Baud_com1 , W1
Incr W1
Incr W1
Readeeprom Baud_com2 , W1
Incr W1
Incr W1
Readeeprom Databits_com1 , W1
Incr W1
Readeeprom Databits_com2 , W1
Incr W1
Readeeprom Parity_com1 , W1
Incr W1
Readeeprom Parity_com2 , W1
Incr W1
Readeeprom Stopbits_com1 , W1
Incr W1
Readeeprom Stopbits_com2 , W1
Incr W1

'--- [ Open Communication ports ] ----------------------------------------------
S1 = "COMD.7:" + Str(baud_com1) + "," + Str(databits_com1) + "," + Chr(parity_com1) + "," + Str(stopbits_com1)
'Open S1 For Output As #1
Besonders die Zeile:
Code:
S1 = "COMD.7:" + Str(baud_com1) + "," + Str(databits_com1) + "," + Chr(parity_com1) + "," + Str(stopbits_com1)
[/code]