рефераты конспекты курсовые дипломные лекции шпоры

Реферат Курсовая Конспект

Хозяйственное значение

Хозяйственное значение - Домашнее Задание, раздел Информатика, Основам визуального программированияа Некоторые Виды Гвоздик Культивируются Как Летники И Зацветают В Год Посева, А...

Некоторые виды гвоздик культивируются как летники и зацветают в год посева, а другие — как двулетники, то есть в год посева развивают только розеточные листья и цветут на второй год. В декоративном садоводстве в настоящее время используются многочисленные гибриды. Это растение было особенно популярно в Советском Союзе, где красные цветы были символом Победы в Великой Отечественной войне

Результат выполненной работы

 

Рис. 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

– Конец работы –

Эта тема принадлежит разделу:

Основам визуального программированияа

Аэрокосмический лицей ХАИ... Домашнее задание...

Если Вам нужно дополнительный материал на эту тему, или Вы не нашли то, что искали, рекомендуем воспользоваться поиском по нашей базе работ: Хозяйственное значение

Что будем делать с полученным материалом:

Если этот материал оказался полезным ля Вас, Вы можете сохранить его на свою страничку в социальных сетях:

Все темы данного раздела:

Роза в истории и символике
В классическом изображении роза имеет 32 лепестка, отсюда название роза ветров. У древних римлян роза символизировала тайну. Бытовало выражение, ставшее пословицей — «Sub rosa dictum» («По

Гербера
Гербе́ра (лат. Gerbera) — род многолетних трав семейства Астровые, или Сложноцветные (Asteraceae). Имеется несколько десятков видов, большая часть которых растёт в Африке (в первую очередь в Ю

Название
Род впервые был описан в 1737 году голландским ботаником Яном Гроновиусом (нидерл. Jan Frederik Gronovius, 1690—1762) и назван им в честь своего коллеги, немецкого врача и ботаника Трауготта Гербер

Биологическое описание
Герберы — многолетние травянистые растения. Листья удлинённые, перисто-рассечённые, на конце заострённые; длиной до 35 см, собраны в прикорневую розетку. Черешки и основания листьев у неко

Гербера в культуре
Гибридные культивары выращивают по всему миру (в регионах с умеренным климатом — в оранжереях) как красивоцветущие декоративные растения, в первую очередь на срезку. Известны в культуре с 1887 года

Ботаническое описание
Многолетние травы и полукустарнички с линейными или линейно-ланцетовидными листьями. Цветки одиночные или по 2—3 на концах веточек. Чашечка цилиндрическая или цилиндрически-коническая, с м

Хотите получать на электронную почту самые свежие новости?
Education Insider Sample
Подпишитесь на Нашу рассылку
Наша политика приватности обеспечивает 100% безопасность и анонимность Ваших E-Mail
Реклама
Соответствующий теме материал
  • Похожее
  • Популярное
  • Облако тегов
  • Здесь
  • Временно
  • Пусто
Теги