进步版本.txt

计算机与CM320模块通信,只是简单的一点,利用AT命令,串口,VB编写!比较粗糙

Private Sub Form_Load()
    Combo1.AddItem "com1"
    Combo1.AddItem "com2"
    Combo1.AddItem "com3"
    Combo1.AddItem "com4"
    Combo1.AddItem "com5"
    Combo1.AddItem "com6"
End Sub

Private Sub Image10_Click()
    Text1.Text = "5"
   End Sub

Private Sub Image11_Click()
    Text1.Text = "6"
   End Sub

Private Sub Image12_Click()
    Text1.Text = "7"
   End Sub

Private Sub Image13_Click()
    Text1.Text = "8"
   End Sub

Private Sub Image14_Click()
    '...退出

    Unload Me
End Sub

Private Sub Image15_Click()
    Text1.Text = "9"
    End Sub

Private Sub Image16_Click()
    Text1.Text = "0"
   End Sub

Private Sub Image2_Click()
      MSComm1.OutBufferCount = 0 '...清空输出寄存器
      MSComm1.Output = "ATH" & vbCr  '...发送数
     End Sub

Private Sub Image3_Click()
      MSComm1.OutBufferCount = 0 '...清空输出寄存器
      MSComm1.Output = "ATD" + Text1.Text + ";" & vbCr '  '  '...发送数
     
End Sub

Private Sub Image5_Click()
    If Combo1.Text = "com1" Then
        MSComm1.CommPort = 1
        MSComm1.Settings = "9600,n,8,1" '...设置通讯参数
        MSComm1.PortOpen = True '...打开串口
       
    End If
    If Combo1.Text = "com2" Then
        MSComm1.CommPort = 2
        MSComm1.Settings = "9600,n,8,1" '...设置通讯参数
        MSComm1.PortOpen = True '...打开串口
        StatusBar1.SimpleText = "选择串口2"
    End If
    If Combo1.Text = "com3" Then
        MSComm1.CommPort = 3
        MSComm1.Settings = "9600,n,8,1" '...设置通讯参数
        MSComm1.PortOpen = True '...打开串口
        StatusBar1.SimpleText = "选择串口3"
    End If
    If Combo1.Text = "com4" Then
        MSComm1.CommPort = 4
        MSComm1.Settings = "9600,n,8,1" '...设置通讯参数
        MSComm1.PortOpen = True '...打开串口
    End If
    If Combo1.Text = "com5" Then
        MSComm1.CommPort = 5
        MSComm1.Settings = "9600,n,8,1" '...设置通讯参数
        MSComm1.PortOpen = True '...打开串口
    End If
    If Combo1.Text = "com6" Then
        MSComm1.CommPort = 6
        MSComm1.Settings = "9600,n,8,1" '...设置通讯参数
        MSComm1.PortOpen = True '...打开串口
    End If
    '...发送数据

  End Sub



Private Sub Image6_Click()
    Text1.Text = "1"
    End Sub


Private Sub Image7_Click()
Text1.Text = "2"
End Sub

Private Sub Image8_Click()
    Text1.Text = "3"
  End Sub

Private Sub Image9_Click()
    Text1.Text = "4"
   End Sub

Private Sub MSComm1_OnComm()
    With MSComm1
        Select Case CommEvent
               Case comEvReceive
                 ' 接收数据
                 ' 对数据进行处理
               Case comEvSend
                 '发送数据
         End Select
         If comEvReceive Then
             Text1.Text = MSComm1.Input
              'MSComm1.InBufferCount = 0
         End If
     End With
End Sub