با سلام خدمت اساتید عزیز
من دوتا ماژول HM-TRP دارم که دیتا رو فرستادم و گرفتم.ولی بعضی وقتا جای دیتاها عوض میشه.مثلا A002 رو میفرستم ولی بعضی وقتا 002A می گیرم.
برنامه هامم قرار میدم تا دوستان بهتر بتونن منو راهنمایی کنن. ممنون
فرستنده
من دوتا ماژول HM-TRP دارم که دیتا رو فرستادم و گرفتم.ولی بعضی وقتا جای دیتاها عوض میشه.مثلا A002 رو میفرستم ولی بعضی وقتا 002A می گیرم.
برنامه هامم قرار میدم تا دوستان بهتر بتونن منو راهنمایی کنن. ممنون
فرستنده
کد:
$regfile = "m8def.dat" $crystal = 11059200 '$crystal = 8000000 $baud = 9600 $timeout = 4000000 '-------------------------Printer config---------------------------------------- Open "comb.1:19200,8,n,1" For Output As #2 '-------------------------HMTR config------------------------------------------- Open "com1:" For Binary As #1 'Config Serialin = Buffered , Size = 5 Dim W As String * 4 , I As Integer , J As Integer , Ii As Integer , Devicename As String * 4 Dim Beshmar As Byte Dim Device As String * 4 , Jj As String * 50 , Devicenumber As Byte , Lenvir As Integer , Dim A(79) As Integer , Aa(79) As Integer Dim A1 As String * 4 , Aa1 As String * 4 , Ischar As Byte Beshmar = 1 First: Do Device = Lookupstr(beshmar , Devicenames) Printbin #1 , Device Inputbin #1 , W 'Noecho Print #2 , W Wait 2 Beshmar = Beshmar + 1 If Beshmar = 5 Or Beshmar > 5 Then Beshmar = 1 Loop End Devicenames: Data "" , "A001" , "A002" , "A003" , "A004"
کد:
برنامه ی گیرنده [left]$regfile = "m32def.dat" $crystal = 11059200 $lib "glcdKS108.lbx" $baud = 9600 $timeout = 4000000 'Open "comd.0:9600,8,n,1" For Input As #1 'Open "comd.1:9600,8,n,1" For Output As #2 'Config Serialin = Buffered , Size = 5 Config Graphlcd = 128 * 64sed , Dataport = Porta , Controlport = Portc , Ce = 3 , Ce2 = 4 , Reset = 2 , Cd = 7 , Rd = 6 , Enable = 5 , Mode = 8 Open "com1:" For Binary As #1 Config Kbd = Portb Setfont Font8x8 Dim Numberofchoice As Integer , Numberoforder As Integer , Row As Byte , Devicename As String * 4 , Send As String * 200 Dim I As Byte , Kbd As Byte , B As Integer , Key As Byte , J As Byte , Jj As Byte , Ii As Byte , W As String * 4 , W1 As String * 200 Devicename = "A002" Do Cls Lcdat 4 , 1 , "Salam" Inputbin W ' Noecho Lcdat 5 , 1 , "W= " ; W Printbin W Wait 1 Loop End 'end program $include "font8x8.font"[/left]
دیدگاه