易截截图软件、单文件、免安装、纯绿色、仅160KB

VB数据处理问题 - VB / 网络编程

...
MSComm1.Settings = "115200,N,8,1"
MSComm1.InputMode = 1
MSComm1.InputLen = 0
MSComm1.InBufferSize = 1024
MSComm1.OutBufferSize = 512
...
Private Sub MSComm1_OnComm()  
 On Error Resume Next
  Dim BytesReceived() As Byte
  Dim buffer As String
  Dim data(0 To 31) As Byte
  Dim temp(0 To 3) As Byte
  Dim value(0 To 6) As Integer
  Dim vvalue(0 To 6) As Double
  Dim fvalue(0 To 6) As Double
  Select Case MSComm1.CommEvent
  Case comEvCD
  Case comEvCTS
  Case comEvRing
  Case comEvReceive  
  MSComm1.InputLen = 0  
  buffer = MSComm1.Input  
  BytesReceived() = buffer  
   
  For i = 0 To 31
  data(i) = BytesReceived(i)
  Next

  If data(0) = 170 And data(1) = 170 And data(30) = 187 And data(31) =187 Then  
   
  temp(0) = data(2)
  temp(1) = data(3)
  temp(2) = data(4)
  temp(3) = data(5)


相关问答:

vb超简单form.show的问题 - VB / 非技术类

为什么我用form.show和form.hide多次连接了两个窗口只能互换链接两次啊?
代码看看
照道理form.show 没次数限定的吧

我也快疯了。
楼主知道怎么发贴么?

引用
我也快疯了。
楼主知道怎么发贴么?
楼主也 ......

vb操作excel - VB / 基础类

问题:
现在Access数据库中有两张表TableA和TableB
TableA中有记录如下:
字段1(Name) 字段2(Num)
  A 3
  A 4
  B 6
  ... ......

求助:C代码改写成VB代码 - VB / 基础类

谁能帮我把下面这些代码改成VB形式的,多谢了,急用~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......

求助:C代码change toVB代码 - VB / 基础类

挺繁琐,之前发的帖子,分值太低现在重发一个。欢迎各位大侠~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[] ......

vb中unicode码,如何转换成文本 - VB / 基础类

用VB编程读取短信,得到一大堆unicode编码,请教如何转换成文本
例如:读取短信后(华为900C或TC35i),串口得到如下数据:
+CMGL: 17,"REC UNREAD","8615007557713",,"10/03/30,09:37:15+32&qu ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号