Квадратное уравнение в vba excel

Сводим всё вместе

В этом уроке мы попробуем написать нашу первую программу на Visual Basic — программу для решения квадратных уравнений. Может быть эта программа и не очень полезна в хозяйстве, но она хорошо вас ознакомит с принципами программирования на VB. Итак, приступим. Всмомним из урока 5 основные этапы разработки приложение на Visual Basic:

1. Продумывание программы
2. Проектирование интерфейса
3. Написание программного кода
4. Отлаживание программы
5. Окончательная компиляция

Программу будем писать согласно этим пунктам:

1. Продумывание программы.

Что должна делать наша программа? — решать квадратные уравнения. Вспомним, как решаются квадратные уравнения.

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

Если дискриминант > 0, то

X1 = (b + (корень из D)) / 2*a
X2 = (b — (корень из D)) / 2*a

Если дискриминант = 0, то

Если дискриминант Назначение элемента управления

A: — параметр AtxtParamAB: — параметр BtxtParamBC: — параметр CtxtParamCКнопка для запуска решенияcmdCalculateLabel, с вычисленным дискриминантомlblDLabel, с корнем X1lblX1Label, с корнем X2lblX2Форма, содержащая все эти элементыfrmMain

Остальные элементы переименовывать не обязательно, т.к. мы к ним не будем обращаться в коде программы. Но, если хотите, можете переименовать. Приучайтесь к этому.

Интерфейс готов. Он конечно не претендует на звание самого удобного и красивого интерфейса года ;), но для начала сойдёт. Всё равно, в дальнейшем, уже после написания кода программы, вы сможете изменить интерфейс по вашему вкусу.

3. Написание программного кода.

Теперь самое интересное! Мы будет писать код для нашей программы! Давайте ещё раз продумаем алгоритм работы программы:

Вводим исходные данные в тектовые поля (a,b,c). Напомню, что код для этого писать не нужно. За нас всё сделает Visual Basic и Windows. В этом то и заключается прелесть графического интерфейса пользователя (GUI). Мы только считаем введенные значения и всё.

После нажатия на кнопку, производим вычисление дискриминанта и корней.

Выводим полученные значения в метки (Label’и).

Нам необходимо написать обработчик события клик (Click) нашей кнопки — cmdCalculate. Что значит обработчик события? Обработчик события — это процедура, которая будет выполняться всякий раз, когда произойдёт то или иное событие. Например собите Click. Оно происходит всякий раз при нажатии на кнопку. Т.е., если запустить программу на выполнение и не нажимать на кнопку cmdCalculate ничего не произойдёт. Но как только вы кликните по кнопке, произойдёт выполнение кода, который написан в процедуре обработки события Click (процедуре с именем cmdCalculate_Click). Он будет выполняться всякий раз, когда пользователь кликнет по кнопке. В этом то и состоит та самая Событийно-Управляемая модель программирования, которая отличается от плоских последовательных программ (Turbo Паскаля, например). Программирование на Visual Basic целиком и полностью базируется на этой Событийно-Управяемой модели.

Надеюсь, что вы уловили мою мысль. Если нет, то не отчаивайтесь, далее всё станет понятно.

Чтобы создать обработчик события Click необходимо сделать двойной клик по нашей кнопке cmdCalculate (при двойном клике, VB создаёт заготовку обработчика события — по-умолчанию. У кнопки, это событие Click, у формы — Load, у таймера — Timer и т.д.). Visual Basic создаст для вас заготовку процедуры, которая будет выглядеть следующим образом:

Private Sub cmdCalculate_Click()

Чтобы создать обработчик для другого события, необходимо выбрать событие в правом списке в окне кода:

В списке довольно много различных событий. В левом списке вы можете выбрать доступные элементы управления, которые помещены на форму. В данном случае в списке вы видите cmdCalculate. Очень удобно.

