kadirocal90
Üye
- Katılım
- 18 Eyl 2019
- Mesajlar
- 17
- Puanları
- 1
- Yaş
- 34
sıck marka dx35 mesafe sensörü ile hız bilgisi alabilirmiyiz 0-10V ile pozisyon bilgisi gönderiyor
PROGRAM PLC_PRG
VAR
TimeClock : TON;
SampleOLD_mm, SampleVal_mm, SampleNew_mm, Speed_mm_sn: REAL;
END_VAR
TimeClock.IN := NOT TimeClock.Q; (* 10 ms de bir anlık pulse üretir *)
TimeClock.PT := T#10ms;
TimeClock();
IF TimeClock.Q THEN (* 10ms bir örnek alınır *)
SampleNew_mm := SampleVal_mm;
(* yeni örnekle eskisi çıkarılıp 10ms e bölünür *)
Speed_mm_sn := (SampleNew_mm - SampleOLD_mm)/0.01;
SampleOLD_mm := SampleNew_mm; (* Eski değer yeni değere güncellenir *)
END_IF
Kod:PROGRAM PLC_PRG VAR TimeClock : TON; SampleOLD_mm, SampleVal_mm, SampleNew_mm, Speed: REAL; END_VAR TimeClock.IN := NOT TimeClock.Q; (* 10 ms de bir clock pulse üretir *) TimeClock.PT := T#10ms; TimeClock(); IF TimeClock.Q THEN (* 10ms bir örnek alınır *) SampleNew_mm := SampleVal_mm; (* yeni örnekle eskisi çıkarılıp 10ms e bölünür *) Speed := (SampleNew_mm - SampleOLD_mm)/0.01; SampleOLD_mm := SampleNew_mm; (* Eski değer yeni değere güncellenir *) END_IF
A T 10
JCN HSP
L "Hesap".SampleVal_mm
T "Hesap".SampleNew_mm
L "Hesap".SampleNew_mm
L "Hesap".SampleOLD_mm
-R
L 1.000000e-001
/R
T "Hesap".Speed
L "Hesap".SampleNew_mm
T "Hesap".SampleOLD_mm
HSP: NOP 0
AN T 10
L S5T#10MS
SD T 10
Kod:A T 10 JCN HSP L "Hesap".SampleVal_mm T "Hesap".SampleNew_mm L "Hesap".SampleNew_mm L "Hesap".SampleOLD_mm -R L 1.000000e-001 /R T "Hesap".Speed L "Hesap".SampleNew_mm T "Hesap".SampleOLD_mm HSP: NOP 0 AN T 10 L S5T#10MS SD T 10
Kod:PROGRAM PLC_PRG VAR TimeClock : TON; SampleOLD_mm, SampleVal_mm, SampleNew_mm, Speed: REAL; END_VAR TimeClock.IN := NOT TimeClock.Q; (* 10 ms de bir anlık pulse üretir *) TimeClock.PT := T#10ms; TimeClock(); IF TimeClock.Q THEN (* 10ms bir örnek alınır *) SampleNew_mm := SampleVal_mm; (* yeni örnekle eskisi çıkarılıp 10ms e bölünür *) Speed := (SampleNew_mm - SampleOLD_mm)/0.01; SampleOLD_mm := SampleNew_mm; (* Eski değer yeni değere güncellenir *) END_IF