ST Desteği lütfen

Cevapla
Kullanıcı avatarı
Otomasyon_Delisi
Mesajlar: 205
Kayıt: 12 Kas 2018, 15:13
İletişim:
Durum: Çevrimdışı

ST Desteği lütfen

Mesaj gönderen Otomasyon_Delisi »

Merhabalar.
CanopenBuilder help dosyasında ST bölümünde SET ve RESET komutlarıyla ilgili bir bilgi maalesef bulamadım.
Aşağıdaki görselde bulunan diyagramı ST dilinde nasıl yazabilirim.
Diyagramda DokAğzıAçık sinyali fiziksel girişten devamlı geldiği için bunu yükselen kenar kullanmak zorundayım.
screenshot_20200121_152956.jpg
Bu mesaja eklenen dosyaları görüntülemek için gerekli izinlere sahip değilsiniz.
Kullanıcı avatarı
Kubilay
Mesajlar: 3
Kayıt: 20 May 2019, 11:53
İletişim:
Durum: Çevrimdışı

Re: ST Desteği lütfen

Mesaj gönderen Kubilay »

Merhaba,

Aşağıdaki kod satırını çalıştırıp gözlemleyebilirsiniz.

EDGEPOS(Varible) kodu yükselen kenarı yakalamaktadır.

Kod: Tümünü seç


IF (p_Manuel_1 AND EDGEPOS(DokAğzıAçık)) OR EDGEPOS(p_Otomatik_2) OR EDGEPOS(TestModeAktif) THEN

FreleriAç:=TRUE;

END_IF;

IF EDGEPOS(YüksekBasınç) OR (TrotAktif AND EDGEPOS(YüksekSıcaklık)) THEN

FrenlariAç:=FALSE;

END_IF;


Kullanıcı avatarı
Otomasyon_Delisi
Mesajlar: 205
Kayıt: 12 Kas 2018, 15:13
İletişim:
Durum: Çevrimdışı

Re: ST Desteği lütfen

Mesaj gönderen Otomasyon_Delisi »

teşekkürler
Kullanıcı avatarı
Otomasyon_Delisi
Mesajlar: 205
Kayıt: 12 Kas 2018, 15:13
İletişim:
Durum: Çevrimdışı

Re: ST Desteği lütfen

Mesaj gönderen Otomasyon_Delisi »

RecepKubilay Bey;
Rica etsem aşağıdaki bir kodu ST olarak nasıl yazabileceğime dair bir örnek daha paylaşırmısınız?
ST.jpg
Bu mesaja eklenen dosyaları görüntülemek için gerekli izinlere sahip değilsiniz.
Kullanıcı avatarı
Uğur
Mesaj Panosu Yöneticisi
Mesajlar: 8876
Kayıt: 06 Mar 2018, 10:37
Konum: İstanbul
İletişim:
Durum: Çevrimdışı

Re: ST Desteği lütfen

Mesaj gönderen Uğur »

Aşağıdaki şekilde denermisiniz.

Kod: Tümünü seç

IF EDGEPOS(A) AND B THEN
MOVE(Deger:= Deger_1);
END_IF;

IF EDGEPOS(A) ANDC THEN
MOVE(Deger:= Deger_2);
END_IF;

IF EDGEPOS(A) AND D THEN
MOVE(Deger:= Deger_3);
END_IF;

IF EDGEPOS(A) AND E THEN
MOVE(Deger:= Deger_4);
END_IF;
Uğur Birdal - Technical Support Team Manager - DELTA Electronics Turkiye

Bildirimler İçin Whatsapp Kanalımıza Katılın
Whatsapp Kanal

https://www.linkedin.com/in/ugurbirdal
Kullanıcı avatarı
Ahmet
Mesajlar: 778
Kayıt: 07 Mar 2018, 14:03
İletişim:
Durum: Çevrimdışı

Re: ST Desteği lütfen

Mesaj gönderen Ahmet »

Aşağıdaki şekildede yazabilirsiniz.

Kod: Tümünü seç

IF EDGEPOS(A) AND B THEN
     Deger := Deger_1 ;
ELSIF EDGEPOS(A) AND C THEN
     Deger := Deger_2 ;   
ELSIF EDGEPOS(A) AND D THEN
     Deger := Deger_3 ;
ELSIF EDGEPOS(A) AND E THEN
     Deger := Deger_4 ;  
END_IF; 
Günün Adamı Olmaya Çalışma,
Hakikatin Adamı Olmaya Çalış.
Unutma!!!!!
Gün Değişir ama Hakikat Asla Değişmez....
............................ Mevlana Celaleddin-i Rumi........
Cevapla

“PLC Forum” sayfasına dön