if (mscomm1.InBufferSize >15) or (mscomm1.InBufferSize <5) then readstr:=mscomm1.input;
应改为if (mscomm1.InBufferSize >15) then readstr:=mscomm1.input;
应改为if (mscomm1.InBufferSize >15) then readstr:=mscomm1.input;
解决方案 »
- 调用自编的方法时,为什么会报错?
- 本人在写一份关于md5和rsa数据加密安全性能方面的报告,给客户看的!
- 求助 :怎样把多个edit的值循环赋给一个数组?
- 如何编写友立DVD WORKSHOP H2P采集卡软件。
- 问一个很基础的问题,关于多线程?
- on line! TMidasPageProduct组件在什么地方啊
- RichEdit字体高度问题,怎么样才能使两个RichEdit行的高度一致?
- 如何只打印指定的那一条记录?
- 毒、毒、毒!大家对NIMDA的认识有多深
- 这两个Application有什么区别?救命呀!
- 请问高手,智能菜单(如office2000或win2000中的)如何实现?
- 各位大虾QuickReport的问题?请高手看看!多谢!!!!!
this.enabled=.t.
this.interval=250
If thisform.comm2.PortOpen = .f.
thisform.comm2.PortOpen = .T.
Else
if thisform.comm2.dtrenable=.t.
thisform.comm2.inputlen=30
if thisform.comm2.inbuffersize>15
*.or. thisform.comm2.inbuffercount<5
a = thisform.comm2.Input
endif
e =at(chr(02),a,1)
if e<>0
b = substr(a, e + 5, 5)
c = Val(b)
thisform.Text5.value =C
* STR(C)
d = substr(a, e + 2, 1)
If d = "4" .Or. d = "<" Then
thisform.Text5.value = "超载!"
EndIf
If d = "2" .Or. d = ":" .Or. d = "3" .Or. d = ";"
thisform.Text5.value = -C
*'-'+STR(C)
EndIf
If d = "8" .Or. d = "0" .Or. d = "1" Or d = "9"
thisform.Text5.value = C
*STR(C)
EndIf
endif
thisform.comm2.input
endif
EndIf
Sleep(1000);