habunus
13.01.2008, 22:03
Hallo,
hätte mal eine Frage zum dem RS 485 Bus. Habe folgenden Code mit einem Master und einem Slave der auch Funktioniert:
Master:
'------------------------------------------------------------------------------
'name : .bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : demonstrates
'micro : Mega48
'suited for demo : yes
'commercial addon needed : no
'------------------------------------------------------------------------------
$regfile = "m16def.dat"
$crystal = 8000000
$baud = 19200
Config Portd.2 = Output
Portd.2 = 0
Dim Slave(2) As String * 8
'Slaveadressen
Slave(1) = "Modul 1"
Slave(2) = "Modul 2"
' - - - - - - -
Send:
Do
Waitms 100
Portd.2 = 1
Waitms 100
Print Slave(1)
Waitms 100
Portd.2 = 0
Loop
Goto Send
Slave:
'------------------------------------------------------------------------------
'name : .bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : demonstrates
'micro : Mega48
'suited for demo : yes
'commercial addon needed : no
'------------------------------------------------------------------------------
$regfile = "m16def.dat"
$crystal = 8000000
$baud = 19200
Config Portd = Output
Portd.2 = 0
Portd.7 = 0
Dim Rs485input As Byte
Dim A As Byte
Dim Temp As String * 8
' - - - Lcd - - -
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Porta.0 , Db5 = Porta.1 , Db6 = Porta.2 , Db7 = Porta.3 , E = Porta.5 , Rs = Porta.4
Config Lcdbus = 4
Config Lcdmode = Port
On Urxc Onrxd
Enable Urxc
Enable Interrupts
Do
nop
Loop
Onrxd:
Inputbin Temp
Cls
Lcd Temp
Return
An dem Slave habe ich eine LCD Angeschlossen und wenn der Slave z.B. Modul 1 empfängt sind immer kryptische Zeichen dabei.
Was könnte das sein. Habe mir schon etliche Dinge durchgelesen aber finde den Fehler nicht.
Bin noch ein Neuling mit Bascom ;-)
Bedanke mich im Voraus für eine Antwort
hätte mal eine Frage zum dem RS 485 Bus. Habe folgenden Code mit einem Master und einem Slave der auch Funktioniert:
Master:
'------------------------------------------------------------------------------
'name : .bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : demonstrates
'micro : Mega48
'suited for demo : yes
'commercial addon needed : no
'------------------------------------------------------------------------------
$regfile = "m16def.dat"
$crystal = 8000000
$baud = 19200
Config Portd.2 = Output
Portd.2 = 0
Dim Slave(2) As String * 8
'Slaveadressen
Slave(1) = "Modul 1"
Slave(2) = "Modul 2"
' - - - - - - -
Send:
Do
Waitms 100
Portd.2 = 1
Waitms 100
Print Slave(1)
Waitms 100
Portd.2 = 0
Loop
Goto Send
Slave:
'------------------------------------------------------------------------------
'name : .bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : demonstrates
'micro : Mega48
'suited for demo : yes
'commercial addon needed : no
'------------------------------------------------------------------------------
$regfile = "m16def.dat"
$crystal = 8000000
$baud = 19200
Config Portd = Output
Portd.2 = 0
Portd.7 = 0
Dim Rs485input As Byte
Dim A As Byte
Dim Temp As String * 8
' - - - Lcd - - -
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Porta.0 , Db5 = Porta.1 , Db6 = Porta.2 , Db7 = Porta.3 , E = Porta.5 , Rs = Porta.4
Config Lcdbus = 4
Config Lcdmode = Port
On Urxc Onrxd
Enable Urxc
Enable Interrupts
Do
nop
Loop
Onrxd:
Inputbin Temp
Cls
Lcd Temp
Return
An dem Slave habe ich eine LCD Angeschlossen und wenn der Slave z.B. Modul 1 empfängt sind immer kryptische Zeichen dabei.
Was könnte das sein. Habe mir schon etliche Dinge durchgelesen aber finde den Fehler nicht.
Bin noch ein Neuling mit Bascom ;-)
Bedanke mich im Voraus für eine Antwort