1 / 19

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

Применение команды ветвления при создании проекта в Visual Basic. Эпиграф к уроку:. І этап. Повторение. ІІ этап. Применение. ІІІ этап. Восприятие. І V этап. Закреплен ие. І этап. Повторение. Текстовое поле. Мәтіндік өріс. TextBox. Рамка. Frame. Жақтау. Командная кнопка.

indigo-cherry
Download Presentation

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

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

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

  2. Эпиграф к уроку:

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

  4. І этап. Повторение Текстовое поле Мәтіндік өріс TextBox Рамка Frame Жақтау Командная кнопка Командалық батырма Command Button Label Надпись Жазба Рамка для рисунка Сурет PictureBox Команда ветвления

  5. ІІ этап. ПрименениеИспользование команды ветвления при решении КВУ ЕСЛИ условие ТОкоманда 1 ИНАЧЕкоманда 2 IFусловиеTHEN команда 1 ELSE команда 2

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

  7. X1/2= ЕСЛИ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. Программный код Код исполняемой командной кнопки PrivateSubCommand1_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 "Корней нет" ElseIf 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; EndSub

  11. Код командной кнопки “Сброс” Программный код Private SubCommand2_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. THEN WHILE DIM FOR Font ‘girl’ REPEAT TO IF ELSE Найдите служебные слова команды ветвления

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

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

  18. 3. Запустите программу, введите исходные данные, щелкните по кнопке Ответ, протестируйте программу, остановите, исправьте при необходимости ошибки в программе. • Пример внешнего вида формы:

  19. Спасибо за внимание!

More Related