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