Методические указания к выполнению лабораторной работы по программированию в VB

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

Контрольные вопросы

1.Для чего оператор Private intSecretNumber As Integer записывается Е секции

(GeneralJ(Declarations) формы ?

2.Что нужно изменить в строке GetSecretNumber = Int(Rnd(l)*10)+l чтобы случайное число задавалось в диапазоне от 0 до 6 или от 1 до 20. Для чего в этом операторе нужна функция Int()?

3.Что изменится в программе, если убрать оператор Randomize?

4.Что означает ключевое слово Private в описании функции

GetSecretNumber?

5.Для чего используется режим отладки? Какие клавиши нужно нажимать. чтобы переходить от одной строчки программного кода к другой?

б. Зачем нужна функция GetSecretNumber?

7.Чем отличается друг от друга функции Val(), Clnt(), IntQ, FixQ? Самостоятельное задание 3.3

4.Переключатели

Задание 4.1

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

ли Pentium-2 (300 MHz), Pentium-2 (600MHz) и Pentium-3 (1,3 GHz) принадлежат группе Процессоры и располагаются прямо на форме; переключатели DIMM 64 MB и DIMM 128 MB принадлежат другой группе и располагаются в группе Оперативная память. Рамка отделяет группы переключателей друг от друга. В любой момент вре-

мени в группе может быть выделен лишь один переключатель.

Рис. 4.1

Технология выполнения задания

1.Создайте новый проект File, New Project (Файл, Новый проект).

2.Задайте свойству Name формы значение frmChoice, а у свойства Caption измените значение на Конфигурация.

3.Поместите в нижней части формы элемент

надпись (Label) и задайте его свойству Name значение lblDisplay.

4. Поместите в левой части формы элемент рамку (Frame) и задайте его свойству Caption значение Процессоры. Поместите внутри рамки три переключателя (OptionButton), у которых измените свойств Name и Caption. У первого переключате-

Методические указания к выполнению лабораторной работы по программированию в VB

ля задайте свойству Name значение optPentium, для свойства Caption укажите значение Pentium-3 (1,2 GHz). У второго переключателя свойству Name задайте значение optP3, для свойства Caption укажите значение Pentium-3 (1,7 GHz). Для третьего переключателя свойству Name присвойте значение optP4, свойство Caption задайте значение Pentium-4 (2,5 GHz).

5. Поместите в правой части формы элемент рамку (Frame) и задайте его свойству Caption значение Оперативная память. Поместите внутри рамки для переключателей (OptionButton), у которых измените свойство Caption. У первого переключателя за-

дайте свойство Name — optMem512, свойство Caption — DIMM 512 MB, у второго: свойство Name — optMem!024, свойство Caption — DIMM 1024 MB.

6.Поместите в верхнем левом углу формы элемент надпись (Label) и задайте его свойству Caption значение Выберите процессор и оперативную память.

7.Добавьте следующий фрагмент в секцию (General)(Declarations) формы:

Option Explicit

Private strComputer As String

Private strMem As String

8.Вставьте в ваш проект подпрограмму Display-Caption с помощью команды Tools, Add Procedure. В открывшемся окне введите Name (имя функции) — Display-Caption,

Туре (тип) — Sub, Scope (область видимости) — Private.

9.Выберите строку (General) из списка в левой верхней части окна (он называется

списком объектов). Затем выберите строку (Display-Caption) из списка процедур в правой верхней части окна или, если её нет, то выберите Declaration. Добавьте код процедуры DisplayCaption:

Private Sub DisplayCaption()

'Объединить текст надписи с двумя строковыми переменными

10.Дважды щелкните на переключателе Pentium -3 (1,2 GMz), чтобы открыть окно программы и добавьте следующий код:

Private Sub optPentium_Click()

'Присвоить значение типа компьютера strComputer = optPentium.Caption

' вызвать подпрограмму

Call DisplayCaption End Sub

11.Дважды щелкните на переключателе Pentium-3 (1,7 GMz),, чтобы открыть окно программы и добавьте следующий код

Private Sub optP3_Click() strComputer = optP3.Caption Call DisplayCaption

End Sub

Методические указания к выполнению лабораторной работы по программированию в VB

12.Дважды щелкните на переключателе Pentium-4 (2,4 GMz), чтобы открыть окно программы и добавьте следующий код

Private Sub optP4_Click() strComputer = opiP4.Caption Call DisplayCaption

End Sub

13.Дважды щелкните на переключателе DIMM 64 MB, чтобы открыть окно программы и добавьте следующий код

Private Sub optMem64_Click() strMem = optMemG4.caption Call DisplayCaption

End Sub

14.Дважды щелкните на переключателе DIMM 128 MB. чтобы открыть окно программы и добавьте следующий код

Private Sub optMem128_Click() strMem = optMeml 28.Caption Call DisplayCaption

End Sub

Обратите внимание, свойство Caption надписи lblDisplay задается именно в процедуре DisplayCaption, вызываемой из процедуры Click каждого переключателя.

15.Создайте кнопку, при нажатие на которую будет выбираться стандартная конфигурация компьютера. Для этого поместите на форме кнопку. Свойству Name задайте

значение cmdStandConf, а свойству Caption — Стандартная конфигурация.

16.Дважды щелкните по кнопке «Стандартная конфигурация», чтобы открыть окно программы для добавления кода

Private Sub cmdStandConf_Click() optPentium.Value= False optP3.Value=True

optP4. Value = False optMem512.Value = True oplMem1024.Value = False End Sub

17.Сохраните проект и форму с именем z4-l.

18.Запустите проект командой Run, Start (Пуск, Старт).

Контрольные вопросы

1. Зачем подпрограмма DisplayCaption описывается в заголовке модуля формы?

2.Какие значения может принимать свойство Value элемента Option Button? Что эти значения обозначают?

3.С помощью какого ключевого слова происходит обращение к подпрограммам ?

4.Имеет ли подпрограмма DisplayCaption аргументы?

5.Можно ли программный код, представленный в виде программы DisplayCaption, описать в виде функции? Чем отличается подпрограмма от функции?