Проект калькулятор на visual basic

Содержание урока

Проект «Калькулятор» на языках объектно-ориентированного программирования Visual Basic и Gambas

Проект «Калькулятор» на языках объектно-ориентированного программирования Visual Basic и Gambas

1. В операционной системе Windows запустить систему объектно-ориентированного программирования Visual Basic командой [Пуск Все программы — Visual Basic 2010 Express].

в операционной системе Linux запустить систему объектно-ориентированного программирования Gambas командой [Пуск — Образование — Разработка — Gambas IDE (Интегрированная среда разработки Gambas)].

Работа над проектом начинается с создания графического интерфейса, для этого на форму помещаются элементы управления.

2. Разместить на форме:

• два текстовых поля TextBox1 и TextBox2 для ввода числовых данных;
• метку Label1 для вывода результата;
• шесть кнопок Button1, Button2, Button3, Button4, Button5 и Button6 для запуска обработчиков событий: сложения, вычитания, умножения, деления двух чисел, вычисление синуса и квадратного корня числа.

Следующим шагом является создание программного кода обработчиков событий.

3. Дважды щелкнуть мышью по кнопке. Появится окно Код с пустой заготовкой обработчика событий. Обработчик события, реализующий сложение чисел Button1_Click, должен присвоить значению свойства Text метки Label1 сумму числовых значений, введенных в текстовые поля TextBox1 и TextBox2. Обработчики событий вычитания, умножения и деления создаются аналогично.

Для преобразования строковых значений свойства Text текстовых полей в десятичные числа воспользоваться функцией Val (), аргументом которой является строка, а значением — число.

4. Обработчик события, реализующий вычисление квадратного корня (аналогично — вычисления синуса), примет вид (в Gambas используется функция Sqr ()):

Графический интерфейс проекта можно сделать более понятным и привлекательным.

5. В режиме конструирования проекта последовательно выделить объекты графического интерфейса и с помощью диалогового окна Свойства установить новые значения некоторых свойств для каждого объекта
:
• для объекта форма Form1 изменить значение свойства Text и цвет (значение свойства BackColor);
• для объектов кнопка Button1, Button2, Button3, Button4, Button5 и Button6 изменить значение свойства Text;
• для объектов текстовое поле TextBox1 и TextBox2 установить выравнивание текста по правому краю (значение свойства TextAlign) и шрифт (значение свойства Font);
• для всех объектов увеличить шрифт (значение свойства Font).

Читайте также:  Бокорезы какой фирмы лучше

Изменения значений свойств объектов с помощью диалогового окна Свойства могут производиться различными способами. В большинстве случаев нужно просто стереть старое значение свойства и ввести новое. Однако для ввода значений некоторых свойств используются раскрывающиеся списки или диалоговые окна. Так, автоматическое изменение размера метки (значение свойства AutoSize) устанавливается с использованием списка, а цвет фона (значение свойства BackColor) и шрифт (значение свойства Font) устанавливаются с использованием диалоговых окон.

6. Запустить проект на выполнение. Ввести число (например, 2008) в первое текстовое поле и щелкнуть по кнопке вычисления синуса.

На метку будет выведен результат.

Cкачать материалы урока

Идёт приём заявок

Подать заявку

Для учеников 1-11 классов и дошкольников

Документы в архиве:

Название документа Пр

Практическая работа
Проект в Visual Basic «Cтроковый калькулятор»

Цель работы: разработать проект «Строковый калькулятор», позволяющий рассмотреть применение строковых функций.
Оборудование: персональный компьютер, среда объектно-ориентированного программирования Visual Basic.
Ход работы:

Открыть среду объектно-ориентированного программирования Visual Basic (Пуск-Программа-Microsoft Visual Basic).

Выделить форму и в окне свойства изменить имя формы (frm1), BackColor (выбрать цвет), Coption (Строковый калькулятор).

Поместить на форму метку (A) –Label1 в свойствах: BackColor (выбрать зеленый цвет), Coption (Исходное слово), Font (размер шрифта 16 пт).

Аналогичным образом разместить на форме метку – Label2 изменив свойство Cаption на (Результат).

Поместить на форму текстовое поле (ab) – в окне свойства: имя поля (text1): BackColor (выбрать цвет), Text (убрать всю информацию).

Аналогичным образом поместить текстовые поля (text2), (text3), (text4).

С помощью инструмента лилия ( / ) — Line отделяем аргументы, инструменты и результат. В свойствах линии BorderWidht изменим размер линии (с 1 на 2).

Поместить на форму командную кнопку CommandButton – в окне свойств изменить: имя кнопки (cmd1); Style – 1(Graphical), BackColor (выбрать желтый цвет), Cаption (), Font (размер шрифта 16 пт).

Аналогичным образом разместить на форме командные кнопки (cmd2), (cmd3), изменив соответственно свойство Cаption ( LEFT), ( RIGHT).

Событийная процедура для кнопки Cmd1 имеет вид:

Private Sub Cmd1_Click()
Text2.Text = Mid$(Text1.Text, Val(Text3.Text), Val(Text4.Text))
End Sub

Событийная процедура для кнопки Cmd2 имеет вид:

Читайте также:  Бесконечность делим на бесконечность равно

Private Sub Cmd2_Click()
Text2.Text = Left$(Text1.Text, Val(Text3.Text))
End Sub

Событийная процедура для кнопки Cmd3 имеет вид:

Private Sub Cmd3_Click()
Text2.Text = Right$(Text1.Text, Val(Text3.Text))
End Sub

Запустить проект на выполнение, введите с клавиатуры в первое текстовое окно слово «информатика», в третье текстовое окно цифру 3, а в четвертое – цифру 5. В результате получится слово «форма».

14*.Дополнительное задание. Получить из слова
«железнодорожник» слова: «жезл», «Колено», «Крокодил».

Практическая работа Проект в Visual Basic «Cтроковый калькулятор»

Чтобы скачать материал, введите свой E-mail, укажите, кто Вы, и нажмите кнопку

Нажимая кнопку, Вы соглашаетесь получать от нас E-mail-рассылку

Если скачивание материала не началось, нажмите еще раз "Скачать материал".

  • Информатика

Цель работы: разработать проект «Строковый калькулятор», позволяющий рассмотреть применение строковых функций.

Оборудование: персональный компьютер, среда объектно-ориентированного программирования Visual Basic.

Ход работы:

  1. Открыть среду объектно-ориентированного программирования Visual Basic (Пуск-Программа-Microsoft Visual Basic).
  2. Выделить форму и в окне свойства изменить имя формы (frm1), BackColor (выбрать цвет), Coption (Строковый калькулятор).
  3. Поместить на форму метку (A) –Label1 в свойствах: BackColor (выбрать зеленый цвет), Coption (Исходное слово), Font (размер шрифта 16 пт).
  4. Аналогичным образом разместить на форме метку – Label2 изменив свойство Cаption на (Результат).
  5. Поместить на форму текстовое поле (ab) – в окне свойства: имя поля (text1): BackColor (выбрать цвет), Text (убрать всю информацию).
  6. Аналогичным образом поместить текстовые поля (text2), (text3), (text4).
  7. С помощью инструмента лилия (/ ) — Line отделяем аргументы, инструменты и результат. В свойствах линии BorderWidht изменим размер линии (с 1 на 2).
  8. Поместить на форму командную кнопку CommandButton – в окне свойств изменить:имя кнопки (cmd1); Style – 1(Graphical), BackColor (выбрать желтый цвет), Cаption (), Font (размер шрифта 16 пт).
  9. Аналогичным образом разместить на форме командные кнопки (cmd2), (cmd3), изменив соответственно свойство Cаption ( LEFT), ( RIGHT).
  10. Событийная процедура для кнопки Cmd1 имеет вид:

Private Sub Cmd1_Click()
Text2.Text = Mid$(Text1.Text, Val(Text3.Text), Val(Text4.Text))
End Sub

Событийная процедура для кнопки Cmd2 имеет вид:

Private Sub Cmd2_Click()
Text2.Text = Left$(Text1.Text, Val(Text3.Text))
End Sub

Событийная процедура для кнопки Cmd3 имеет вид:

Private Sub Cmd3_Click()
Text2.Text = Right$(Text1.Text, Val(Text3.Text))
End Sub

Запустить проект на выполнение, введите с клавиатуры в первое текстовое окно слово «информатика», в третье текстовое окно цифру 3, а в четвертое – цифру 5. В результате получится слово «форма».

Читайте также:  Asus zenfone 4 max zc520kl 16gb отзывы

14*.Дополнительное задание. Получить из слова
«железнодорожник» слова: «жезл», «Колено», «Крокодил».

Что ты хочешь узнать?

Ответ

Для создания графического интерфейса на форме размести пять кнопок с названиями сложение, вычитание, деление, умножение, выход; три текстовых поля (два для ввода и одно для вывода) .

Перед тем как начать основную работу можно убедиться, что калькулятор не будет складывать числа более 16 знаков. Для этого необходимо в процедуре Text1_Change и Text2_Change ввести такой код:

Private Sub Text1_Change () ‘Происходит при изменении текстового поля
If Len (Text1.Text)>16 Then MsgBox “Много знаков” ‘Если Text1>16, то выводим сообщение
End Sub

Private Sub Text2_Change ()
If Len (Text2.Text)>16 Then MsgBox “Много знаков”
End Sub

Теперь напишем код для сложения, вычитания и умножения:

Private Sub Command1_Click () ‘Сложение
Text3.Text=Val (Text1.Text) + Val (Text2.Text)
End Sub

Private Sub Command2_Click () ‘Вычитание
Text3.Text=Val (Text1.Text) – Val (Text2.Text)
End Sub

Private Sub Command3_Click () ‘Умножение
Text3.Text=Val (Text1.Text) * Val (Text2.Text)
End Sub

С кодом для деления придётся немного пораздумать. Когда во втором текстовом поле будет ноль или там не будет текста, то будут выскакивать ошибка. Для её предотвращения придётся создать условие:

Private Sub Command4_Click () ‘Деление
If Text2.Text =”” Then MsgBox “Деление на ноль”
If Text2.Text = 0 Then MsgBox “Деление на ноль”
If Text2.Text<>”” Then Text3.Text=Val(Text1.Text)/Val(Text2.Text)
If Text2.Text<>0 Then Text3.Text=Val(Text1.Text)/Val(Text2.Text)
End Sub

Осталось написать процедуру для кнопки «Выход» :

Private Sub Command5_Click () ‘Выход
End
End Sub

Для создания других операций с числами можно воспользоваться обозначениями функций:
Sqr (число) – служит для извлечения квадратного корня
Например: Sqr (16) = 4

Основание ^ степень – возведение числа в степень
Например: 6 ^ 2 = 36

Sin (число) – синус числа
Например: Sin (60) = -0, 304810621102217

Cos (число) – косинус числа
Например: Cos (60) = -0, 952412980415156

Tan (число) –тангенс числа
Например: Tan (60) = 0,320040389379563