با سلام
مشکل اینجاست که master پاسخ رو درست نمی گیره ممنون می شم نظر بدید.برنامه master و slave رو میزارم.
'******************************** master *************************************
'
'******************************************** ***********************************
$regfile = "m64def.dat"
$crystal = 1000000
$baud = 1200
$hwstack = 42
$swstack = 40
$framesize = 40
'----------------------------------LCD CONFIURATION-----------------------------
Config Graphlcd = 240 * 128 , Dataport = Portc , Controlport = Porta , Ce = 2 , Cd = 3 , Wr = 0 , Rd = 1 , Reset = 4 , Fs = 5 , Mode = 8
'----------------------------------RS-485 CONFIG--------------------------------
Config Print0 = Porte.2 , Mode = Set
Rs485dir Alias Porte.2
Config Rs485dir = Output
Rs485dir = 1
'------------------------------DIMENTIONE THE PARAMETERS------------------------
Dim M As String * 8
Dim B As Byte
M = "MESAGE"
'--------------------------------------MAIN-------------------------------------
Cls
Cursor Off
Locate 1 , 1
Lcd "RS-485 Test"
Locate 2 , 1
Lcd M ; " "
Print M
Waitms 500
Input B
Waitms 50
Locate 4 , 1
Lcd B
Rs485dir = 1
Locate 6 , 1
Lcd "OK"
End
'******************************** slave *************************************
'
'******************************************** ***********************************
$regfile = "m32def.dat"
$crystal = 1000000
$baud = 1200
$hwstack = 42
$swstack = 40
$framesize = 40
'----------------------------------LCD CONFIURATION-----------------------------
Config Lcdpin = Pin , Rs = Portc.1 , E = Portc.2 , Db4 = Portc.3 , Db5 = Portc.4 , Db6 = Portc.5 , Db7 = Postc.6
Config Lcd = 20 * 2
'----------------------------------RS-485 CONFIG--------------------------------
Config Print0 = Portd.2 , Mode = Set
Rs485dir Alias Portd.2
Config Rs485dir = Output
Rs485dir = 0
'------------------------------DIMENTIONE THE PARAMETERS------------------------
Dim A As String * 8
Dim B As Byte
B = 56
'--------------------------------------MAIN-------------------------------------
Cursor Off
Cls
Locate 1 , 1
Lcd "RS-485 Test"
Locate 1 , 15
Lcd B
Input A
Waitms 50
Locate 2 , 1
Lcd A ; " "
Rs485dir = 1
Waitms 500
Print B
Locate 2 , 10
Lcd "OK"
End
مشکل اینجاست که master پاسخ رو درست نمی گیره ممنون می شم نظر بدید.برنامه master و slave رو میزارم.
'******************************** master *************************************
'
'******************************************** ***********************************
$regfile = "m64def.dat"
$crystal = 1000000
$baud = 1200
$hwstack = 42
$swstack = 40
$framesize = 40
'----------------------------------LCD CONFIURATION-----------------------------
Config Graphlcd = 240 * 128 , Dataport = Portc , Controlport = Porta , Ce = 2 , Cd = 3 , Wr = 0 , Rd = 1 , Reset = 4 , Fs = 5 , Mode = 8
'----------------------------------RS-485 CONFIG--------------------------------
Config Print0 = Porte.2 , Mode = Set
Rs485dir Alias Porte.2
Config Rs485dir = Output
Rs485dir = 1
'------------------------------DIMENTIONE THE PARAMETERS------------------------
Dim M As String * 8
Dim B As Byte
M = "MESAGE"
'--------------------------------------MAIN-------------------------------------
Cls
Cursor Off
Locate 1 , 1
Lcd "RS-485 Test"
Locate 2 , 1
Lcd M ; " "
Print M
Waitms 500
Input B
Waitms 50
Locate 4 , 1
Lcd B
Rs485dir = 1
Locate 6 , 1
Lcd "OK"
End
'******************************** slave *************************************
'
'******************************************** ***********************************
$regfile = "m32def.dat"
$crystal = 1000000
$baud = 1200
$hwstack = 42
$swstack = 40
$framesize = 40
'----------------------------------LCD CONFIURATION-----------------------------
Config Lcdpin = Pin , Rs = Portc.1 , E = Portc.2 , Db4 = Portc.3 , Db5 = Portc.4 , Db6 = Portc.5 , Db7 = Postc.6
Config Lcd = 20 * 2
'----------------------------------RS-485 CONFIG--------------------------------
Config Print0 = Portd.2 , Mode = Set
Rs485dir Alias Portd.2
Config Rs485dir = Output
Rs485dir = 0
'------------------------------DIMENTIONE THE PARAMETERS------------------------
Dim A As String * 8
Dim B As Byte
B = 56
'--------------------------------------MAIN-------------------------------------
Cursor Off
Cls
Locate 1 , 1
Lcd "RS-485 Test"
Locate 1 , 15
Lcd B
Input A
Waitms 50
Locate 2 , 1
Lcd A ; " "
Rs485dir = 1
Waitms 500
Print B
Locate 2 , 10
Lcd "OK"
End
دیدگاه