Внимание: на экране может быть размещено несколько видимых объектов – окон, рамок, кнопок. Один из объектов (это может быть и окно форм!) обязательно является активным. Окно свойств Properties всегда содержит свойства того объекта, который находится в активном состоянии.
Для удаления видимого элемента с окна форм, выберите его, щелкнув мышью (элемент окажется помеченным 8-ю черными квадратиками), затем щелкните правой кнопкой мыши – появится контекстное меню, выберите Cut (Вырезать) и щелкните левой кнопкой мыши.
Определим теперь свойства введенных элементов, используя окно свойств (Properrties). Активизируем элемент Label], при этом активизируются свойства в окне свойств, относящиеся к этому элементу (заголовок Labell Label). Выберем свойство Caption (Название) и определим его как Первое слагаемое, используя строку ввода. Это название появляется на форме (рис. 1.11).

рис.1.11.
Свойство Caption (Название) для Label2 зададим - Второе слагаемое. Свойство Caption (Название) для Label3 зададим Сумма. Остальные оставим по умолчанию. Определим свойства тестовых окон. Активизируем сначала первое окно, очистим окно (удалим значение Textl свойства Text) и присвоим ему имя а (свойство Name (Имя), которое будем использовать при написании текста программ (рис. 1.12). Очистим также второе окно и третье окна и присвоим ем имена b и sum соответственно. Остальные свойства окон оставим по умолчанию.

Для ввода текста необходимых программ щелкните мышью на кнопке View Code (вид/код) окна «проекты» (окно Piojektl mak) Откроется окно FORM1 (имя проектируемой формы по умолчанию Form1) Откроем слева раскрывающийся список General и выберем в нем объект (в качестве объекта выбирается кнопка Ок, по умолчанию у неё осталось имя Command1) или же дважды щелкнем по кнопке ОК в окне форм.
Private Sub Command1_Click()
Dim per As Integer
Dim vtor As Integer
Dim s As Integer
per = a. Text
vtor = b. Text
s = per + vtor
sum. Text = s
End Sub
Если бы мы не присвоили объекту имя а, то в программе вместо per = a. Text писали бы per=Text1.text. И аналогично бы с остальными переменными.
КОНТРОЛЬНЫЕ ВОПРОСЫ.
Виды диалоговых окон. Этапы разработки приложения. Функции преобразования типов. Свойства которого из объектов, размещенных на форме, отображаются в окне Properties? Какими свойствами характеризуется положение объекта на окне форм? Как задаётся цвет фона? Какие свойства определяют размеры объекта? Как изменить заголовок объекта? Как перевести проект в режим выполнения? Какое свойство объекта включается в название процедуры? Как задается свойство объектов «цвет»?САМОСТОЯТЕЛЬНОЕ ЗАДАНИЕ
Составить программу перевода введенной суммы в монгольских тугриках в доллары. Курс - 1034 к 1 $. Составить программу перевода введенной скорости в км/ч в м/с. Составить программу, для которой вводится 3 числа, выводится сумма их квадратов. Составить программу, для которой вводится число тараканов в комнате, печатается общее число их ножек и общее число их усов. Вычислить периметр и площадь прямоугольного треугольника по заданным длинам двух катеров a и b. Найти произведение цифр заданного четырёхзначного числа. Найти площадь равнобедренной трапеции с основаниями a и b и углом α при большом основании а. Дано действительное число а. Не используя никаких функций и никаких операций, кроме умножения, получить а8 за три операции; а10 и а16 за четыре операции. Дана величина А, выражающая объём информации в байтах. Перевести А в более крупные единицы измерения информации. Организацией приобретено n принтеров и m компьютеров. Ввести необходимые данные с клавиатуры. Получить стоимость всей покупки. Длина отрезка задана в дюймах (1 дюйм = 2,54 см). Перевести значение длины в метрическую систему, то есть выразить ее в метрах, сантиметрах и миллиметрах. Так, например, 21 дюйм = 0 м 53 см 3,4 мм. Заданы уравнения двух пересекающихся прямых на плоскости: y = k1+b1; y= k2+b2. Найти (в градусах и минутах) угол между ними, используя формулу:
|
Из за большого объема этот материал размещен на нескольких страницах:
1 2 3 4 |


