阅读:1237回复:5
那位兄弟明白VB,给我讲一下下面的代码是咋回事
Private Sub MSComm1_OnComm() '串口接收中断
Dim i%, x%, y% Dim buf$ Select Case MSComm1.CommEvent Case comEvReceive buf = " 触摸屏输出的数据:" InByte = MSComm1.Input If (InByte(0) = &HA0 Or InByte(0) = &H80) And DKCMP Then ScaleMode = 3 For i = LBound(InByte) To UBound(InByte) If InByte(i) > 15 Then s1 = "" Else s1 = "0" End If buf = buf + s1 + Hex(InByte(i)) + "H" + " " 'Chr(32) Next i x = InByte(1) * 64 + InByte(2) y = InByte(3) * 64 + InByte(4) Label2.Caption = buf + " 对应的坐标:(X=" + Str$(x) + ",Y=" + Str$(y) + ")" FillColor = RGB(255, 255, 0) '填充一矩形 x = x - &H30: y = y - &H30 Line (x, y)-(x + 3, y + 3), , B '宽:8415,高:5535 End If End Select End Sub 补充: MSComm1.RThreshold = 5 MSComm1.InputLen = 5 MSComm1.InputMode = comInputModeBinary 这些代码究竟是什么意思!手头什么VB的东西都没有,那位兄弟给解释一下!谢了! |
|
|
沙发#
发布于:2004-03-12 09:30
谢谢2000兄。给分! :D
|
|
|