Теми рефератів
> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти
Реферати, твори, дипломи, практика » Отчеты по практике » Розробка додатків в Borland Delphi

Реферат Розробка додатків в Borland Delphi





ваджуваному користувачем;

) зафарбовувати комірки таблиці, розташовані на головній діагоналі і нижче кольором, вибраним користувачем.

Малюнок 2.20.- Додаток запущено


Лістинг: TForm10.btn1Click (Sender: TObject);.ColCount:=StrToInt(SpinEdit1.Text);.RowCount:=StrToInt(SpinEdit1.Text);.DefaultColWidth:=(StringGrid1.Width)div(StrToInt(SpinEdit1.Text));.DefaultRowHeight:=(stringGrid1.Height)div (StrToInt (SpinEdit1.Text)) ;; TForm10.Colorgrid1Change (Sender: TObject) ;, j: integer;: Trect; StringGrid1 do.Canvas.Brush.Color:=Colorgrid1.ForegroundColor; i:=0 to colcount - 1 doj :=0 to colcount - 1 doi gt;=j then:=StringGrid1.cellrect (i, j) ;. Canvas.FillRect (rec) ;;;; TForm10.btn2Click (Sender: TObject) ;. Hide; .show;

end;.


Завдання № 21


Текст завдання: Скласти таблицю 4х4, що складається з цілих чисел. Програма повинна виводити число, лежаче в осередку з введенням з клавіатури номером стовпця і рядка.


Малюнок 2.21.- Матриця


Лістинг: .btn2Click (Sender: TObject) ;. close; .close ;; TForm11.btn1Click (Sender: TObject) ;, j: integer ;; StrnGrd1 do:=5;:=5; :=40; i:=1 to 4 do [i, 0]:=IntToStr (i); [0, i]:=IntToStr (i) ;; i:=1 to 4 doj:=1 to 4 do [ i, j]:=IntToStr (random (999)) ;;; TForm11.btn3Click (Sender: TObject) ;, j: integer; not TryStrToInt (Edt1.Text, i) or (Edt2.Text, i) then

ShowMessage ( Ви ввели не ціла число );

exitnot (StrToInt (Edt1.Text) in [1..4]) or (StrToInt (Edt2.Text) in [1..4]) then

begin ( Номери рядка і стовпця повинні бути від 1 до 4 );

exit;:=StrToInt(Edt1.Text);:=StrToInt(Edt2.Text);.Text:=StrnGrd1.Cells[j,i];;TForm11.BitBtn1Click(Sender: TObject) ;. Show; .Hide;

end;.


Завдання № 22


Текст завдання: Створити додаток дозволяє переглядати картинки, при виборі картинки повинні відображатися ті формати які вибрав користувач.


Малюнок 2.22.- Пріложеніезапущено

Лістинг: TForm12.Button1Click (Sender: TObject); OpenDialog1.Execute then.picture.LoadFromFile(OpenDialog1.FileName);.Caption:=opendialog1.filename;;TForm12.RadioGroup1Click(Sender: TObject) ;. itemindex=0 then OpenDialog1.filter:= format bmp | * .bmp raquo ;;. Itemindex=1 then OpenDialog1.filter:= format jpg | * .jpg | * .jpeg raquo ;;; TForm12. Button2Click (Sender: TObject) ;;; TForm12.Button3Click (Sender: TObject) ;. Close; .show ;;

end.


Завдання № 23


Текст завдання: Створити додаток дозволяє переглядати анімація безперервно і по кадрам.

Малюнок 2.23.- Додаток Анімація запущено


Лістинг:

procedure TForm13.RadioButton2Click (Sender: TObject) ;. Enabled:=True; .Enabled:=true; .Enabled:=False ;; TForm13.Button1Click (Sender: TObject); Animate1.Active=Falsebegin.StartFrame:=1;.StopFrame:=Animate1.FrameCount;.Active:=True;.caption:=laquo;Стопraquo;;.Enabled:=False;.Active:=False;.caption:=laquo;Пускraquo;;.Enabled:=True;;;TForm13.Button2Click(Sender: TObject);=Animate1.FrameCountbutton3.Enabled:=True; gt; 1 then:=CFrame - 1; .StartFrame:=CFrame; .StopFrame:=CFrame; TForm13.Button3Click (Sender: TObject);=1 then button3.Enabled:=True; lt; Animate1.FrameCount then:=CFrame + 1; .StartFrame:=CFrame; .StopFrame:=CFrame; .Active:=True;=Animate1.FrameCountbutton3.Enabled:=False ;;; TForm13.RadioButton1Click (Sender: TObject);.Enabled:=True;.Button3.Enabled:=False;.Button2.Enabled:=False;;TForm13.Button4Click(Sender: TObject) ;. show; .close ;; TForm13.Button5Click (Sender: TObject) ;. Close; .close ;;

end.


Завдання № 24


Текст завдання: Скласти алгоритм і написати програму для вирішення завдання згідно свого варіанту. За заданими координатами точки М (x, y) визначити потрапляє чи ні точка М в заштрихованную область.


Малюнок 2.24.- Додаток запущено

Лістинг:

procedureTForm21.BitBtn1Click (Sender: TObject);

begin:=StrTofloat (Edit1.Text);:=StrTofloat (Edit2.Text); (x lt;=1) and (y lt;=1) and (x gt;=0) and (y gt ;=0) then label1.caption:=( точка M входить в закрашеннуюобасть ) 1.caption:=( точка М не входить в закрашеної обасть );

end; TForm21.BitBtn2Click (Sender: TObject) ;. Close; .close ;; TForm21.BitBtn3Click (Sender: TObject) ;. show; .Close ;;

end.


...


Назад | сторінка 6 з 8 | Наступна сторінка





Схожі реферати:

  • Реферат на тему: Phonetic peculiarities of the popular science text
  • Реферат на тему: Grammar of the Text: its Basic Units and Main Features (based on the novel ...
  • Реферат на тему: Технології аналізу даних (Text Mining, Data Mining)
  • Реферат на тему: Прикладне додаток &Розробка проекту для створення нового класу Auto і елеме ...
  • Реферат на тему: Текст ситуаційної (практичної) завдання