Отправляет email-рассылки с помощью сервиса Sendsay

Delphi. Уроки

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 8.314 RSS
←   Июль 2006   →
 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


За последние 60 дней ни разу не выходила


Сайт рассылки: http://progs.biz
Открыта: 19-12-2001

Автор
Алексеев Игорь

Статистика

8.314 подписчиков
0 за неделю
←   Все выпуски   →

Delphi. Уроки


Уроки по Delphi. Рассылки сайта progs.biz
Выпуск № 50		  
Начало > Delphi.NET > Windows > Урок 2

Д. Гудман JavaScript и DHTML. Сборник рецептов.
Д. Гудман. JavaScript и DHTML. Сборник рецептов
Заказать на Озоне

Полные версии уроков (с картинками): урок 2.

Delphi.NET. Windows-приложения
Урок 2. Первая программа на Delphi.NET

Начинаем писать первую программу на Delphi.NET.

Это будет некое подобие калькулятора - гнаша программа сможет выполнять только 4 арифметических действия.

Запустите среду Delphi и выберите File -> New -> Windows Form Application - Delphi for .NET.

Появится пустая форма. Разместите на форме 2 текстовых поля, 4 радиокнопки, label и простую кнопку. Размещаются они на форме путем простого перетаскивания с панели Tool Palette среды Delphi.

Теперь установим некоторые свойства для добавленных на форму элементов. Делается это так - мышкой выделяем нужный элемент на форме, и затем меняем его свойства в окне Object Inspector среды Delphi. Изменения нам нужны следующие: у двух текстовых полей (их имена будут TextBox1 и TextBox2 соответственно) меняем свойство Text на пустую строку; у кнопки меняем свойство Text на Result, у метки Label1 меняем свойство Text на пустую строку и у радиокнопок меняем свойсто Text на "+", "-", "*" и "/" соответственно.

Теперь нам надо написать код, который будет выполнятся при нажатии на кнопку с надписью Result. Для создания заготовки для кода просто выполните двойной щелчок на кнопке на форме и в созданной заготовке добавьте следующий код:

procedure TWinForm.Button1_Click(sender: System.Object; e: System.EventArgs);
var
  res: Single;
begin
  // Если выбрали сложение.
  if RadioButton1.Checked then
  begin
    res := Convert.ToInt32(TextBox1.Text) + Convert.ToInt32(TextBox2.Text);
  end;
  // Если выбрали вычитание.
  if RadioButton2.Checked then
  begin
    res := Convert.ToInt32(TextBox1.Text) - Convert.ToInt32(TextBox2.Text);
  end;
  // Если выбрали умножение.
  if RadioButton3.Checked then
  begin
    res := Convert.ToInt32(TextBox1.Text) * Convert.ToInt32(TextBox2.Text);
  end;
  // Если выбрали деление.
  if RadioButton4.Checked then
  begin
    res := Convert.ToInt32(TextBox1.Text) / Convert.ToInt32(TextBox2.Text);
  end;
  // Выводим результат.
  Label1.Text := res.ToString();
end;

Код должен быть достаточно ясен из комментариев: мы проверяем, не выделена ли соответствующая радиокнопка (через ее свойство Checked), и если она выделена, то записываем в переменную res типа Single (которую мы объявили на уровне нашей функции) результат. Обратите внимание, что нам надо использовать переконвертацию введенного пользователем в текстовые поля значения в число (так как в текстовые поля записывается строка вида "123", а не число 123). Это мы делаем через статический метод ToInt32 класса Convert. Когда же мы записываем числовой результат в метку, то мы должны число сконвертировать обратно в строку (через метод ToString).

Запускаем программу. Вводим 2 целых числа, выбираем некоторое арифметическое действие и нажимаем на кнопку Result. Правильный результат должен появится в метке.
Рассылки сайта progs.biz
Visual C++, MFC
C# и .NET
VB.NET
ASP.NET
Win API
C/C++
Delphi
Java
HTML, PHP, mySQL, WEB-дизайн
Flash MX
C++ Builder
Ассемблер
SQL Server
DirectX
Обзор книг
Обзор программ
Новости сайта progs.biz

PARKING.RU. Качественный ВИРТУАЛЬНЫЙ ХОСТИНГ на платформе Windows(r): поддержка NET, многофункциональная панель управления, аренда бизнес-приложений, сертифицированные специалисты. Управляемый ВЫДЕЛЕННЫЙ ХОСТИНГ на платформе Windows(r): производительные серверы, профессиональная поддержка, аренда ПО Microsoft(r), безопасность, гарантии. http://www.parking.ru
Копирование любых материалов сайта без разрешения авторов и владельцев сайта запрещено.
© 2002-2006 сайт progs.biz
© 2002-2006 Игорь Алексеев
В избранное