มันเป็นโค๊ด vb6 อ่ะคับ ผม ไม่ค่อยเข้าใจ ช่วยอธิบาย หน่อยอ่ะคับ ผมจะนำโค๊ดนี้ไปใช้กับvb 2008


Private Sub MSComm1_OnComm()
Dim buff As Integer
Select Case SerialPort1.ReadByte
Case SerialPort1.ReadByte 'Received RThreshold
tempbuff2 = MSComm1.Input
If Asc(tempbuff2) = 32 Then buff = ""
If Asc(tempbuff2) <> 32 Then
buff = buff + tempbuff2
End If
If Asc(tempbuff2) = 13 Then

If Mid(buff, 1, 1) = "E" Then
'cali.Label13 = Mid(buff, 2)
DDS = Val(Mid(buff, 2))
End If

If Mid(buff, 1, 1) = "F" Then
cali.Label7(1) = (DDS * 10000) + Val(Mid(buff, 2))
'cali.Label4 = Val(Mid(buff, 2))
DS = Format((cali.Label7(1) * m2 * sig) + c2 - tare1, "0.00")
End If


If Mid(buff, 1, 1) = "G" Then
LDD = Val(Mid(buff, 2))
End If

If Mid(buff, 1, 1) = "H" Then

cali.Label7(0) = (LDD * 10000) + Mid(buff, 2)
LDD = Format(((cali.Label7(0)) * m1 * sig) + c1, "0.000")
'If LDD > 30 Then LDD = LDD + 0.05
' filter(10) = 0
' filter(5) = Format((sig * LDD), "0.0") '- (cali.Label7(1) * 0.8 / 520000), "0.0")
' For i = 1 To 5
' filter(i - 1) = filter(i)
' filter(10) = filter(10) + filter(i - 1)
'Next i
'load = Format(filter(10) / 5 - tare2, "0.00")
Load = Format(LDD - tare2, "0")
End If



buff = ""
End If
End Select

End Sub

จากคุณ อิสรพงษ์ (A:192.168.0.127 X:110.168.157.32)