易截截图软件、单文件、免安装、纯绿色、仅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 - VB / 非技术类

怎么把已知的数据保存成xml文件,现在已知的数据是
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:o=& ......

vb读取xml - VB / 基础类

现在有个xml文件是<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xm ......

vb - VB / 基础类

xmlDoc1.loadXML(h)总是返回false,为什么?谢谢帮忙回答一下
h是什么呢。。。。。。。。。

h是xml格式的字符串

你是想打开。XML格式的文件吧?

我是把h放在xmlDoc1里,用xmlDoc1.loadXML(h),然后取xmlDo ......

中山的VB程序员进来看一下 - VB / 非技术类

刚建了一个群:中山VB编程(105787219)
有在中山及中山周边的程序员请加入.大家一起探讨问题.合作项目.
尽管俺不是中山的,也进来蹭分……

佛山的行吗,广州的行吗?

友情支持
回复内容太短了! 

帮顶 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号