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

31 / 1 / 0

Регистрация: 16.01.2015

Сообщений: 18

Не знаю, реально ли это сделать без создания своих форм и/или библиотек, но всё же. Реально ли сделать аналог виндового калькулятора(хотя бы обычного, не инженерного режима, да только с основными действиями: +,-,*,/) при помощи Windows.Forms в новом проекте? Я не смог придумать, какой код написать к тексотовому полю, чтобы оно принимало нажатия с клавиатуры вообще(OnKeyPress, как в Delphi или подобие чего-то такого я ABC.NET не нашел), а если кто-то поможет, то после этого нужно будет ввести условие, чтобы при нажатии символов(букв и другого) или всяких функциональных клавиш вроде F* и так далее отсеивалось, а при нажатии цифр они добавлялись справа. Ничего этого я не умею, но хочу научиться. Прощу помочь мне, я только начал заниматься программированием(около недели), поэтому мне нужна помощь ещё и с объяснением. Просто решение это конечно хорошо, но я хочу именно научиться решать определенные задачи. Заранее благодарю за помощь. Как только эти две вышеприведенные проблемы будут решены и меня научат их решать, я добавлю сюда следующие.

И вообще, хотел спросить, подойдет ли форма TextBox для такой задачи в виде текстового поля, или лучше вручную попробовать написать подобие TEdit из Lazarus?

2388 / 1300 / 1492

Регистрация: 29.08.2014

Сообщений: 4,665

31 / 1 / 0

Регистрация: 16.01.2015

Сообщений: 18

64312 / 47609 / 32742

Регистрация: 18.05.2008

Сообщений: 115,181

Ставите курсор в поле ввода, нажимаете клавиши и все будет само отображаться в данном поле.

31 / 1 / 0

Регистрация: 16.01.2015

Сообщений: 18

Puporev

64312 / 47609 / 32742

Регистрация: 18.05.2008

Сообщений: 115,181

1
2
3
4
5
6
7
8
9

procedure Form1.button1_Click(sender: Object; e: EventArgs);
begin
TextBox1.Text:=TextBox1.Text+'1';
end;
 
procedure Form1.button2_Click(sender: Object; e: EventArgs);
begin
TextBox1.Text:=TextBox1.Text+'2';  
end;

и так для каждой кнопки

2388 / 1300 / 1492

Регистрация: 29.08.2014

Сообщений: 4,665

64312 / 47609 / 32742

Регистрация: 18.05.2008

Сообщений: 115,181

Да ничего не нужно, хоть сколько нажимаю на кнопки столько и выводится.

Добавлено через 1 минуту
А, если вводить и кнопками и с клавы…

Gedeon300

31 / 1 / 0

Регистрация: 16.01.2015

Сообщений: 18

А, если вводить и кнопками и с клавы…[/QUOTE]
Вот что у меня получилось, кнопки цифр работают без проблем. Как заставить работать кнопки действия, я пока не знаю.

Вот код кнопок.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66

procedure Form1.button1_Click(sender: Object; e: EventArgs);
begin
    TextBox1.Text := TextBox1.Text + '1';
end;
 
procedure Form1.button2_Click(sender: Object; e: EventArgs);
begin
    TextBox1.Text := TextBox1.Text + '2'; 
end;
 
procedure Form1.button3_Click(sender: Object; e: EventArgs);
begin
    TextBox1.Text := TextBox1.Text + '3'; 
end;
 
procedure Form1.button4_Click(sender: Object; e: EventArgs);
begin
    TextBox1.Text := TextBox1.Text + '4'; 
end;
 
procedure Form1.button5_Click(sender: Object; e: EventArgs);
begin
    TextBox1.Text := TextBox1.Text + '5'; 
end;
 
procedure Form1.button6_Click(sender: Object; e: EventArgs);
begin
    TextBox1.Text := TextBox1.Text + '6'; 
end;
 
procedure Form1.button7_Click(sender: Object; e: EventArgs);
begin
    TextBox1.Text := TextBox1.Text + '7'; 
