Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 6
|
|
Тема: Выбор в программе
Цель: Закрепить навыки использования условного оператора и оператора множественного выбора
Порядок выполнения
1. Установите на форме следующие объекты и измените им свойства:
| Объект | Свойство | Значение |
| Командная кнопка | Name | CmdEdit |
| Caption | Преобразовать | |
| Переключатели | Name | OptMSek1 |
| Caption | м/сек | |
| Name | OptKmSek1 | |
| Caption | км/сек | |
| Name | OptKmUr1 | |
| Caption | км/час | |
| Name | OptMSek2 | |
| Caption | м/сек | |
| Name | OptKmSek2 | |
| Caption | км/сек | |
| Name | OptKmUr2 | |
| Caption | км/час | |
| Текстовое окно | Name | TxtDano |
| Метка | Name | LblResult |
 |
2. Приведите свою форму в соответствие с образцом
3. В разделе общих объявлений объявите переменные S1, S2
4. В окне кода процедуры обработки события Click набрать
для optMSek1: S1=1
для optKmSek1: S1=2
для optKmUr1: S1=3
для optMSek2: S2=1
для optKmSek2: S2=2
для optKmUr2: S2=3
5. В окне кода процедуры обработки события Click для cmdEdit набрать:
x = Val(TxtDano.Text)
If S1 = 1 Then
If S2 = 1 Then y = x
If S2 = 2 Then y = x / 1000
If S2 = 3 Then y = x * 3.6
End If
If S1 = 2 Then
If S2 = 1 Then y = x * 1000
If S2 = 2 Then y = x
If S2 = 3 Then y = x * 3600
End If
If S1 = 3 Then
If S2 = 1 Then y = x / 3.6
If S2 = 2 Then y = x / 3600
If S2 = 3 Then y = x
End If
LblResult.Caption = Str(y)
6. Проверьте работу программы
7. Измените программный код, заменив использование условного оператора на оператор множественного выбора (самостоятельно).
8. Результат показать преподавателю.
ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 7
Тема: Выбор в программе
Цель: Закрепить навыки использования оператора множественного выбора
|
|