/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/Graphics/Controls/cc18_SimpleCalc.pas
44 строки
1 KB
Mikhalkovich Stanislav
case s of
01 авг 2020, 11:29
01 авг 2020, 11:29
5404728
Код
Авторство
О чём код?
// Модуль Controls - Калькулятор uses Controls,GraphWPF; begin Window.Title := 'Калькулятор с выводом в TextBox'; LeftPanel(150, Colors.Orange); var tb := SetMainControl.AsTextBox; tb.FontSize := 30; var x := IntegerBox('X:'); var y := IntegerBox('Y:'); x.Value := Random(0,10); y.Value := Random(0,10); var cb := new ComboBoxWPF('Операция'); cb.AddRange('+','-','*','/'); var count := 0; var sb := StatusBar; sb.Text := 'Количество вычислений: ' + count; var b := Button('+'); b.Click := procedure -> begin case cb.SelectedText of '+': tb.Println($'{x.Value} + {y.Value} = {x.Value + y.Value}'); '-': tb.Println($'{x.Value} - {y.Value} = {x.Value - y.Value}'); '*': tb.Println($'{x.Value} * {y.Value} = {x.Value * y.Value}'); '/': tb.Println($'{x.Value} / {y.Value} = {x.Value / y.Value}'); end; x.Value := Random(0,10); y.Value := Random(0,10); count += 1; sb.Text := 'Количество вычислений: ' + count; end; Button('Очистить').Click := () -> begin count := 0; sb.Text := 'Количество вычислений: ' + count; tb.Clear; end; cb.SelectionChanged := procedure -> begin b.Text := cb.SelectedText end; end.