Süre Tayin Etme

[Enfalx]

Öncelikle hepinize merhaba  .Ben pic basicde yeniyim ve bir koda ihtiyacım var.Örneğin ben tuşa bastığım zaman ledin 1dk yanmasını sonra sönmesini sağlayan bir kod var mıdır?Yani 1 dk çalışıp duracak.Benim yapabildiğim basınca çalış ve tekrar basınca kapan gibi oluyor.Yardımlarınızı bekliyorum  .

[OG]

Senin yazdığın kodu buraya eklersen düzeltilir.

[erpay]

Vardır Ama henüz tanımlamadığın noktalar da var mesela, tuşa bastın led yanmaya başladı 30. saniyede bir daha tuşa bastın programın nasıl davranmasını istiyorsun tuşa son basıldığı andan sonra bir dakika ledi yaksın mı yoksa onu görmezden gelip 30 saniye daha ledi yakıp sonra söndürsün mü ? OG'nin dediği kodunu getir üzerinde konuşalım dediğim noktayı da belirtirsen güzel olur.

[एक होना]

picbasic pbp ile aynı şey mi ?

[Enfalx]

Benim istediğim tuşa bastım 30 saniye yandı sonra söndü ve program bitti.

Kod:

TRISA=%0000001
TRISB=%0000000

SAYIM VAR BYTE
SAY VAR BIT

SYMBOL TUS=PORTA.0
SYMBOL LED=PORTB.0

BASLA:
IF TUS=0 THEN
SAY=1
SAYIM=0
HIGH LED
IF SAY=1 THEN
SAYIM=SAYIM+1
IF SAYIM=>180 AND TUS=0 THEN
LOW LED
ENDIF
ENDIF
ENDIF
END

[MrDarK]

Buton sorgusunu kaldırarak olayı çözdüm süreyi 180 ile oynayarak ayarlayabilirsin.

TRISA=%0000001
TRISB=%0000000

SAYIM VAR BYTE
SAY VAR BIT

SYMBOL TUS=PORTA.0
SYMBOL LED=PORTB.0

BASLA:
IF TUS=0 THEN
SAY=1
SAYIM=0
HIGH LED
IF SAY=1 THEN
SAYIM=SAYIM+1
IF SAYIM=>180 THEN
LOW LED
SAY=0
ENDIF
ENDIF
ENDIF
END

[Enfalx]

Buton sorgusunu kaldırarak olayı çözdüm süreyi 180 ile oynayarak ayarlayabilirsin.

TRISA=%0000001
TRISB=%0000000

SAYIM VAR BYTE
SAY VAR BIT

SYMBOL TUS=PORTA.0
SYMBOL LED=PORTB.0

BASLA:
IF TUS=0 THEN
SAY=1
SAYIM=0
HIGH LED
IF SAY=1 THEN
SAYIM=SAYIM+1
IF SAYIM=>180 THEN
LOW LED
SAY=0
ENDIF
ENDIF
ENDIF
END

Teşekkür ederim  .