Проект №6 «Функции ввода и вывода данных».
Задачи УЭ №6. Научится создавать диалоговые панели с помощью функций ввода InputBox() и вывода MsgBox()
Что делать. Создать проект «Регистрация».
Как делать.
Открыть Vb. Создать новый проект. Активизировать форму Form1 щелчком мыши. В окне Свойств объекта установить для свойства Caption значение Функции ввода и вывода данных.
Создать командную кнопку Command1. Установить для свойства Caption установить значение - Ввод Ф.И.
Для кнопки Command1 создать событийную процедуру:
Private Sub Command1_Click()
Dim Familj As String
Family = InputBox("Введи имя и фамилию:", "Регистрация")
End Sub
Создать командную кнопку Command2 Установить для свойства Caption значение- Вывод,
Для кнопки Command2 создать событийную процедуру:
Private Sub Command2_Click()
Dim Familj As String, N As Byte
Form1.Print " Если нажмете Да, то получите вопрос, если Нет, то конец работы программы"
N = MsgBox("Edf;ftvsq " + Family + ", Вы готовы к проверке знаний?", 32 + 4, "Конец регистрации")
If N = 6 Then Print " Вопрос - 4*4=?" Else End
End Sub
Уэ №7 «Функции даты и времени».
Задачи УЭ №7. Научится применять и использовать функцию Date для вывода текущей даты и для расчета количества дней между датами, а также применять функцию Timer для вывода времени.
Что делать. Создать проект «Дата. Часы»
Как делать.
Открыть Vb. Создать новый проект. Активизировать форму Form1 щелчком мыши. В окне Свойств объекта установить для свойства Caption значение Дата. Часы.
Создать две командные кнопки: Command1 и Command2. Установить для свойств Caption значения соответственно - Дата и Время.
Разместите на форме управляющий элемент Label1. Свойству Caption дать значения: “”-пусто, Appearance – 0-Flat
Для кнопки Command1- Дата создать событийную процедуру:
Private Sub Command1_Click()
Print "Сегодня "; Date
Print " С начала третьего тысячелетия прошло- "; Date - #1/1/2001#; "-дней"
End Sub
Для кнопки Command2- Время создать событийную процедуру:
Private Sub Command2_Click()
Label1.Caption = Time
End Sub
Уэ №8 Алгоритмические струтуры - «Ветвление и Выбор».
Задачи УЭ №8. Научится применять и использовать команды «ветвления» и «выбор».
Что делать. Создать проект «Тест».
Как делать.
1.Открыть Vb. Создать новый проект. Активизировать форму Form1 щелчком мыши. В окне Свойств объекта установить для свойства Caption значение Тест
2. Разместите на форме управляющий элемент Label1, Label2, Label4 Label3, Label5 (как показано на рисунке)
3.
Свойствам Caption
дать значения: 1- Сообщение о верности
ответа; 2-Количество ошибок; 3-пусто ;
4-пусто; для Label5
свойству Caption
дать значение «Оценка». Свойствам
Alignment
– 2-Center,
AutoSize-True:
Appearance
– 1-3D
– для всех управляющих элементов Label
4. Разместим
на форме кнопку Command1.
В окне Свойств объекта
установить для свойства Caption –
значение Старт, а свойству-Font
–дать значение Начертание – жирный;
размер – 24.
5.Для кнопки Command1-
Дата создать событийную процедуру:
Dim Otvet As String, N As Byte
Private Sub Command1_Click()
N = 0
Otvet = InputBox("Чему равен 1байт?", " Первый вопрос")
If Otvet = "8бит" Then
Label1.Caption = "Правильно!"
Else
Label1.Caption = "Неправильно!": N = N + 1
End If
Otvet = InputBox("Чему равен 1Кбайт?", " Второй вопрос")
If Otvet = "1024байт" Then
Label1.Caption = "Правильно!"
Else
Label1.Caption = "Неправильно!": N = N + 1
End If
Otvet = InputBox("Чему равен 1Мбайт?", " Третий вопрос")
If Otvet = "1024Кбайт" Then
Label1.Caption = "Правильно!"
Else
Label1.Caption = "Неправильно!": N = N + 1
End If
Otvet = InputBox("Чему равен 1Гбайт?", " Четвертый")
If Otvet = "1024Мбайт" Then
Label1.Caption = "Правильно!"
Else
Label1.Caption = "Неправильно!": N = N + 1
End If
Otvet = InputBox("Чему равен 1Тбайт?", " Пятый вопрос")
If Otvet = "1024Гбайт" Then
Label1.Caption = "Правильно!"
Else
Label1.Caption = "Неправильно!": N = N + 1
End If
Label2.Caption = N
Select Case N
Case 0
Label3.Caption = "отлично"
Case 1
Label3.Caption = "Хорошо"
Case 2
Label3.Caption = "Удовлетворительно"
Case Else
Label3.Caption = "Плохо"
End Select
End Sub