Калькулятор на паскале windows forms

Некоторые вещи я уже знаю. Я же и начинаю с простого. Не сразу весь функционал виндового калькулятор хочу реализовать, а потихоньку. Вот, та ссылка, что вы мне дали, я проверил код, в PascalABC.NET нет Caption, и как добавлять значение кнопки к текстовому полю я не имею ни малейшего понятия. И кстати, как его сделать Integer именно в ABC.NET я не знаю тоже. Кстати, именно к PascalABC.NET учебников почти нет, а те, которые я нашел, большинство примеров из них работают с ошибками, то есть не компилируется. Поэтому единственный источник знаний практический опыт реальных программистов, с форумов вроде этого. Учебники по простому ABC не подойдут, потому что там редактора Windows Forms нет вообще, да и примеров такого калькулятора я не нашел.

Я пробовал копировать Delphi калькуляторы, но не выходит. Многих простых команд просто нет в ABC.NET, а просто копирование кода никак не способствует его понимаю. Прописные истины я вроде знаю, но вот с графическими объектами работать не умею, этому и хочу научиться. Решил попробовать калькулятор, для начала.
Если поделитесь ссылкой на хорошее разъяснение или какую-то энциклопедию с разъяснением аналогов команд Delphi в ABC.NET, буду благодарен. Потому что именно из-за того, что я такого ничего не нашел, обратился сюда.

ПРАКТИЧЕСКОЕ ЗАНЯТИЕ № 17

ТЕМА: Проектирование интерфейса с использованием

элементов управления: кнопок, надписей, текстового поля

и др.

ЦЕЛЬ: Сформировать умения создавать приложения в

Pascal Windows Forms.

1. Последовательность выполнения практического занятия.

1.1. Работа на учебном занятии

а. Выполнить практические задания.

б. Показать результаты работы преподавателю и при необходимости

сохранить их в свою рабочую папку на ПК.

в. Убрать рабочее место.

г. Оформить отчёт.

2. Методические указания

Упражнение 1.

Создать проект, в котором пользователь сможет ввести число,

получить его значение в квадрате и квадратный корень из этого числа.

Этапы выполнения задания

1. Создадим в новой папке (Primer171) новый проект (Project171).

2. Изменить свойство Text у формы на «Квадрат и корень».

3. Изменить свойство Size — 440; 360.

4. Для того что бы форма открывалась в центре экрана

свойство StartPosition установите CenterScreen.

5. Разместить на форме

три объекта – Label1, Label2, Label3;

три объека – TextBox1, TextBox2, TextBox3;

и кнопку (объект Button1):

FormsABC — учебный модуль PascalABC.NET для работы с простейшими оконными приложениями без дизайнера форм. Основан на устаревшей технологии Windows Forms.

• Данный модуль является устаревшим (может быть в будущем исключен из среды) и специфическим для PascalABC.NET и не поддерживается другими диалектами Pascal и остальными языками. Современный аналог — Controls.
• Программы с использованием FormsABC рекомендуется запускать без связи с оболочкой.

Основные классы[править]

FormsABC содержит следующие классы элементов управления формы:

1. Button (кнопка) [аналог в Windows Forms]
2. CheckBox (флажок) [аналог в Windows Forms]
3. RadioButton (радио-кнопка) [аналог в Windows Forms]
4. IntegerField (поле ввода целых значений) [аналог в Windows Forms]
5. RealField (поле ввода вещественных значений) [аналог в Windows Forms]
6. Field (поле ввода строк) [аналог в Windows Forms]
7. TextBox (многострочное текстовое поле) [аналог в Windows Forms]
8. TrackBar (ползунок) [аналог в Windows Forms]
9. TextLabel (метка) [аналог в Windows Forms]
10. ListBox (список) [аналог в Windows Forms]
11. ComboBox (разворачивающийся список) [аналог в Windows Forms]
12. MainMenu (главное меню) [аналог в Windows Forms]

Button[править]

Button (наследуется от Object) — класс кнопки. Для ее создания пишите:

, где:

• {text} — текст на кнопке

CheckBox[править]

CheckBox (наследуется от Object) — класс флажка. Для его создания пишите:

, где:

• {text} — текст, относящийся к флажку

RadioButton[править]

RadioButton (наследуется от Object) — класс радио-кнопки. Для её создания пишите:

, где:

• {text} — текст, относящийся к радио-кнопке

IntegerField[править]

IntegerField (наследуется от Field) — класс однострочного поля ввода для целых чисел. Для его создания пишите:

new IntegerField({text}, {width});

, где:

• {text} — текст, относящийся к полю
• {width} — ширина поля

RealField[править]

RealField (наследуется от Field) — класс однострочного поля ввода для вещественных чисел. Для его создания пишите:

new RealField({text}, {width});

, где:

• {text} — текст, относящийся к полю
• {width} — ширина поля

Field[править]

Field (наследуется от Object) — класс однострочного поля ввода для строк. Для его создания пишите:

new Field({text}, {width});

, где:

• {text} — текст, относящийся к полю
• {width} — ширина поля

TextBox[править]

TextBox (наследуется от BaseDockControl) — класс многострочного поля ввода для строк. Для его создания пишите:

TrackBar[править]

TrackBar (наследуется от Object) — класс ползунка. Для его создания пишите:

TextLabel[править]

TextLabel (наследуется от Object) — класс метки. Для её создания пишите:

, где:

• {text} — текст метки

ListBox[править]

