| |||||
Delphi - это просто! Часть 3Dj Kiry, DjKiry@mail.ru На прошлых уроках мы постигали азы в Delphi, а сегодня мы сделаем свой калькулятор и Вы сами попробуете сделать свою программу без моей помощи. Хорошо, со знаниями, накопленными нами в течении прошлых уроков мы преступаем делать действительно полезную программу - калькулятор. Начнем. Для начала поместите на форму три компонента TEdit. В свойстве "Name" для первого компонента напишите "Chislo1", у второго - "Chislo2", у третьего - "Summa". Также сотрите везде свойство "Text". Поместите три кнопки. У первой свойству "Name" присвойте значение "Plus", у второй - "Minus", у третьей - "Umnoj". Свойство "Caption" поставьте соответственно. Скомпонуйте все это поокуратнее и в результате должно получиться примерно следующее : Хорошо, теперь приступим к программированию. Вот пример процедуры подсчета : procedure TForm1.PlusClick(Sender: TObject); Во первых, что для Вас неизвестно - это новый тип "Integer". "Integer" - это тип целого числа. В него может записываться любое целое число. В нашем случае сумма. для того, чтобы все другое стало понятнее, давайте переведем процедуру на русский : Процедура TForm1.PlusClick(Sender: TObject); Как Вы видите - ничего сложного в этом нет, просто мы же не можем к строке прибавить строку - это все равно, что к "а" прибавить "б". Для того, чтобы перевести строку в число и служит оператор "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/. При наличии у копируемого материала авторов и источника информации - их также нужно указывать, наряду со ссылкой на нас. Подробнее условия использования материалов смотрите здесь. |