Ответ на пост «172 см»2
Мой проект (это не реклама, прога бесплатная):
https://wdhoТочкаРу/kfwZ
Не вирус, вот отчет с сайта Касперского:
https://opentip.kasperskyТочкаКом/303313787C70352EBF8B4AC6D5DFF6DE5131B0B22B24528B58F3B2279B52258D/results?tab=upload
Сделано в ПаскальАбц, единственный визуальный бесплатный язык программирования, который можно изучить за 20 минут. Пришлось попотеть - я вообще не программист, а Интернет упорно дает знания по крупицам. Многое пришлось делать методом научного клика после каждой строчки кода. Стоит еще доукрасить прогу (поменять кнопку "Ок" на "Добро", добавить восклицательный знак, изменить заголовок в финальном диалоге), но я вообще не пойму как это сделать. Оператор "MessageBox.Show" в ПаскальАбц не имеет каких-то настроек. Еще неплохо было бы сделать проверку введенных данных, чтобы юзверь не смог ввести буквы, другие символы или огромные числа. Вообще странно, язык изучается в школе, а примеров, учебных порталов по нему с гулькин нос. Не считая текстовых задач. А кому сейчас нужны текстовые задачи? Все же хотят Гуи. В общем принимайте в программисты. Где моя зряплата? Кому надо, вот сорцы:
Unit Unit1;
interface
uses System, System.Drawing, System.Windows.Forms;
type
Form1 = class(Form)
procedure button1_Click(sender: Object; e: EventArgs);
procedure Form1_Load(sender: Object; e: EventArgs);
procedure label1_Click(sender: Object; e: EventArgs);
procedure toolStripMenuItem23_Click(sender: Object; e: EventArgs);
procedure toolStripMenuItem3_Click(sender: Object; e: EventArgs);
{$region FormDesigner}
internal
{$resource Unit1.Form1.resources}
textBox1: TextBox;
label1: &Label;
label2: &Label;
menuStrip1: MenuStrip;
toolStripMenuItem1: ToolStripMenuItem;
toolStripMenuItem3: ToolStripMenuItem;
button1: Button;
{$include Unit1.Form1.inc}
{$endregion FormDesigner}
public
constructor;
begin
InitializeComponent;
end;
end;
implementation
procedure Form1.button1_Click(sender: Object; e: EventArgs);
begin
MessageBox.Show('Ваш рост ' + TextBox1.Text + ' см');
end;
procedure Form1.Form1_Load(sender: Object; e: EventArgs);
begin
end;
procedure Form1.label1_Click(sender: Object; e: EventArgs);
begin
end;
procedure Form1.toolStripMenuItem23_Click(sender: Object; e: EventArgs);
begin
end;
procedure Form1.toolStripMenuItem3_Click(sender: Object; e: EventArgs);
begin
MessageBox.Show('Программа создана Фёдором Коркуновым');
end;
end.
