Назначение и возможности модернизации созданного приложения

Контрольная работа выполнена в среде Visual Basic 6.0. Результатом проделанной работы стала программа, позволяющая создать поздравление с тем или иным праздником. Необходимо ввести фамилию, имя и отчество (по желанию) человека, которому адресовано поздравление, ввести пол человека и непосредственно праздник, с которым желаете поздравить.

В данной работе приведены несколько праздников на выбор: Рождество, 8 марта, 14 февраля, 23 февраля, 9 мая. В зависимости от выбранного праздника, изменяется поздравление.

Эта работа полезна в том, чтобы быстро поздравить того или иного человека. Не стоит придумывать поздравление — поздравления с каждым праздником уже находятся в приложении. Достаточно ввести необходимые данные, воспроизвести приложение и оно выведет необходимое поздравление определённому человеку.

Так же это приложение можно с лёгкостью модернизировать. Например, расширить количество праздников, содержащихся в программе, увеличить объём поздравления, изменить основную заставку в приложении и т. д.

Описание процесса создания программы

В Form1 создаём поля, куда вводятся все необходимые данные. Всего три поля: для ввода имени человека, для ввода его пола и для ввода самого праздника. Это делается с помощью элемента управления TextBox.

Так же нам необходима кнопка, нажав которую высветится само поздравление с заданными условиями. Для этого мы используем кнопку CommandButton.

Нам так же необходимо поле, куда будет выводится само поздравление. Это поле создаётся с помощью кнопки PictureBox.

Далее создаём сам код программы.

Вначале задаём необходимые переменные, которые будут вводится в текстовом окне. Назовём их A, B и r.

Далее прописываем условие: если в текстовом окне B будет вводится мужской пол, тогда поздравление будет адресовано мужчине и начинаться с «Уважаемый», а если будет введён женский пол, то соответственно поздравление будет адресовано женщине.

Потом указывается команда на вывод текста из поля, в которое вводится имя человека, которому адресовано поздравление.

Затем следует ещё одно условие. В зависимости от введённого праздника в окно r, выведется то или иное поздравление.

Ещё по желанию можно создать кнопку, которая позволит удалить в окне для вывода поздравления, само поздравление.

Код программы: программа приложение компьютерный код.

Private Sub Command1_Click ().

A = Text1.Text.

B = Text2.Text.

r = Text3.Text.

If B = «Мужской» Then Picture1. Print «Уважаемый» .

If B = «Женский» Then Picture1. Print «Уважаемая» .

Picture1.Print A.

Picture1.Print «Поздравляю Вас» .

If r = «День Рождения» Then Picture1. Print «С Днём Рождения» .

If r = «День Рождения» Then Picture1. Print «Желаю счастья целый ворох» .

If r = «День Рождения» Then Picture1. Print «Улыбок радостных букет.» .

If r = «День Рождения» Then Picture1. Print «Друзей надежных и веселых,» .

If r = «День Рождения» Then Picture1. Print «Счастливой жизни целый век!» .

If r = «8 марта» Then Picture1. Print «С 8 марта» .

If r = «8 марта» Then Picture1. Print «Желаем Вам любви и счастья много,» .

If r = «8 марта» Then Picture1. Print «Чтобы для грусти не было причин!» .

If r = «8 марта» Then Picture1. Print «Пусть говорят, что это все от Бога,» .

If r = «8 марта» Then Picture1. Print «А я считаю, — больше от мужчин!» .

If r = «23 февраля» Then Picture1. Print «С Днём Защитника Отечества» .

If r = «23 февраля» Then Picture1. Print «Хоть Вы е носите мундира, Но знаем мы, что в трудный час» .

If r = «23 февраля» Then Picture1. Print «Вы так же, как и все солдаты, Спасете Родину и нас.» .

If r = «14 февраля» Then Picture1. Print «С Днём всех влюблённых» .

If r = «14 февраля» Then Picture1. Print «Любить — люби, но осторожно, Люби не всех и не всегда,» .

If r = «14 февраля» Then Picture1. Print «Не забывай, что есть на свете Измена, ложь и клевета.» .

If r = «9 мая» Then Picture1. Print «С Днём Победы» .

If r = «9 мая» Then Picture1. Print «День Победы — праздник этот радостный Отмечаем мы уже десятки лет.» .

If r = «9 мая» Then Picture1. Print «Хоть с горчинкой он, но все сладостный — Он в истории самой оставил след!» .

If r = «Рождество» Then Picture1. Print «С Рождеством» .

If r = «Рождество» Then Picture1. Print «Я сердечно поздравляю С Рождеством всех вас!» .

If r = «Рождество» Then Picture1. Print «Счастья искренне желаю В этот светлый час!» .

End Sub.

Private Sub Command2_Click ().

Picture1.Cls.

End Sub.

Далее, после того как написан код программы, следует воспроизвести приложение. Если программа выполнена правильно и введённые параметры верны, то готовое приложение будет выглядеть так: