Суббота, 21.09.2019, 10:57
Главная | Регистрация | Вход Приветствую Вас Гость | RSS


Меню сайта


Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0


Тестування онлайн
тестування онлайн 


Социальные закладк

Підсумки. Використання елементів керування для реалізації розгалуження  в проекті.

Для реалізації розгалуження в проекті можна використовувати елементи управління:

CheckBox - прапорець. Властивість  Checked - значення цієї властивості фіксує  зміну стану прапорця (true, false).

  • if CheckBox1.Checked then <команда1>;    // якщо виділений CheckBox1
  • if CheckBox2.Checked then <команда2>; // якщо виділений CheckBox2  і т.д.

 

RadioButton - перемикач.  Властивість  Checked - значення цієї властивості фіксує  зміну стану прапорця (true, false).

if  RadioButton1.Checked  then <команда1>  // якщо виділений RadioButton1
     else if  RadioButton2.Checked  then <команда2> // якщо виділений RadioButton2
     .................
     else <команда n>;

CheckGroup - група прапорців, використовують у разі, якщо необхідно розмістити декілька груп прапорців на формі.

RadioGroup - група перемикачів, використовують у разі, якщо необхідно розмістити декілька груп перемикачів на формі.

 Властивості: Caption - заголовок групи, Colums - кількість стовбців елементів у групі , ItemIndex -визначає номер (починаючи з 0) елемента управління,  який виділений у групі. Якщо не виділений жодний, то значення властивості дорівнює -1. , Items - містить список елементів групи.
  • if CheckGroup1.Checked[0] then <команда1>;
     
    // якщо виділений прапорець групи  CheckGroup1 під номером 0
  • if CheckGroup1.Checked[1] then <команда2>; і т.д.
  • if RadioGroup1.ItemIndex = 0 then <команда1>;
     
    // якщо виділений перемикач групи  RadioGroup1, значення властивості якого ItemIndex  дорівнює нулю.
  • if RadioGroup1.ItemIndex =1 then <команда2>; і т.д.

ComboBox - окрім текстового поля, яке може містити тільки одне значення,  елемент управління список дає змогу обрати одне значення із запропонованного переліку.

 Властивості: Count - кількість елементів списку , ItemIndex -визначає номер (починаючи з 0) вибраного елемента . Якщо не виділений жодний, то значення властивості дорівнює -1 , DropDownCount - кількість елементів, які відображаються у списку. Щоб відобразити решту - використовують смугу прокручування..

  • if ComboBox1.Text= ' текст вибранного рядка списку' then <команда1>;  // якщо  значення властивості  Text елементу ComboBox1 співпадає  з текстом виділеного рядку списку 
                                                               і т.д.

Розробка проекту "калькулятор"  з використанням елементів керування перемикачів, групи перемикачів, розкривного списку, кнопок.

procedure TForm1.Button2Click(Sender: TObject);
      var a, b, r: real;
   begin
  a := strtofloat(edit1.text);
  b := strtofloat(edit2.text);
  r := a - b ; label4.Caption := floattostr(r);
   end;

procedure TForm1.Button3Click(Sender: TObject);
      var a, b,  z: real;
         begin
          a := strtofloat(edit1.text);
          b := strtofloat(edit2.text);
          z := a * b ; label4.Caption := floattostr(z);
      end;

procedure TForm1.Button4Click(Sender: TObject);
      var a, b, d: real;
       begin
        a := strtofloat(edit1.text);
        b := strtofloat(edit2.text);
       if  b<>0 then begin d := a / b ; label4.Caption := floattostrF(d,ffFixed,
6,3);end
        else showmessage('деление на ноль недопустимо');
     end;      

procedure TForm1.Button1Click(Sender: TObject);
        var a, b, s: real;
     begin
      a := strtofloat(edit1.text);
      b := strtofloat(edit2.text);
      s := a + b ; label4.Caption := floattostr(s);
  end;

 

 procedure TForm1.Button1Click(Sender: TObject);
var a, b, s,r, z, d: real;
    begin
     a := strtofloat(edit1.text);
     b := strtofloat(edit2.text);
 if  radiobutton1.checked  then begin  s := a + b ; label4.Caption := floattostr(s); end;
 if radiobutton2.checked then begin  r := a - b ; label4.Caption := floattostr(r); end;
 if  radiobutton3.checked  then begin  z := a * b ; label4.Caption := floattostr(z); end;
 if  radiobutton4.checked   then
       if b<>0 then
       begin
         d := a / b ;
         label4.Caption := floattostrF(d,ffFixed,6,3);
       end
              else showmessage('деление на ноль недопустимо');
end;                                

   

 procedure TForm1.ComboBox1Change(Sender: TObject);
      var a, b, s,r, z, d: real;
     begin
      a := strtofloat(edit1.text);
      b := strtofloat(edit2.text);
      if
combobox1.text = 'сложение'  then begin s := a + b ; label4.Caption := floattostr(s); end
      else if  
combobox1.text = 'вычитание'  then begin r := a - b ; label4.Caption := floattostr(r); end
      else if
combobox1.text = 'умножение'  then begin  z := a * b ; label4.Caption := floattostr(z); end
      else if
combobox1.text = 'деление'  then
      if  b<>0  then begin d := a / b ; label4.Caption := floattostrF(d,ffFixed,6,3); end
      else   showmessage('деление на ноль недопустимо');
     end;

   

procedure TForm1.RadioGroup1Click(Sender: TObject);
var a, b, s,r, z, d: real;
    begin
     a := strtofloat(edit1.text);
     b := strtofloat(edit2.text);
    if radiogroup1.ItemIndex = 0 then begin s := a + b ; label4.Caption := floattostr(s);end ;
    if radiogroup1.ItemIndex = 1 then begin r := a - b ; label4.Caption := floattostr(r);end ;
    if radiogroup1.ItemIndex = 2 then begin z := a * b ; label4.Caption := floattostr(z);end ;
    if  radiogroup1.ItemIndex = 3   then
       if b<>0 then
       begin
         d := a / b ;
        label4.Caption := floattostrF(d,ffFixed,6,3)
       end
              else showmessage('деление на ноль недопустимо');
 end;    

Формати числових даних:

FloatToStrF (V,F, P, D) -  перетворює дійсне число V в рядок символів з урахуванням формату F і параметрів P, D.
Пояснимо призначення функції FloatToStrF (V, F, P, D). Її використовують для форматованого виведення речового числа.
Параметрів цієї функціі:

  • ffFixed - число у форматі з фіксованою точкою,
  • P- загальна кількість цифр в поданні числа,
  • D - кількість цифр в дробовій частині.

наприклад: label4.Caption := floattostrF(d,ffFixed,6,3)

 

 

Форма входа
Поиск
Календарь
«  Сентябрь 2019  »
ПнВтСрЧтПтСбВс
      1
2345678
9101112131415
16171819202122
23242526272829
30
Архив записей
Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz

  • Рейтинг@Mail.ru
    Copyright MyCorp © 2019
    Конструктор сайтов - uCoz