Применение команды ветвления при создании проекта в Visual Basic

Август 26, 2022

Главная
Информатика
Применение команды ветвления при создании проекта в Visual Basic

Содержание

2. Эпиграф к уроку: «Единственное чего не может быть в избытке и чего нам никто не вернет
3. І этап. Повторение ІІ этап. Применение ІІІ этап. Восприятие ІV этап. Закрепление
4. І этап. Повторение Текстовое поле Мәтіндік өріс TextBox Рамка Жақтау Frame Командная кнопка Командалық батырма Command
5. ІІ этап. Применение Использование команды ветвления при решении КВУ ЕСЛИ условие ТО команда 1 ИНАЧЕ команда
6. Вид КВУ ax2+bx+c=0, где a,b – коэффициенты C - свободный член, X1/2 – корни уравнения Используя
7. ЕСЛИ D нет решения ИНАЧЕ ЕСЛИ D=0 ТО один корень ИНАЧЕ два корня
8. IІІ этап. Восприятие Label – 9 TextBox – 4 PictureBox – 3 CommandBatton – 2
9. Программный код Option Explicit Dim A As Double : Dim B As Double : Dim C
10. Private Sub Command1_Click() A = Val(Text1.Text) B = Val(Text2.Text) C = Val(Text3.Text) D = B ^
11. Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Picture1.Cls
12. П р и м е р ы 3X2+5X+4=0 2) 4X2+12X-7=0 3) 2X2-4X+2=0
13. Закрепление
14. Найдите базовые элементы управления и назовите их
15. Найдите служебные слова команды ветвления
16. Укажите раздел описания переменных Private Sub Command BackColor Load Picture Caption Option Explicit
17. Практическое задание I. Разработайте программу "Угадайка", которая будет загадывать число, а пользователь пытаться его угадать: Создайте
18. 3. Запустите программу, введите исходные данные, щелкните по кнопке Ответ, протестируйте программу, остановите, исправьте при необходимости
20. Скачать презентацию

Слайд 2

Эпиграф к уроку:
«Единственное чего не может быть в избытке и чего

нам никто не вернет – это время!»
Сенчуков Ю.Ю.

Слайд 3

І этап. Повторение
ІІ этап. Применение
ІІІ этап. Восприятие
ІV этап. Закрепление

Слайд 4

І этап. Повторение
Текстовое поле
Мәтіндік өріс
TextBox
Рамка
Жақтау
Frame
Командная

кнопка

Командалық батырма

Command Button

Label

Надпись

Жазба

Рамка для рисунка

Сурет

PictureBox

Команда ветвления

Если условие то ком1 иначе ком2

Егер шарт онда 1ком әйтпесе 2ком

If condition then com1 else com2

Слайд 5

ІІ этап. Применение Использование команды ветвления при решении КВУ
ЕСЛИ условие ТО команда

1 ИНАЧЕ команда 2

IF условие THEN команда 1 ELSE команда 2

Слайд 6

Вид КВУ
ax2+bx+c=0, где
a,b – коэффициенты
C - свободный член,
X1/2 – корни уравнения
Используя

коэффициенты, находится дискриминант:
D=b2- 4*a*c

Слайд 7

ЕСЛИ D<0 ТО
нет решения
ИНАЧЕ ЕСЛИ D=0
ТО один корень

ИНАЧЕ два корня

Слайд 8

IІІ этап. Восприятие
Label – 9
TextBox – 4
PictureBox – 3
CommandBatton – 2

Слайд 9

Программный код
Option Explicit
Dim A As Double : Dim B As Double

: Dim C As Double
Dim D As Double: Dim X1 As Double: Dim X2 As Double

Описание пременных

Слайд 10

Private Sub Command1_Click()
A = Val(Text1.Text)
B = Val(Text2.Text)
C = Val(Text3.Text)
D = B

^ 2 - 4 * A * C
Text4.Text = Str(D)
If D < 0 Then Picture1.Print "Корней нет" Else If D = 0 Then Picture2.Print "1 корень "; "X1="; Sqr(D) + B / 2 * A Else Picture3.Print "2 корня "; "X1="; (Sqr(D) + B) / 2 * A; "X2="; (Sqr(D) - B) / 2 * A;
End Sub

Программный код

Код исполняемой командной кнопки

Слайд 11

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Picture1.Cls
Picture2.Cls
Picture3.Cls
End

Sub

Программный код

Код командной кнопки “Сброс”

Слайд 12

П р и м е р ы
3X2+5X+4=0
2) 4X2+12X-7=0
3) 2X2-4X+2=0

Слайд 13

Закрепление

Слайд 14

Найдите базовые элементы управления и назовите их

Слайд 15

Найдите служебные слова команды ветвления

Слайд 16

Укажите раздел описания переменных
Private Sub
Command
BackColor
Load Picture
Caption
Option Explicit

Слайд 17

Практическое задание
I. Разработайте программу "Угадайка", которая будет загадывать число, а

пользователь пытаться его угадать:
Создайте форму:
Дважды щелкните по кнопке Ответ и в процедуре обработки события создайте код, который сравнивает введенное пользователем число в Text1.text с любым фиксированным числом, например, 3. Если числа равны, то в Text2.text должно быть выведено "Угадал", в противном случае "Не угадал".

V. Домашнее задание:

Слайд 18

3. Запустите программу, введите исходные данные, щелкните по кнопке Ответ, протестируйте

программу, остановите, исправьте при необходимости ошибки в программе.
Пример внешнего вида формы: