以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]求一段串口代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=102536)
--  作者：谢天钰
--  发布时间：2017/6/21 23:21:00
--  [求助]求一段串口代码
说起来有点不好意思？
不知道应该怎么写接收指定字符并自动回复指定字符的代码？
求一段代码。。。多谢了！


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20170621230716.png
图片点击可在新窗口打开查看
--  作者：有点色
--  发布时间：2017/6/21 23:53:00
--  

 直接发送不就好了？

 

http://www.foxtable.com/webhelp/scr/1979.htm

 
--  作者：谢天钰
--  发布时间：2017/6/22 8:33:00
--  回复：（有点色）?直接发送不就好了？?...
这得设置自动回复吧？是写在设备监视器里吗？再有就是06发送出去会不会是6没有0啊？
[此贴子已经被作者于2017/6/22 8:35:46编辑过]
--  作者：有点蓝
--  发布时间：2017/6/22 8:49:00
--  
在接收事件里直接回复不就行http://www.foxtable.com/webhelp/scr/1967.htm

编码是16进制数值，不存在什么0和6分开的情况，按字节发送：http://www.foxtable.com/webhelp/scr/1979.htm
--  作者：谢天钰
--  发布时间：2017/6/22 10:49:00
--  回复：（有点蓝）在接收事件里直接回复不就行http://w...
select case e.port.portname
     case "com3"
        dim v as byte = ports("com3").readbyte
        if v = 16 then
             dim val() as byte = new byte() {6}
             ports("com3").write(val,0,val.length)
        end if
end select

提示写入超时？？？？
--  作者：有点色
--  发布时间：2017/6/22 11:58:00
--  
每次，msgbox(v) 弹出的是什么？
--  作者：谢天钰
--  发布时间：2017/6/22 15:35:00
--  回复：（有点色）每次，msgbox(v) 弹出的是什么？
每次弹出的是16
--  作者：有点色
--  发布时间：2017/6/22 16:07:00
--  

1、设置好端口的握手协议

 

http://www.foxtable.com/webhelp/scr/1976.htm

 

2、事件代码改写成下面，看每次弹出什么

 

Dim s As String

s = e.Port.ReadExisting()

msgbox(s)

 

3、对方是否有给你调用的代码？c#或vb.net的示例。
--  作者：谢天钰
--  发布时间：2017/6/22 18:23:00
--  回复：（有点色）1、设置好端口的握手协议?h...
1、按照你的指示设置好了握手协议，另外在串口调试助手设置奇偶校验设置为偶数时能正常接收数据了。
2、另外文本传输的编码设置成了ASCII。
3、返回的是字符 空心方块。
[此贴子已经被作者于2017/6/22 18:25:19编辑过]
--  作者：谢天钰
--  发布时间：2017/6/22 18:55:00
--  回复：（有点色）1、设置好端口的握手协议 h...
在串口调试助手里得到的数据如下：

CTRSampleInfo SampleID1Mode0TestTime2017-05-08 08:50:34NameGender0Group0AgeVal0AgeType0DeptChartNoBedNoSenderTesterCheckerWBC Val9.6Low4.0High10.0Unit10^9/LLymph# Val2.2Low0.8High4.0Unit10^9/LMid# Val0.7Low0.1High1.5Unit10^9/LG72 61 06 n# Val6.7Low2.0High7.0Unit10^9/LLymph% Val23.4Low20.0High40.0Unit%Mid% Val7.7Low3.0High15.0Unit%Gran% Val68.9Low50.0High70.0Unit%HGB Val133Low110High160Unitg/LRBC Val4.00Low3.50High5.50Unit10^12/LHCT Val38.7Low37.0High54.0Unit%MCV Val96.9Low80.0High100.0UnitfLMCH Val33.2Low27.0High34.0UnitpgMCHC Val343Low320High360Unitg/LRDW-CV Val13.6Low11.0High16.0Unit%RDW-SD Val50.1Low35.0High56.0UnitfLPLT Val159Low100High300Unit10^9/LMPV Val7.7Low6.5High12.0UnitfLPDW Val16.8Low9.0High17.0Unit PCT Val0.122Low0.108High0.282Unit%P-LCR Val22.1Low11.0High45.0Unit%AlarmFlag Rm0R10R20R31R40Pm0Pl0Ps0SepLine SepWBCLyLeft10SepWBCLyMid56SepWBCGranMid81SepWBCGranRight255SepRBCLeft27SepRBCRight195SepPLTLeft6SepPLTRight118WBCHisto DataLen256MetaDataLen1WHistoData*******,>Tj$3:?DMRTZY^`_]^_`ed\\YRSKF:*\'%

}|uqlljijigdb^\\YXVZWWY\\addflu{|~  

"*02:869676<:<BEEGNOPUZ]ddddefghhehfiorvw{z}xwztwqrqni``]_[XQMKGB92.1-,+%# xtqmdc][[VTTPLIGB@71-+*$!   RBCHisto DataLen256MetaDataLen1RHistoData****************  \'08BLXep

&4DNZenw{~{{sne\\RHA5/$

xpfb^ZVRPMIGB@=;:875530.+)\'%#" 


***********PLTHisto DataLen256MetaDataLen1PHistoData***** /BXp4H\\lx~~|wqg[RJD=5-(%! yqib]XQKECDEEDCAA???==<;:977521.,*(&#" !! 

*!t***n 4**%5G**8************************************************************

06



现在我卡在回复主机16进制的06这里