技术论坛

取之于“民”用之于“民”,几段代码,希望对后来者有帮助

作者 主题
侠士

经验值: 1385
发帖数: 876
精华帖: 6
取之于“民”用之于“民”,几段代码,希望对后来者有帮助
精华帖


只看楼主 只看精华 2006-07-31 19:46:45
取之于“民”用之于“民”,几段代码,希望对后来者有帮助,不要见笑。

1、记录脚本:同一卡片号的每一根钢的数据记录,有多少根,记多少行
#include "apdefap.h"

int gscAction( void )
{
#pragma code ()
char FileName[20] = " ";
double genshu,row,col;
__object* pExcel = NULL;
genshu=GetTagDouble("记数根数");
SetTagDouble("根数记录",genshu);
row=genshu+4;
if((GetTagBit("钢温记录信号")==1))
{
pExcel = __object_create("Excel.Application.9"); //9表示用的是office

2000
pExcel->Visible =0;
pExcel->Workbooks ->Open ("e:\\LZEQ_HMI\\JILU.xls");//Cells(row,col)
pExcel->Worksheets("sheet1")->Cells(row,1)->Value=GetTagWord("记数根数

");
pExcel->Worksheets("sheet1")->Cells(row,2)->Value=GetTagChar("开始时间

");
pExcel->Worksheets("sheet1")->Cells(row,3)->Value=GetTagWord("1#高温计

温度记录");
pExcel->Worksheets("sheet1")->Cells(row,4)->Value=GetTagFloat("1#水箱流

量记录");
pExcel->Worksheets("sheet1")->Cells(row,5)->Value=GetTagWord("2#高温计

温度记录");
pExcel->Worksheets("sheet1")->Cells(row,6)->Value=GetTagFloat("2#水箱流

量记录");
pExcel->Worksheets("sheet1")->Cells(row,7)->Value=GetTagWord("3#高温计

温度记录");
pExcel->Worksheets("sheet1")->Cells(row,8)->Value=GetTagFloat("3#水箱流

量记录");
pExcel->Worksheets("sheet1")->Cells(row,9)->Value=GetTagWord("4#高温计

温度记录");
pExcel->Worksheets("sheet1")->Cells(row,10)->Value=GetTagWord("5#高温计

温度记录");
pExcel->Worksheets("sheet1")->Cells(row,11)->Value=GetTagFloat("4#水箱

流量记录");
pExcel->Worksheets("sheet1")->Cells(row,12)->Value=GetTagWord("6#高温计

温度记录");
pExcel->Worksheets("sheet1")->Cells(row,13)->Value=GetTagWord("7#高温计

温度记录");
pExcel->Worksheets("sheet1")->Cells(row,14)->Value=GetTagFloat("5#水箱

流量记录");
pExcel->Worksheets("sheet1")->Cells(row,15)->Value=GetTagWord("8#高温计

温度记录");
pExcel->Worksheets("sheet1")->Cells(row,16)->Value=GetTagChar("系统时间

");
SetTagBit("钢温记录信号",0);
}
pExcel->ActiveWorkbook->Save;
pExcel->Workbooks->Close();
pExcel->Quit();
__object_delete(pExcel);
return 0;
}

2、存储脚本。每一卡片号的钢记录为一张以卡片号为名的Excel表
#include "apdefap.h"

int gscAction( void )
{
#pragma code ("kernel32.dll")
VOID GetLocalTime(LPSYSTEMTIME lpSystemTime);
#pragma code ()
char FileName[20] = " ";
char* Name;
float guige,hao;
#pragma code("kernel32.dll")
BOOL DeleteFileA(LPCTSTR lpFileName);//声明API函数。
#pragma code()
SYSTEMTIME sysTime;
__object* pExcel = NULL;
GetLocalTime(&sysTime);
hao=GetTagFloat("卡片号_22");

//Name=GetTagChar("卡片号_22");
if (hao==0)
{
Name=GetTagChar("系统时间");

}
else
{
Name=GetTagChar("卡片号_22");

}

guige=GetTagFloat("轧制规格_22");
if (guige>1000)
{
guige=guige/100;
SetTagFloat("成品规格记录",guige);
}
else
{
SetTagFloat("成品规格记录",guige);
}
if ((guige>100)&(guige<1000))
{
guige=guige/10;
SetTagFloat("成品规格记录",guige);
}
else
{
SetTagFloat("成品规格记录",guige);
}

if((GetTagBit("转存")==1))
{
sprintf(FileName,"e:\\LZEQ_HMI\\记录\\%s.xls" ,Name);
pExcel = __object_create("Excel.Application.9"); //9表示用的是office

2000
pExcel->Visible = 0;
pExcel->Workbooks ->Open ("e:\\LZEQ_HMI\\JILU.xls");
pExcel->Worksheets("sheet1")->Range("A2")->Value=GetTagChar("形状");
pExcel->Worksheets("sheet1")->Range("A1")->Value=GetTagChar("控冷");
pExcel->Worksheets("sheet1")->Range("C2")->Value=GetTagFloat("成品规格

记录");
pExcel->Worksheets("sheet1")->Range("F2")->Value=GetTagChar("开始日期

1");
pExcel->Worksheets("sheet1")->Range("J2")->Value=GetTagChar("系统日期

");
pExcel->Worksheets("sheet1")->Range("C3")->Value=GetTagDouble("卡片号

_22");
pExcel->Worksheets("sheet1")->Range("F3")->Value=GetTagChar("钢种_22");
pExcel->Worksheets("sheet1")->Range("I3")->Value=GetTagChar("炉号_22");
pExcel->Worksheets("sheet1")->Range("L3")->Value=GetTagChar("来料规格

_22");
pExcel->Worksheets("sheet1")->Range("O3")->Value=GetTagChar("本卡片号根

数_22");
pExcel->ActiveWorkbook->SaveAs(FileName);
pExcel->Workbooks->Close();
pExcel->Quit();
__object_delete(pExcel);
DeleteFileA("e:\\LZEQ_HMI\\JILU.xls");//调用API函数。
pExcel = __object_create("Excel.Application.9"); //9表示用的是office

2000
pExcel->Visible =0;
pExcel->Workbooks ->Open ("e:\\LZEQ_HMI\\运行数据库初始\\JILU.xls");
pExcel->ActiveWorkbook->SaveAs("e:\\LZEQ_HMI\\JILU.xls");
pExcel->Workbooks->Close();
pExcel->Quit();
__object_delete(pExcel);
SetTagBit("转存",0);
}
return 0;
}

3、记录卡片号查询代码
char FileName[256];

sprintf(FileName,"C:\\Program Files\\Microsoft

Office\\Office\\Excel.exe e:\\LZEQ_HMI\\记录\\%s.xls",GetTagChar("查询

卡片号"));

ProgramExecute(FileName);
 
以下网友喜欢您的帖子:

  
重要声明:

著作权归作者所有。商业转载请联系作者获得授权,非商业转载请注明出处。

帖子链接:https://www.ad.siemens.com.cn/club/bbs/post.aspx?a_id=260479&b_id=5

游士

经验值: 177
发帖数: 209
精华帖: 1
回复:取之于“民”用之于“民”,几段代码,希望对后来者有帮助


只看楼主 只看精华 2006-08-01 08:08:36
):收藏!
我觉得大家都这样论坛肯定可以兴旺!
狭路相逢勇者胜
以下网友喜欢您的帖子:

  
侠圣

经验值: 2621
发帖数: 2301
精华帖: 8
回复:取之于“民”用之于“民”,几段代码,希望对后来者有帮助


只看楼主 只看精华 2006-08-01 08:26:04
支持
 
以下网友喜欢您的帖子:

  
侠圣

经验值: 3120
发帖数: 2161
精华帖: 21
回复:取之于“民”用之于“民”,几段代码,希望对后来者有帮助


只看楼主 只看精华 2006-08-01 09:01:52
不错!
好一句“取之于"民"用之于"民”!
给点鼓励!
雄关漫道真如铁,而今迈步从头越!
以下网友喜欢您的帖子:

  
侠客

经验值: 662
发帖数: 354
精华帖: 1
回复:取之于“民”用之于“民”,几段代码,希望对后来者有帮助


只看楼主 只看精华 2006-08-01 13:23:27
支持啊!终于能看到这样的事列了!学习中!谢谢。,谢谢,谢谢,谢谢
长夜漫漫,无心睡眠!看西门子官方网站。
以下网友喜欢您的帖子:

  
游民

经验值: 100
发帖数: 102
精华帖: 1
回复:取之于“民”用之于“民”,几段代码,希望对后来者有帮助


只看楼主 只看精华 2006-08-04 17:47:50
好东西!要好好学习一下!
张其鹏
以下网友喜欢您的帖子:

  
游士

经验值: 194
发帖数: 58
精华帖: 1
回复:取之于“民”用之于“民”,几段代码,希望对后来者有帮助


只看楼主 只看精华 2006-08-11 17:12:16
值得学习!谢谢!
 
以下网友喜欢您的帖子:

  
侠士

经验值: 1769
发帖数: 913
精华帖: 11
回复:取之于“民”用之于“民”,几段代码,希望对后来者有帮助


只看楼主 只看精华 2006-08-15 12:20:04
不错,的确是好东西.
师出无名
以下网友喜欢您的帖子:

  
新手

经验值: 49
发帖数: 15
精华帖: 0
回复:取之于“民”用之于“民”,几段代码,希望对后来者有帮助


只看楼主 只看精华 2006-08-15 15:12:36
好东西
赶紧收藏
 
以下网友喜欢您的帖子:

  
游民

经验值: 138
发帖数: 108
精华帖: 0
回复:取之于“民”用之于“民”,几段代码,希望对后来者有帮助


只看楼主 只看精华 2006-08-15 21:07:46
应该鼓励
 
以下网友喜欢您的帖子:

  
新手

经验值: 37
发帖数: 20
精华帖: 0
回复:取之于“民”用之于“民”,几段代码,希望对后来者有帮助


只看楼主 只看精华 2006-08-16 15:45:40
应该鼓励

 
以下网友喜欢您的帖子:

  
游侠

经验值: 361
发帖数: 122
精华帖: 1
回复:取之于“民”用之于“民”,几段代码,希望对后来者有帮助


只看楼主 只看精华 2006-09-22 13:43:23
又学了一点
学无止境!
以下网友喜欢您的帖子:

  
侠客

经验值: 602
发帖数: 424
精华帖: 4
回复:取之于“民”用之于“民”,几段代码,希望对后来者有帮助


只看楼主 只看精华 2006-09-22 14:38:51
好贴,支持,交流
 
以下网友喜欢您的帖子:

  
游民

经验值: 104
发帖数: 46
精华帖: 0
回复:取之于“民”用之于“民”,几段代码,希望对后来者有帮助


只看楼主 只看精华 2006-10-05 11:43:04
谢谢分享
 
以下网友喜欢您的帖子:

  
游侠

经验值: 380
发帖数: 182
精华帖: 4
回复:取之于“民”用之于“民”,几段代码,希望对后来者有帮助


只看楼主 只看精华 2006-10-11 17:40:25
支持

guodonger.....
以下网友喜欢您的帖子:

  
  • 上一页
  • 1
  • 下一页
收起
取之于“民”用之于“民”,几段代码,希望对后来者有帮助
×
扫描打开手机版
您收到0封站内信:
×
×
信息提示
很抱歉!您所访问的页面不存在,或网址发生了变化,请稍后再试。