pb如何調用MSSCOMM串口控件(電子稱)

一.插入msscomm控件

insert--------control----------ole---------insert control----------microsoft communications control

二.設置ole_control屬性

三.打開串口代碼

string li_com

//使用COM1端口。
li_com=profilestring("ierp.ini","Parameter","com","1")
ole_2.object.CommPort = integer(li_com)
//设置速率为2400,无奇偶校验，7位数据，一个停止位。
ole_2.object.Settings = "2400,e,7,1"
//读入整个缓冲区的数据。

if ole_2.object.PortOpen = true then
ole_2.object.PortOpen = false
end if

ole_2.object.PortOpen = True

四.取得重量

string ls_re_data

ls_re_data=""
mle_1.text=""
//使用COM1端口。
//ole_2.object.CommPort = 1
////设置速率为2400,无奇偶校验，7位数据，一个停止位。
//ole_2.object.Settings = "2400,e,7,1"
////读入整个缓冲区的数据。//
//
//if ole_2.object.PortOpen = true then
//ole_2.object.PortOpen = false
//end if
//
//ole_2.object.PortOpen = True

ole_2.object.InputLen =0
//打开端口
ole_2.object.InputMode =0

Ole_2.object.outBufferCount=0 //清空发送缓冲区
ole_2.object.InBufferCount=0

ole_2.object.output ="RW" + char(13) + char(10)

sleep(1000)

ls_re_data= string(ole_2.object.Input)

mle_1.text=mid(ls_re_data,8,7)

ole_2.object.output ="MA" + char(13) + char(10)

sleep(1000)
ls_re_data= string(ole_2.object.Input)