Реферат Курсовая Конспект
Хозяйственное значение - Домашнее Задание, раздел Информатика, Основам визуального программированияа Некоторые Виды Гвоздик Культивируются Как Летники И Зацветают В Год Посева, А...
|
Некоторые виды гвоздик культивируются как летники и зацветают в год посева, а другие — как двулетники, то есть в год посева развивают только розеточные листья и цветут на второй год. В декоративном садоводстве в настоящее время используются многочисленные гибриды. Это растение было особенно популярно в Советском Союзе, где красные цветы были символом Победы в Великой Отечественной войне
Результат выполненной работы
Рис. 7. Диаграмма навигации
Рис. 8. Диаграмма навигации
Работа программы
Рис. 9. Лист MSExcel. Кнопка «Начало»
По нажатию на кнопку «Начало» на листе MS Excel открывается форма №1
Рис. 10. Форма №1
Кнопка «Далее» − переход на форму №2
Кнопка «Выход» − выход из проекта
Рис. 11. Форма №2
Кнопка «Далее» − переход на форму №3
Кнопка «Выход» − выход из проекта
Рис. 12. Форма №3
На данной форме пользователю предлагается выбрать цветок, или информацию, которую он хочет посмотреть. Эта информация отображается по нажатию на кнопку «Выполнить». Если из цветов ничего не выбрано, появляется окно сообщения:
Рис. 13. Ошибка 1
Если не выбрана фото или характеристика, появляется окно сообщения:
Рис. 14. Ошибка 2
При выбранном цветке по нажатию на кнопку «Выполнить» отображается фото(или характеристика) или и то, и то.
Кнопка «Выход» − выход из проекта
Кнопка «Далее» − переход на форму №4
Кнопка «Назад» − закрывает форму №4 и открывает форму №3.
Кнопка «Выход» −выход из проекта.
Код
Форма №1
Private Sub CommandButton1_Click()
UserForm1.Hide
End Sub
Private Sub CommandButton2_Click()
UserForm1.Hide
UserForm2.Show
End Sub
Private Sub Label1_Click()
End Sub
Private Sub UserForm_Click()
End Sub
Форма №2
Private Sub CommandButton1_Click()
UserForm2.Hide
End Sub
Private Sub CommandButton2_Click()
UserForm2.Hide
UserForm3.Show
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub UserForm_Click()
End Sub
Форма №3
Private Sub Label1_Click()
End Sub
Private Sub CheckBox2_Click()
End Sub
Private Sub CommandButton1_Click()
UserForm3.Hide
End Sub
Private Sub CommandButton2_Click()
If OptionButton1.Value = False And OptionButton2.Value = False And OptionButton3.Value = False Then
MsgBox "Вы должны выбрать!", 48 + 0, "Предупреждение"
Else
If CheckBox1.Value = False And CheckBox2.Value = False Then
MsgBox "Вы не выбрали фото или характеристику", 16 + 0, "Выберите"
End If
End If
If OptionButton1.Value = True Then
If CheckBox1.Value = True Then
Image4.Visible = True
Image2.Visible = False
Image3.Visible = False
Else
Image4.Visible = False
End If
If CheckBox2.Value = True Then
TextBox1.Visible = True
TextBox2.Visible = False
TextBox3.Visible = False
Else
TextBox1.Visible = False
End If
End If
If OptionButton2.Value = True Then
If CheckBox1.Value = True Then
Image4.Visible = False
Image2.Visible = True
Image3.Visible = False
Else
Image2.Visible = False
End If
If CheckBox2.Value = True Then
TextBox2.Visible = True
TextBox1.Visible = False
TextBox3.Visible = False
Else
TextBox2.Visible = False
End If
End If
If OptionButton3.Value = True Then
If CheckBox1.Value = True Then
Image3.Visible = True
Image4.Visible = False
Image2.Visible = False
Else
Image3.Visible = False
End If
If CheckBox2.Value = True Then
TextBox3.Visible = True
TextBox1.Visible = False
TextBox2.Visible = False
Else
TextBox3.Visible = False
End If
End If
End Sub
Private Sub CommandButton3_Click()
UserForm3.Hide
UserForm4.Show
End Sub
Private Sub Image2_Click()
End Sub
Private Sub Image3_Click()
End Sub
Private Sub Image4_Click()
End Sub
Private Sub OptionButton1_Click()
End Sub
Private Sub OptionButton2_Click()
End Sub
Private Sub OptionButton3_Click()
End Sub
Private Sub TextBox3_Change()
End Sub
Private Sub UserForm_Click()
End Sub
Форма №4
Private Sub CommandButton1_Click()
UserForm4.Hide
UserForm3.Show
End Sub
Private Sub CommandButton2_Click()
UserForm4.Hide
End Sub
Private Sub Label1_Click()
End Sub
Private Sub MultiPage1_Change()
End Sub
Private Sub UserForm_Click()
End Sub
– Конец работы –
Эта тема принадлежит разделу:
Аэрокосмический лицей ХАИ... Домашнее задание...
Если Вам нужно дополнительный материал на эту тему, или Вы не нашли то, что искали, рекомендуем воспользоваться поиском по нашей базе работ: Хозяйственное значение
Если этот материал оказался полезным ля Вас, Вы можете сохранить его на свою страничку в социальных сетях:
Твитнуть |
Новости и инфо для студентов