Обмін валюти Створити форму, на якій можна змоделювати операції обміну валюти на обмінному пункті. Увага!!! Дивись форму. - презентация

1 Обмін валюти Створити форму, на якій можна змоделювати операції обміну валюти на обмінному пункті. Увага!!! Дивись форму.

2 Обмін валюти

3 Змініть підписи Caption на всіх обєктах

4 Властивості поля Обєкт використовують для введення символів з клавіатури Для перетворення символів у число використовується функція Val(Pascal) чи StrToFloat (Delphi) Для перетворення числа у символ використовується функція Str(Pascal) чи FloatToStr (Delphi)

5 Обєкт Використовують для створення у формі засобу для вибирання однієї альтернативної можливості серед декількох. ВластивістьОпис властивості Приклади значень CheckedСтан перемикача True(вибраний) False (не вибраний) TabOrder Порядок вибору обєкта клавішою Tab 0(перший), 4(пятий) TabStop Доступ до даного обєкта табулятором True(буде доступний) False (не доступний)

6 Виконання роботи: 1.Забороніть зміну розміру вікна програми, надайте властивості форми BorderStyle значення bsDialog 2. Вставте у форму 2 перемикачі 3. Для другого перемикача (клацніть по перемикачі) встановіть Checked значення True 4. Заблокуйте введення даних для Edit4 Властивості Enabled- значення False

7 Увага! Програмний код. Програмуємо перемикач 2 label3.Caption:='=>'; Edit3.SetFocus { Активізуємо поле Edit3} 2. Програмуємо кнопку Button1: Описати змінні kurs1,kurs2,suma, cod, ed

8 Програмний код кнопки Обчислити procedure TForm1.Button1Click(Sender: TObject); begin var kurs1,kurs2,suma:real; cod:integer;ed:string[9]; begin Val(edit1.text,kurs1,cod); Val(edit2.text,kurs2,cod); Val(edit3.text,suma,cod); if radioButton2.Checked=true then summa:=suma*kurs2 else summa:=suma*kurs2; str(suma:9:2); Edit4.text:=ed; end;

9