1
Інструктивна картка учня
Прізвище, ім’я:
Завдання: створити програму-додаток для оформлення замовлення (за інструкцією).
Уявіть, що Ви робите перші кроки в бізнесі. Вам треба створити програму-додаток для клієнтів, яка б допомагала їм оформлювати замовлення.
Необхідний функціонал:
Увага! Під час роботи з комп’ютером дотримуйтеся правил безпеки та санітарно-гігієнічних норм.
1) у вікні Інспектор об’єктів вибрати властивість Picture і клацнути кнопку;
2) клацнути кнопку Завантажити вікна Діалог завантаження зображення; 3) вибрати файл у діалоговому вікні вибору файлу.
1 (Picture) - завантаження зображення,
2 (Stretch) - автоматичне масштабування (стиснення чи розтягнення).
Шаблон програмного коду
(для зразків)
|
|
procedure TForm1.Button1Click(Sender: TObject); var s:REAL; begin s:=0; // Вибір розміру. if ComboBox1.ItemIndex=0 then s:=s+129 ; if ComboBox1.ItemIndex=1 then s:=s+78 ; if ComboBox1.ItemIndex=2 then s:=s+56;
// Вибір наповнення. if CheckBox1.Checked = True then s:=s+10; if CheckBox2.Checked = True then s:=s+12; if CheckBox3.Checked = True then s:=s+20; if CheckBox4.Checked = True then s:=s+25; if CheckBox5.Checked = True then s:=s+15;
// Вибір соусу. if RadioButton1.Checked then s:=s+10 else if RadioButton2.Checked then s:=s+8 else if RadioButton3.Checked then s:=s+18;
// Виведення суми. Edit1.Text:= FloatToStr (s); end;
|
procedure TForm1.Button1Click(Sender: TObject); var s:REAL; begin s:=0; // Вибір коробочки. if RadioButton1.Checked then s:=s+500 else if RadioButton2.Checked then s:=s+1000 else if RadioButton3.Checked then s:=s+1500;
// Вибір фруктів за вибором. if CheckBox1.Checked = True then s:=s+80; if CheckBox2.Checked = True then s:=s+300; if CheckBox3.Checked = True then s:=s+200; if CheckBox4.Checked = True then s:=s+350; if CheckBox5.Checked = True then s:=s+100;
// Вибір способу доставки. if ComboBox1.ItemIndex=0 then s:=s+110 ; if ComboBox1.ItemIndex=1 then s:=s+60 ; if ComboBox1.ItemIndex=2 then s:=s+0;
// Виведення суми. Edit1.Text:= FloatToStr (s); end;
|