Foxtable(狐表)用户栏目专家坐堂 → 已知串口指令为a01d102 要怎么发送a01d102这个内容给串口呢?


  共有7760人关注过本帖树形打印复制链接

主题:已知串口指令为a01d102 要怎么发送a01d102这个内容给串口呢?

帅哥哟,离线,有人找我吗?
cnsjroom
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
已知串口指令为a01d102 要怎么发送a01d102这个内容给串口呢?  发帖心情 Post By:2022/6/29 16:42:00 [只看该作者]

已知串口指令为a01d102 要怎么发送a01d102这个内容给串口呢?

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111390 积分:567014 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/6/29 16:43:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
cnsjroom
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
回复:(有点蓝)http://www.foxtable.com/webhelp/to...  发帖心情 Post By:2022/6/29 17:05:00 [只看该作者]

怎么获取当前所有的端口  然后赋值给选择框呢?

Dim c1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim s As String
For Each sp As String In Ports.PortNames
    s = sp
    s = s & "|"
    Output.Show(s)
Next
c1.ComboList = s

当前代码得到的数据输出为空?


 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111390 积分:567014 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/6/29 17:08:00 [只看该作者]

For Each sp As String In Ports.PortNames
    s = s & "|" & sp
Next
    Output.Show(s)
c1.ComboList = s

 回到顶部
帅哥哟,离线,有人找我吗?
cnsjroom
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
回复:(有点蓝)For Each sp As String In Ports.Por...  发帖心情 Post By:2022/6/29 17:22:00 [只看该作者]

zhDim s As String
For Each sp As String In Ports.PortNames
    If sp.Contains("COM") = False Then
        s = "空"
    Else
        s = s & "|" & sp
    End If
   
Next
Output.Show(s)

 

怎么判断当前是否存在com系列的串口号呢?不存在就提示未空  上述运行直接是空白

 

发送字节  按钮代码如下:

红色部分要怎么表示呢?

 

Dim t1 As WinForm.TextBox = e.Form.Controls("TextBox1")

Dim c1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")

Dim Val()As Byte = New Byte() {t1.Text}

Ports(c1.Text).Write(Val, 0, Val.Length)

 

帮助中的{49,50,51,52}这个代表什么意思呢?


 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111390 积分:567014 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/6/29 17:40:00 [只看该作者]

Dim Val(t1.Text.length - 1) As Byte 

for i as integer = 0 to t1.Text.length - 1
val(i) = Asc(t1.Text(i))
next

 回到顶部
帅哥哟,离线,有人找我吗?
qqzwc
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:162 积分:1151 威望:0 精华:0 注册:2020/2/11 11:42:00
  发帖心情 Post By:2022/10/13 11:11:00 [只看该作者]

Dim str As String = "ABCDEFG"
Dim buf() As Byte = Encoding.ASCII.GetBytes(str)
Ports("COM1").Write(buf, 0, buf.Length)

 回到顶部