自动售货机程序找零博图程序实现

 1、操作界面

2、程序实现

REGION 找零确认
    IF #找零确认 THEN                    //复位
        #"50元张数" := 0.0;
        #"20元张数" := 0.0;
        #"10元张数" := 0.0;
        #"5元张数" := 0.0;
        #"1元张数" := 0.0;
        #"5毛张数" := 0.0;
        "HMI.data".I输入价格 := 0.0;
        FILL_BLK(IN := 0,
                 COUNT := 12,
                 OUT => #St饮料数量[0]);
        #余额不足 := 0;
    END_IF;

END_REGION

REGION    饮料选择 
IF #饮料选择.%X1 THEN
    #购买价格Temp := 2;
END_IF;
IF #饮料选择.%X2 THEN
    #购买价格Temp := 3;
END_IF;
IF #饮料选择.%X3 THEN
    #购买价格Temp := 2;
END_IF;
IF #饮料选择.%X4 THEN
    #购买价格Temp := 4;
END_IF;
IF #饮料选择.%X5 THEN
    #购买价格Temp := 4.5;
END_IF;
IF #饮料选择.%X6 THEN
    #购买价格Temp := 3;
END_IF;
IF #饮料选择.%X7 THEN
    #购买价格Temp := 2;
END_IF;
IF #饮料选择.%X8 THEN
    #购买价格Temp := 4;
END_IF;
IF #饮料选择.%X9 THEN
    #购买价格Temp := 3;
END_IF;
IF #饮料选择.%X10 THEN
    #购买价格Temp := 2;
END_IF;
IF #饮料选择.%X11 THEN
    #购买价格Temp := 1.5;
END_IF;
IF #饮料选择.%X12 THEN
    #购买价格Temp := 1.5;
END_IF;
IF #饮料选择<>0 THEN
    #购买力Temp := #找零 - #购买价格Temp;
    IF #购买力Temp < 0 THEN
        #余额不足 := 1;
    ELSE
        #余额不足 := 0;
    END_IF;
END_IF;
END_REGION

REGION #找零
    #找零 := #输入价格 - (#饮料数量[0] * 2 + #饮料数量[1] * 3 + #饮料数量[2] * 2 + #饮料数量[3] * 4 + #饮料数量[4] * 4.5 + #饮料数量[5] * 3
    + #饮料数量[6] * 2 + #饮料数量[7] * 4 + #饮料数量[8] * 3 + #饮料数量[9] * 2 + #饮料数量[10] * 1.5 + #饮料数量[11] * 1.5);
    
    
    
    #UP1(CLK := #饮料选择 <> 0 AND NOT #余额不足);
    #COUNT := LN(#饮料选择) / LN(2) - 1;
    IF #UP1.Q THEN
        #St饮料数量[#COUNT] := #St饮料数量[#COUNT] + 1;
    END_IF;
    
    
    
    
    #饮料数量 := #St饮料数量;
    
END_REGION

REGION 找零比较
    IF #找零 > 0 AND CEIL(#找零) > #找零 THEN   //找零有小数,
        #"50元张数" := FLOOR(#找零 / 50.0);
        #temp1 := #找零 - 0.5 - #"50元张数" * 50.0;
        #"20元张数" := FLOOR(#temp1 / 20.0);
        #temp2 := #temp1 - #"20元张数" * 20.0;
        #"10元张数" := FLOOR(#temp2 / 10.0);
        #temp3 := #temp2 - #"10元张数" * 10.0;
        #"5元张数" := FLOOR(#temp3 / 5.0);
        #temp4 := #temp3 - #"5元张数" * 5;
        #"1元张数" := FLOOR(#temp4);
        #"5毛张数" := 1;
        ;
    END_IF;
    
    
    IF #找零 > 0 AND CEIL(#找零) = #找零 THEN    //找零是整数
        #"50元张数" := FLOOR(#找零 / 50.0);
        #temp1 := #找零 - #"50元张数" * 50.0;
        #"20元张数" := FLOOR(#temp1 / 20.0);
        #temp2 := #temp1 - #"20元张数" * 20.0;
        #"10元张数" := FLOOR(#temp2 / 10.0);
        #temp3 := #temp2 - #"10元张数" * 10.0;
        #"5元张数" := FLOOR(#temp3 / 5.0);
        #temp4 := #temp3 - #"5元张数" * 5;
        #"1元张数" := FLOOR(#temp4);
        #"5毛张数" := 0;
        ;
    END_IF;
    
    #找5毛张数 := REAL_TO_INT(#"5毛张数");
    #"找1元张数" := REAL_TO_INT(#"1元张数");
    #"找5元张数" := REAL_TO_INT(#"5元张数");
    #"找10元张数" := REAL_TO_INT(#"10元张数");
    #"找20元张数" := REAL_TO_INT(#"20元张数");
    #"找50元张数" := REAL_TO_INT(#"50元张数");
    
END_REGION