[求助]求一段串口代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

说起来有点不好意思？

不知道应该怎么写接收指定字符并自动回复指定字符的代码？

求一段代码。。。多谢了！

此主题相关图片如下：qq图片20170621230716.png

这得设置自动回复吧？是写在设备监视器里吗？再有就是06发送出去会不会是6没有0啊？

[此贴子已经被作者于2017/6/22 8:35:46编辑过]

在接收事件里直接回复不就行http://www.foxtable.com/webhelp/scr/1967.htm

编码是16进制数值，不存在什么0和6分开的情况，按字节发送：http://www.foxtable.com/webhelp/scr/1979.htm

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

提示写入超时？？？？

每次，msgbox(v) 弹出的是什么？

每次弹出的是16

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

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

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

Dim s As String

s = e.Port.ReadExisting()

msgbox(s)

3、对方是否有给你调用的代码？c#或vb.net的示例。

1、按照你的指示设置好了握手协议，另外在串口调试助手设置奇偶校验设置为偶数时能正常接收数据了。

2、另外文本传输的编码设置成了ASCII。

3、返回的是字符空心方块。

[此贴子已经被作者于2017/6/22 18:25:19编辑过]

在串口调试助手里得到的数据如下：

CTRSampleInfoSampleID1Mode0TestTime2017-05-08 08:50:34NameGender0Group0AgeVal0AgeType0DeptChartNoBedNoSenderTesterCheckerWBCVal9.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%HGBVal133Low110High160Unitg/LRBCVal4.00Low3.50High5.50Unit10^12/LHCTVal38.7Low37.0High54.0Unit%MCVVal96.9Low80.0High100.0UnitfLMCHVal33.2Low27.0High34.0UnitpgMCHCVal343Low320High360Unitg/LRDW-CVVal13.6Low11.0High16.0Unit%RDW-SDVal50.1Low35.0High56.0UnitfLPLTVal159Low100High300Unit10^9/LMPVVal7.7Low6.5High12.0UnitfLPDWVal16.8Low9.0High17.0Unit PCTVal0.122Low0.108High0.282Unit%P-LCRVal22.1Low11.0High45.0Unit%AlarmFlagRm0R10R20R31R40Pm0Pl0Ps0SepLineSepWBCLyLeft10SepWBCLyMid56SepWBCGranMid81SepWBCGranRight255SepRBCLeft27SepRBCRight195SepPLTLeft6SepPLTRight118WBCHistoDataLen256MetaDataLen1WHistoData*******,>Tj$3:?DMRTZY^`_]^_`ed\YRSKF:*'%

}|uqlljijigdb^\YXVZWWY\addflu{|~

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

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

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

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

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

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

主题：[求助]求一段串口代码