Уроки 14,15, 16

Скачать 78.64 Kb.

Название	Уроки 14,15, 16
Дата публикации	28.07.2014
Размер	78.64 Kb.
Тип	Урок

100-bal.ru > Информатика > Урок

Уроки 14,15, 16.

Системные функции. Функции ввода, вывода данных и их использование в проектах.

Цели:

Познакомить с системными функциями InputBox, MsgBox ». Научить использовать системные функции при создании проектов;
развивать навыки создания проектов;.
3. воспитывать дисциплинированность, ответственность, интерес к программированию на Visual Basic.

ХОД УРОКА

Орг. Момент.
Проверка домашнего задания.

Задача. Создать проект, который содержит форму с заголовком Окно 1. При нажатии левой кнопки мишки форма увеличивается вдвое за размерами, изменяется цвет фона и в окно выводится произвольный рисунок.
Option Explicit

Private Sub Form_Click()

Form1.Height = Form1.Height * 2
Form1.Width = Form1.Width * 2
Form1.BackColor = QBColor(2)

Image1.Picture = LoadPicture("путь к файлу\4.gif")

End Sub

Новая тема.

План.

Системные функции. Функция InputBox.
Функция MsgBox.
4 значка, которые отображаются в окне сообщений.
Имя командной кнопки в окне сообщений.

Учитель.

К системным функциям относятся функции, действия которых напрямую зависят от работы системы Windows. К таким функциям относятся:

Функция InputBox – для ввода данных пользователем через системное окно;

Функция InputBox имеет такой синтаксис:

InputBox(«текст»).

Текст – это какой-то текст, который будет находиться в окне ввода.

Пример просто окна ввода:

Значительную роль в любом проекте играет информация, которую пользователь получает для отслеживания процесса исполнения программы и ее состояния. Для этого используется Функция MsgBox.

Функция MsgBox – окно сообщений.

Окно сообщений представляет собой простую форму, которая содержит какое-то сообщение и, как правило, хотя бы 1 кнопку, которая используется для подтверждения сообщения. При необходимости может быть и несколько кнопок для выбора. Эта функция может иметь 2 параметра: option и title.

Option – это целое число, которое содержит информацию о значке, которое отображается в окне сообщений, набор коммандных кнопок и о том, какая из командных кнопок выбрана по умолчанию

Title –это текстовая строка, которая отображается в строке заголовка окна сообщений.

Можно выбрать одно из 4 значков, которые отображаются в окне сообщений.

Значок	Название значка	Назначение
	Критическая ситуация	Указывает на значительную ошибку
	Предупреждение	Указывает на ошибку
	Вопрос	Программа требует дополнительную информацию
	Информационное сообщение	Используется при завершении какой-то задачи

Пример 1.

Option Explicit

Dim x, y As String

Private Sub Form_Load()

x = InputBox("Введите Ваше имя")

y = MsgBox(" Такое сообщение содержит значок", 64, "Демонстрация значка")

End Sub

Вместо чисел можно писать имя командной кнопки .

Кнопка	Пояснение	Константа	Значение параметра Option
OK	Отображается одна кнопка OK	vbOkOnly	0
OK, Cancel	Отображаются 2 кнопки OK и Cancel	vbOkCancel	1
Abort, Retry, Ignore	Отображаются 3 кнопки Abort, Retry, Ignore	vbAbortRetryIgnorire	2
Yes,No, Cancel	Отображаются 3 кнопки Yes, No, Cancel	vbYesNoCancel	3
Yes,No	Отображаются 2 кнопки Yes, No	vbYesNo	4
Retry, Cancel	Отображаются 2 кнопки Retry, Cancel	vbRetryCancel	5

Пример 2. (Вместо числа 64 написали имя командной кнопки - vbCritical)

Option Explicit

Dim x, y As String

Private Sub Form_Load()

y = MsgBox(" Такое сообщение содержит значок?", vbCritical, «Демонстрация значка”)

End Sub

Пример 3

Option Explicit

Dim x, y As String

Private Sub Form_Load()

x = InputBox("Введите Ваше имя")

y = MsgBox(" Подтвердите свое имя", 1, "Мое имя")

End Sub

Пример 4.
Option Explicit

Dim x, y As String

Private Sub Form_Load()

y = MsgBox("Такое сообщение содержит значок?", vbAbortRetryIgnore, " Демонстрация значка ")

End Sub

Практическая работа (по карточкам).

Задача 1

Создайте новый проект .
Добавьте две кнопки на форму Form1. Свойства кнопок:

Name: cmdString

Caption : String

Name: cmdInteger

Caption: Integer

Дважды щёлкните на кнопке cmdString и наберите код:

Private Sub cmdString_Click()

Dim Name As String 'Объявление переменной Name как строковую

Name = InputBox("введите ваше имя:") ' Занесение в память данных переменной Name

MsgBox "Привет ," & Name & "!!!" ' Вывод сообщения

End Sub

Так вот если бы вы на вопрос ответили цифрой, то переменная бы не поняла её, так как

она String.

Теперь дважды щёлкните на cmdInteger и наберите код:

Private Sub cmdInteger_Click()

Dim Code As Integer 'Объявление переменной Code как числовую

Code = InputBox("введите код:") ' Занесение в память данных переменной Name

MsgBox "Ваш код:" & Name & "!!!" ' Вывод сообщения

End Sub

То же самое и с переменной Code, только наоборот – она числовая и поэтому не “понимает’ буквы.

Теперь разберём события. При клике на кнопку объявляется переменная и выскакивает окно ввода, в которой мы вводим данные и они заносятся в переменную. Далее выскакивает окно с сообщением.
Задача 2.

