Skocz do zawartości

Program przyciski


ponki

Polecane posty

Witam,

Mam do napisania program, a raczej moduł który będzie wyświetlał, najprostsze przyciski w pascalu. (coś w rodzaju formularza na stronie )

Zacząłem pisać program, nawet nieźle mi szło. Napisałem tyle ile umiałem, lecz potem nie miałem kontaktu z nauczycielem przez praktyki zawodowe żeby mnie skierował w dobrą stronę. Mógłby mi ktoś pomóc go skończyć tak żeby chodził ? ja sobie go potem przerobię na moduł z tym akurat nie ma problemu. Poniżej daję to co udało mi się napisać. Z góry dziękuję i pozdrawiam :)

 

program prztest;
uses
 crt;

type
 przycisk =
record
napis              	: string;
LGRx, LGRy,
szerokosc, wysokosc	: byte;
czyAktywny     		: boolean;
kolorTla, kolorLiter   : byte;
kolorTlaAktyw,
   	kolorLiterAktyw    	: byte;
end;


procedure  przyciskTworz (
napis : string;
LGRx, LGRy,
szerokosc, wysokosc  : byte;
kolorTla, kolorLiter 	: byte;
kolorTlaAktyw, kolorLiterAkty 	: byte;
var p : przycisk );
begin
 p.napis        	:= napis;
 p.LGRx     		:= LGRx;
 p.LGRy     		:= LGRy;
 p.szerokosc    	:= szerokosc;
 p.wysokosc 		:= wysokosc;

 p.czyAktywny   	:= false;

 p.kolorTla 		:= kolorTla;
 p.kolorLiter   	:= kolorLiter;
 p.kolorTlaAktyw	:= kolorTlaAktyw;
 p.kolorLiterAktyw  := kolorLiterAktyw;

end;

procedure przyciskZmienNapis( napis : string; var p : przycisk );
begin
 p.napis := napis;
end;
procedure przyciskAktywuj( var p : przycisk );
begin
 p.czyAktywny := true;
end;
procedure przyciskDezaktywuj( var p : przycisk );
begin
 p.czyAktywny := false;                      
end;

procedure przyciskRysuj( p : przycisk );
begin

 if( p.czyAktywny ) then
 begin
textColor();
textBackground();
 end
 else
 begin
textColor();
textBackground();
 end;

end;

function  przyciskPracuj( var p : przycisk; ) : byte;
end;
begin
przyciskTworz( napis : string;
LGRx, LGRy,
szerokosc, wysokosc  : byte;
kolorTla, kolorLiter 	: byte;
kolorTlaAktyw, kolorLiterAkty 	: byte;
var p : przycisk ;

begin
p.LGRx  	:= LGRx;
p.LGRy  	:= LGRy;
   	p. szerokosc := szerokosc;
   	p.wysokosc   := wysokosc;
   	p.kolortla   :=kolortla;
   	p.kolorliter :=kolorliter;
   	p.kolorTlaAktyw :=kolortlaAktyw;
end;


var
p1 : przycisk;
p2 : przycisk;
p3 : przycisk;

begin
 przyciskTworz( 'OK', 20, 10, 5, 3, red, blue , p1 );
 przyciskRysuj( p1 );

 przyciskTworz( 'Dalej', 40, 20, 5, 3, red, blue , p2 );
 przyciskRysuj( p2 );

 przyciskTworz( 'Zapisz', 60, 30, 5, 3, red, blue , p3 );
 przyciskRysuj( p3 );

 przyciskZmienNapis( 'nie OK' , p1);
 przyciskZmienNapis( 'Cofnij' , p2);
 przyciskPracuj( p );
end.

Link do komentarza
Udostępnij na innych stronach

Zarchiwizowany

Ten temat jest archiwizowany i nie można dodawać nowych odpowiedzi.

×
×
  • Utwórz nowe...