ListBox (наследуется от Object) — класс списка. Для его создания пишите:

ComboBox[править]

ComboBox (наследуется от Object) — класс списка. Для его создания пишите:

MainMenu[править]

MainMenu (наследуется от Object) — класс главного меню. Для его создания пишите:

Размещение элементов управления формы[править]

Изначально элементы управления формы размещаются по порядку — каждый следующий позиционируется справа от предыдущего.

Свойства формы[править]

Настраивать главную форму можно через глобальную переменную mainForm.

Примеры[править]

Простой калькулятор[править]

uses System;
uses FormsABC;

const
  Sum = '+';
  Difference = '-';
  Multiplication = '*';
  Division = '/';
  
begin
  mainForm.Width := 350;
  mainForm.Height := 120;
  mainForm.Title := 'Calculator';
  mainForm.IsFixedSize := true;
  
  var first := new IntegerField('First:', 100);
  var second := new IntegerField('Second:', 100);
  var result := new IntegerField('Result:', 100);

  LineBreak();
  
  var actions := new ComboBox();
  actions.Items.Add(Sum);
  actions.Items.Add(Difference);
  actions.Items.Add(Multiplication);
  actions.Items.Add(Division);
  actions.SelectedIndex := 0;
  
  var calculate := new Button('Calculate');
  calculate.Click += () ->
    try
      case actions.SelectedValue.ToString()[1] of
        Sum: result.Value := first.Value + second.Value;
        Difference: result.Value := first.Value - second.Value;
        Multiplication: result.Value := first.Value * second.Value;
        Division:
          if second.Value <> 0 then
            result.Value := first.Value div second.Value;
      end;
    except on Exception do
    end;
end.

Max-Min калькулятор[править]

uses System;
uses FormsABC;

const
  Max = 'Max';
  Min = 'Min';
  Average = 'Average';
  
begin
  mainForm.Width := 350;
  mainForm.Height := 120;
  mainForm.Title := 'Calculator';
  mainForm.IsFixedSize := true;
  
  var first := new IntegerField('First:', 100);
  var second := new IntegerField('Second:', 100);
  var result := new IntegerField('Result:', 100);

  LineBreak();
  
  var actions := new ComboBox();
  actions.Items.Add(Max);
  actions.Items.Add(Min);
  actions.Items.Add(Average);
  actions.SelectedIndex := 0;
  
  var calculate := new Button('Calculate');
  calculate.Click += () ->
    try
      case actions.SelectedValue.ToString() of
        Max: result.Value := Math.Max(first.Value, second.Value);
        Min: result.Value := Math.Min(first.Value, second.Value);
        Average: result.Value := (first.Value + second.Value) div 2;
      end;
    except on Exception do
    end;
end.

Демонтрация стека[править]

uses FormsABC;

const
  Push = 'Push';
  Pop = 'Pop';
  Peek = 'Peek';

begin
  mainForm.Width := 350;
  mainForm.Height := 120;
  mainForm.Title := 'Stack demostration';
  mainForm.IsFixedSize := true;
  
  var source := new Stack<integer>();
  
  var item := new IntegerField('Item:', 100);
  var result := new Field('Result:', 220);

  LineBreak();
  
  var actions := new ComboBox();
  actions.Items.Add(Push);
  actions.Items.Add(Pop);
  actions.Items.Add(Peek);
  actions.SelectedIndex := 0;
  
  var show := new Button('Show');
  show.Click += () ->
  begin
    var stackToString: Func<Stack<integer>, string> := from ->
    begin
      result := string.Empty;
      foreach var item in from do
        result += $'{item} ';
    end;
    
    case actions.SelectedValue.ToString() of
      Push:
        source.Push(item.Value);
      Pop:
        if source.Count > 0 then
          source.Pop();
      Peek:
        if source.Count > 0 then
          source.Peek();
    end;
    
    result.Text := stackToString(source);
  end;
end.

Текстовый редактор[править]

uses System;
uses System.IO;
uses FormsABC;

begin
  mainForm.Width := 640;
  mainForm.Height := 400;
  mainForm.Title := 'Text Editor';
  
  var menu := new MainMenu();
  
  parentControl := mainForm;
  var editor := new TextBox();
  editor.Dock := DockStyle.Fill;
  
  menu.Add('File', 'Edit');
  
  menu[0].Add('Save', procedure (item) ->
  begin
    var dialog := new SaveFileDialog();
    if dialog.ShowDialog() = DialogResult.OK then
      &File.WriteAllLines(dialog.FileName, editor.Text.Split(|'\n'|, StringSplitOptions.RemoveEmptyEntries));
  end);
  
  menu[0].Add('Open', procedure (item) ->
  begin
    var dialog := new OpenFileDialog();
    if dialog.ShowDialog() = DialogResult.OK then
    begin
      editor.Text := string.Empty;
      
      foreach var line in &File.ReadAllLines(dialog.FileName) do
        editor.Text += $'{line}{Environment.NewLine}';
    end;
  end);
  
  menu[0].Add('Exit', procedure (item) -> mainForm.Close());
  
  menu[1].Add('Undo', procedure (item) -> editor.Undo());
  menu[1].Add('Redo', procedure (item) -> editor.Redo());
  menu[1].Add('Copy', procedure (item) -> editor.Copy());
  menu[1].Add('Cut', procedure (item) -> editor.Cut());
  menu[1].Add('Clear', procedure (item) -> editor.Text := string.Empty);
end.