国产狂喷潮在线观看-日韩a∨无码中文无码电影-精品午夜中文字幕熟女人妻在线-国内精品久久久久久久电影视-成人欧美一区二区三区a片

supermanxm
級別: 略有小成
精華主題: 0
發帖數量: 285 個
工控威望: 460 點
下載積分: 4355 分
在線時間: 94(小時)
注冊時間: 2022-01-29
最后登錄: 2025-05-28
查看supermanxm的 主題 / 回貼
樓主  發表于: 2023-06-26 23:13
trd(SM412,D6000);
IF D6010<>D6002 THEN     D6010:=D6002;
    FOR ii:=0 TO 49 DO
        Chanliang(ii,8):=Chanliang(ii,7);
        Chanliang(ii,7):=Chanliang(ii,6);
        Chanliang(ii,6):=Chanliang(ii,5);
        Chanliang(ii,5):=Chanliang(ii,4);
        Chanliang(ii,4):=Chanliang(ii,3);
        Chanliang(ii,3):=Chanliang(ii,2);
    END_FOR ii;
END_IF;
IF M6007:=TRUE THEN
    Chengxuhao(D800,0):=D800;
    Chengxuhao(D800,1):=D801;
    Chengxuhao(D800,2):=Chengxuhao(D800,1)+1;
END_IF;
//*求和
FOR ii:=0 TO 49 DO
    FOR jj=2 TO 8 DO
        chanliang(ii,9):=chanliang(ii,9)+chanliang(ii,jj)
    END_FOR jj;
END_FOR ii;    
    
IF M401 THEN
    Z0:=Z0+1
    
    IF Z0>5 THEN    
        Z0:=4
    END_IF;    
END_IF;
IF M400 THEN
    Z0:=Z0-1;
    IF Z0<=0 THEN    
        Z0=0;
    
    END_IF;    
END_IF;    
D6008:=Z0*K10;
qq240559043
干就完了
級別: 略有小成
精華主題: 0
發帖數量: 198 個
工控威望: 339 點
下載積分: 4138 分
在線時間: 146(小時)
注冊時間: 2012-06-06
最后登錄: 2025-07-09
查看qq240559043的 主題 / 回貼
1樓  發表于: 2023-07-16 15:58
bool AddOK,AddNG,ON=true
short AddDatOK,AddDatNG
short Month,Day,DateStamp
short hour

short zero = 0
int int_zero = 0

int DayShift_ProductOKCount                //白班OK總計數
int DayShift_ProductNGCount                //白班NG總計數
int NightShift_ProductOKCount            //夜班OK總計數
int NightShift_ProductNGCount            //夜班NG總計數
float DayPassRate                        //白班良率
float NightPassRate                        //白班良率

int Recipe_OK,Recipe_NG//配方內的NG/OK數量
short Current_Recipe

char date[6]            //date of string
char str_zero[1] = "0"   //字符'0'
int str_len                 //字符長度

//*******************************************配方系統變量的定義**********************
short Recipe_Selection       //選中配方的編號
short Recipe_Count           //配方大小


short Recipe_Creat = 1  //新增配方記錄
short Recipe_Update = 2 //更新所選配方記錄
short Recipe_Delete = 3 //刪除所選配方記錄
//*******************************************配方系統變量的定義**********************

//*******************************************獲取HMI時間日期**********************
GetData(Month, "Local HMI", LW, 9021, 1)    //HMI_月
GetData(Day, "Local HMI", LW, 9020, 1)    //HMI_日
GetData(hour, "Local HMI", LW, 9019, 1)    //HMI_時
//*******************************************獲取HMI時間日期**********************


GetData(DateStamp, "Local HMI", RW, 1000, 1)    //時間戳
GetData(Recipe_Count, "Local HMI", RECIPE, "ProduceCount.Count")
if Recipe_Count > 0 then
    Current_Recipe =  Recipe_Count - 1
else
    Current_Recipe = Recipe_Count
end if


GetData(AddOK, "CODESYS V3 (Ethernet)", "Application.Important_GVL.AddOK", 1)
GetData(AddNG, "CODESYS V3 (Ethernet)", "Application.Important_GVL.AddNG", 1)

