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
我用VB自带的TextBox控件， Option Explicit Private Type De '块定义 FSize(1 To 1024) As Byte End Type Private Sub Command1_Click() Dim F As De Dim N As Integer Open "C:\WINDOWS\N ......
