Ускоритель Интернета! Бесплатно!

Поставь себе Marketscore!
Поставь!

Marketscore - хит сезона!
Сервис, практически вдвое увеличивающий скорость загрузки вашим браузером страниц и сайтов в Интернете. В среднем, скорость загрузки вэбстраниц с графикой и текстом ускоряется на 75%. 
Особенно заметен выигрыш, если у вас медленный модем или вы выходите в Интернет на маленьких скоростях (до 56 Кб/сек).
Подробнее...
Если вы видите здесь эту рекламу, значит увидят и вашу рекламу...

Delphi - это просто! Часть 3

Dj Kiry, DjKiry@mail.ru

На прошлых уроках мы постигали азы в Delphi, а сегодня мы сделаем свой калькулятор и Вы сами попробуете сделать свою программу без моей помощи.

Хорошо, со знаниями, накопленными нами в течении прошлых уроков мы преступаем делать действительно полезную программу - калькулятор. Начнем.

Для начала поместите на форму три компонента TEdit. В свойстве "Name" для первого компонента напишите "Chislo1", у второго - "Chislo2", у третьего - "Summa". Также сотрите везде свойство "Text". Поместите три кнопки. У первой свойству "Name" присвойте значение "Plus", у второй - "Minus", у третьей - "Umnoj". Свойство "Caption" поставьте соответственно. Скомпонуйте все это поокуратнее и в результате должно получиться примерно следующее :

1

Хорошо, теперь приступим к программированию. Вот пример процедуры подсчета :

procedure TForm1.PlusClick(Sender: TObject);
Var
S: Integer;
begin
S := StrToInt(Chislo1.Text)+StrToInt(Chislo2.Text);
Summa.Text := IntToStr(S);
end;

Во первых, что для Вас неизвестно - это новый тип "Integer". "Integer" - это тип целого числа. В него может записываться любое целое число. В нашем случае сумма. для того, чтобы все другое стало понятнее, давайте переведем процедуру на русский :

Процедура TForm1.PlusClick(Sender: TObject);
Переменные
S: Целое;
Начало
S := СтрокуВЦелое(Chislo1.Text)+СтрокуВЦелое(Chislo2.Text);
Summa.Text := ЦелоеВСтроку(S);
Конец;

Как Вы видите - ничего сложного в этом нет, просто мы же не можем к строке прибавить строку - это все равно, что к "а" прибавить "б". Для того, чтобы перевести строку в число и служит оператор "StrToInt". Оператор "IntToStr" обратно переводит целое число в строку. В нашем случае он пишет сумму. Тоже самое, но с разными знаками надо проделать для каждой из кнопок. Все, запускайте программу и наслаждайтесь !!! Но "наслаждайтесь" - это понятие относительное - форму можно растянуть и будет далеко некрасиво. Не отчаевайитесь - это легко исправить. Щелкните по пустому месту на форме и в инспекторе объектов найдите свойство "BorderStyle" и присвойте ему значение "bsSingle", найдите свойство "BorderIcons" и щелкните по плюсику рядом с названием. В открывшихся подсвойствах свойству "biMaximize" придайте значение "False". Запускайте программу. Конечно Вы задали еще один вопрос - " Как сделать так, чтобы форма появлялась по середине окна ? ". У формы в инспекторе объектов найдите свойство "Position" и придайте ему значение "poScreenCenter" ("По центру экрана"). Все!!! Запускайте программу.

Вот код этой программы:

Хорошо, теперь настало время сделать Вам свою собственную программу без моей помощи. Сделайте вместе две программы - калькулятор и программу, которая извлекает сведения о пользователе из реестра windows. Вам надо сделать так, чтобы ответ не писался в компоненте "TEdit", а выскакивал сообщением вида "Уважаемый <Имя пользователя>, ответ равен <Ответ>". Приступайте. На всякий случай код этой программы приведен ниже, но постарайтесь туда не подглядывать!

Если Вы без труда осилили этот курс, то Delphi - это язык программирования для вас, если пользоваться теми железными правилами, которые я в Вас привил. Программируйте, дерзайте, пробуйте и читайте Internet zone. С наилучшими пожеланиями

Сайт автора: http://DjKirySoft.narod.ru

 


Copyright © "Internet Zone"info@izcity.com 
Копирование и использование данных материалов разрешается только в случае указания на журнал "Internet Zone", как на источник получения информации. При этом во всех ссылках обязательно явное указание адреса вэб-сайта http://www.izcity.com/.
При наличии у копируемого материала авторов и источника информации - их также нужно указывать, наряду со ссылкой на нас. Подробнее условия использования материалов смотрите здесь.