03-17-2017, 03:46 PM
RE: How make a green Background by a Choose Funktion
okay, what is with this Solution.
But i don't why the Program leave the Repeat-Until Funktion when i press 1, repeat1.. or 2, repeat 2.. or 3 and repeat 3..?
EXPORT NewInput()
BEGIN
RECT_P(0,0,320,220,RGB(0,255,0));
TEXTOUT_P("F L U G N A V I G A T I O N",31,20,7,RGB(255,255,255));
TEXTOUT_P("Press 1 für: ICAO",70,70);
TEXTOUT_P("Press 2 für: POSITION",70,100);
TEXTOUT_P("Press 3 für: FLUGSTRECKE",70,130);
TEXTOUT_P("Press Del für Abbruch",70,160);
REPEAT
K:=GETKEY;
IF K==42 THEN PRINT("ICAO"); END; //KEY Test
IF K==43 THEN PRINT("POSITION"); END; //KEY TEST
IF K==44 THEN PRINT("FLUGSTRECKE"); END; //KEY TEST
UNTIL K==19;
STARTVIEW(-1);
END;
okay, what is with this Solution.
But i don't why the Program leave the Repeat-Until Funktion when i press 1, repeat1.. or 2, repeat 2.. or 3 and repeat 3..?
EXPORT NewInput()
BEGIN
RECT_P(0,0,320,220,RGB(0,255,0));
TEXTOUT_P("F L U G N A V I G A T I O N",31,20,7,RGB(255,255,255));
TEXTOUT_P("Press 1 für: ICAO",70,70);
TEXTOUT_P("Press 2 für: POSITION",70,100);
TEXTOUT_P("Press 3 für: FLUGSTRECKE",70,130);
TEXTOUT_P("Press Del für Abbruch",70,160);
REPEAT
K:=GETKEY;
IF K==42 THEN PRINT("ICAO"); END; //KEY Test
IF K==43 THEN PRINT("POSITION"); END; //KEY TEST
IF K==44 THEN PRINT("FLUGSTRECKE"); END; //KEY TEST
UNTIL K==19;
STARTVIEW(-1);
END;