Так же, как и некоторое свойства элементов управления, события тоже повторяются. Например, событие Click. Оно есть и у элемента кнопки (Command Button), и у элемента метки (Label) и у многих других. Есть оно и у формы. Это очень облегчает процесс программирования. Не нужно тратить много времени на изучение каждого элемента управления, т.к. многое повторяется.

Заметьте также, что у процедуры обработки события Click нет входных параметров, о чём нам говорят пустые скобки. Добавить свои параметры в эту процедуру нельзя. У процедур обработки некоторых других событий могут быть параметры. Например, у события MouseMove (координаты курсора мыши) или KeyUp (код отжатой клавиши). Эти параметры передаются незаметно для программиста, и их можно использовать по своему усмотрению (а можно и вовсе не использовать).

Теперь давайте приступим непосредственно к программированию. Для начала объявим переменные с типом Double (для хранения вещественных чисел):

Private Sub cmdCalculate_Click()
&nbsp&nbsp&nbsp&nbsp’ объявляем переменные
&nbsp&nbsp&nbsp&nbsp Dim paramA As Double
&nbsp&nbsp&nbsp&nbspDim paramB As Double
&nbsp&nbsp&nbsp&nbspDim paramC As Double

&nbsp&nbsp&nbsp&nbspDim x1 As Double
&nbsp&nbsp&nbsp&nbspDim x2 As Double
&nbsp&nbsp&nbsp&nbspDim D As Double
End Sub

Теперь считаем введённые параметры a, b и с. Для этого присвоим переменным paramA, paramB и paramC значения свойства Text всех 3-х полей для ввода (TextBox’ов). Мы можем это сделать потому, что Visual Basic сам преобразует число в виде строки в обычное число с плавающей точкой.

paramA = txtParamA.Text
paramB = txtParamB.Text
paramC = txtParamC.Text

Доступ к свойству любого элемента управления осуществляется через точку, которая разделяет имя свойства и имя элемента. Обратите внимание на технологию Intellisence. Visual Basic выдает список доступных свойств этого элемента управления. Это очень удобно. Вам не придётся выучивать наизусть длинные и сложные названия свойств. Достаточно выбрать нужное свойство из списка и всё.

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

D = (paramB * paramB) — (4 * paramA * paramC)

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

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

If D > 0 Then
&nbsp&nbsp&nbsp&nbspx1 = (paramB + Sqr(D)) / (2 * paramA)
&nbsp&nbsp&nbsp&nbspx2 = (paramB — Sqr(D)) / (2 * paramA)
&nbsp&nbsp&nbsp&nbsplblD.Caption = «Дискременант: » & D
&nbsp&nbsp&nbsp&nbsplblX1.Caption = «Корень №1: » & x1
&nbsp&nbsp&nbsp&nbsplblX2.Caption = «Корень №2: » & x2
ElseIf D = 0 Then
&nbsp&nbsp&nbsp&nbspx1 = paramB / (2 * paramA)
&nbsp&nbsp&nbsp&nbspx2 = x1
&nbsp&nbsp&nbsp&nbsplblD.Caption = «Дискременант: » & D
&nbsp&nbsp&nbsp&nbsplblX1.Caption = «Корень №1: » & x1
&nbsp&nbsp&nbsp&nbsplblX2.Caption = «Корень №2 = Корню №1»
ElseIf D Then
&nbsp&nbsp&nbsp&nbsplblD.Caption = «Дискременант: » & D
&nbsp&nbsp&nbsp&nbsplblX1.Caption = «Корней нет!»
&nbsp&nbsp&nbsp&nbsplblX2.Caption = «»
&nbsp&nbsp&nbsp&nbspMsgBox «Дискременант меньше нуля! Корней нет!», vbCritical
End If

Не забывайте про отступы! С ними код намного нагляднее.

