1. Расположите на первой форме (рис. 15.9) две метки, текстовое поле, одну командную кнопку и две кнопки-переключателя (OptionButton).
2. Установите значения свойства Name: формы – frmKluch, кнопки — cmdOK, текстового поля — txtКluch, кнопок-переключателей — optShifr и optDeShifr (соответственно).
3. Установите значения свойства Caption всех объектов в соответствии с рис. 15.10.
4. Установите для текстового поля значение свойства PasswordChar — *.
5. По собственному усмотрению установите значения свойств, определяюшие внешний вид объектов.
6. Сохраните первую форму под именем frmKluch, а проект — под именем Лр15_Зад5_Шuфровка-Дешuфровка.
7. Добавьте в проект вторую форму (см. рис. 15.11). Разместите те на форме две метки, два текстовых поля и две командные кнопки.
8. Установите значения свойства Name: формы — frmShifr, текстовых полей — txtSecret и txtRezult, кнопок — cmdReturn и cmdShifr
9. Установите для обоих текстовых полей значения свойств ScrollBars — l—Horizontal.
10. Установите значения свойства Caption формы, кнопок и меток, в которых информация не изменяется, в cooтветствии с рис. 15.11.
|
|
11. По собственному усмотрению установите значения свойств, определяющие внешний вид объектов.
12. Сохраните вторую форму под именем frmShifr.
13. Добавьте в проект третью форму (см. рис. 15.13). Разместите на форме метку, текстовое поле и две командные кнопки.
14. Установите значения свойства Name: формы — frmDeShifr, текстового поля — txtRezult, кнопок — cmdReturn u cmdDeShifr.
15. Установите для текстового поля значение свойства ScrollBars - l-Horizontal.
16. Установите значения свойства Caption формы, кнопок и меток, в которых информация не изменяется, в соответствии с рис. 15.13.
17. По собственному усмотрению установите значения свойств, определяющие внешний вид объектов.
18. Сохраните третью форму под именем frmDeShifr.
19. Проанализируйте представленные ниже программные коды для трех форм, а потом наберите эти коды.
Форма frmKluch
Public Kluch As String
Private Sub cmdOK_Click()
txtKluch.PasswordChar = “ * “.
Kluch= tхtKluch.Техt
IF optShifr.Value = True Then
FrmKluch.Нidе
FrmShifr.Show
ElseIf optDeShifr.Va1ue = True Then
FrmKluch.Нidе
FrmDeShifr.Show
End IF
End Sub
Private Sub Fоrm_Асtivаtе()
txtKluch.Text = "... умею ли я находить с помощью электронно-
‘вычислительной машины значения функций, а также главные объемы!?"
End Sub
Форма frmShifr
Private Sub Form_Activate()
tхtRеzult.техt = ""
txtSecret.Text = “”
TxtSecret. SetFocus
End Sub
Private Sub cmdReturn_ Click()
FrmShifr.Нide
FrmКluch.Show
End Sub
Private Sub cmdShifr_Click()