sweetstoffi
Grünschnabel
kann mir jemand helfen einen bildschirmschoner einzurichten?
die aufgabe ist: einen bildschirmschoner zu entwickeln mit erweiteungsmöglichkeiten, einer menüauswahl bzw. einstellung und ein passwort miteinzubauen.
außerdem muß ich dazu ein struktogramm abgegen.
im moment bin ich so weit:
PROGRAM grafische_Elemente;
USES CRT, GRAPH;
VAR treiber, mode,x,y,radius:INTEGER;
BEGIN
CLRSCR; treiber:=detect; INITGRAPH (treiber,mode,'c:\tp\bgi');
SETBKCOLOR(yellow);SETCOLOR(red);
X:=325; Y:=240; Radius:=10;
REPEAT
radius:= radius+2; CIRCLE(x,y,radius);
delay=20;
until(radius=400);
readln;
CloseGraph;
END.
die aufgabe ist: einen bildschirmschoner zu entwickeln mit erweiteungsmöglichkeiten, einer menüauswahl bzw. einstellung und ein passwort miteinzubauen.
außerdem muß ich dazu ein struktogramm abgegen.
im moment bin ich so weit:
PROGRAM grafische_Elemente;
USES CRT, GRAPH;
VAR treiber, mode,x,y,radius:INTEGER;
BEGIN
CLRSCR; treiber:=detect; INITGRAPH (treiber,mode,'c:\tp\bgi');
SETBKCOLOR(yellow);SETCOLOR(red);
X:=325; Y:=240; Radius:=10;
REPEAT
radius:= radius+2; CIRCLE(x,y,radius);
delay=20;
until(radius=400);
readln;
CloseGraph;
END.