Корень мы вычисляем встроенной функцией VB — Sqr (от Square). В выражениях, которые мы присваиваем свойству Caption у меток, мы используем оператор конкатенации (склеивание строк). Им мы склеиваем строку слева от & со строкой справа. Откуда берётся строка справа? Ведь там переменные типа Double!? Как я уже говорил, Visual Basic неявно занимается преобразованием типов. В данном случае перед конкатенацией, числа Double сначала преобразуются в строку.

В принципе, программа уже готова. Давайте проверим её работоспособность. Нажмите кнопку Start. Появится наша форма. Введите значение в поля: a = 3, b = -6, c = 2. Нажмите на кнопку «Решить!». Если вы всё делати правильно, то должны увидеть следующую картину:

Дело в том, что строка для вывода в Label не вписывается в его размеры. Поэтому происходит перенос на следующую строчку. Чтобы этого избежать, закройте программу и установите свойство меток AutoSize в True (Совет: Чтобы не устанавливать это свойство 3 раза для каждой метки, выдели их сразу все 3 и установите свойство.). Свойство AutoSize — подгоняет размер метки так, чтобы текст в свойстве Caption полностью уместился в одну строчку и не переносился на другую. Теперь снова запустите программу, введите те же значения и нажмите на кнопку:

Теперь всё в порядке! Программа работает! Можете поэкперементировать, вводя разные значения коэффициентов.

Но, обратите внимение! Что произойдёт, если мы, не введя значения в поля , нажмём на кнопку? Что тогда присвоиться нашим переменным? Или, что будет, если мы введём нули в качестве коэффициентов? В обоих случаях Visual Basic сгенерирует ошибку. Почему? Ответ на этот вопрос мы разберём на следующем уроке.

Создание проекта «Решение квадратного уравнения» при помощи языка программирования Visual Basic

Конкурс-смотр «Экскурсия по кабинету»

«Решение квадратного уравнения»

при помощи языка программирования Visual Basic

Тип урока: обучающий

Вид урока: практическое занятие в среде программирования Visual Basic

Продолжительность урока: 45 минут

Учащиеся должны знать:

Этапы создания проекта Управляющие элементы: их название, обозначение, свойства. Среду языка программирования: панель свойств, панель инструментов

Учащиеся должны уметь:

Создавать проект средствами языка программирования Visual Basic Вносить изменения в программный код

Задачи урока:

Воспитательная. Развитие познавательного интереса, воспитание информационной культуры. Учебная.

1. Изучить и закрепить основные навыки работы в среде программирования Visual Basic.

2. Научиться применять для разработки программы текстовые поля для ввода информации

Развивающая. Развитие логического мышления, расширение кругозора.

1. Словесный (беседа, электронная лекция, изложение материала).

2. Наглядный (демонстрация проекта).

3. Практическая работа.

Цель урока: Научить учащихся применять современное программное обеспечение в решении нестандартных задач, а именно, решения квадратного уравнения общего вида ax2 + bx + c = 0

Оснащение урока: мультимедийный проектор или интерактивная доска Smart (для демонстрации учителем хода выполнения практической работы), компьютеры с установленной средой программирования Visual Basic

Используемая литература: Н. Угринович «Информатика 9 класс», Н. Угринович «Практикум по информатике и информационным технологиям», CD — диск «Информатика и информационные технологии»

Аннотация

Данный урок в 9-м классе провожу после изучения теоретического материала по теме «Графический интерфейс проекта и событийные процедуры» (урок № 17) и «Переменные: тип, имя, значение» (урок № 18), как обучающий, позволяющий не только обобщить и закрепить полученные знания, но перейти на новый виток изучения темы.

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

Кроме того, учащиеся могут предложить и свои варианты написания событийной процедуры на языке программирования VisualBasic.

План урока:

I. Организационная часть

Внешний вид, приветствие, готовность оборудования.

II. Основная часть

1. Актуализация знаний

3. Этап введения новых знаний

Демонстрация преподавателем, постановка задачи на выполнение практической работы.

4. Этап применения знаний

Создание собственного проекта.

