Siemens PLC SCL Programlama Sorusu

[elektronik67]

Arkadaşlar merhaba,

Aşağıdaki programı kısa yoldan yapma yöntemi var mıdır? Yardımlarınızı rica ederim.

IF #QShiftRegister[53]= True THEN
#bDenemeCapSensor := True;
ELSIF #QShiftRegister[100]= True AND NOT #QShiftRegister[53]= True AND NOT #QShiftRegister[54]= True AND NOT #QShiftRegister[55]= True AND NOT #QShiftRegister[56]= True
AND NOT #QShiftRegister[57]= True AND NOT #QShiftRegister[58]= True AND NOT #QShiftRegister[59]= True AND NOT #QShiftRegister[60]= True AND NOT #QShiftRegister[61]= True AND NOT #QShiftRegister[62]= True
AND NOT #QShiftRegister[63]= True AND NOT #QShiftRegister[64]= True AND NOT #QShiftRegister[65]= True
AND NOT #QShiftRegister[66]= True AND NOT #QShiftRegister[67]= True AND NOT #QShiftRegister[68]= True
AND NOT #QShiftRegister[69]= True AND NOT #QShiftRegister[70]= True AND NOT #QShiftRegister[71]= True
AND NOT #QShiftRegister[72]= True AND NOT #QShiftRegister[73]= True AND NOT #QShiftRegister[74]= True
AND NOT #QShiftRegister[75]= True AND NOT #QShiftRegister[76]= True AND NOT #QShiftRegister[77]= True
AND NOT #QShiftRegister[78]= True
AND NOT #QShiftRegister[79]= True AND NOT #QShiftRegister[80]= True AND NOT #QShiftRegister[81]= True
AND NOT #QShiftRegister[82]= True
AND NOT #QShiftRegister[83]= True AND NOT #QShiftRegister[84]= True AND NOT #QShiftRegister[85]= True
AND NOT #QShiftRegister[86]= True
AND NOT #QShiftRegister[87]= True AND NOT #QShiftRegister[87]= True AND NOT #QShiftRegister[89]= True
AND NOT #QShiftRegister[90]= True
AND NOT #QShiftRegister[91]= True AND NOT #QShiftRegister[92]= True AND NOT #QShiftRegister[93]= True
AND NOT #QShiftRegister[94]= True
AND NOT #QShiftRegister[95]= True AND NOT #QShiftRegister[96]= True AND NOT #QShiftRegister[97]= True
AND NOT #QShiftRegister[98]= True AND NOT #QShiftRegister[99]= True

THEN
#bDenemeCapSensor := False;
END_IF;

 

[macix]

Bu bir FB midir yoksa FC mi sadece merak ettiğim için sordum #QShiftRegister[] input, output, temp yada stat kısmında mı bilmiyoruz. Bunun haricinde program gayet kısa ve net inan bana lader'de da yerleştirmeye çalışırsan daha büyük bir program olacak.

 

[tigruden]

yazdığınız programın %90 ı if şartı olduğundan kısaltma şansınız yok maalesef. Sadece "= true" yazmasanız da olur.

 

[rotsis]

Arkadaşlar merhaba,

Aşağıdaki programı kısa yoldan yapma yöntemi var mıdır? Yardımlarınızı rica ederim.

IF #QShiftRegister[53]= True THEN
#bDenemeCapSensor := True;
ELSIF #QShiftRegister[100]= True AND NOT #QShiftRegister[53]= True AND NOT #QShiftRegister[54]= True AND NOT #QShiftRegister[55]= True AND NOT #QShiftRegister[56]= True
AND NOT #QShiftRegister[57]= True AND NOT #QShiftRegister[58]= True AND NOT #QShiftRegister[59]= True AND NOT #QShiftRegister[60]= True AND NOT #QShiftRegister[61]= True AND NOT #QShiftRegister[62]= True
AND NOT #QShiftRegister[63]= True AND NOT #QShiftRegister[64]= True AND NOT #QShiftRegister[65]= True
AND NOT #QShiftRegister[66]= True AND NOT #QShiftRegister[67]= True AND NOT #QShiftRegister[68]= True
AND NOT #QShiftRegister[69]= True AND NOT #QShiftRegister[70]= True AND NOT #QShiftRegister[71]= True
AND NOT #QShiftRegister[72]= True AND NOT #QShiftRegister[73]= True AND NOT #QShiftRegister[74]= True
AND NOT #QShiftRegister[75]= True AND NOT #QShiftRegister[76]= True AND NOT #QShiftRegister[77]= True
AND NOT #QShiftRegister[78]= True
AND NOT #QShiftRegister[79]= True AND NOT #QShiftRegister[80]= True AND NOT #QShiftRegister[81]= True
AND NOT #QShiftRegister[82]= True
AND NOT #QShiftRegister[83]= True AND NOT #QShiftRegister[84]= True AND NOT #QShiftRegister[85]= True
AND NOT #QShiftRegister[86]= True
AND NOT #QShiftRegister[87]= True AND NOT #QShiftRegister[87]= True AND NOT #QShiftRegister[89]= True
AND NOT #QShiftRegister[90]= True
AND NOT #QShiftRegister[91]= True AND NOT #QShiftRegister[92]= True AND NOT #QShiftRegister[93]= True
AND NOT #QShiftRegister[94]= True
AND NOT #QShiftRegister[95]= True AND NOT #QShiftRegister[96]= True AND NOT #QShiftRegister[97]= True
AND NOT #QShiftRegister[98]= True AND NOT #QShiftRegister[99]= True

THEN
#bDenemeCapSensor := False;
END_IF;

dostum tam olarak ne yapmak istiyor yazılım paylaşırsan farklı yöntemler deneyebiliriz
bDenemeCapSensor : kapasitif bir sensör mü ? eğer öyleyse çıkışta olması ne alaka ?
senin işi pwm çözer bence-tabi çıkışı bu şekilde kontrol etmek istiyorsan