Private Sub MSComm1_OnComm() Static num As Integer Dim Buffer As Variant Dim Arr() As Byte receive_cnt = MSComm1.InBufferCount '接收缓冲区的字节数 Buffer = MSComm1.Input Arr = Buffer indate = Val(Arr(0)) '收到的二进制数转换成十进制数 If num = 0 Then Text2.Text = indate ElseIf num = 1 Then Text3.Text = indate End If num = mum + 1 If num = 2 Then num = 0 End If End Sub 我下位机上传两个数据，TEXT2显示第一个数据，TEXT3显示第二个数据。现在，第一次上传的数据显示正常。但是下来显示的数据都在TEXT3中显示是什么问题我从来没玩过 帮顶 谢谢。成功了。我想问一下我的程序为什么会出项那样的问题
比较你我代码的差异.主要是 IF ELSEIF END IF 判断的条件作了改变. Private Sub MSComm1_OnComm() Static num As Integer Static indate0 As Integer Static indate1 As Integer Static wendua As Single Dim Buffer As Variant Dim Arr() As Byte Select Case MSComm1.CommEvent Case comEvReceive
帮我改改 我总觉得有问题 Type ID number As Single score As Integer name As String * 6 End Type Dim personl As ID, i% Private Sub Command1_Click() i = 0 &nbs ......
