vios1161
級別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 190 個
工控威望: 308 點
下載積分: 675 分
在線時間: 210(小時)
注冊時間: 2016-07-30
最后登錄: 2024-11-20
查看vios1161的 主題 / 回貼
樓主  發(fā)表于: 2016-11-26 01:07
今天教的直接用 PC 程式來控制機臺 ( 臺灣丙級機電整合術(shù)科第一題 )
用 PC 來程式…真的不方便,還是 Ladder 比較容易。
附上程式
PCtoPLC.rar (73 K) 下载次数:210
private void timerAuto_Tick(object sender, EventArgs e)
        {
            int a1 = X0[0];
            int a0 = X0[1];
            int s0 = X0[2];
            int s1 = X0[3];
            int p0 = X0[4];
            int p1 = X0[5];
            int p2 = X0[6];
            int COS2 = X1[3];
            int COS1 = X1[4];
            int PB1 = X1[5];
            int ST = X1[6];
            int EMS = X1[7];
            int A = Y0[0];
            int R1 = Y0[2];
            int R2 = Y0[4];
            int R3 = Y0[5];
            int BF = Y0[6];
            int BB = Y0[7];
            int RL = Y1[5];
            int YL = Y1[6];
            int GL = Y1[7];
            switch (StepN0 )
            {
                case 1:
                    RL = 0; // Y15 紅燈滅
                    if (a0 == 1 && p0  == 1)
                    {
                        
                        GL = 1; // Y17 綠燈亮

                        if (COS1  == 1 && COS2 ==1 && ST ==1) // COS1 & COS2 & ST
                        {
                            StepN0 = 2;
                            TAuto = 0;
                        }
                    }
                    break;
                case 2:
                    TAuto =TAuto +1;
                    if (TAuto == 10)
                    {
                        R1 = 1;
                        GL = 0;
                        if (s0 == 1)
                        {
                            StepN0 = 3;
                            TAuto = 0;
                        }
                    }
                    break;
                case 3:
                    
                    TAuto =TAuto +1;
                    if(TAuto ==20 && s1 ==1)
                    {
                        StepN0 =4;
                    }
                    break;
                case 4:
                    R1 =0;
                    if (R1 ==0)
                    {
                        A = 1;
                    }
                    
                    if(a1 ==1)
                    {
                        BF = 1;
                        TAuto = TAuto + 1;
                            if (TAuto  == 20)
                            {
                        StepN0 =5;
                            }

                    }
                    break;
                case 5:
                    A  = 0;
                    if(a0==1)
                    {
                        R2=1;
                        if (p1 ==1)
                        {

                            TAuto = 0;
                            StepN0 = 6;
                        }
                    }
                    
                    break;
                case 6:
                    R2 = 0;
                    if(COS2 ==1)
                    {
                        TAuto = 0;
                        StepN0 = 7;
                    }
                    if (COS2 == 0 && ST==1)
                    {
                        TAuto = 0;
                        StepN0 = 7;
                    }
                    break;
                case 7:
                    BF = 0;
                    BB = 1;
                    TAuto = TAuto + 1;
                            if (TAuto  == 10)
                            {
                                R3 = 1;
                                if(p0 ==1)
                                {
                                    StepN0 = 8;
                                    TAuto = 0;
                                }
                            }
                            break;
                case 8:
                            R3 = 0;
                            TAuto = TAuto + 1;

                            if (TAuto == 10)
                            {
                                StepN0 = 1;
                            }
                            break;
            }

        
[ 此帖被vios1161在2016-11-26 15:39重新編輯 ]
source08
級別: 網(wǎng)絡英雄
精華主題: 0
發(fā)帖數(shù)量: 542 個
工控威望: 6774 點
下載積分: 7924 分
在線時間: 211(小時)
注冊時間: 2011-03-01
最后登錄: 2024-12-21
查看source08的 主題 / 回貼
1樓  發(fā)表于: 2016-11-26 08:47
謝謝分享,學習了。
往事如風
科技改變制造
級別: 網(wǎng)絡英雄

精華主題: 0
發(fā)帖數(shù)量: 11284 個
工控威望: 18662 點
下載積分: 12397 分
在線時間: 2698(小時)
注冊時間: 2013-01-31
最后登錄: 2024-12-21
查看往事如風的 主題 / 回貼
2樓  發(fā)表于: 2016-11-26 17:04
學習了,謝謝分享
三人行者必有我?guī)?,擇其善者而從之
oyiwiw
級別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 113 個
工控威望: 267 點
下載積分: 555 分
在線時間: 81(小時)
注冊時間: 2007-10-21
最后登錄: 2024-06-03
查看oyiwiw的 主題 / 回貼
3樓  發(fā)表于: 2016-11-28 19:50
用C#寫的吧,現(xiàn)在用三菱通訊的MX COMPENT軟件很方便,里面有很多函數(shù)。
vios1161
級別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 190 個
工控威望: 308 點
下載積分: 675 分
在線時間: 210(小時)
注冊時間: 2016-07-30
最后登錄: 2024-11-20
查看vios1161的 主題 / 回貼
4樓  發(fā)表于: 2016-11-28 22:46
沒學過…不知道怎用
現(xiàn)在老師準備教 Labview ... 真的拉一拉就好,不用太花時間搞程式語法

引用
引用第3樓oyiwiw于2016-11-28 19:50發(fā)表的  :
用C#寫的吧,現(xiàn)在用三菱通訊的MX COMPENT軟件很方便,里面有很多函數(shù)。
lyntechme
虛心做人,踏實做事
級別: 家園常客
精華主題: 0
發(fā)帖數(shù)量: 563 個
工控威望: 709 點
下載積分: 12711 分
在線時間: 256(小時)
注冊時間: 2012-03-31
最后登錄: 2023-06-04
查看lyntechme的 主題 / 回貼
5樓  發(fā)表于: 2017-02-21 18:35
這個資料不錯啊
 
碎心斷劍
每天給自己一個微笑,快樂幸福少不了
級別: 家園常客
精華主題: 0
發(fā)帖數(shù)量: 173 個
工控威望: 947 點
下載積分: 676 分
在線時間: 69(小時)
注冊時間: 2011-08-31
最后登錄: 2024-12-01
查看碎心斷劍的 主題 / 回貼
6樓  發(fā)表于: 2017-02-21 19:40
好東西謝謝樓主分享希望多多分享哦
每天給自己一個微笑,快樂幸福少不了!呵呵……
金蛇郎君czz
車到山前必有路 czz674613079@163.com
級別: 網(wǎng)絡英雄
精華主題: 0
發(fā)帖數(shù)量: 1928 個
工控威望: 7499 點
下載積分: 464 分
在線時間: 439(小時)
注冊時間: 2019-05-22
最后登錄: 2024-12-21
查看金蛇郎君czz的 主題 / 回貼
7樓  發(fā)表于: 2022-11-28 18:12
學習了,謝謝分享
czz674613079@163.com