⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 error_04.pma

📁 基于PMAC运动控制卡的八轴数控磨床PLC运动控制程序
💻 PMA
📖 第 1 页 / 共 5 页
字号:
M251 = M251 | 256;792
Else;793
  M251 = M251 & (M251 ^ 256);794
EndIf;795
ENDIF;797
ENDIF;798
If (M970 & 8 = 8);803
P888=P888+1;804
If (P888 > 3);805
P888=0;806
P912=8;807
M10 = M10 | 2;808
P950=1;809
P976 = 0;810
M281 = 2000 * 8388608/I10;811
EndIf;812
ENDIF;813
If (M970 & 32 = 32);819
P889=P889+1;820
If (P889 > 3);821
P889=0;822
P661 = 1   ;824
M251 = M251 & (M251 ^ 512);825
CMD "A";826
M860 = 0;827
M15 = M15 & (M15 ^ 32);829
P901=2;830
M283 = 2000 * 8388608/I10;831
ENDIF;832
Else;833
  M251 = M251 | 512;834
  ENDIF;835
  ;836
  If (P901 = 2);837
  If (M283 !> 0);838
  P901=0;839
  M11 = M11 | 134217728;840
  ENDIF;841
  ENDIF    ;842
  ;843
  If (M970 & 1 = 1) ;844
  ;845
  P663=0;856
  P900=1;857
  ;858
  ;859
If (p1120 = 0);862
  cmd"#1j/";863
  cmd"#2j/";864
  cmd"#3j/";865
  cmd"#4j/";866
  cmd"#5j/";867
  cmd"#6j/";868
  cmd"#7j/";869
  cmd"#8j/";870
  p1120=1;871
EndIf;872
ENDIF;874
If (P900 = 1);876
  ;877
  P900=0;878
  M15 = M15 | 32;879
  M250 = M250 | 16;880
  M250 = M250 | 268435456;881
  ;882
EndIf;883
If (M970 & 16 = 16);885
P890=P890+1;886
If (P890 > 3);887
P890=0;888
P912=16;889
If (P902 = 1);890
M251 = M251 | 1024;892
P1223 = 1;893
Else;894
  ;895
  M251 = M251 & (M251 ^ 1024);896
  P1223 = 0;897
EndIf;898
EndIf;899
ENDIF;900
If (M970 & 1 != 1) ;904
CMD^K;905
P663=1;906
M15 = M15 & (M15 ^ 32);907
p1120=0;910
M250 = M250 | 8 ;924
Else;925
  ;926
  M250 = M250 & (M250 ^ 8);927
  ENDIF;928
  ;929
EndIf    ;930
If (M3 & 134217728 = 134217728);936
M3=0;937
If (P899 = 0);938
  P899=1;939
  M283 = 60000 * 8388608/I10;940
EndIf;941
ENDIF;942
If (P899 = 1);944
  If (M283 !> 0);945
  ;946
  P899=0;947
  ;948
  M0=0;949
  M1=0;950
  M2=0;951
  M3=0;952
  M4=0;953
  M5=0;954
  M6=0;955
  M7=0;956
  ;957
  ;958
  P917=1;959
  ;960
  ;961
  ;962
  ENDIF        ;978
EndIf;979
If (p1221 = 0);981
  m1220=p1228-95000+p1220;982
EndIf;983
If (M250 != M260);991
  M260 = M250;992
  M291=M250 ;993
EndIf;994
If (M251 != M261);996
  M261=M251;997
  M293=M251;998
