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;
我在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;