Лабораторно-практическая работа № 6
Тема: Встроенные функции
Цель: Получить навыки использования функций преобразования типов
Порядок выполнения
Установите на форме следующие объекты и измените им свойства
-
Объект
Свойство
Значение
Метки
Caption
212
Caption
100
Caption
По Фаренгейту
Caption
По Цельсию
Caption
-40
Caption
-40
Вертикальная прокрутка
Name
VsbTherm
Max
-40
Min
100
LargeChange
10
SmallChange
1
Текстовые окна
Name
TxtF
Text
(отсутствует)
Name
txtC
Text
(отсутствует)
Приведите свою форму в соответствие с образцом
В окне кода процедуры обработки события Change набрать для объекта VsbTherm
Dim tempC, tempF As Integer
tempC = CInt ( vsbTherm.Value )
TxtC.Text = Str ( tempC )
tempF = CInt ( tempC * 9 / 5 + 32 )
txtF.Text = Str( tempF )
Проверьте работу программы и результат показать преподавателю.
Самостоятельно р
азработайте
приложение, которое позволяет с помощью
прокрутки установить величину угла в
градусах, перевести эту величину в
радианы, а также определить значение
синуса, косинуса и тангенса угла.
Разработайте форму по следующему
образцу.
Результат показать преподавателю.
Лабораторно-практическая работа № 7
Тема: Встроенные функции
Цель работы: Получить навыки использования встроенных системных функций.
Порядок выполнения
Расположите на форме следующие объекты и измените для них свойства:
-
Объект
Свойство
Значение
Изображение (Image)
Name
Image1
Picture
\Icons\Elements\Water
Изображение (Image)
Name
Image2
Picture
\Icons\Elements\Sun
Изображение (Image)
Name
Image3
Picture
\Icons\Elements\Show
Изображение (Image)
Name
Image4
Picture
\Icons\Elements\Litening
Командные кнопки
(CommandButton)
Name
Caption
CmdHello
Познакомимся?
Name
Caption
CmdExit
Выход
П
риведите
форму в соответствие с образцом
В окне кода процедуры обработки события Click для объекта Image1 набрать
MsgBox "это вода", 0, "справка"
Наберите код для других картинок (самостоятельно)
В окне кода процедуры обработки события Click для объекта CmdHello набрать
MyFam = InputBox("Ваша фамилия", "Скажите пожалуйста")
MyNam = InputBox("Ваше имя", "Скажите пожалуйста")
MyOt = InputBox("Ваше отчество", "Скажите пожалуйста")
'выделим последнюю букву отчества и определим пол человека
k = Len(MyOt)
x = Mid(MyOt, k, 1)
If x = "а" Then y = "Здравствуйте, укажаемая" Else y = "Здравствуйте, укажаемый"
MsgBox MyNam + Chr(10) + MyOt + Chr(10) + MyFam, , y
В окне кода процедуры обработки события Click для объекта CmdExit набрать
s = MsgBox("Вы хотите выйти", 4, "Выход")
If s = 6 Then
s = MsgBox("Хотите остаться", 32 + 4, "Просьба")
If s = 6 Then
MsgBox "Ну и правильно", 48, "Мы очень рады"
Exit Sub
End If
MsgBox "Ну и иди отсюда", 16, "Мы обиделись"
End
End If
Проверьте работу программы