script yazmak

Katılım
6 Ağu 2008
Mesajlar
59
Puanları
1
Yaş
39
arkadaşlar dokunkatik ekranlarda script yazan kimse yokmu .yardımcı olsun bunu nasıl öğrenebiliriz....saygılarımla iyi çalışmalar...
 
Yazımızda endüstrinin can damarı sayılabilecek PLC’yi inceleyeceğiz.
KNX Standardı, küçük bir rezidansın içerisindeki aydınlatma, perde panjur, klima kontrolünden, Dünya’nın en büyük havalimanlarındaki aydınlatma otomasyonu gibi çözümler için tercih edilen bir Dünya standardıdır.
arkadaşım marka model belirtirsen yardımcı olmaya çalışırız bende deltada scrip(makro) içeren örnek varr
 
arkadaşım marka model belirtirsen yardımcı olmaya çalışırız bende deltada scrip(makro) içeren örnek varr

by ilhan_mkp
ben telemekaniq ürünlerinden xbtgt srisi ekran kullanıyorum.xbtgt 2110 ve üst serileri..bu script bütün ekranlar için geçerlimi.yoksa değişiyormu tabiki elinizde varsa gönderirseniz memnun olurum.tekrar görüşmek üzere...
 
değişiyor üstat fakat üç aşağı beş yukarı benzer olur ben telemecanique kullanmadımm ne amaçla scrip yazmak istiyosun söylersen belki yardımcı olan çıkar
 
Kod:
$2 = INITCOM(0, 0, 1, 0, 0, 6, 0)
SELECTCOM(0)
$101=13
$102=10

CHR($800, "FR"FX"")
$3 = PUTCHARS($800, 6, 800)
$3 = PUTCHARS($101, 1, 800)
$3 = PUTCHARS($102, 1, 800)

CHR($104, "?")
$3 = PUTCHARS($104, 1, 800)
$3 = PUTCHARS($101, 1, 800)
$3 = PUTCHARS($102, 1, 800)

#1. değişken
IF $M200 > 0 THEN GOTO LABEL 1
CHR($M200, ".")
LABEL 1
$3 = PUTCHARS($M200, 10, 800)
$3 = PUTCHARS($101, 1, 800)
$3 = PUTCHARS($102, 1, 800)

#2. değişken
IF $M220 > 0 THEN GOTO LABEL 2
CHR($M220, ".")
LABEL 2
$3 = PUTCHARS($M220, 20, 800)
$3 = PUTCHARS($101, 1, 800)
$3 = PUTCHARS($102, 1, 800)

#3. değişken
IF $M240 > 0 THEN GOTO LABEL 3
CHR($M240, ".")
LABEL 3
$3 = PUTCHARS($M240, 20, 800)
$3 = PUTCHARS($101, 1, 800)
$3 = PUTCHARS($102, 1, 800)

#4. değişken
IF $M260 > 0 THEN GOTO LABEL 4
CHR($M260, ".")
LABEL 4
$3 = PUTCHARS($M260, 20, 800)
$3 = PUTCHARS($101, 1, 800)
$3 = PUTCHARS($102, 1, 800)

#5. değişken
IF $M280 > 0 THEN GOTO LABEL 5
CHR($M280, ".")
LABEL 5
$3 = PUTCHARS($M280, 20, 800)
$3 = PUTCHARS($101, 1, 800)
$3 = PUTCHARS($102, 1, 800)

#6. değişken
IF $M300 > 0 THEN GOTO LABEL 6
CHR($M300, ".")
LABEL 6
$3 = PUTCHARS($M300, 20, 800)
$3 = PUTCHARS($101, 1, 800)
$3 = PUTCHARS($102, 1, 800)

##7. değişken
IF $M320 > 0 THEN GOTO LABEL 7
CHR($M320, ".")
LABEL 7
$3 = PUTCHARS($M320, 20, 800)
$3 = PUTCHARS($101, 1, 800)
$3 = PUTCHARS($102, 1, 800)


