VB串口与FX通讯-专业自动化论坛-中国工控网论坛

VB串口与FX通讯点击：953 | 回复：5

精华：0帖
求助：0帖
帖子：28帖 | 69回
年度积分：0
历史总积分：215
注册：2005年9月25日

发表于：2007-07-16 21:31:00

楼主

Option Explicit
Dim outdata() As Byte         '定义发送数组，用来存放转换后的命令数据
Dim Rcvlen As Integer        '定义接收到的数据的长度
Dim Rcv() As Byte            '定义接收数组，用来存放接收到的数据
Dim inString As String       '定义输入命令字符串
Dim RcvFinFlag As Boolean    '定义接收完成标志
Dim ReadFlag As Boolean      '定义“读命令”标志
Dim ReSendFlag As Boolean
Dim CheckFlag As Boolean
Dim No1 As Integer           '定义重发次数设定
Dim No2 As Integer           '定义重发次数计数器
Dim FinalDataLen As Integer   '定义接收到数据的最终长度变量
Dim SaveString As String      '定义输入命令暂存字符串变量

Private Sub Cmdopen_Click()
    If Not MSComm1.PortOpen Then MSComm1.PortOpen = True    '如果串口没有打开，打开串口
    inString = "00FFWWAD00100202A11111"    '输入开机命令字符串
    Call send(inString)                   '调用发送子程序，形成命令帧并发送
    Timer1.Enabled = True               '打开“定时读取温度值”定时器
End Sub

Private Sub Cmdset_Click()
    inString = "00FFWWAD0010020251"         '输入命令报文的固定部分
    Dim temp As Variant
    Dim t As Variant
    Dim j As Integer
    temp = Trim(Txtset.Text)                '取设定文本框输入的数据，以字符串的形式处理
    If Not IsNumeric(temp) Then             '如果输入的数据有格式错误
        MsgBox "请按如下范围和格式输入数据：-100.0～300.0", vbExclamation, "输入数据范围错误"
        Exit Sub
    End If
    Dim Temperature As Integer
    If temp > 300 Or temp < -100 Then        '如果超出规定范围之内
          MsgBox "请输入-100.0～300.0之间的数", vbExclamation, "输入数据格式错误"
          Exit Sub
    Else
          Temperature = CInt(10 * Val(temp))     '将输入的数据转换为以0.1度为单位的整数
          t = Hex(Temperature)                   '将输入的温度值转换为十六进制数
          j = Len(t)                             '求转换后的十六进制数的位数

分享到：