III. Заключительная часть

1. Рефлексия. Подведение итогов

Подвести итоги, отметить наиболее отличившихся учащихся, выставить оценки.

2. Этап информации о домашнем задании

Разработать интерфейс проекта «Калькулятор», используя новые управляющие элементы TextBox и Label. Изучить параграф 4.4, 4.5

1. Организационный этап

Цель нашего урока — научиться применять современное программное обеспечение в решении задач, а именно, решения квадратного уравнения общего вида ax2 + bx + c = 0. Для достижения поставленной цели нам с вами необходимо вспомнить и ответь на следующие вопросы:

· Что такое командная кнопка?

· Какие функции она выполняет при создании интерфейса программы?

· Как обозначается в программе?

· Как можно изменить размеры создаваемой формы?

· Как изменить внешний вид формы?

· Каким способом можно создать программный код?

· Что такое событийная процедура?

· Какие событийные процедуры Вы знаете?

· Как правильно объявить переменные?

· Какие операторы используются для задания условия?

2. Объяснение нового материала.

Для создания проекта «Решение квадратного уравнения» нам необходимо разработать интерфейс программы. Для того, чтобы вводились данные не на самой форме необходимо использовать новый для вас элемент, который называется элемент управления TextBox (текстовое поле). Какие свойства присваиваются этому объекту? Обычно всегда используется приставка txt, а далее имя, которое необходимо пользователю и которое потом используется в написании программного кода.

Кроме того, в разработке интерфейса программы вам понадобится еще один новый элемент управления Label (Метка). Он необходим для того, чтобы обозначить текстовое поле. Для этого элемента используется приставка lbl.

Все эти элементы вы можете найти на панели инструментов.

3. Разработка интерфейса программы

Войдите в систему программирования Visual Basic 6. Перед Вами появятся Панель инструментов и окно формы, как на рисунке ниже:

Слева на рисунке Вы видите Панель инструментов. Найдите на ней

— TextBox (текстовый бокс),

— CommandButton — (командная кнопка).

Они понадобятся Вам при проектировании окна формы нахождения корней квадратного уравнения в среде Visual B

На предыдущем уроке для ввода коэффициентов a, b, c исходного квадратного уравнения при проектировании использовался инструмент InputBox, находящийся на Панели управления, что потребовало для каждого коэффициента отдельное окно, то на данном уроке мы с вами научимся, как можно ввести исходную информацию, то есть коэффициенты уравнения a, b, c вместе в одном окне. Для этого будет предложено воспользоваться инструментом TextBox.

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

Как видно из предшествующего рисунка, прежде всего, нужно выполнить несколько подготовительных пунктов, касающихся оформления окна формы. Это потребует внести изменения в окно свойств формы Properties-Form1:

1. Выбрать конфигурацию шрифта (размер, наклон, толщину): изменить свойство font,

2. Дать название форме: «Решение квадратного уравнения» (то есть изменить свойство Caption в окне свойств формы),

3. Установить свойства: width=7000 единиц (длина формы) и height=5000 единиц (высота формы),

4. Выбрать цвет фона BackColor, например, светлобирюзовый.

И уже после этого поместите на форму планируемые объекты:

1. — Label1(0) (метка A) и соответствующий ей текстовый бокс TextBox1(0) — TextBox (текстовый бокс) для ввода числового значения коэффициента a исходного квадратного уравнения,

2. — Label1(1) (метка B) и соответствующий ей текстовый бокс TextBox1(1) — TextBox (текстовый бокс) для ввода числового значения коэффициента b исходного квадратного уравнения,

3. — Label1(2) (метка C) и соответствующий ей текстовый бокс TextBox1(2) — TextBox (текстовый бокс) для ввода числового значения коэффициента c исходного квадратного уравнения,

