Практикалық жұмыс

Тақырыбы:   Тармақталу құрылымдары 

Мақсаты: Шартты және таңдау операторларын қолдануды меңгерту.

Жұмыстың барысы: төмендегі берілген мысалдарды Delphi ортасында орындау керек.

 

 


Мысалы:

  «Хабарлама» қосымшасын жасау керек.

 

Бірінші формада хабарлама  жоғарыдан төмен түсіп келе жатқан символдар арқылы жасалады

 

Компоненттер

Қасиеттері

Мәндері

1

Form1

Caption

Шартты операторлар туралы

2

Label1

Caption

 

3

Label1

top

150

4

Label1

left

25

5

Timer1

Enabled

false

6

Timer1

interval

50

7

Button2

Caption

Келесі

8

Button1

Caption

Бастау

9

Label2

Caption

 

10

Label2

top

20

11

Label2

left

90

 

// «бастау» батырмасының оқиғасы

procedure TForm1.Button1Click(Sender: TObject);

begin   i:=1; j:=0; Timer1.Enabled:=true;

end;

//«Келесі» батырмасының оқиғасы

procedure TForm1.Button2Click(Sender: TObject);

begin

Timer1.Enabled:=false; form2.ShowModal;

end;

//«Timer1»-ді қосу оқиғасы

procedure TForm1.Timer1Timer(Sender: TObject);

begin

  if j>=Label1.top then

   begin

    if i>length(s)then Timer1.Enabled:=false;

     Label2.Caption:=s[i];

      Label2.Left:=Label1.Left+8*i;

       j:=0;

        Label1.Caption:=Label1.Caption+s[i-1];

         i:=i+1;

   end;

 Label2.Top:=j;

 j:=j+10;

end;

Екінші  формадағы хабарламаны «символдарды клавиатурадан теру» көрінісі арқылы жасау

 

 

Компонент

Қасиеті

Мәні

1

Form1

Caption

Шартты операторлар туралы

2

Image1

Picture

.jpg форматында сурет

3

Label1

top

150

4

Label1

left

25

5

Timer1

Enabled

false

6

Timer1

interval

100

7

Button1

Caption

Бастау

8

TntListBox1

Items

 

Ш а қ ы р у 

Қадірлі мектеп бітіруші түлектер 

Сіздерді  А. Байтұрсынов атындағы 

Қостанай Мемлекеттік

университетіне  оқуға  шақырамыз

 

// «бастау» батырмасының оқиғасы

procedure TForm2.BitBtn1Click(Sender: TObject);

begin

  i:=0; j:=0;

  s:=TntListBox1.Items.Strings[i];

  Timer1.Enabled:=true;

end;

//«Timer1»-ді қосу оқиғасы

procedure TForm2.Timer1Timer(Sender: TObject);

begin

  Image1.Canvas.Font.Size:=14;

  Image1.Canvas.Font.Color:=rgb(random(255),random(255),random(255));

  Image1.Canvas.Brush.Style:=bsClear;

  j:=j+1;

  if j>=length(s)

     then begin

          i:=i+1;

           if i>TntListBox1.Items.Count-1

              then begin Timer1.Enabled:=false; exit end;

          s:=TntListBox1.items.Strings[i];

          j:=1;

         end;

Image1.Canvas.TextOut(j*10+60,i*20+100,s[j]);

end;

 

 


Мысалы:

  «Салмақ өлшем бірліктері» қосымшасын жасау керек.

Берілген қосымша халықаралық салмақ өлшем бірлік жүйесі бойынша, клавиатурадан енгізілген фунтты  басқа елдің өлшем бірлігіне аударады

 

Label1

 

 

 

ListBox1

 

 

Edit1

 

Label4

 

Button1

 
 

 

Компоненттер

Қасиеттері

Мәндері

1

Form1

Caption

Пример

2

Label1

AutoSize

WordWrap

False

True

3

ListBox1

Name

ListBox1

4

Edit1

Text

(бос)

5

Button1

Caption

Есептеу

6

Label4

Caption

AutoSize

(бос)

False

 

Программа фрагменті:

procedure TForm1.FormCreate(Sender: TObject);

begin

ListBox1.items.add(' Россия');

ListBox1.items.add(' Австрия');

ListBox1.items.add(' Англия ');

ListBox1.items.add(' Германия ');

ListBox1.items.add(' Дания');

ListBox1.items.add('Исландия');

ListBox1.items.add(' Италия');

ListBox1.items.add(' Нидерланды');

ListBox1.itemindex:=0;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

   funt:real;

   kg:real; 

   k:real;  

begin

 case ListBox1.ItemIndex of

      0: k:=0.4059;  { Россия }

      1: k:=0.453592;{ Англия }

      2: k:=0.56001; { Австрия }

      3..5,7:k:=0.5; { Германия, Дания, Исландия, Нидерланды }

      6: k:=0.31762; { Италия }

 end;

 funt:=StrToFloat(Edit1.Text);

 kg:=k*funt;

 label4.caption:=Edit1.Text   + ' Фунт. - '  + FloatToStrF(kg,ffFixed,6,3)  + ' кг.';

end;