我今年快50了，剛自學VB，單位的小年輕寫了一些代碼，沒注釋，請幫忙注釋一下。代碼如下：
If UBound(ReceiveBuffer) > 103 Then
datatemp2 = Hex(ReceiveBuffer(3)) & " " & Hex(ReceiveBuffer(4))
datatemp(8) = ReceiveBuffer(23)
datatemp(10) = ReceiveBuffer(26)
datatemp(0) = (ReceiveBuffer(4) + ReceiveBuffer(3) * 256) * 0.1
datatemp(1) = (ReceiveBuffer(6) + ReceiveBuffer(5) * 256) * 0.1
datatemp(2) = (ReceiveBuffer(8) + ReceiveBuffer(7) * 256) * 0.1
datatemp(3) = (ReceiveBuffer(10) + ReceiveBuffer(9) * 256) * 0.0001 * 10 ^ datatemp(8)
datatemp(4) = (ReceiveBuffer(12) + ReceiveBuffer(11) * 256) * 0.0001 * 10 ^ datatemp(8)
datatemp(5) = (ReceiveBuffer(14) + ReceiveBuffer(13) * 256) * 0.0001 * 10 ^ datatemp(8)
datatemp(6) = (ReceiveBuffer(16) + ReceiveBuffer(15) * 256) * 0.0000001 * 10 ^ datatemp(10)
datatemp(7) = (ReceiveBuffer(18) + ReceiveBuffer(17) * 256) * 0.0000001 * 10 ^ datatemp(10)
datatemp(9) = (ReceiveBuffer(30) + ReceiveBuffer(29) * 256 + ReceiveBuffer(28) * 65536) * 0.001 * (ReceiveBuffer(102) + ReceiveBuffer(101) * 256)
End If
If num < 10 Then
Text1(num - 1).Text = Format$(datatemp(0), "0.0")
Text2(num - 1).Text = Format$(datatemp(3), "0.000")
Text3(num - 1).Text = Format$(datatemp(1), "0.0")
Text4(num - 1).Text = Format$(datatemp(4), "0.000")
Text6(num - 1).Text = Format$(datatemp(5), "0.000")
Text5(num - 1).Text = Format$(datatemp(2), "0.0")
Text7(num - 1).Text = Format$(datatemp(6), "0.00")
Text8(num - 1).Text = Format$(datatemp(9), "0.00")
End If
If num > 9 Then
Form1.Text1(num - 10).Text = Format$(datatemp(0), "0.0")
Form1.Text2(num - 10).Text = Format$(datatemp(3), "0.000")
Form1.Text3(num - 10).Text = Format$(datatemp(1), "0.0")
Form1.Text4(num - 10).Text = Format$(datatemp(4), "0.000")
Form1.Text6(num - 10).Text = Format$(datatemp(5), "0.000")
Form1.Text5(num - 10).Text = Format$(datatemp(2), "0.0")
Form1.Text7(num - 10).Text = Format$(datatemp(6), "0.00")
Form1.Text8(num - 10).Text = Format$(datatemp(9), "0.00")
End If
datap(num) = datatemp(9)
還有一段
If MSComm.PortOpen = True Then
Call CommandApply
End If
If num = 17 Then
' data2 = Val(Text1(0).Text) + Val(Text1(1).Text) + Val(Text1(2).Text) + Val(Text1(3).Text) + Val(Text1(4).Text) + Val(Text1(5).Text) + Val(Text1(6).Text) + Val(Text1(7).Text) + Val(Text1(8).Text) + Val(Form1.Text1(0).Text) + Val(Form1.Text1(1).Text) + Val(Form1.Text1(2).Text) + Val(Form1.Text1(3).Text) + Val(Form1.Text1(4).Text) + Val(Form1.Text1(5).Text) + Val(Form1.Text1(6).Text) + Val(Form1.Text1(7).Text) + Val(Form1.Text1(8).Text)
data2 = Val(Text7(0).Text) + Val(Text7(1).Text) + Val(Text7(2).Text) + Val(Text7(3).Text) + Val(Text7(4).Text) + Val(Text7(5).Text) + Val(Text7(6).Text) + Val(Text7(7).Text) + Val(Text7(8).Text) + Val(Form1.Text7(0).Text) + Val(Form1.Text7(1).Text) + Val(Form1.Text7(2).Text) + Val(Form1.Text7(3).Text) + Val(Form1.Text7(4).Text) + Val(Form1.Text7(5).Text) + Val(Form1.Text7(6).Text) + Val(Form1.Text7(7).Text) + Val(Form1.Text7(8).Text)
For i = 0 To 19 '????????
data3 = data3 + datap(i)
Next i
Text9(0).Text = Format$(data3, "0.0")
Text9(1).Text = Format$(data2, "0.0")
Form1.Text9.Text = Format$(data2, "0.0")
data2 = 0
data3 = 0
For i = 0 To 19 '????????
datap(i) = 0
Next i
End If
num = num + 1
If num > 18 Then
num = 0
End If
' For i = 0 To 20 '????????????
' ReceiveBuffer(i) = 0
' Next i
uj5u.com熱心網友回復：
讓他自己加注釋...uj5u.com熱心網友回復：
RTFC！！轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/30206.html
標籤：VB基礎類