4. — CommandButton — (командная кнопка). Command Button — кнопка будет помечена командой: «Решить!» квадратное уравнение. Под эту кнопку необходимо будет еще написать соответствующий код программы, в котором предусмотреть вычисление дискриминанта и корней квадратного уравнения, если дискриминант неотрицательный, или выдать сообщение в отдельном окне Message Box о том, что уравнение не имеет корней в случае, если дискриминант окажется отрицательным.

5. — Label2() (метка, содержащая указание: «Введите коэффициенты уравнения: «),

6. — Label3() (метка, содержащая строку: «Дискриминант: « и его величину),

7. — Label4() (метка, содержащая строку-решение: «Корень уравнения x1 = : « и его значение),

8. — Label5() (метка, содержащая строку-решение: «Корень уравнения x2 = : « и его значение),

С этой целью выполните последовательно следующие действия:

1. Поместите на форму Form1 метку Label1(0) и рядом текстовый бокс TextBox1(0).

2. Затем войдите в меню Edit (Правка) и выполните команду: Select all (Выделить все) и далее команду: Copy (копировать). Вы получите в буферной памяти компьютера копию двух объектов: метки и текстового блока.

3. Теперь дважды вставьте указанную пару объектов на форму. Вы получите на форме уже три пары объектов: три метки и три текстовых блока, как показано ниже на рисунке.

4. Используя окна свойств для обънктов Label1(0), Label1(1) и Label1(2), замените сложные названия меток Label1(0), Label1(1) и Label1(2) на более простые: A, B и C. Для этого измените соответствующие свойства Caption.

5. Очистите поле каждого текстового блока TextBox1(0), TextBox1(1), TextBox1(2). Для этого в окне свойств объекта TextBox1(0) найдите свойство text и почистите правую часть этой строки, то есть уберите наименование text1. Проделайте то же самое для объектовTextBox1(1) и TextBox1(2).

6. Кроме того, расположите на форме кнопку Command Button и дайте ей новое название: Решить!. В результате форма будет иметь следующий вид:

7. Поместите на форму над тремя парами меток A, B, C и текстовых боксов TextBox1(0), TextBox1(1), TextBox1(2) метку Label2() с указанием: Введите коэффициенты уравнения.

8. Поместите на форму метку Label3(): Дискриминант: .

9. Поместите на форму метку Label4(): Корень уравнения x1 = .

10. Поместите на форму метку Label5(): Корень уравнения x2 = .

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

4. Составление программного кода

Теперь остается одно: Вам нужно заняться составлением кода программы, которая будет включаться в работу по двойному щелчку по командной кнопке (Command Button): Решить!.

5. Самостоятельная работа учащихся по составлению программного кода

Комментарии для учителя

Ниже на рисунке показан код этой программы. В ней, как обговаривалось выше, вычисляется дискриминант квадратного уравнения b2 — 4ac и после анализа его знака в случае неотрицательности дискриминанта вычисляются корни уравнения или дается ответ: Дискриминант меньше нуля! Корней нет!

Ниже на рисунках Вы видите опробование проекта для трех случаев:

дискриминант больше нуля: корни действительные и разные;

дискриминант равен нулю: корни действительные и равные;

дискриминант меньше нуля: действительных корней нет.

6. Подведение итогов

Учащиеся показывают проект учителю, и подводится итог урока, выставляются оценки.

7. Домашнее задание

Разработать интерфейс проекта «Калькулятор», используя новые управляющие элементы TextBox и Label. Изучить параграф 4.4, 4.5

на урок информатике в 9Б классе

Количество учащихся: 13 человек

Дата: 10.12.2009 года

Урок информатике, проведенной в 9 классе по теме «Создание проекта «Решение квадратного уравнения» при помощи языка программирования Visual Basic» с использованием информационных компьютерных технологий показал новый подход к организации практической работы учащегося на уроке.

Каждый ученик создал собственный проект «Решение уравнения», используя при этом знания, полученные на предыдущих уроках. Кроме того, прослеживается интеграция знаний, которая помогает учащимся осознать, что важно знать, не только какаю-то одну предметную область, но и смежные с ней дисциплины.

