Здравствуйте!!! Сейчас перед
вашими глазами первый выпуск моей рассылки "програмирование: исходники
программ". Эта рассылка будет интересна любому человеку, увлекающасему
програмированием. Я буду опубликовывать исходные тексты программ
разных языков програмирования. В основном вы увидитеисходники мною
написаных программ. Вообще-то я предпочитаю: Visual
Basic и Delphi. А также вы можете
задать
мне вопрос, и Я с радостью отвечу на него.
И так начнём.... В этом выпуске рассылки я вам представлю исходник
моего первого калькулятора. Этот калькулятор написан на
Visual Basic, так что вам понадобиться VB.
Этот калькулятор сможет сделать основные математические операции, такие
как : +; -; *; /, но есть один минус! Т.Е этот калькулятор работает только
с целыми числами! Советую воспользоваться этим исходником, особенно
начинающим!
НУ-ССС.......ПОЕХАЛИ!!!
Создайте новый
проект и откройте форму. В панели Properties
нажмите на "BorderStyle". Щелкните на кнопку
со стрелкой, которая расположена справа и выберите “1
- Fixed Single”. Это свойство не позволяет пользователю возможность
менять размеры формы. Выберите свойство Caption и введите вместо “Form1”,
“CALCULATOR”.
Выберите инструментр
"TextBox" в панели инструментов и поместите
текстовое окно на форму. Всего необходимо три текстовых окна, добавьте еще
два и расположите их. Нажмите на первое текстовое окно и в панели "Properties"
найдите "Text", справа от этого свойства
удалите надпись “Text1”. Так же сделайте со
вторым текстовым окном. Для третьего вместо “Text3”
введите “Результат”.
Выберите инструмент
"CommandButton" в панели инструментов и
поместите кнопку на форму. Нажмите на только что помещенную кнопку и в
свойстве "Name" введите “cmdExit”.
В свойстве "Caption" введите “x”.
Затем дважды щелкните на эту кнопку. Перед вами откроется окно для ввода
программного кода. Введите слово “End” (без
кавычек) между строками “Private Sub
cmdExit_Click()”
и “End Sub”. Закройте окно программного кода.
Функция
End предназначена для завершения работы
программы. Теперь, если вы запустите ваш калькулятор и нажмете на кнопку “x”,
программа закроется.
Поместите на форму
еще четыре кнопки и введите в их свойство "Caption",
- “+” “-” “*”
“/”.
Затем дважды
щелкните на кнопку с надписью “+”. Откроется
окно программного кода. Введите “Text3.Text =
Str(Val(Text1.Text) + Val(Text2.Text))” (без кавычек). Закройте
окно программного кода.
Теперь дважды
щелкните на кнопку с надписью “-”. Введите “Text3.Text
= Str(Val(Text1.Text) - Val(Text2.Text))” (без кавычек). Закройте
окно программного кода.
Дважды щелкните на
кнопку с надписью “*”.. Введите “Text3.Text
= Str(Val(Text1.Text) * Val(Text2.Text))” (без кавычек) и закройте
окно программного кода.
Затем дважды
щелкните на кнопку с надписью “/”. Откроется
окно программного кода. Введите “Text3.Text =
Str(Val(Text1.Text) / Val(Text2.Text))” (без кавычек). Закройте
окно программного кода.
Готово! Вы закончили
работу над программой теперь посмотрим на нее в действии. Нажмите F5 для
запуска апликации.
