.. saniye çalışan motora dakika ilave edemedim :(

[efrahim]

IF MENU=1 THEN
           WRITE $09,DUR:PAUSE 2
           GOTO AYAR_MENUSU 
           ENDIF
       lcdout $fe,$C0,"MOTOR CALISMA SURESi "
       lcdout $FE,$94,"SURE :",DEC2 DUR,"saniye"
           IF YUKARI=1 THEN
           DUR=DUR+1
           WHILE YUKARI=1:WEND
           ENDIF   
           IF DUR=60 THEN DUR=0
           IF ASAGI=1 THEN
           DUR=DUR-1
           WHILE ASAGI=1:WEND
           ENDIF
           IF DUR=255 THEN DUR=59
         GOTO MOTO_CALISMA   

kodumuz bu ben istiyorumki sadece ayar kısmında 59 sn  çlşma tercihimiz olmasın dakika ve saniye olsun örn. 1 dk 25 sn çalış diyebilirmiyim yardımcı olurmusunuz ?

[Gökhan BEKEN]

Bu konu alakasız yere açılmış, benim taşıma yetkim yok.  BASIC dilini andırıyor .
Düzenleme: Tamam gereken yapılmış...

[ete]

Kodlar PBP diline ait. İstenilen şeyin yapılması zor değil ancak bu süreninnasıl işlediği kodlarda belli edilmemiş.
İlk hali ile motorun mesela 32 sn çalışması nasıl sağlanıyor. Zamanı kimin tuttuğu belli değil. Böyle oluncada yapılacak ilavenin pek anlamı olmayacak. Ben yinede nasıl yapılacağını göstereyim,
Kolaylık olsun diye DUR değişken ismini SN olarak değiştirdim.

Ete

IF MENU=1 THEN
  WRITE $09,SN,DAK:PAUSE 10
  GOTO AYAR_MENUSU 
ENDIF
  
lcdout $fe,$C0,"MOTOR CALISMA SURESi "
lcdout $FE,$94,"SURE :",DEC2 DAK,":",DEC2 SN," "
IF YUKARI=1 THEN
  SN=SN+1
  IF SN=60 THEN 
    SN=0
    DAK=DAK+1
    IF DAK=60 THEN DAK=0
  WHILE YUKARI=1:WEND
ENDIF   

IF ASAGI=1 THEN
  SN=SN-1
  IF SN=255 THEN 
    SN=59
    DAK=DAK-1
    IF DAK=255 THEN DAK=59
  WHILE ASAGI=1:WEND
ENDIF


GOTO MOTO_CALISMA