- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请教串口问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=42952)
-- 发布时间：2013/11/26 23:48:00
-- 请教串口问题
下面这段代码的功能是电话号码1占线，自动拨打电话2，请大家帮忙看一下错在那里了
Dim kj As String = e.sender.name
Dim dr As DataRow
dr = DataTables("人员表").Find("控件名称 = \'"& kj &"\'")
If dr IsNot Nothing Then
Dim dh1 As String = dr("电话号码1")
Dim dh2 As String = dr("电话号码2")
Ports("COM1").Open()
Ports("COM1").Write("ATD+\'"& dh1 &"\'" & vbCrLf)
If instr(1,buffer , "BUSY", vbTextCompare) Then
Buffer = ""
Ports("COM1").Write("ATD+\'"& dh2 &"\'" & vbCrLf)
End If
End If
-- 发布时间：2013/11/27 8:29:00
--
出现什么错误?
-- 发布时间：2013/11/27 9:21:00
--
-- 发布时间：2013/11/27 9:22:00
--
此主题相关图片如下：`25blpycb3{z7(qsnj`ggp.jpg
-- 发布时间：2013/11/27 9:22:00
--
.
此主题相关图片如下：上传图片请参考这里.gif
-- 发布时间：2013/11/27 9:23:00
--
请帮我改改代码
-- 发布时间：2013/11/27 9:24:00
--
没发现你有声明 buffer 这个变量啊? 而且这是一个类型名称吧,也不能用它来命名的.
-- 发布时间：2013/11/27 10:05:00
--
dim buffer as string
Dim kj As String = e.sender.name
Dim dr As DataRow
dr = DataTables("人员表").Find("控件名称 = \'"& kj &"\'")
If dr IsNot Nothing Then
Dim dh1 As String = dr("电话号码1")
Dim dh2 As String = dr("电话号码2")
Ports("COM1").Open()
Ports("COM1").Write("ATD+\'"& dh1 &"\'" & vbCrLf)
If instr(1,buffer , "BUSY", vbTextCompare) Then
Buffer = ""
Ports("COM1").Write("ATD+\'"& dh2 &"\'" & vbCrLf)
End If
End If
-- 发布时间：2013/11/27 10:06:00
--
这样改了之后，虽然不报错，但他只能拨通第一个电话，无法跳转来拨通第二个电话
-- 发布时间：2013/11/27 10:07:00
--
InStr(string1,string2)
返回字符串string2在字符串string1中第一次出现的位置