سلام خدمت همه ی دوستان عزیز
من از یه مدار یه متن طولانی می خوام بفرستم به یه مدار دیگه.این کارو با HTMR انجام دادم.تا 15 کاراکتر مشکلی نداره ولی بیشتر از اون مشکل پیدا می کنه و نمی دونم مشکلم از کجاست.می خوام این متنو با یه پرینتر حرارتی چاپ کنم.البته برای این کار چون 2تا سریال نیاز داشتم از تنظیمات نرم افزاری بسکام استفاده کردم.
برنامه ی فرستنده:
برنامه ی گیرنده:
$regfile = "m32def.dat"
$crystal = 8000000
Open "comb.5:9600,8,n,1" For Input As #1
Open "comb.6:9600,8,n,1" For Output As #2
Open "comd.1:19200,8,n,1" For Output As #3
Config Serialout = Buffered , Size = 254
Dim W As String * 305
Do
Input #1 , W Noecho
Print #3 , W
Loop
End
من از یه مدار یه متن طولانی می خوام بفرستم به یه مدار دیگه.این کارو با HTMR انجام دادم.تا 15 کاراکتر مشکلی نداره ولی بیشتر از اون مشکل پیدا می کنه و نمی دونم مشکلم از کجاست.می خوام این متنو با یه پرینتر حرارتی چاپ کنم.البته برای این کار چون 2تا سریال نیاز داشتم از تنظیمات نرم افزاری بسکام استفاده کردم.
برنامه ی فرستنده:
$regfile = "m32def.dat"
$crystal = 8000000
Open "comb.5:9600,8,n,1" For Input As #1
Open "comb.6:9600,8,n,1" For Output As #2
do
Print #2 , "#01,1,1,2,2,3,3,4,4,,5,5,6,6,7,7,8,8,9,9 "
waitms 500
loop
end
$crystal = 8000000
Open "comb.5:9600,8,n,1" For Input As #1
Open "comb.6:9600,8,n,1" For Output As #2
do
Print #2 , "#01,1,1,2,2,3,3,4,4,,5,5,6,6,7,7,8,8,9,9 "
waitms 500
loop
end
برنامه ی گیرنده:
$regfile = "m32def.dat"
$crystal = 8000000
Open "comb.5:9600,8,n,1" For Input As #1
Open "comb.6:9600,8,n,1" For Output As #2
Open "comd.1:19200,8,n,1" For Output As #3
Config Serialout = Buffered , Size = 254
Dim W As String * 305
Do
Input #1 , W Noecho
Print #3 , W
Loop
End
دیدگاه