Создать проект, после загрузки формы которого на форме должно появиться приглашение, в текстовое поле которого нужно ввести дату свого рождения , например, 25.07.1992 (Создать запрос с помощью системной функции InputBox). После щелчка на кнопке «ОК» дата должна появиться в текстовом поле (имя – Техт1). Если щелкнуть 1 раз на кнопке «Пуск » (имя –Command1 ), должен появиться вопрос «Вы хотите увидеть день свого дня рождения?»( Создать вопрос нужно с помощью системной функции MsqBox). После щелчка на кнопке «ОК» день рождения должен появиться в 2 текстовом поле (имя – Техт2). После этого Вы должны увидеть следующий вопрос «Вы хотите увидеть месяц свого дня рождения?». Название месяца дня рождения должно появиться в 3 текстовом поле (имя – Техт3).

После этого Вы должны увидеть следующий вопрос «Вы хотите увидеть год свого дня рождения?». Год дня рождения должен появиться в 4 текстовом поле (имя – Техт4).

Создать 4 метки: Дата рождения, День рождения, месяц рождения, год рождения. Сами догадайтесь, как расположить эти метки на форме. Имена меток – любые.

Примечание: Вам придется заставить комп. вырезать из введенной даты дня рождения сначала значение дня, потом месяца, а затем и года.Для этого используется функція MID – вырезка.

Формат функции:

переменная = MID(переменная текстовой величины, из которой вырезается кусок, указать порядковый номер символа, с которого начинается вырезка, указати сколько символов нужно вырезать. Например, у Вас введена дата (d= 25.07.1992). Нужно вырезать значение месяца. Пишем команду вырезки так: y = Mid(d,4,2) – с 4 символа нужно начать вырезку (Это -0); вырезать нужно 2 символа; 07. переменная d –это полная дата Вашего дня рождения

Dim d As String

Private Sub Form_Load()
d = InputBox("Введите дату Вашего дня рождения")

Text1.Text = d

End Sub

Private Sub Command1_Click()

Dim x As String, y As String

x = MsgBox("Хотите увидеть день своего дня рождения?", 1, vbOKCancel)

y = Mid(d, 1, 2)

Text2.Text = y
x = MsgBox("Хотите увидеть месяц своего дня рождения?", 1, vbOKCancel)

y = Mid(d, 4, 2)

Text3.Text = y
x = MsgBox("Хотите увидеть год своего дня рождения?", 1, vbOKCancel)

y = Mid(d, 7, 4)

Text4.Text = y
End Sub

Результат :

Итог урока. Выставление оценок.

Вы познакомились с системными функциями InputBox, MsgBox ». Научились использовать системные функции при создании проектов;

Домашнее задание. Выучить теорию.

Добавить документ в свой блог или на сайт

Похожие:

	Программа по формированию навыков безопасного поведения на дорогах... Проведение нестандартных уроков: уроки-игры, уроки-дискуссии, уроки-соревнования, уроки с групповыми формами работы, уроки взаимообучения...		Программа по формированию навыков безопасного поведения на дорогах... Уроки чтения – это уроки постижения литературно-художественного произведения, уроки развития речи, уроки формирования читательских...
	Программа по формированию навыков безопасного поведения на дорогах... Уроки Гражданственности, Уроки Мира, Уроки Государственности и иные тематические занятия		Программа по формированию навыков безопасного поведения на дорогах... Для выполнения учебного плана в течение 8 недель после окончания учебных занятий проводятся занятия в нетрадиционной форме (экскурсии,...
	Уроки и переменки Планирование этих уроков составлено на основе указаний методического пособия Е. В. Бунеевой, М. А. Яковлевой «Уроки чтения по книге...		Программа по формированию навыков безопасного поведения на дорогах... ...
	Программа по формированию навыков безопасного поведения на дорогах... Уроки безопасности: уроки дорожной безопасности, уроки криминогенной безопасности, безопасности в чс природного, техногенного и социального...		Название мероприятия Семинар практикум для педагогов "Интегрированные уроки" (уроки технологии и окружающего мира)
	Уроки русского языка. 1 класс. Уроки Кирилла и Мефодия Информация об электронных образовательных ресурсах, доступ к которым обеспечивается обучающимся		Примерное планирование уроков русского языка в 9 классе умк львовой Понятие о сложносочинённом предложении (уроки 20 21) § 11. Виды сложносочинённых предложений (уроки 22 23)
	Уроки русского языка. 1 класс. Уроки Кирилла и Мефодия Наименование образовательных электронных ресурсов, доступ к которым для обучающихся обеспечивается		14. Уроки химии 8-9 классы. Кирилл и Мефодий Химия в школе. Углерод и его соединения. Углеводороды. Электронные уроки и и тесты. Новый диск
	Уроки русского языка. 1 класс. Уроки Кирилла и Мефодия Наименование образовательных электронных ресурсов, доступ к которым для обучающихся обеспечивается		Тематическое планирование Предмет: Русский язык Класс Плановые контрольные уроки : 3ч., тесты- 4 ч., диктант, самостоятельная работа- 2ч., уроки развития речи- 10ч.,зачет-1
	Программа по формированию навыков безопасного поведения на дорогах... «Уроки Православия». «Уроки покаяния с архимандритом Амвросием (Юрасовым)». Часть 1		Ежедневная развлекательная программа: Уроки Тайчи Уроки Тайчи с учителем ежедневно с 07: 00 до 08: 00 проходят в лобби вход бесплатно

Школьные материалы