ponki Napisano Grudzień 3, 2013 Zgłoś Share Napisano Grudzień 3, 2013 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 More sharing options...
babubabu Napisano Grudzień 3, 2013 Zgłoś Share Napisano Grudzień 3, 2013 A nie mogleś z tego klasy zrobic? Link do komentarza Udostępnij na innych stronach More sharing options...
ponki Napisano Grudzień 3, 2013 Autor Zgłoś Share Napisano Grudzień 3, 2013 Uczę się dopiero tego języka więc zrobiłem jak umiałem, pomożesz, albo przynajmniej powiesz co trzeba gdzie dopisać żeby to chodziło ? bo na jutro potrzebuję tego programu... Link do komentarza Udostępnij na innych stronach More sharing options...
Polecane posty
Zarchiwizowany
Ten temat jest archiwizowany i nie można dodawać nowych odpowiedzi.