На уроке соблюдены все временные рамки и требования СанПин по организации и проведению практических работ на уроках информатики.

Полученные знания учащиеся могут применять для создания интегрированных проектов и по другим предметам.

Марина Анатольевна постоянно усовершенствует традиционные педагогические технологии обучения информатике, использует проектную технологию.

Анализ урока информатики

Информатика в 9-в классе проводилась вторым уроком в кабинете информатики. Все требования СанПина к проведению уроков в компьютерном классе были соблюдены. Площадь кабинета составляет 60 кв. м. В кабинете установлена люминесцентное освещение, на специально оборудованных столах компьютеры, технические средства, имеются соответствующие рабочие столы на 30 учащихся, помещение проветрено, проведена влажная уборка.

– творчески работающий учитель, владеющий педагогико — психологическими основами анализа свой деятельности и возможностями учащихся.

точно определила место урока в теме, определила тип урока: обучение, что позволило корректно определить цели и задачи, подобрать приемы.

На уроке применялись оптимальные приемы и методы для реализации поставленных целей и задач. Деятельность учителя и учащихся протекает естественно независимо от степени сложности.

отличает активная инновационная экспериментальная деятельность. Основываясь на методологии развивающего обучения, она опробует в своей работе различные современные педагогические технологии. Четко и подробно на экране появляются интерфейс программы, при этом учитель объясняет назначение каждого управляющего элемента и способы его использования в других проектах.

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

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

За урок 5 учеников получили «5», 5 учеников «4», 3 ученика «3».

Много внимания уделяет формированию положительной мотивации к обучению и к информатике. Она охотно делится опытом своей работы с коллегами.

Visual basic практическая работа «Решение квадратного уравнения»

Решение квадратного уравнения на языке VB в двух вариантах и рассмотрение блок-схемы решения задачи.

Просмотр содержимого документа
«Visual basic практическая работа «Решение квадратного уравнения»»

Лабораторная работа №1. Решение квадратного уравнения.

1. Вывод результата с помощью оператора Print

Решение. Рассмотрим блок-схему решения данной задачи:

Программа написана справа от блок-схемы.

Private Sub Command1_Click()

d = b * b — 4 * a * c

X1 = (-b + Sqr(d)) / (2 * a)

X2 = (-b — Sqr(d)) / (2 * a)

Для выполнения программы нажимает клавишу F5. Вводим значения коэффициентов a, b, c. Результат работы программы читаем в форме.

a=1567, b = -110, c = -15, ответ: x1=0,13904296372987 x2=-6,88451334809872E-02

При вводе десятичных дробей через окно InputBox следует применять запятую.

a=1,5, b = 1, c = -4, ответ: x1 = 1,3333333, x2 = -2

Если запустить программу и ничего не вводить (a=0, b = 0, c = 0), а нажимать ОK (Enter), то появится сообщение об ошибке. Следует нажать кнопку End.

2) Добавление новых элементов в форму

Главным объектом среды программирования Visual Basic является форма. До сих пор на форме мы располагали только одну кнопку, результат читали также на поверхности формы.

Инструментальное меню Visual Basic содержит много элементов, которые также можно разместить на форме. Познакомимся поближе со второй строкой этой панели.

Буква А означает надпись. При наведении на неё курсора появляется слово Label (читается лэйбл, переводится этикетка, надпись). На форме надпись будет растягиваться аналогично командной кнопке — в виде прямоугольника. В неё мы будем печатать поясняющие надписи.

Справа от неё находится кнопка текстовое окно TextBox (читается ТекстБокс, текстовая панель). В текстовое окно можно вводить и выводить информацию (числа, слова).

Создадим форму для задачи «Нахождение корней квадратного уравнения», используя вышеперечисленные элементы инструментального меню. Прежде всего создадим в тетради эскиз формы. Он может выглядеть так:

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

