Foxtable(狐表)用户栏目专家坐堂 → 我想问:2020年1月12日更新 的版本 目前稳定吗?


  共有2755人关注过本帖平板打印复制链接

主题:我想问:2020年1月12日更新 的版本 目前稳定吗?

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106100 积分:539611 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/19 16:50:00 [只看该作者]

Ports.Add("COM1")
Dim hasCom1 As Boolean
For Each sp As String In Ports.PortNames
    If sp = "COM1" Then
        hasCom1 = True
exit for
    End If
Next
If hasCom1
    With Ports("COM1")
        .Close()
        .Parity = Parity.None
        .Handshake = Handshake.None
        .StopBits = StopBits.One
        .BaudRate = 2400
        .DataBits = 8
        .ReadBufferSize() = 2048
        .WriteBufferSize() = 2048
        .Open
    End With
Else
    msgbox("没有com1")
End If


 回到顶部