end;
 
procedure Form1.button8_Click(sender: Object; e: EventArgs);
begin
    TextBox1.Text := TextBox1.Text + '8'; 
end;
 
procedure Form1.button9_Click(sender: Object; e: EventArgs);
begin
    TextBox1.Text := TextBox1.Text + '9'; 
end;
 
procedure Form1.button10_Click(sender: Object; e: EventArgs);
begin
    
end;
 
procedure Form1.button11_Click(sender: Object; e: EventArgs);
begin
    
end;
 
procedure Form1.button12_Click(sender: Object; e: EventArgs);
begin
    
end;
 
procedure Form1.button13_Click(sender: Object; e: EventArgs);
begin
    
end;
 
end.

Всякие команды вроде var b:= ReadInteger и последующее выполнение действия никак не работают, говорит, нет, нельзя так делать. Да и такой вариант подойдет только набросок/черновик, ведь тогда набираемое число врят ли будет видно в TextBox.

31 / 1 / 0

Регистрация: 16.01.2015

Сообщений: 18

64312 / 47609 / 32742

Регистрация: 18.05.2008

Сообщений: 115,181

Столько калькуляторов написано например в Делфи, найдите в поиске код и переделайте. Суть та же и коды похожи.

Добавлено через 1 минуту
Например здесь
Создание калькулятора
Замените Edit на Textbox

31 / 1 / 0

Регистрация: 16.01.2015

Сообщений: 18

64312 / 47609 / 32742

Регистрация: 18.05.2008

Сообщений: 115,181

И Вы беретесь за калькулятор? Да почитайте хоть что-то прежде, здесь ведь не учебник что бы объяснять прописные истины.

31 / 1 / 0

Регистрация: 16.01.2015

Сообщений: 18

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

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

Puporev

64312 / 47609 / 32742

Регистрация: 18.05.2008

Сообщений: 115,181

зато есть свойство InputBox1.Text;

1
2
3

var a:integer;
.................
a:=strtoint(InputBox1.Text);

и так далее…

А Вы зайдите в справку и почитайте разделы из Справочник по языку

31 / 1 / 0

Регистрация: 16.01.2015

Сообщений: 18

Не всё получается понять с первого раза. Минут через 15 вообще перестаю понимать, что есть что. Только когда ещё в альтернативных источника нахожу примера 3 на изучаемую тему, то только тогда бывает доходит. Спасибо за ответ, сейчас попробую, как сработает.

64312 / 47609 / 32742

Регистрация: 18.05.2008

Сообщений: 115,181

Тогда плохи Ваши дела, иногда приходится часами читать, думать, пробовать…

31 / 1 / 0

Регистрация: 16.01.2015

Сообщений: 18

Немного уточню. Перестаю понимать, если я с чем-то сталкиваюсь в первый раз, и пытаюсь пройти дальше. Бесполезное занятие. Вся проблема в том, что примеров маловато, и четкого учебника просто нет. Я не знаю, в какой последовательности что мне нужно изучать. Поэтому мне и трудно определиться и что-то понять. Обучение ведь должно быть структурированным, с 1 по 11 класс, например, а не 1 класс, потом 5, 8, затем 3, вообщем, суть вы поняли. Вроде нашел какой-то учебник, песни о Паскале, как думаете, мне подойдет?

Попробовал, не получается скомпилить. Кнопка сложения, в чем с ней проблема?

31 / 1 / 0

Регистрация: 16.01.2015

Сообщений: 18

Puporev

64312 / 47609 / 32742

Регистрация: 18.05.2008

Сообщений: 115,181

Набираете 1 число, это переменная а, очищаете поле ввода, набираете 2 число, это переменная b.
Складываете их c:=a+b;
Очищаете поле вода и пишете Textbox1.Text:=inttostr(c);

Добавлено через 2 минуты

1
2
3
4
5

a:=strtoint(Textbox1.Text);
Textbox1.Text:='';
b:=strtoint(Textbox1.Text);
c:=a+b;
Textbox1.Text:=inttostr(c);