还是关于串口与地磅

dklzhq 2005-07-06 09:55:18

andy_KAO你好:
下面是我写的关于读取地磅表头数据的语句,磅头以数据流的形式向串口传输数据,可是占用系统资源太大,机器运行的很慢,问如何解决? 另外我用WIN控件MSCOMM32,但VD3.09版的OLECOU..元件没有提供事件,请问我应如何在元件中调用其他程序?
************ urs232()******
hch=0
aa=0
bb=""
try
assign(edit39.text,"")
if ComPort0.inqueuecount()>26
ComPort0.clearinqueue()
endif
bb=chR(ComPort0.GETCHAR())
if bb="1"
do while .t.
aa=aa+1
if aa>8
exit
endif
bb=chR(ComPort0.GETCHAR())
edit39.text=edit39.text+bb
enddo
endif
*********
readdata()
*********
error
RETURN
endtry

************************** readdata()**********
sa=0
zf=""
pd=.f.
pd8=.f.
*assign(label0.Caption,"0")
if len(edit39.text)<>0
assign(label0.Caption,"")
do while .t.
sa=sa+1
if sa>8
exit
endif
zf=substr(edit39.text,sa,1)
if sa=1 .and. val(zf)=2
pd=.t.
loop
else
if sa=1 .and. val(zf)=8
loop
endif
if val(zf)>0
exit
endif
endif
enddo
if sa=9
assign(label0.Caption,"0")
else
if pd
assign(label0.Caption,"-"+substr(edit39.text,sa,9-sa))
else
assign(label0.Caption,substr(edit39.text,sa,9-sa))
endif
endif
endif

...全文