EndIf;999
EndWhile ;1001
CLOSE;1003
;C:\Lynuc\CNC\PLC\error_04.pmc
;C:\Lynuc\CNC\PLC\ovrd_02.pmc
;C:\Lynuc\CNC\PLC\address.h
;C:\Lynuc\CNC\PLC\ovrd_02.pmc
;C:\Lynuc\CNC\PLC\oemm.h
;C:\Lynuc\CNC\PLC\ovrd_02.pmc
;C:\Lynuc\CNC\PLC\oem.h
;C:\Lynuc\CNC\PLC\ovrd_02.pmc
;C:\Lynuc\CNC\PLC\TSODICK3.h
;C:\Lynuc\CNC\PLC\ovrd_02.pmc
OPEN PLC 2 CLEAR;13
P470 = 0;15
P471 = 0;16
P660 = 0;17
While (1 < 2);18
  ;19
  ;20
  If (M86 & 0 = 0);21
    P1028=0;22
  EndIf;23
  If (M86 & 1 = 1);24
    P1028=10;25
  EndIf;26
  If (M86 & 2 = 2);27
    P1028=20;28
  EndIf;29
  If (M86 & 3 = 3);30
    P1028=30;31
  EndIf;32
  If (M86 & 4 = 4);33
    P1028=40;34
  EndIf;35
  If (M86 & 5 = 5);36
    P1028=50;37
  EndIf;38
  If (M86 & 6 = 6);39
    P1028=60;40
  EndIf;41
  If (M86 & 7 = 7);42
    P1028=70;43
  EndIf;44
  If (M86 & 8 = 8);45
    P1028=80;46
  EndIf;47
  If (M86 & 9 = 9);48
    P1028=90;49
  EndIf;50
  If (M86 & 10 = 10);51
    P1028=100;52
  EndIf;53
  If (M86 & 11 = 11);54
    P1028=110;55
  EndIf;56
  If (M86 & 12 = 12);57
    P1028=120;58
  EndIf;59
  If (M86 & 13 = 13);60
    P1028=130;61
  EndIf;62
  If (M86 & 14 = 14);63
    P1028=140;64
  EndIf;65
  If (M86 & 14 = 14);66
    P1028=150;67
  EndIf;68
  ;69
  ;70
  i122=P1035*0.01*P1028;84
  i222=P1036*0.01*P1028;85
  ;86
  ;87
  ;88
  i322=P1037*0.01*P1028;89
  ;90
  i422=P1038*0.01*P1028;91
  i522=P1039*0.01*P1028;92
  i622=P1040*0.01*P1028;93
  i722=P1041*0.01*P1028;94
  i822=P1042*0.01*P1028;95
  ;96
  ;97
  If (M87 & 0 = 0);98
    P1029=0;99
  EndIf;100
  If (M87 & 1 = 1);101
    P1029=10;102
  EndIf;103
  If (M87 & 2 = 2);104
    P1029=20;105
  EndIf;106
  If (M87 & 3 = 3);107
    P1029=30;108
  EndIf;109
  If (M87 & 4 = 4);110
    P1029=40;111
  EndIf;112
  If (M87 & 5 = 5);113
    P1029=50;114
  EndIf;115
  If (M87 & 6 = 6);116
    P1029=60;117
  EndIf;118
  If (M87 & 7 = 7);119
    P1029=70;120
  EndIf;121
  If (M87 & 8 = 8);122
    P1029=80;123
  EndIf;124
  If (M87 & 9 = 9);125
    P1029=90;126
  EndIf;127
  If (M87 & 10 = 10);128
    P1029=100;129
  EndIf;130
  If (M87 & 11 = 11);131
    P1029=110;132
  EndIf;133
  If (M87 & 12 = 12);134
    P1029=120;135
  EndIf;136
  If (M87 & 13 = 13);137
    P1029=130;138
  EndIf;139
  If (M87 & 14 = 14);140
    P1029=140;141
  EndIf;142
  If (M87 & 15 = 15);143
    P1029=150;144
  EndIf;145
  ;146
  If (M15 & 1 = 1);147
    P1032=P1030*0.01*P1029   ;148
    ;149
  EndIf;150
  ;151
  If (M92 & 1 = 1)  ;152
  M47=1;153
Else If (M92 & 2 = 2);154
  M47=10;155
Else If (M92 & 3 = 3);156
  M47=100;157
