Net work 1 // kiểm tra điều kiện hoạt động Begin A I2.0 // đọc cổng báo trung tâm cho phép
A I2.1 // đọc cổng báo điện sẵn sàng
A I2.2 // đọc cổng báo đủ các điền kiện liên động A I2.3 // đọc cổng báo nhiên liệu sẵn sàng
A I3.0 // tín hiệu báo khởi động hệ thống cân JNC begin // nhảy quét lại nếu nh cha đủ điều kiện Net work 2 // kiểm tra xem động cơ đã hoạt động cha
A I2.4 // động cơ đá vôi hoạt động JC go1 // động cơ dã hoạt động OPN DBD // mở khối data block
L DBD24 // đa vận tốc mặc định tới đầu vào
T QD4
go1: A I2.5 // động cơ đá sét hoạt động JC go2 // động cơ đã hoạt động
L DBD28 // đa vận tốc mặc định tới đầu ra
T QD8
go2: A I2.6 // động cơ silicat hoạt động JC go3 // động cơ đã hoạt động
L DBD32 // đa vận tốc mặc định tới đầu ra
T QD12
go3: A I2.7 // động cơ quặng hoạt động JC go4 // động cơ đã hoạt động
L DBD36 // đa vận tốc mặc định tới đầu ra
T QD16
Net work 3 // điều chỉnh ổn định tốc độ động cơ đá vôi go4 L ID6 // đọc giá trị trọng lợng m (Kg/m)
L ID10 // đọc giá trị vận tốc động cơ v (m/s) *R // tính lu lợng Qt = m.v
T MD4 // đa giá trị Qđ vào MD4
L DBD0 // đa giá trị Qđ tổng vào ACCU1 L DBD4 // % đá vôi *R // Qđặt đá vôi, ACCU1=Qđ T MD8 // MD8=Qđặt L MD4 // ACCU1=Qthực; ACCU2=Qđặt -R // Qđặt – Qthực = ∆q T MD12 // MD12 = ∆q L DBD20 // ACCU1=K; ACCU2=∆q *R // ∆v=∆q*K
L DBD24 // đa vận tốc đặt vào ACCU1; ACCU2=∆v
T QD4 // đa ra biến tần điều khiển động cơ
Net work 4 // dừng khi Qth > 1,2Qđ hoặc Qth < 0,8 Qđ L MD12 // ACCU1 = ∆q SLD 1 // bít dấu (∆q=Qđ-Qth) vào CC1 JP ACCU1 // khi ∆q<0 (CC1=1 thì∆q<0), lệnh rẽ nhánh khi CC1=1, CC0=0 L 0.80 // trờng hợp Qđ>Qth (∆q<0) L MD8 // Qđ vào ACC1 *R // 0.8Qđ L MD4 // ACCU1=Qth; ACCU2=0,8Qđ -R // 0,8Qđ - Qth
JP đạt 1 // 0,8Qđ > Qth kích đầu vào Timer JMZ xố 1 // xố input Timer nếu 0,8Qđ < Qth An1 L 1.2 // trờng hợp Qđ < Qth
L MD8 // Qđ
*R // 1,2Qđ
L MD4 // ACCU1 = Qth; ACCU2 = 1,2Qđ
-R // 1,2Qđ - Qth
JP xoá 1 // 1,2Qđ > Qth, xố đầu vào Timer JMZ đạt // 1,2Qđ < Qth, kích đầu vào Timer Net work 5 // sử dụng Timer kiểm tra cho đá vôi
A TRUE // gán 1 vào RLO
đạt 1 S M0.0 // gán 1 vào ơ nhớ M0.0 xố 1 R M0.0 // gán 0 vào ô nhớ M0.0
A M0.0 // gán vào Timer T1
L S5T#00H00M20S00MS // thời gian trễ là 20 giây SD T1 // sử dụng Timer trễ theo sờn lên khơng có
nhớ
A T1 // đọc T1 bit (đầu ra Timer) = M0.1 // đa kết quả đọc đợc vào M0.1
Net work 6 // điều chỉnh ổn định tốc độ động cơ đá sét L ID14 // đọc giá trị trọng lợng m (Kg/m)
L ID18 // đọc giá trị vận tốc động cơ (m/s) *R // tính lu lợng Qth=m.v
T MD16 // đa giá trị Qth vào MD4 L DBD0 // đa Qđ tổng vào ACCU1 L DBD8 // % của đá sét *R // Qđ đá sét; ACCU1=Qđ T MD20 // MD20 = Qđ L MD16 // ACCU1 = Qth; ACCU2 = Qđ -R // Qđ - Qth = ∆q T MD24 // MD24 = ∆q L DBD20 // ACCU2 = K; ACCU2 = ∆q *R // ∆v = ∆q*K
+R // v=v+∆v
T QD8 // đa ra biến tần điều khiển động cơ
Net work 7 // dừng khi Qth > 1,2 Qđ hoặc Qth < 0,8 Qđ L MD24 // ACCU1 = ∆q
SLD 1 // bít dấu (∆q = Qđ - Qth) vào CC1 JP Am2 // khi ∆q<0 (CC1=1 thì ∆q âm) L 0.80 // trờng hợp Qđ > Qth (∆q>0) L MD20 // Qđ vào ACCU1
*R // 0,8Qđ
L MD16 // ACCU = Qth; ACCU2 = 0,8Qđ
-R // 0,8Qđ - Qth
JP đạt 2 // 0,8Qđ > Qth, kích đầu vào Timer JMZ xố 2 // xoá input Timer nếu 0,8Qđ < Qth am2 L 1.20 // trờng hợp Qđ < Qth
L MD20 // Qđ
*R // 1,2Qđ
L MD16 // ACCU1 = Qth; ACCU2 = 1,2Qđ
-R // 1,2Qđ - Qth
JP xoá 2 // 1,2Qđ > Qth, xoá đầu vào Timer JMZ đạt 2 // 1,2 Qđ < Qth, kích đầu vào Timer Net work 8 // sử dung Timer kiểm tra cho đá sét
A TRUE // gán 1 vào RLO
đạt 2 S M0.2 // gán 1 cho ơ nhớ M0.2 xố 2 R M0.2 // gán 0 cho ô nhớ M0.2
A M0.2 // đầu vào Timer T2
L S5T#00H00M20S00MS // thời gian trễ là 20 giây SD T2 // sử dụng lợi Timer trễ theo sờn lên khơng
có nhớ
A T2 // đọc T2 bít (đầu ra Timer) = M0.3 // đa kết quả đọc đợc vào M0.3
Net work 9 // điều chỉnh ổn định tốc độ động cơ silicat L ID22 // đọc giá trị trọng lợng m (Kg/m)
L ID26 // đọc giá trị vận tốc động cơ *R // tính lu lợng Qth = m.v T MD28 // đa giá trị Qth vào MD28 L DBD0 // đa Qđ tổng vào ACCU1 L DBD12 // % silicat *R // Qđ silicat; ACCU1 = Qđ T MD32 // MD32 = Qđ L MD28 // ACCU1 = Qth; ACCU2 = Qđ -R // Qđ - Qth = ∆q T MD36 // MD36 = ∆q L DBD20 // ACCU1 = K; ACCU2 ==∆q *R // ∆v = ∆q*K
+R // v=v+∆v
T QD12 // đa ra biến tần điều khiển động cơ.
Net word 10 // dừng khi Qth > 1,2Qđ hoặc Qth < 0,8Qđ (dừng 20giây) silicat
L MD36 // ACCU1 = ∆q
SLD 1 // bít dấu (∆q = Qđ - Qth) vào CC1 JP am3 // khi ∆q < 0 (CC1 = 1 thì ∆q âm) L 0.80 // trờng hợp Qđ > Qth (∆q > 0) L MD32 // Qđ vào ACCU1
*R // 0,8Qđ
L MD28 // ACCU1 = Qth; ACCU2 = 0,8Qđ
-R // 0,8Qđ - Qth
JP đạt 3 // 0,8Qđ > Qth, kích đầu vào Timer JMZ xố 3 // xố input Timer nếu 0,8Qđ < Qth am3 L 1.20 // trờng hợp Qđ < Qth
L MD32 // Qđ
*R // 1,2Qđ
L MD28 // ACCU1 = Qth; ACCU2 = 1,2Qđ
-R // 1,2Qđ - Qth
JP xoá 3 // 1,2Qđ > Qth, xoá đầu vào Timer JMZ đạt 3 // 1,2Qđ < Qth, kích đầu vào Timer Net work 11 // sử dụng Timer điều khiển cho silicat
A TRUE // gán 1 vào RLO
đạt 3 S M0.4 // gán 1 cho ơ nhớ M0,4 xố 3 R M0.4 // gán 0 cho ô nhớ M0,4 A M0.4 // đầu vào cho Timer T3
L S5T#00H00M20S00MS // thời gian trễ là 20 giây SD T3 // sử dụng lợi Timer trễ theo sờn lên khơng
có nhớ
A T3 // đọc T3 bit đầu ra Timer = M0.5 // đa kết quả đọc đợc vào M0,5
Net work 12 // điều chỉnh ổn định tốc độ cho động cơ quặng
L ID30 // đọc giá trị trọng lợng m(Kg/m) L ID34 // đọc giá trị vận tốc động cơ (m/s) *R // tính lu lợng Qth = m.v
T MD40 // đa giá trị Qt vào MD40 L DBD0 // đa Qđ tổng vào ACCU1 L DBD16 // % quặng *R // Qđ quặng, ACCU1 = Qđ T MD44 // MD44 = Qđ L MD40 // ACCU1 = Qth. ACCU2 = Qđ -R // Qđ - Qth = ∆q T MD48 // MD48 = ∆q
L DBD20 // ACCU1 = K, ACCU2 = ∆q
*R // v = ∆q + K
L DBD31 // đa vận tốc đầu vào ACCU1, ACCU2=∆v +R // v = v + ∆v
T QD16 // đa ra biến tần điều khiển động cơ
Net work 13 // dừng khi Qth > 1,2Qđ hoặc Qth < 0,8Qđ dừng 20giây cân quặng
L MD48 // ACCU1 = ∆q
SLD 1 // bít dấu (∆q = Qđ - Qth) vào CC1 JP am4 // khi ∆q < 0 (CC1=1 thì ∆q âm) L 0.80 // trờng hợp Qđ > Qth (∆q >0) L MD44 // Qđ vào ACCU1
*R // 0.8Qđ
L MD40 // ACCU1 = Qth, ACCU2 = 0.8Qđ
-R // 0.8Qđ - Qth
JP đạt 4 // 0.8Qđ > Qth, kích đầu vào Timer JMP xố 4 // xoá đầu vào Timer nếu 0,8Qđ < Qth am4 L 1.20 // trờng hợp Qđ < Qth
L MD44 //Qđ
*R // 1,2Qđ
L MD40 // ACCU1 = Qth, ACCU2 = 1,2Qđ
-R // 1,2Qđ - Qth
JP xoá 4 // 1,2Qđ > Qth, xoá đầu vào Timer JMP đạt 4 // 1,2Qđ < Qth, kích đầu vào Timer Net work 14 // sử dụng Timer kiểm tra điều kiện cho
quặng
A TRUE // gán 1 vào RLO
đạt 4 S M0.6 // gán 1 vào ô nhớ M0,6 xoá 4 R M0.6 // gán 0 vào ô nhớ M0,6 A M0.6 // đầu vào cho Timer T4
L S5T#00H00M20S00MS // thời gian trễ là 20 giây SD T4 // sử dụng lợi Timer trễ theo sờn lên khơng
có nhớ
A T4 // đọc T4 bít đầu ra Timer = M0.7 // đa kết quả đọc đợc vào M0.7 Net work 15 // dừng chơng trình
A I3.1 // tín hiệu báo dừng hệ thống
0 M0.1 // đầu ra Timer T1 khi tải đá vơi có lỗi 0 M0.3 // đầu ra Timer T2 khi tải đá sét có lỗi 0 M0.5 // đầu ra Timer T3 khi tải silicat có lỗi 0 M0.7 // đầu ra Timer T4 khi tải quặng có lỗi
JNC end // kết thúc chu kỳ khơng có sự cố và tín hiệu dừng
L 0.0 // ACCU1 = 0
T QD8 // dừng động cơ đásét T QD12 // dừng động cơ silicat T QD16 // dừng động cơ quặng
R 13.0 // gán giá trị 0 cho tín hiệu khởi động hệ Thống