Изменение свойств формы

Щелкнем на свободном месте формы. Она будет ограничена квадратными маркерами по восьми направлениям изменения размеров формы.

Справа активизировалась панель свойств этой формы – Properties – Form1 (читается пропетиз фом ван, переводится свойства формы один). В этом окне слева расположены названия свойств, а справа их значения. Значения мы можем менять по своему усмотрению. Названия свойств являются ключевыми словами языка VB, их постепенно надо запоминать. Нам надо изменить текст в заголовке формы. Изменение текста заголовка формы выполняется в строке Caption (произносится — кэпшн, переводится заголовок). Щелкаем мышкой по этому свойству, печатаем – Решение квадратного уравнения, нажимаем Enter. Текст появляется в заголовке формы.

Изменим цвет формы. Для этого в свойствах находим строку BackColor (бэк колор, задний цвет). На вкладке Palette (палетте, палитра) выбираем нужный нам цвет для формы, щелкнув по нему указателем мыши.

Выделяем командную кнопку и в разделе свойств Caption печатаем Вычислить.

Выделяет объект Label1. В разделе свойств Caption печатаем а =. Переходим к свойству Alignment (читается — элайнмент, переводится выравнивание). Раскрываем список этой строки и выбираем выравнивание по правому краю 1. Right Justify (Райт джустифай, правое, если много текста, то левая и правая границы выровнены). Можно было нажать клавишу с цифрой 1.

Свойство Font (фонт, вид шрифта) позволит нам настроить вид символов. В диалоговом окне можно выбрать тип шрифта, начертание (обычный, курсив, полужирный) и размер 14. Сделайте так, чтобы текст а = выглядел как а =. “это достигается применением шрифта Times New Roman (Таймс Нью Роман)

Аналогично меняем содержимое объектов Label2, Label3.

В свойстве Caption объекта Label4 записываем Ответ:

В свойствах текстового окна Text1 находим строку Text. Стираем существующую надпись, можно пробелом, и подтверждаем изменение клавишей Enter или щелчком мыши на другом объекте.

Аналогично поступаем с остальными текстовыми окнами. Форма готова.

Точечная запись — в качестве переменной

Объектно-ориентированные языки программирования работают с объектами. В качестве объекта может быть форма, командная кнопка, надпись, текстовое окно и др. Каждый из этих объектов имеет свойства. Эти свойства можно менять по нашему усмотрению либо на Панели свойств (Properties), либо из программы. Для того, чтобы изменить свойства из программы, точнее, иметь доступ к свойствам объекта их командной строки, нужно указать название объекта и через точку свойство. Например, чтобы иметь доступ к содержимому первого текстового окна нашего проекта по свойству Text, надо сделать запись: Text1.Text. –(в программном коде)

Такая запись может использоваться в качестве переменной. Свойство может содержать какое-либо значение. Это значение мы можем записать при запуске программы, или программист, при составлении программы, поместит в него какое-нибудь значение.

Сравните две строки:

Text1.Text = “5” — эта строка помещает значение 5 в текстовое окно Text1.

a= Text1.Text — эта строка присваивает переменной a содержимое текстовой строки. Если в текстовом окне ничего нет, то Visual Basic помещает в него специальное значение Null. Это ни нуль, не пробел, а пустое место.

для этой формы будет выглядеть так:

Private Sub Command1_Click()

d = b * b — 4 * a * c

X1 = (-b + Sqr(d)) / (2 * a)

X2 = (-b — Sqr(d)) / (2 * a)

Text4.Text = “x1=” & X1 & “ x2=” & X2

Программу следует проверить на контрольных примерах. Перемещение по окнам сверху вниз — клавишей Tab. . Перемещение по окнам снизу вверх клавишным аккордом — Shift +Tab. Программа будет работать правильно для корректных данных, иначе будет появляться сообщение об ошибке.

📸 Видео