EndIf EndIf EndIf;158
If (M81 = 2);163
  M362 = I10              ;164
  ;165
  ;166
  ;167
    ;173
    If (M360 != $2002)  ;174
      M360 = $2002;175
      I5194 = 8388607;176
      M76 = 0;177
    EndIf;178
    M363 = I10            ;179
    If (M361 != $2102)  ;180
      M361 = $2102;181
      I5194 = 8388607;182
      M76 = 0;183
    EndIf;184
    ;185
      ;191
    Else;192
      M364 = M52 * 0.01 * I10  ;193
      M362 = M50 * 0.01 * I10;194
      M365 = M52 * 0.01 * I10;195
      M363 = M50 * 0.01 * I10;196
      ;197
      ;198
      ;199
      ;200
      If (I5194 > 7000000)  ;201
        P660 = P660+1;202
      EndIf;203
      If (P660 = 2);204
        I5194 = 4250;205
        P660 = 0;206
      EndIf;207
      If (I5294 > 7000000)  ;208
        P1130 = P1130+1;209
      EndIf;210
      If (P1130 = 2);211
        I5294 = 4250;212
        P1130 = 0;213
      EndIf;214
      ;215
        ;222
        ;223
        ;224
        If (M330&3 = 3);225
          If (M360 != $10F2)       ;226
          I5194 = 8388607;227
          M76 = 1;228
          M360 = $10F2 ;229
        EndIf;230
      Else;231
        ;232
        I5190 = 60000 ;233
        If (M360 != $2002);234
          I5194 = 4250;235
          M76 = 0;236
          M360 = $2002;237
        EndIf;238
      EndIf;239
      ;240
      ;241
      ;242
      If (M330&3 = 3);243
        If (M361 != $10F3)       ;244
        I5294 = 8388607;245
        M76 = 1;246
        M361 = $10F3;247
      EndIf;248
    Else;249
      ;250
      I5290 = 60000 ;251
      If (M361 != $2102);252
        I5294 = 4250;253
        M76 = 0;254
        M361 = $2102;255
      EndIf;256
    EndIf;257
    ;258
    ;259
    ;260
    ;261
    ;276
    ;277
  EndIf;278
  ;279
EndWhile;280
CLOSE;282
;C:\Lynuc\CNC\PLC\error_04.pmc
;C:\Lynuc\CNC\PLC\handle_03.pmc
;C:\Lynuc\CNC\PLC\address.h
;C:\Lynuc\CNC\PLC\handle_03.pmc
;C:\Lynuc\CNC\PLC\oemm.h
;C:\Lynuc\CNC\PLC\handle_03.pmc
;C:\Lynuc\CNC\PLC\oem.h
;C:\Lynuc\CNC\PLC\handle_03.pmc
;C:\Lynuc\CNC\PLC\tsodick1.h
;C:\Lynuc\CNC\PLC\handle_03.pmc
;C:\Lynuc\CNC\PLC\tsodick2.h
;C:\Lynuc\CNC\PLC\handle_03.pmc
;C:\Lynuc\CNC\PLC\tsodick3.h
;C:\Lynuc\CNC\PLC\handle_03.pmc
OPEN PLC 3 CLEAR;9
If (M92 & 1 = 1)  ;22
M47=1;23
Else If (M92 & 2 = 2);24
  M47=10;25
  ;26
Else If (M92 & 4 = 4);27
  M47=100;28
EndIf EndIf EndIf;29
While (M81 = 2) ;32
If (M7 & 64 = 64);33
  ;34
  If (M71 = 0 Or M71 > 2 Or M6 & 64 = 64);35
    ;36
    ;37
    ;38
    M280 = 70 * 8388608/I10;39
    While (M280 > 0);40
    EndWhile;41
    ;42
    ;43
    ;44
    ;45
    ;46
    ;47
    ;48
      If (M82 = 1 And P1223 = 0 And M819 = 0 And M820 = 0);49
        i106=1;50
        i206=0;51
        i306=0;52
        i406=0;53
        i506=0;54
        i606=0;55
        i706=0;56
        i806=0;57
        ;58
        ;59
        ;60
        i107=30*M47;61
        ;62
      EndIf;63
      ;64
      ;65
      If (M82 = 2 And P1223 = 0 And M821 = 0 And M822 = 0);66
        i106=0;67
        i206=1;68
        i306=0;69
        i406=0;70
        i506=0;71
        i606=0;72
        i706=0;73
        i806=0;74
        i207=30*M47;75
      EndIf;76
      ;77
      ;78
      ;79
      If (M82 = 4 And P1223 = 0 And M823 = 0 And M824 = 0);80
        i106=0;81
        i206=0;82
        i306=1;83
        i406=0;84
        i506=0;85
        i606=0;86
        i706=0;87
        i806=0;88
        i307=30*1.31072*M47;89
      EndIf;90
      ;91
      ;92
      If (M82 = 8 And P1223 = 0 And M865 = 0 And M866 = 0);93
        i106=0;94
        i206=0;95
        i306=0;96
        i406=1;97
        i506=0;98
        i606=0;99
        i706=0;100
        i806=0;101
        i407=30*1.31072*M47;102
      EndIf;103
      ;104
      ;105
      If (M82 = 1 And P1223 = 1 And M867 = 0 And M868 = 0);106
        i106=0;107
        i206=0;108
        i306=0;109
        i406=0;110
        i506=1;111
        i606=0;112
        i706=0;113
        i806=0;114
        i507=30*7.554844*M47;115
      EndIf;116
      ;117
      ;118
      If (M82 = 2 And P1223 = 1 And M869 = 0 And M870 = 0);119
        i106=0;120
        i206=0;121
        i306=0;122
        i406=0;123
        i506=0;124
        i606=1;125
        i706=0;126
        i806=0;127
        i607=3*M47;128
      EndIf;129
      ;130
      ;131
      ;132
      ;133
      If (M82 = 4 And P1223 = 1);134
        i106=0;135
        i206=0;136
        i306=0;137
        i406=0;138
        i506=0;139
        i606=0;140
        i706=1;141
        i806=0;142
        i707=30*M47;143
      EndIf;144
      ;145
      ;146
      If (M82 = 8 And P1223 = 1);147
        i106=0;148
        i206=0;149
        i306=0;150
        i406=0;151
        i506=0;152
        i606=0;153
        i706=0;154
        i806=1;155
        i807=30*M47;156
      EndIf;157
      ;158
    EndIf;159
  EndIf;160
