Вот часть практической работы
Преобразовать программу задания 1, используя элементы типа: «линейка прокрутки» для ввода и изменения исходных данных:
а) поставить на форме элементы: горизонтальная
полоса прокрутки для
каждого из данных А, В, С; LJ
б) выделить указателем мыши все элементы: «линейка прокрутки» и редактировать их свойства
(Min=-1000, Max=1000, SmallChange=10);
Преобразовать программу задания 1, используя элементы типа: «линейка
прокрутки» для ввода и изменения исходных данных:
ЗАДАНИЕ 2
а) поставить на форме
элементы:
горизонтальная
полоса
каждого из данных А, В, С;
прокрутки для
LJ
б) выделить указателем
мыши
элементы:
«линейка прокрутки» и
все
редактировать их свойства
(Min=1000, Max=1000, SmallChange=10);
Text=P1.Value
A.
затем окно для линейки P2 величины В
B.
затем окно для линейки P3 величины С
C.
Text=P2.Value
Text=P3.Value
в) изменить имена линеек прокрутки (Name) в окне свойств для
величины А: на P1, для В: на P2, для С: на P3;
г) записать программные коды. Открыть двумя щелчками по линейке
прокрутки P1 величины А окно кода программы и записать:
д) выполнить программу,
изменение значений в полях А,
«Начало». ЗАДАНИЕ 3
изменять состояние
В, С, получать ответ, щелкая по кнопке
линеек,наблюдая
Определить значение величины «Y», используя одно из предложенных
трех расчетных выражений, вводя исходные данные:
Y= A+B или
Y= AB
или
Y= A*Bа) запустить новый проект (Insert user Form);
б) установить на форме три элемента: кнопка OptionButton;
в) в пункт Caption первого элемента OptionButton, занести первое
выражение У=А+В, для элемента 2: У=АВ, и для элемента 3: У=А*В;
г) свойство Name элемента
OptionButtonl
поменять на F1,
OptionButton2 на F2 и OptionButton3 на F3;
д) установить на форме
три текстовых поля для А и
В и поле для Y;
е)
установить 2
кнопки действий:
для
выполнения расчета и для
завершения;
ж)
в свойство Text
текстовых полей TextBox1,
2 и 3
занести нулевые
значения. В пункты Name обозначения: А, В и Y;
з) установить элементы Label для обозначений полей А, В и Y;
и) поменять свойство Caption кнопок Button и метокLabel; к)
раскрыть окно кода кнопки «КОНЕЦ» и записать оператор END; л)
в окне программного кода кнопки «НАЧАЛО» записать текст:
A=Val(A.Text) : B=Val(B.Text)
IF F1.Value=TRUE Then
Y=1*A+B ElseIf
F2.Value=TRUE Then Y=AB
Else Y=A*B End If Y.Text=Y
ЗАДАНИЕ 4
| щ. Forml
II
F4 И
F5 Н
F.G................... 1
h / в!
F8 zl |
1
ГОРЯЧИЕ КЛАВИШИ NC
Создание каталога
LSI
1
м) решить задачу, выбирая одну из трех расчетных формул.
Составить проект справочная система: выбор в окне списка (ListBox) и
получение
(например,
подсказки
функциональных клавишах в среде Total Commander):
подсказки
получение
о
а) поместить на экранную форму элементы: поле текста (TextBox) окно
списка (ListBox) и кнопку (CommandButton);б) в свойстве окна списка «Visible» установить «False»;
в) в свойстве текстового поля очистить свойство «Text»;
г) в свойстве «Caption» кнопки текст «Горячие клавиши TC»;
д) в окне кода кнопки CommandButton записать программу:
ListBox1.Visible=True
FOR I=1 to 10 : ListBox1.AddItem «F»&I
: Next I
е) открыть окно кода списка ListBox1 и записать программу
(использовать, для ускорения, копирование: Ctrl_C и вставку: Ctrl_V):
Select Case ListBox1.ListIndex Case
0: TextBox1.Text=«Помощь»
Case 1: TextBox1.Text=«Пользовательское меню»
Case 2: TextBox1.Text=«Чтение файла»
Case 3: TextBox1.Text=«Редактирование файла»
Case 4: TextBox1.Text=«Копирование»
Case 5: TextBox1.Text=«Перемещение»
Case 6: TextBox1.Text=«Создание каталога»
Case 7: TextBox1.Text=«Удаление»
Case 8: TextBox1.Text=«Главное меню»
Case 9: TextBox1.Text=«Выход»
End Select
ж) запустить проект, щелкнуть по командной кнопке, выбирать щелчком
записи в окне списка, наблюдая результат.