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

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

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

 

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