sayacı durdurup sonucu ekrana yazdırmak

Başlatan Evren KILIÇ, 25 Mart 2011, 16:55:58

Evren KILIÇ


merhaba arkadaşlar aşağıdaki kodlarda
IF SECTEST=1 THEN   den sonra bir sayac (saniye ,salise) çalışıp IF NO=1 olana kadar saymasını NO=1 olduğunda saymayı durdurup sonucu lcd ye  yapmak istiyorum
örnek SECTEST=1 olmasının ardından NO=1 olana kadar 009,33 saniye zaman geçti bunu ekrana nasıl yazdırırım   



NOTIMER:

GOSUB EKRAN13
IF SECTEST=1 THEN
LCDOut $FE,1   ' EKRAN SİL
CIKAKIM=1
MILI=MILI+1
IF MILI=99 THEN SAN=SAN+1
IF MILI=99 THEN MILI=0
IF SAN=999 THEN SAN=0
PAUSE 10
lcdout $FE,1,DEC3 SAN,".",DEC2 MILI
ENDIF
IF NO=1 THEN ' buradan sonra nasıl olacak

GOTO TEST
[email]evren1623@hotmail.com[/email]

Evren KILIÇ

sanırım bu şekilde oldu 

GOSUB EKRAN13    'TEST İÇİN STARTA BAS

IF SECAKIM=0 THEN
GOTO BASLA
ENDIF
IF SECTEST=0 THEN
GOTO BASLA
ENDIF 
IF SECSTART=1 THEN
GOTO SAY
ELSE
GOTO NOTIMER


SAY:

CIKAKIM=1
MILI=MILI+1
IF MILI=99 THEN SAN=SAN+1
IF MILI=99 THEN MILI=0
IF SAN=999 THEN SAN=0
PAUSE 10
GOSUB EKRAN14

ENDIF


IF NO=1 THEN
GOTO  YAZ
ELSE
goto SAY
ENDIF

YAZ:

CIKAKIM=0
GOSUB EKRAN14

PAUSE 1000
IF RESETBUT=1 THEN
MILI=0
SAN=0
ENDIF
IF RESETBUT=0 THEN
GOTO YAZ
ELSE
'GOTO TEST
GOTO BASLA
ENDIF   
[email]evren1623@hotmail.com[/email]