#8. değişken
#$700=(1@D15)
$700=(1@D170)
DELAY(100)
$3 = PUTCHARS($700, 2, 800)
$701=(1@D171)
DELAY(100)
$3 = PUTCHARS($701, 1, 800)
CHR($800, ".")
DELAY(100)
$3 = PUTCHARS($800, 1, 800)
DELAY(100)
SWAP($180, $701, 1)
DELAY(100)
$3 = PUTCHARS($180, 1, 800)
DELAY(100)
#$702=(1@D172)
#$3 = PUTCHARS($702, 1, 800)
DELAY(100)

$3 = PUTCHARS($101, 1, 800)
$3 = PUTCHARS($102, 1, 800)


#9. değişken
$3 = PUTCHARS($700, 2, 800)
$3 = PUTCHARS($701, 1, 800)
$3 = PUTCHARS($800, 1, 800)
$3 = PUTCHARS($180, 1, 800)
#$3 = PUTCHARS($702, 1, 800)
CHR($350, "m")
$3 = PUTCHARS($350, 1, 800)

$3 = PUTCHARS($101, 1, 800)
$3 = PUTCHARS($102, 1, 800)


CHR($103, "P1")
$3 = PUTCHARS($103, 2, 800)

$3 = PUTCHARS($101, 1, 800)
$3 = PUTCHARS($102, 1, 800)

CLEARCOMBUFFER(0, 1)
END


üstadımm böyle bişi deltada şu an delta manuelini alıp örneğe baksan bi şeyler şekillenir sanırım bu örnekte seri porta veri döküyoruzz
 
Moderatör tarafında düzenlendi:
$2 = INITCOM(0, 0, 1, 0, 0, 6, 0)
SELECTCOM(0)
$101=13
$102=10

CHR($800, "FR"FX"")
$3 = PUTCHARS($800, 6, 800)
$3 = PUTCHARS($101, 1, 800)
$3 = PUTCHARS($102, 1, 800)

CHR($104, "?")
$3 = PUTCHARS($104, 1, 800)
$3 = PUTCHARS($101, 1, 800)
$3 = PUTCHARS($102, 1, 800)

#1. değişken
IF $M200 > 0 THEN GOTO LABEL 1
CHR($M200, ".")
LABEL 1
$3 = PUTCHARS($M200, 10, 800)
$3 = PUTCHARS($101, 1, 800)
$3 = PUTCHARS($102, 1, 800)

#2. değişken
IF $M220 > 0 THEN GOTO LABEL 2
CHR($M220, ".")
LABEL 2
$3 = PUTCHARS($M220, 20, 800)
$3 = PUTCHARS($101, 1, 800)
$3 = PUTCHARS($102, 1, 800)

#3. değişken
IF $M240 > 0 THEN GOTO LABEL 3
CHR($M240, ".")
LABEL 3
$3 = PUTCHARS($M240, 20, 800)
$3 = PUTCHARS($101, 1, 800)
$3 = PUTCHARS($102, 1, 800)

#4. değişken
IF $M260 > 0 THEN GOTO LABEL 4
CHR($M260, ".")
LABEL 4
$3 = PUTCHARS($M260, 20, 800)
$3 = PUTCHARS($101, 1, 800)
$3 = PUTCHARS($102, 1, 800)

#5. değişken
IF $M280 > 0 THEN GOTO LABEL 5
CHR($M280, ".")
LABEL 5
$3 = PUTCHARS($M280, 20, 800)
$3 = PUTCHARS($101, 1, 800)
$3 = PUTCHARS($102, 1, 800)

#6. değişken
IF $M300 > 0 THEN GOTO LABEL 6
CHR($M300, ".")
LABEL 6
$3 = PUTCHARS($M300, 20, 800)
$3 = PUTCHARS($101, 1, 800)
$3 = PUTCHARS($102, 1, 800)

##7. değişken
IF $M320 > 0 THEN GOTO LABEL 7
CHR($M320, ".")
LABEL 7
$3 = PUTCHARS($M320, 20, 800)
$3 = PUTCHARS($101, 1, 800)
$3 = PUTCHARS($102, 1, 800)


#8. değişken
#$700=(1@D15)
$700=(1@D170)
DELAY(100)
$3 = PUTCHARS($700, 2, 800)
$701=(1@D171)
DELAY(100)
$3 = PUTCHARS($701, 1, 800)
CHR($800, ".")
DELAY(100)
$3 = PUTCHARS($800, 1, 800)
DELAY(100)
SWAP($180, $701, 1)
DELAY(100)
$3 = PUTCHARS($180, 1, 800)
DELAY(100)
#$702=(1@D172)
#$3 = PUTCHARS($702, 1, 800)
DELAY(100)

$3 = PUTCHARS($101, 1, 800)
$3 = PUTCHARS($102, 1, 800)


#9. değişken
$3 = PUTCHARS($700, 2, 800)
$3 = PUTCHARS($701, 1, 800)
$3 = PUTCHARS($800, 1, 800)
$3 = PUTCHARS($180, 1, 800)
#$3 = PUTCHARS($702, 1, 800)
CHR($350, "m")
$3 = PUTCHARS($350, 1, 800)

$3 = PUTCHARS($101, 1, 800)
$3 = PUTCHARS($102, 1, 800)


CHR($103, "P1")
$3 = PUTCHARS($103, 2, 800)

$3 = PUTCHARS($101, 1, 800)
$3 = PUTCHARS($102, 1, 800)

CLEARCOMBUFFER(0, 1)
END


üstadımm böyle bişi deltada şu an delta manuelini alıp örneğe baksan bi şeyler şekillenir sanırım bu örnekte seri porta veri döküyoruzz

sayın ilhan_mkb cavabınız için sağolun ama elimdeki telemecanique script örneklerine baktığımda tamamen farklı.sadece java scriptin kodalrı birbirini tutuyor..(then,if,else gibi)benim scriptle yapmak isteğim dokunmatik ekranlarda animasyonyapmak.değişkenlerle scripti haberleştirmek gibi_reçete hazırlanması,,vs..
 
script ile tam olarak ne yapılmak isteniyor, onu yazarsanız ve boş vakit bulursam yardımcı olmaya çalışayım. Bu konuda kendini geliştirmek isteyen arkadaşlar bir programlama dilini bilmeli pc programcısı gibi düşünebilmelidir. Gerisi telemecanique, siemens, delta vb HMI ürünlerinin help dosyalarında bol bol gezintiye ve deneme yanılmaya ihitiyaç duyar.
 
sqayın ceyhan bey evet;
1 benim script dili ile ilgili pek bilgim yok;
java script cam adresine baktım pc scriptlerinden bahsediyo,yani hmi ekranların scriptleri ile çok farklı,
bunun için dediğiniz gibi help manueli kısmına bakmak gerekiyor,,,ama işte baksam bile anlamıyorum,benim öğrenebileceğim çözüm yolu varmı yani illa pc programcısımı olmak gerekiyor..
 
İşin zorluğu şurda. Java Script en fazla web tarayıcılarda kullanılan bir betik dili. Dolayısıyla internette bulabileceğin tüm örnekler web tarayıcılar ile ilgili uygulamalar. Ama bu bizim gibi endüstriyel programcıların işine pek yaramaz. Java Scrip' in sintaksını anlayıp HMI' ın kendi nesne modeline göre bunları uygulamak gerekiyor. İşin kötü yanı HMI notları da yetersiz olduğu için insanın bayağı ot yolmak zorunda kalması.
Bu durumda önerim evren genişliyor, evren genişliyor, evren genişliyor, evren genişliyor diye bol bol sabır. Sabrın sonu selamettir biliyorsun.
 
sayın ceyhan bey hakikaten çok güzel açıkladınız.popülaritenizi yükselttim.:)))))saygılarımla
 

Forum istatistikleri

Konular
128,472
Mesajlar
917,841
Kullanıcılar
450,424
Son üye
mariam

Yeni konular

Geri
Üst