Разделы презентаций
- Разное
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Математика
- Медицина
- Менеджмент
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, картинки для презентаций
- Экология
- Экономика
- Юриспруденция
Применение команды ветвления при создании проекта в Visual Basic
Содержание
- 1. Применение команды ветвления при создании проекта в Visual Basic
- 2. Эпиграф к уроку:
- 3. І этап. Повторение ІІ этап. ПрименениеІІІ этап. ВосприятиеІV этап. Закрепление
- 4. І этап. ПовторениеТекстовое полеМәтіндік өрісTextBoxРамка ЖақтауFrameКоманднаякнопкаКомандалықбатырмаCommandButtonLabel НадписьЖазбаРамка длярисункаСуретPictureBoxКомандаветвления
- 5. ІІ этап. Применение Использование команды
- 6. Вид КВУax2+bx+c=0, гдеa,b – коэффициентыC - свободный член,X1/2 – корни уравненияИспользуя коэффициенты, находится дискриминант:D=b2- 4*a*c
- 7. ЕСЛИ D
- 8. IІІ этап. Восприятие Label – 9TextBox – 4PictureBox – 3CommandBatton – 2
- 9. Программный кодOption ExplicitDim A As Double :
- 10. Private Sub Command1_Click()A = Val(Text1.Text)B = Val(Text2.Text)C
- 11. Private Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Picture1.ClsPicture2.ClsPicture3.ClsEnd SubПрограммный кодКод командной кнопки “Сброс”
- 12. П р и м е р ы 3X2+5X+4=02) 4X2+12X-7=03) 2X2-4X+2=0
- 13. Закрепление
- 14. Найдите базовые элементы управления и назовите их
- 15. Найдите служебные слова команды ветвления
- 16. Укажите раздел описания переменныхPrivate Sub CommandBackColorLoad PictureCaptionOption Explicit
- 17. Практическое задание I. Разработайте программу "Угадайка", которая
- 18. 3. Запустите программу, введите исходные данные, щелкните
- 19. Спасибоза внимание!
- 20. Скачать презентанцию
Эпиграф к уроку:
Слайды и текст этой презентации
Слайд 4І этап. Повторение
Текстовое поле
Мәтіндік өріс
TextBox
Рамка
Жақтау
Frame
Командная
кнопка
Командалық
батырма
Command
Button
Label
Надпись
Жазба
Рамка для
рисунка
Сурет
PictureBox
Команда
ветвления
Слайд 5
ІІ этап. Применение
Использование команды ветвления при решении КВУ
ЕСЛИ условие ТО
команда 1 ИНАЧЕ команда 2
команда 2
Слайд 6Вид КВУ
ax2+bx+c=0, где
a,b – коэффициенты
C - свободный член,
X1/2 – корни
уравнения
Используя коэффициенты, находится дискриминант:
D=b2- 4*a*c
Слайд 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Описание пременных
Слайд 10Private 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
Программный код
Код исполняемой командной кнопки
Слайд 11Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text =
""
Picture1.Cls
Picture2.Cls
Picture3.Cls
End Sub
Программный код
Код командной кнопки “Сброс”
Слайд 16Укажите раздел описания переменных
Private Sub
Command
BackColor
Load Picture
Caption
Option Explicit
Слайд 17Практическое задание
I. Разработайте программу "Угадайка", которая будет загадывать число,
а пользователь пытаться его угадать:
Создайте форму:
Дважды щелкните по кнопке
Ответ и в процедуре обработки события создайте код, который сравнивает введенное пользователем число в Text1.text с любым фиксированным числом, например, 3. Если числа равны, то в Text2.text должно быть выведено "Угадал", в противном случае "Не угадал".V. Домашнее задание:
Слайд 183. Запустите программу, введите исходные данные, щелкните по кнопке Ответ,
протестируйте программу, остановите, исправьте при необходимости ошибки в программе.
Пример внешнего
вида формы:
