|
阅读：1289回复：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 + " 对应的坐标：（Ｘ＝" + Str$(x) + "，Ｙ＝" + 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-11 21:21
串口接收二进制数据
ScaleMode = 3设置Form为Pixel 把数据转换一下 |
|
|
板凳#
发布于：2004-03-12 09:30
谢谢2000兄。给分！ :D
|
|
|
|
地板#
发布于：2004-03-12 13:24
这分骗的实在有些容易，我都觉得受之有愧呀，还有什么问题问吧 :D :D
|
|
|
地下室#
发布于：2004-03-17 21:45
这分骗的实在有些容易，我都觉得受之有愧呀，还有什么问题问吧 :D :D 受之有愧就分我一点好了 :D |
|
|
|
5楼#
发布于：2004-04-23 13:54
给我也分一点.
呵呵... |
|
|
