русс | укр

Мови програмуванняВідео уроки php mysqlПаскальСіАсемблерJavaMatlabPhpHtmlJavaScriptCSSC#DelphiТурбо Пролог

Компьютерные сетиСистемное программное обеспечениеИнформационные технологииПрограммирование


Linux Unix Алгоритмічні мови Архітектура мікроконтролерів Введення в розробку розподілених інформаційних систем Дискретна математика Інформаційне обслуговування користувачів Інформація та моделювання в управлінні виробництвом Комп'ютерна графіка Лекції


Radiobutton1 - Checked --- True


Дата додавання: 2014-11-27; переглядів: 902.


 

 

рис.1 рис.2

 

6. Вставте у форму три поля редагування (об'єкти типу Edit) як показано на рис.1 і надайте їм відповідні властивості. Для цього клікніть мишею на піктограмі Edit на закладці Standard, а потім — на формі, де має знаходитись поле редагування. Очистити поля редагування Edit1-3 (витерти значення властивості Text цих об'єктів). Для поля Edit3 заблокуйте можливість уведення даних, оскільки це поле міститиме результат. Для цього надайте значення False властивості Enabled (доступність).

7. Вставте у форму дві кнопки як показано на рис.1 і надайте їм відповідні назви (рис.2 властивості Caption для кнопки Buttonl — «Обчислити», а для кнопки Button2 — «Закрити програму» або «Вийти».

8.Збережіть усе (див. пункт 3).

9.Запустіть програму на виконання. Закрийте вікно програми.

10.Запрограмуйте кнопку «Обчислити». Для цього клацніть двічі лівою клавішею миші на кнопці «Обчислити» і введіть у заготовку процедури, яка вже є на екрані:

 

procedure TForm1.Button1Click(Sender: TObject);

Begin

<вводити потрібно сюди>

end;

End.

наступний текст програми:

Val(edit1.text,course,code); {Отримаємо значення курсу долара}

Val(edit2.text,sum,code); {Отримаємо значення кількості доларів}

sum:=sum*course;

Str(sum:10:2,grn); {Суму (число) перетворюємо на текстовий формат}

Edit3.Text:=grn; {Формуємо значення властивості Text об'єкта EditS}

Перед словом beginвставте розділ опису змінних:

varcourse,sum:real; code:integer; grn:string[10];

11. Потрібно описати, що відбудеться, коли або поле Edit1, або поле Edit2 залишеться порожніми. Для цього напишемо наступне:

• якщо поле Editl порожнє, тоді:

 

if Editl .Text=" then{" –лапки повинні 6ymu oдинарні}

Begin

MessageDlg('Потрібно ввести кypc!',mtError,[mbOk], 0);

Editl .SetFocus {nicля нamucкання нa кнonкy OK у вiкнi noвiдoмлeнь кypcop nepexoдumь y noлe Editl}

end;

 

• якщо поле Edit2 nopoжнє, тодi:

if Edit2.Text="then

Begin

MessageDlg('Пoтpiбно ввecти кількість rpoшeй!',mtError,[mbOk], 0);

Edit2.SetFocus {після нamucкання нa кнoпкy OK y вiкнi noвiдoмлень кypcop nepexoдumь y noлe Edit2}

end;

12. Перемикачі потрібні для того, щоб визначити напрямок обчислень. Коли поля Edit1 та Edit2 не порожні, тоді, в залежності від активного перемикача, проводяться обчисленя:

If not(Edit1.Text=") and not(Edit2.Text=") then

Begin

IfRadiobuttonl.Checked then

Edit3.Text:=FloatToStr(StrToFloat(Edit2.Text)/StrToFloat(Edit1.Text))+'євpo'; іf Radiobutton2.Checked then

Edit3.Text:=FloatToStr(StrToFloat(Edit1.Text)*StrToFloat(Edit2.Text))+'гривень';

end;

 

 

13.Збережіть створену форму (див. пункт 3).

14.Запустіть програму на виконання.

15.Створіть exe-файл програми. Виконайте команду головного меню Project à Build All (Сконструювати Все).

16.Продемонструйте створену форму викладачу.

 

Вимоги до оформлення звіту :

 

Звіт повинен містити:

1.Тему та мету лабораторної роботи.

2.Завдання на лабораторну роботу.

3.Текст програми.

4.Відповідь на контрольні запитання.

Контрольні запитання:

1.Як вставити у форму перемикач?

2.Який шаблон запису вікна повідомлень (українською мовою)?

3.Які бувають типи вікна повідомлень?

4.Які бувають кнопки у вікні повідомлень?

6.Як перетворити число у стрічку?

7.Як перетворити стрічку у число?

8. Що таке перемикач?

 

 


<== попередня лекція | наступна лекція ==>
Перемикач. | Відкладка модулів проекту.


Онлайн система числення Калькулятор онлайн звичайний Науковий калькулятор онлайн