Өзіндік жұмысқа арналған тапсырмалар

1. 
   Форма бетіне ұшақ суретін салатын программа құрыңыз.
   
2. 
   Форма бетіне жүзіп бара жатқан кеменің және тышқанды басқанда жұлдыздар салынатын программа құрыңыз.
   
3. 
   Форманың бетінде анимацияларды көруге болатын қосымша құрыңыз.
   

№7 Зертханалық жұмыс

Төменде (2.1.25-сурет) осы қосымшаның компоненттер орналастырылған форма терезесі келтірілген.

2.1.25-сурет. Компоненттер орналастырылған форма терезесі

1. 
   Жаңа жоба ашып, пішінге Label1 (Standard беті), Edit1 (Standard беті), Button1 (Standard беті), Timer1 ( System беті) компоненттерін орналастырыңыздар.
   
2. 
   Пішіннің Caption қасиетіне «Зердені тексеру», Button1 батырмасына «Бастау» мәндерін жазыңыз. Edit1-дің Техт қаситінің мәнін және Label1-дің Caption қасиетін тазалаңыз.
   
3. 
   Edit1 компонентін Color қасиеті арқылы түсін пішіннің түсіне өзгертіп, Label1-дің үстіне орналастырыңдар.
   
4. 
   Код терезесін ашып,
   

const

LT = 10; // сандардың жалпы саны (сынақ ұзындығы)

var

numb: integer; // сыналушының есте сақтайтын саны

n: integer; // сандар счетчигі

{$R *.dfm}

//k – разрядты санды генерациялайды

function GetNumb(k: integer) : integer;

var

i: integer;

begin

// үлкеннен бастап процедура санды разряд бойынша генерациялайды

// қалған разрядтар

for i := 1 to (k-1) do

n := n*10 + Random(10);

GetNumb := n;

end;

// пішінді құру

procedure TForm1.FormCreate(Sender: TObject);

begin

Edit1.MaxLength := KC; // енгізуге болатын символдар саны

Label1.WordWrap := True; // келесі жолға сөздерді түсіруге рұқсат беру

Label1.Caption :=

'Казiр экранда сандар шыгады. ' +

'Сiздер сандарды есте сактап, оларды пернетактадан терiп,-дi басыныздар';

Button1.Caption := 'Бастау';

Timer1.Enabled := False; // таймер тоқтатылады

Timer1.Interval := 1000; // санды көрсету уақыты- 1 секунд

right := 0; // дұрыстарының саны

n := 0; // сандардың счетчигі

Randomize; // ГСЧ инициализациясы

end;

6. Button1 батырмасын екі рет шертіңіз. Пайда болған процедураның дайындамасына келесі кодты жазыңыз:

procedure TForm1.Button1Click(Sender: TObject);

begin

if Button1.Caption = 'Аяктау' then

if Button1.Caption = 'Бастау' then

begin

Button1.Caption := 'Аяктау';

// Button1 батырмасы сынақ аяқталғаннан кейін қол жетімді болады

Label1.Caption := '';

Label1.Font.Size := 24; // Label1 өрісіндегі қаріптің өлшемі

Edit1.Font.Size := 24; // Edit1 өрісіндегі қаріптің өлшемі

// санды генерациялау және шығару

numb := GetNumb(KC);

Label1.Caption := IntToStr(numb);

Timer1.Enabled := True; // таймерді қосу

// сигналды таймерден өңдеу процедурасы санды өшіреді

end;

end;

// таймер оқиғасын өңдеу

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Label1.Visible := False; // санды жасыру

Edit1.Visible := True; // Edit1 өрісін көрінетін ету

Edit1.SetFocus; // Edit1 өрісіне меңзерді орнату

end;

8. Edit1 компонентін ерекшелеп, обьектілер инспекторы терезесінің Events бетіндегі OnKeyPress оқиғасының Edit1KeyPress мәнін екі рет шертіп, пайда болған процедураның дайындамасының ішіне келесі кодты жазыңыз:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

var

igrok: integer; // сыналушы енгізген сан

case Key of

'0'..'9',#8: ; // "0"-"9", батырмалары

#13: // батырмасы

begin

igrok := StrToInt(Edit1.Text);

then right := right + 1;

n := n + 1; // сандар счетчигі

Edit1.Text := '';

Edit1.Visible := False; // Edit1 өрісін жасыру

if n < LT then

begin

numb := GetNumb(KC); // келесі санды генерациялау

Label1.Visible := True;

Timer1.Enabled := True; // таймерді қосу

end

begin

// нәтижесін шығару

Label1.Font.Size := 10;

Label1.Caption := 'Натижесi:' + #13 +

'Сандар корсетiлдi: ' + IntToStr(LT) + #13 +

'Дурысы: ' + IntToStr(right);

Label1.Visible := True;

Button1.Visible := True; // "Аяқтау" батырмасын көрсету

end;

end;

end;

end.

2.1.26-сурет. Қосымшаның шыққан нәтижесі