EndWhile;161
While (P456 > 1 And M81 != 2);167
  If (M7 & 128 = 128);168
    If (M71 = 0 Or M71 > 2 Or M6 & 64 = 64);169
      ;170
      ;171
      M280 = 70 * 8388608/I10;172
      While (M280 > 0);173
      EndWhile;174
      ;175
      ;176
      ;177
      If (M82 = 4 And P1223 = 0 And M823 = 0 And M824 = 0);178
        ;179
        i106=0;180
        i206=0;181
        i306=1;182
        i406=0;183
        i506=0;184
        i606=0;185
        i706=0;186
        i806=0;187
        i307=30*1.31072*M47;188
      EndIf;189
      ;190
      ;191
      If (M82 = 8 And P1223 = 0 And M865 = 0 And M866 = 0);192
        i106=0;193
        i206=0;194
        i306=0;195
        i406=1;196
        i506=0;197
        i606=0;198
        i706=0;199
        i806=0;200
        i407=30*1.31072*M47;201
      EndIf;202
      ;203
    EndIf;204
  EndIf;205
EndWhile;206
If (M81 != 2 And M7 & 128 != 128);210
  ;211
EndIf;212
CLOSE;214
;C:\Lynuc\CNC\PLC\error_04.pmc
;C:\Lynuc\CNC\PLC\x_home_10.pmc
;C:\Lynuc\CNC\PLC\address.h
;C:\Lynuc\CNC\PLC\x_home_10.pmc
;C:\Lynuc\CNC\PLC\oem.h
;C:\Lynuc\CNC\PLC\x_home_10.pmc
;C:\Lynuc\CNC\PLC\tsodick1.h
;C:\Lynuc\CNC\PLC\x_home_10.pmc
;C:\Lynuc\CNC\PLC\tsodick2.h
;C:\Lynuc\CNC\PLC\x_home_10.pmc
;C:\Lynuc\CNC\PLC\tsodick3.h
;C:\Lynuc\CNC\PLC\x_home_10.pmc
DELETE GATHER;23
DELETE TRACE;24
OPEN PLC 10 CLEAR;26
i7012=11;31
If (M456 < 0);32
  i122=-100;33
Else;34
  i122=100;35
EndIf;36
I51 = 0;37
If (M380 = 0);40
  If (I123 < 0);41
    cmd"#1 j^1000000";42
  Else;43
    cmd"#1 j^-1000000";44
  EndIf;45
  While (M380 = 0);46
  EndWhile;47
  cmd"#1 j/";48
  ;49
  P733=2;50
  While (P733 > 0);51
    P733=P733-1;52
  EndWhile;53
  While ((M730&1) = 0) ;54
EndWhile;55
EndIf;56
cmd"#1 hm";58
P733=2;61
While (P733 > 0);62
  P733=P733-1;63
EndWhile;64
While ((M730&$400) = 0) ;66
EndWhile;67
P733=5;70
While (P733 > 0);71
  P733=P733-1;72
EndWhile;73
While ((M730&$1) = 0) ;75
EndWhile;76
I51 = 1;82
M3 = M3 & (M3 ^ 262144);83
M3 = M3 & (M3 ^ 524288);84
DISABLE PLC 10;85
CLOSE;86
;C:\Lynuc\CNC\PLC\error_04.pmc
;C:\Lynuc\CNC\PLC\y_home_11.pmc

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -