1. sayfa (Toplam 1 sayfa)
döngü
Gönderilme zamanı: 22 Ağu 2025, 08:31
gönderen iy2434
IF RCP0 > 0
BITON $M0.1
ELSE
BITOFF $M0.1
endif
IF RCP4 > 0
BITON $M0.2
ELSE
BITOFF $M0.2
endif
IF RCP8 > 0
BITON $M0.3
ELSE
BITOFF $M0.3
endif
IF RCP12 > 0
BITON $M0.4
ELSE
BITOFF $M0.4
endif
bu şekildeki makroyu döngü ile nasıl yaparım
Re: döngü
Gönderilme zamanı: 22 Ağu 2025, 09:37
gönderen Yakup
Merhaba,
Yazmış olduğunuz konutlarını hangi programda yazdınız ,
M bitlerini delta tarafında M0,M1 ... şeklinde gösterilir , Rcp0 olarak yazdığınız isim sizin reçetenizden mi geliyor?, şayet ondan geliyorsa ENRCP0 deltada bu şekilde gösterilir.
Re: döngü
Gönderilme zamanı: 25 Ağu 2025, 20:02
gönderen iy2434
Dopsoft ile yazdım 32 bit reçetede bu şekildedir
Re: döngü
Gönderilme zamanı: 26 Ağu 2025, 09:18
gönderen Yakup
HMI programının en güncel versiyonu DiaScreen 1.6.0 versiyonudur, programızını güncelledikten sonra convert işlemi yapıp tekrardan test eder misiniz .
Re: döngü
Gönderilme zamanı: 01 Eyl 2025, 09:24
gönderen iy2434
yakup bey benim kodlarla bir sorunumu yok gayet güzel çalışıyor ben bu kodları kısalta bilmek adına for döngüsü ile nasıl yaparım onu soruyorum
Re: döngü
Gönderilme zamanı: 01 Eyl 2025, 10:00
gönderen Yakup
Merhaba,
Yazmış olduğunuz makroyu kaç sefer çalıştırmak istiyorsunuz,
For makrosunuz çalışma mantığını ve örneğini ekte bulabilirsiniz.
For döngüsü.pdf
Re: döngü
Gönderilme zamanı: 01 Eyl 2025, 11:31
gönderen iy2434
yakup bey örnek olarak ben
for 90
$100=$100+1
next
IF RCP($100) > 0 bu satıra dikkat
BITON $M0.1
ELSE
BITOFF $M0.1
endif
bu şekildemi yapmalıyım
Re: döngü
Gönderilme zamanı: 01 Eyl 2025, 11:38
gönderen Yakup
For döngüsü kullanıp
IF RCP($100) > 0BITON $M0.1
ELSE
BITOFF $M0.1
endif
bu makroyu 90 sefer çalıştırmak mı istiyorsunuz
Re: döngü
Gönderilme zamanı: 01 Eyl 2025, 11:46
gönderen iy2434
evet
Re: döngü
Gönderilme zamanı: 01 Eyl 2025, 13:23
gönderen Yakup
IF 0 == $200
FOR 5
$100=$100+1
IF RCP0 > 0
BITON $M0.1
ELSE
BITOFF $M0.1
endif
IF RCP4 > 0
BITON $M0.2
ELSE
BITOFF $M0.2
endif
IF RCP8 > 0
BITON $M0.3
ELSE
BITOFF $M0.3
endif
IF RCP12 > 0
BITON $M0.4
ELSE
BITOFF $M0.4
endif
NEXT
$200 = 1
ENDIF
END