技术论坛

 回复:斑竹帮我看看

返回主题列表
作者 主题
猪仔天上飞
游民

经验值:141
发帖数:125
精华帖:0
楼主    2007-02-05 13:54:54
主题:斑竹帮我看看
往msflexgrid 里面写东西
char *sRet;
sRet=SysMalloc(20);
SetPropWord("canshu.pdl","控件6","row",1);
SetPropWord("canshu.pdl","控件6","col",1);
sprintf(sRet,"%04X",GetTagByte("CIn.C_In"));
SetPropChar("canshu.pdl","控件6","Text",sRet);
SetPropWord("canshu.pdl","控件6","row",2);
SetPropWord("canshu.pdl","控件6","col",1);
sprintf(sRet,"%04X %04X",GetTagWord("SOut.SOut_1"),GetTagWord("SOut.SOut_2"));
SetPropChar("canshu.pdl","控件6","Text",sRet);
SetPropWord("canshu.pdl","控件6","row",3);
SetPropWord("canshu.pdl","控件6","col",1);
sprintf(sRet,"%04X %04X %04X %04X %04X",GetTagWord("InPlc.In1"),GetTagWord("InPlc.In2"),GetTagWord("InPlc.In3"),GetTagWord("InPlc.In4"),GetTagWord("InPlc.In5"));
SetPropChar("canshu.pdl","控件6","Text",sRet);
SetPropWord("canshu.pdl","控件6","row",4);
SetPropWord("canshu.pdl","控件6","col",1);
sprintf(sRet,"%04X %04X %04X %04X %04X",GetTagWord("OutPlc.Out1"),GetTagWord("OutPlc.Out2"),GetTagWord("OutPlc.Out3"),GetTagWord("OutPlc.Out4"),GetTagWord("OutPlc.Out5"));
SetPropChar("canshu.pdl","控件6","Text",sRet);
SetPropWord("canshu.pdl","控件6","row",5);
SetPropWord("canshu.pdl","控件6","col",1);
sprintf(sRet,"%d",GetTagWord("OutPlcPeel.R_Peel_Clamp"));
SetPropChar("canshu.pdl","控件6","Text",sRet);
SetPropWord("canshu.pdl","控件6","row",6);
SetPropWord("canshu.pdl","控件6","col",1);
sprintf(sRet,"%d",GetTagWord("OutPlcPeel.R_Peel_Torque"));
SetPropChar("canshu.pdl","控件6","Text",sRet);
SetPropWord("canshu.pdl","控件6","row",7);
SetPropWord("canshu.pdl","控件6","col",1);
sprintf(sRet,"%d",GetTagWord("OutPlcSpeed.R_Move_Speed"));
SetPropChar("canshu.pdl","控件6","Text",sRet);
SetPropWord("canshu.pdl","控件6","row",8);
SetPropWord("canshu.pdl","控件6","col",1);
sprintf(sRet,"%d",GetTagWord("OutPlcSpeed.R_Rotate_Speed"));
SetPropChar("canshu.pdl","控件6","Text",sRet);
SetPropWord("canshu.pdl","控件6","row",9);
SetPropWord("canshu.pdl","控件6","col",1);
sprintf(sRet,"%08X %08X %08X",GetTagDWord("Aux.Token"),GetTagDWord("Run.Token1"),GetTagDWord("Run.Token2"));
SetPropChar("canshu.pdl","控件6","Text",sRet); //Return-Type: BOOL
return 1;
这个是代码。。为什么启动项目的时候没有问题。我关了以后重新进脚本编辑。点击确定后。。弹出对话框提示脚本出现问题了?
努力学好PLC
有谁共鸣
侠圣

经验值:3112
发帖数:2153
精华帖:21
    2007-02-05 15:45:15
精华帖  主题:回复:斑竹帮我看看
你这个好象行不通的吧!
我刚刚测试如下的代码给你参考:
#define GetObject GetObject
__object *pdl=NULL;
__object *pic=NULL;
__object *obj=NULL;

int i,j;
pdl = __object_create("PDLRuntime");
pic=pdl->GetPicture(lpszPictureName);
obj=pic->GetObject("MSFlexGrid");

obj->Rows=6;
obj->Cols=6;
obj->Row=0;
obj->Col=0;
obj->Text="参数名称";
obj->Row=0;
obj->Col=1;
obj->Text="参数1";
obj->Row=0;
obj->Col=2;
obj->Text="参数2";
obj->Row=0;
obj->Col=3;
obj->Text="参数3";
obj->Row=0;
obj->Col=4;
obj->Text="参数4";
obj->Row=0;
obj->Col=5;
obj->Text="参数5";

for(i=1;i<6;i++)
{
obj->Row=i;
obj->Col=0;
obj->Text=i;
}

for(i=1;i<6;i++)
for(j=1;j<6;j++)
{
obj->Row=i;
obj->Col=j;
obj->Text=i*j;
}

__object_delete(obj);
__object_delete(pic);
__object_delete(pdl);

同时附上画面文件(canshu.pdl)

点击此处查看附件
雄关漫道真如铁,而今迈步从头越!
您收到0封站内信:
×
×
信息提示
很抱歉!您所访问的页面不存在,或网址发生了变化,请稍后再试。