Mam prośbę o poprawienie kodów. Chodzi mnie pozbycie się funkcji LOCATE w żadnym wypadku nie może się ona znajdować.
1 -kod
CLS
PRINT " podaj dzien miesiaca ";
DO: a$ = INKEY$: LOOP UNTIL a$ = ""
DO: CH$ = INKEY$: LOOP UNTIL CH$ <> ""
T = TIMER: L = T + 1.5
DO:
IF CH$ < CHR$(52) OR U = 2 THEN
IF CH$ < CHR$(52) THEN K$ = K$ + CH$
IF CH$ <> "" THEN U = U + 1
ELSE : PRINT CH$;
D# = VAL(CH$): EXIT DO
END IF
CH$ = INKEY$
LOCATE 1, 23: PRINT K$;
D# = VAL(K$)
IF T > TIMER THEN L = L - 86400
LOOP UNTIL TIMER > L OR U = 2
2 - kod
CLS
PRINT " podaj miesiac ";
DO: a$ = INKEY$: LOOP UNTIL a$ = ""
DO: CH$ = INKEY$: LOOP UNTIL CH$ <> ""
T = TIMER: L = T + 1.5
DO:
IF CH$ = CHR$(49) OR U = 1 THEN
IF CH$ < CHR$(51) THEN K$ = K$ + CH$
IF CH$ <> "" THEN U = U + 1
ELSE : PRINT CH$;
M = VAL(CH$): EXIT DO
END IF
CH$ = INKEY$
LOCATE 1, 16: PRINT K$;
M = VAL(K$)
IF T > TIMER THEN L = L - 86400
LOOP UNTIL TIMER > L OR U = 2
Oraz napisanie (przeróbka na bazie tych kodów) z wprowadzaniem liczby roku. Po wpisaniu 1 cyfry program ma czekać 2 sekundy na wprowadzenie 2 cyfry, jak jej nie będzie to po 2 sekundach będzie wyjście z pętli. Podobnie z 3 cyfrą. Po wprowadzeniu 4 cyfry nastąpi natychmiastowe opuszczenie pętli bez czekania 2 sekundy.
Dziekuję za pomoc - Mateusz
