z4131246
華銘工控
級(jí)別: 工控俠客
精華主題: 0
發(fā)帖數(shù)量: 582 個(gè)
工控威望: 2562 點(diǎn)
下載積分: 23788 分
在線時(shí)間: 521(小時(shí))
注冊(cè)時(shí)間: 2010-10-22
最后登錄: 2022-08-19
查看z4131246的 主題 / 回貼
樓主  發(fā)表于: 2011-04-30 14:31
求各位高手幫我破解下這個(gè)文件很急 這文件是EB6000系列的威綸觸摸屏的文件因?yàn)橐恍┨厥庠蛎艽a沒了 求各位大師幫幫忙破解
[ 此帖被z4131246在2011-05-03 10:43重新編輯 ]
附件: DC400.rar (62 K) 下載次數(shù):30
網(wǎng)站提示: 請(qǐng)不要用迅雷下載附件,容易出錯(cuò)
lilin0734
lilin
級(jí)別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 248 個(gè)
工控威望: 358 點(diǎn)
下載積分: 1111 分
在線時(shí)間: 283(小時(shí))
注冊(cè)時(shí)間: 2007-05-29
最后登錄: 2024-08-02
查看lilin0734的 主題 / 回貼
1樓  發(fā)表于: 2011-05-03 11:00
自己做一個(gè)吧,在里面看到了這個(gè)東西

Macro_Command main()
int tp,sj,sp
bool  a,b,c
GetData(a ,"Panasonic FP", R_Binplc ,1010,1)  
GetData(b ,"Panasonic FP", R_Binplc ,1011,1)
GetData(c ,"Panasonic FP", R_Binplc ,1012,1)
    
If a==False Then
GetData(tp ,"Panasonic FP", DT_Binplc ,630,1)
Else If a==True Then
GetData(tp ,"Panasonic FP", DT_Binplc ,631,1)  
End If
SetData(tp ,"Panasonic FP", DT_Binplc ,620,1)

If b==False Then
GetData(sj ,"Panasonic FP", DT_Binplc ,632,1)
Else If b==True Then
GetData(sj ,"Panasonic FP", DT_Binplc ,633,1)  
End If
SetData(sj ,"Panasonic FP", DT_Binplc ,622,1)

If c==False Then
GetData(sp ,"Panasonic FP", DT_Binplc ,634,1)
Else If c==True Then
GetData(sp ,"Panasonic FP", DT_Binplc ,635,1)  
End If
SetData(sp ,"Panasonic FP", DT_Binplc ,621,1)

End Macro_CommandCommonUnShow               ?  macro_command main()
int a,h1
bool b,c,d,d1,e ,f,g
b=true
c=false
GetData(a ,"本機(jī) 觸摸屏", LW ,9050,1)  
GetData(d ,"Panasonic FP", R ,888,1)
GetData(d1 ,"Panasonic FP", R ,889,1)
GetData(e ,"Panasonic FP", R,493,1)
GetData(f ,"Panasonic FP", R ,492,1)
GetData(g ,"Panasonic FP", R ,350,1)
GetData(h1 ,"Panasonic FP",DT ,87,1)
                      
if e==true then
    SetData(e ,"本機(jī) 觸摸屏", LB_Binplc ,61,1)
end if  
  
if a<> 10 and a<>11  then
    SetData(c ,"本機(jī) 觸摸屏", LB ,60,1)
    SetData(c ,"本機(jī) 觸摸屏", LB ,200,1)
else if f<> true and g<>350  then
   SetData(b ,"本機(jī) 觸摸屏", LB ,60,1)
end if

if h1==37 or h1==38 or h1==39 then
    SetData(c ,"本機(jī) 觸摸屏", LB ,60,1)
    SetData(c ,"本機(jī) 觸摸屏", LB ,200,1)
end if

if a==11 and d==true then
    SetData(c ,"本機(jī) 觸摸屏", LB,60,1)
end if  
if a==11 and d1==true then
    SetData(c ,"本機(jī) 觸摸屏", LB ,60,1)
end if

End Macro_Command
本帖最近評(píng)分記錄:
  • 下載積分:+1(z4131246) 謝謝 真的很感謝你 我實(shí) ..
  • 向前的每一步都不是浪費(fèi)