GetData(AddDatOK, "CODESYS V3 (Ethernet)", "Application.Important_GVL.AddDatOK", 1)
//********************************************************OK開始累加****************************************
if AddOK and AddDatOK >= 0 then

    //*****************************數據 到達上限后刪除第一組數據*************************
    if DateStamp <> Day and Recipe_Count >= 31 then
        SetData(zero, "Local HMI", RECIPE, "ProduceCount.Selection")                 //選中第一個數據
         SetData(Recipe_Delete, "Local HMI", RECIPE, "ProduceCount.Command")     //刪除選中數據
         DELAY(100)
    end if
    //GetData(AddDatOK, "CODESYS V3 (Ethernet)", "Application.Important_GVL.AddDatOK", 1)
    //*****************************根據時間修改當前數據*************************
    if DateStamp == Day and Recipe_Count > 0 then
    SetData(Current_Recipe, "Local HMI", RECIPE, "ProduceCount.Selection")
    select case hour
        case 0
            GetData(Recipe_OK, "Local HMI", RECIPE, "ProduceCount.OK1")
            Recipe_OK = Recipe_OK + AddDatOK
            SetData(Recipe_OK, "Local HMI", RECIPE, "ProduceCount.OK1")
        break
        case 1
            GetData(Recipe_OK, "Local HMI", RECIPE, "ProduceCount.OK2")
            Recipe_OK = Recipe_OK + AddDatOK
            SetData(Recipe_OK, "Local HMI", RECIPE, "ProduceCount.OK2")    
        break
        case 2
            GetData(Recipe_OK, "Local HMI", RECIPE, "ProduceCount.OK3")    
            Recipe_OK = Recipe_OK + AddDatOK
            SetData(Recipe_OK, "Local HMI", RECIPE, "ProduceCount.OK3")
        break
        case 3
            GetData(Recipe_OK, "Local HMI", RECIPE, "ProduceCount.OK4")    
            Recipe_OK = Recipe_OK + AddDatOK
            SetData(Recipe_OK, "Local HMI", RECIPE, "ProduceCount.OK4")
        break
        case 4
            GetData(Recipe_OK, "Local HMI", RECIPE, "ProduceCount.OK5")    
            Recipe_OK = Recipe_OK + AddDatOK
            SetData(Recipe_OK, "Local HMI", RECIPE, "ProduceCount.OK5")
        break

主站蜘蛛池模板: 无码人妻精品中文字幕免费东京热 | 国产成人一区二区三区影院动漫| 国产成人片无码视频| 国产精品久久国产三级国不卡顿 | 美女内射毛片在线看3d| 精品人妻码一区二区三区| 中国女人内谢69xxxxxa片| 国产精品成人永久在线四虎| 国产99久久久国产精品免费看| 小雪尝禁果又粗又大的视频| 亚洲性无码av在线| 国精产品一品二品国精品69xx| 真实国产老熟女粗口对白| 欧美奶涨边摸边做爰视频| 性色av极品无码专区亚洲| 一道本在线伊人蕉无码| 亚洲天天做日日做天天谢日日欢| 国产精品久久国产三级国不卡顿 | 无码人妻丰满熟妇| 久久精品天天中文字幕人妻| 动漫精品专区一区二区三区不卡 | 高h纯肉无码视频在线观看| 久久精品免费一区二区三区| 性xxxxx欧美极品少妇| 99久久免费国产精精品| 成人精品免费视频在线观看| 色欲久久久天天天综合网精品| 无码成人网站视频免费看| 国产一区视频一区欧美| 亚洲成a∧人片在线播放调教| 公与淑婷厨房猛烈进出视频免费| 久久精品日韩av无码| 中文字幕久久综合久久88| 不卡无码人妻一区二区| 无码精品国产一区二区三区免费| 2020国产精品香蕉在线观看 | 国产成人综合亚洲看片| 无遮挡18禁啪啪免费观看| 国产中文字幕乱人伦在线观看| 男女18禁啪啪无遮挡激烈网站| 99在线精品国自产拍中文字幕 |