请教Authorware里面用ActiveX的MSComm控件,控制串口led灯的程序该如何写!(200分)

  • 主题发起人 主题发起人 pingmeme
  • 开始时间 开始时间
P

pingmeme

Unregistered / Unconfirmed
GUEST, unregistred user!
如题:
我在Authorware7.02加载了微软的MSComm ActiveX控件,想通过他从串口输出一段代码控制led的灯。以前delphi写过串口的,但是Authorware里面如何使用,请教!!!!

附:delphi的串口

Output:=Trim('F0 02 '+strChannelNo+' '+strChannelNo+' FF'); //f0 02 02 02 ff
Len:=Length(Output);
if Len>0 then
begin
i:=1;
count:=1;
//创建一个Variant数组
tmpVar:=VarArrayCreate([1,1],varByte);
while(i<Len) do
begin
//每3个字符串中截取2个字符,转换为16进制
tmpStr:=Copy(Output,i,2);
tmpStr:=LowerCase(tmpStr);
tmpInt:=Main.HexToInt(tmpStr);
if tmpInt=-1 then
begin
ShowMessage('发送的数据格式有问题!');
exit;
end
else begin
tmpVar[Count]:=tmpInt;
Inc(count);
//增大Variant数组
VarArrayRedim(tmpVar,count);
end;
i:=i+3;
end;
frm_Main.MSCommSwitch.Output :=tmpVar;
end;

Sleep(1000);
Application.ProcessMessages;
end;
 
按道理,OCX是哪里都是一样调用的。用一个串口调试工具监控,看你发的数据对不对,这是一个方法。
 
后退
顶部