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 ?
Bu konu alakasız yere açılmış, benim taşıma yetkim yok. BASIC dilini andırıyor .
Düzenleme: Tamam gereken yapılmış...
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