избытке и чего нам никто не вернет – это
время!»Сенчуков Ю.Ю.
- Главная
- Разное
- Бизнес и предпринимательство
- Образование
- Развлечения
- Государство
- Спорт
- Графика
- Культурология
- Еда и кулинария
- Лингвистика
- Религиоведение
- Черчение
- Физкультура
- ИЗО
- Психология
- Социология
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Маркетинг
- Математика
- Медицина
- Менеджмент
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, картинки для презентаций
- Экология
- Экономика
- Юриспруденция
Что такое findslide.org?
FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.
Обратная связь
Email: Нажмите что бы посмотреть
Презентация на тему Применение команды ветвления при создании проекта в Visual Basic
Содержание
- 2. Эпиграф к уроку:«Единственное чего не может быть
- 3. І этап. Повторение ІІ этап. ПрименениеІІІ этап. ВосприятиеІV этап. Закрепление
- 4. І этап. ПовторениеТекстовое поле Мәтіндік өріс TextBox
- 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
Команда ветвления
Если условие то ком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
Слайд 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
* CText4.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
Программный код
Код командной кнопки “Сброс”
Слайд 16
Укажите раздел описания переменных
Private Sub
Command
BackColor
Load Picture
Caption
Option Explicit
Слайд 17
Практическое задание
I. Разработайте программу "Угадайка", которая будет
загадывать число, а пользователь пытаться его угадать:
Создайте форму:
Дважды
щелкните по кнопке Ответ и в процедуре обработки события создайте код, который сравнивает введенное пользователем число в Text1.text с любым фиксированным числом, например, 3. Если числа равны, то в Text2.text должно быть выведено "Угадал", в противном случае "Не угадал".V. Домашнее задание:
Слайд 18 3. Запустите программу, введите исходные данные, щелкните по
кнопке Ответ, протестируйте программу, остановите, исправьте при необходимости ошибки
в программе.Пример внешнего вида формы:
