cw8a

Wydział Transportu PW

Laboratorium informatyki sem. II / ów. 8

Zadanie: Opracować aplikację pozwalającą na tworzenie tablic jednowymiarowych i wykonywanie na nich operacj

•    sumowania elementów tablicy

•    znajdowania elementu maksymalnego

•    sortowania elementów tablicy.

/ Tworzenie formy aplikacji

1. Otwórz nowy projekt Delphi. Nadaj formie tytuł jak na rysunku. Zapisz projekt w folderze D:\BZ .

2.    Utwórz pasek narzędziowy z przyciskami, wstaw na formę komponenty ToolBarl i ImageListl z zakładki Win32. W menu podręcznym komponentu ToolBarl za pomocą polecenia New Button utwórz 5 przycisków. Nadaj kolejnym przyciskom nazwy i objaśnienia (właściwości Name i Hint): Zeruj, Generuj, Maksymalny, Sumuj, Sortuj. Ustaw ich właściwość ShowHint na True.

3.    Dla komponentu ToolBarl jako wartość właściwości Images wybierz ImageListl.

4.    Kliknij dwukrotnie komponent ImageListl aby załadować obrazki do listy (przyciskiem Add). Na rysunku są to Filenew, Bulbon, Find, Sum i Arrowlur z foldera D:\Program Files\Common Files\Borland Shared\lmages\Buttons. Potwierdź podział każdego obrazka na dwa mniejsze, dopasowane do wielkości przycisku i skasuj drugi

z powstałych obrazków (przyciskiem Delete).

5.    Wstaw na formę komponent Scrollbarl z zakładki Standard i ustaw jego właściwość Max i Position na 15 oraz Min na1.

6.    Ustaw na formie pozostałe komponenty zgodnie z rysunkiem powyżej tzn.:

•    Pole edycji Editl; właściwość ReadOnly pola ustaw na True.

•    Siatkę StringGridl z zakładki Additional, która posłuży do wyświetlania danych. Ustaw jej właściwości

>    DefaułtCołWidth na 25, ColCount na 15, RowCount na 1, Height na 28

>    FixedCols i FixedRows na 0, ScrollBars na ssNone

>    ustaw opcje goEditing oraz goAlwaysShowEditor umożliwiające edycję.

•    KomponentGroupBox f_₁J J z zakładki Standard. Ustaw właściwość Enabled na False. Skopiuj do niego siatkę tekstową. Skopiowana siatka o nazwie StringGrid2 posłuży do wy świetlania wyników operacji.

7.    Zapisz moduł oraz projekt aplikacji. Uruchom aplikację i sprawdź wygląd formy.

II Zmiana rozmiaru siatki tekstowej

1.    Na początku części implementacyjnej modułu zadeklaruj zmienną całkowitą LiczbaElementow oraz 15-elementowątablicę t o elementach typu całkowitego:

var LiczbaElementow: Integer; T: array [1..15] of Integer;

2.    Dla obsługi zdarzenia OnChange komponentu ScrolSBarl utwórz procedurę zmieniającą liczbę widocznych elementów tablicy zależnie od położenia suwaka na listwie, następującej postaci:

procedurę TForml.ScrollBarIChange(Sender: TObject); begin

LiczbaElementow:= ScrollBarl,Position;

Editl. Text: == IntToStr (LiczbaElemen tow) ;

StringGridl.Width: = (StringGridl.De faultColWidth + 1)*LiczbaElementow + 3; GroupBoxl.Hide; end;

3.    Utwórz procedurę obsługi zdarzenia OnCreate dla formy i wpisz jej treść:

Randomi ze;

ScrollBarlChange(Sender);

4.    Skompiluj i uruchom program, sprawdź działanie komponentu ScrollBarl.