Поставленную задачу можно также решить без кнопки. Форма для этого случая приведена на рис. 2.3.
Рис. 2.3. Форма для вычисления стоимости товара (без кнопки)
Процесс вычисления стоимости можно связать с событием изменения значения (Change) в текстовых полях txtЦена и txtКоличество.
В этом случае код программы имеет вид:
Private Sub txtЦена_Change()
lblрзтСтоимость = txtЦена * txtКоличество
End Sub
Private Sub txtКоличество_Change()
txtЦена_Change
End Sub
Первая процедура создается путем двойного щелчка на текстовом поле txtЦена и ввода строки кода:
lblрзтСтоимость = txtЦена * txtКоличество
Вторая – также вначале двойным щелчком на текстовом поле txtКоличество, а затем копированием заголовка из первой процедуры во вторую. Такая запись говорит о том, что при изменении значения в текстовом поле txtКоличество выполняются те же действия, что и при изменении текстового поля txtЦена.
Вычисление стоимости происходит при любом изменении значения в одном из текстовых полей txtЦена или txtКоличество, в том числе и когда в другом еще не вводились никакие значения. Последняя ситуация может привести к ошибке, так как неизвестен второй сомножитель. Чтобы избавиться от такого варианта, введем в свойство Text каждого из этих полей цифру 0, т.е. если в поле еще не вводились никакие данные, то значением поля будет ноль.
Для того, чтобы на диске сохранялся и первый проект (с кнопкой) и второй (без кнопки), нужно после сохранения первого проекта и переделки его формы под второй проект сохранить новую форму командой File–Save Form As и ввести имя файла для формы frmКасса2. Затем сохранить весь проект в новом файле prКасса2 командой File–Save Project As.
Примечания. 1. При задании свойств Caption и Name производилось копирование значения из первого свойства во второе, что облегчает процесс задания свойства Name. В общем случае использовать такой прием не обязательно – значение свойства Name можно задавать путем его ввода с клавиатуры.
2. Если значение свойства Caption состоит из нескольких слов (например, Новая цена), то после его копирования в свойстве Name необходимо избавиться от пробелов между словами (например, сформировать имя txtНовая_цена или txtНоваяЦена).
На рис. 2.4 показано использование разработанного приложения «Касса» для расчета стоимости товара при цене 5,2 грн. и количестве 4 шт. Полученный результат (20,8 грн.) совпадает с ожидаемым, который был вычислен без данного приложения. Это приложение может использоваться в качестве простейшего кассового аппарата.
Рис. 2.4. Вычисление стоимости товара
1. В цехе обрабатывается N одинаковых деталей на С станках. Время обработки одной детали Т минут. Определить время Р, за которое будут обработаны все детали, воспользовавшись формулой:
2. Найти процент выполнения плана предприятия по формуле:
3. Определить среднюю урожайность пшеницы, если с Р гектаров собрали К тонн.
4. Определить объем выпуска продукции цехом В в гривнях, если было выпущено N штук изделий при нормативной себестоимости единицы продукции С грн. Для расчета использовать формулу:
5. Определить остаток товара одного вида в гривнях в конце месяца, если известны остатки товара на складе в начале месяца, поступление и отпуск в течение месяца, а также цена единицы товара.
6. Определить потребность в стали на выпуск деталей одного вида, если нужно выпустить К деталей, а норма затрат стали на одну деталь равна Н граммов.
7. Определить рост производительности труда в процентах П, если до модернизации производства заданный объем продукции вырабатывали Р1 рабочих, а после модернизации – Р2 рабочих. Для расчета используется следующая формула:
8. Определить себестоимость продукции по формуле:
где В – выпуск (шт.), а М – расходы на материал, З – зарплату, И – инструмент и Т – транспорт на единицу продукции (грн.).
9. Определить цену товара в другой валюте, если известна цена в гривнях и курс валюты относительно гривни.
10. Определить стоимость телеграммы на цветном бланке, если известны цена одного слова, количество слов в телеграмме и стоимость бланка.
1. Из каких этапов складывается разработка прикладной программы для персонального компьютера?
2. Почему кроме алгоритма и структуры данных нужно еще думать об интерфейсе программы с пользователем?
3. Каково назначение элементов управления?
4. Обязательно ли давать имя каждому элементу управления, если его размещают на форме?
5. Как задать начальное значение текстовому полю, в которое будет вводиться новое значение?
6. Почему для вывода результатов используют элемент надпись, а не текстовое поле? Можно ли сделать наоборот?
7. С какой целью размещают на форме командную кнопку? Можно ли обойтись без нее?
8. С какой целью при вводе кода используют комбинацию клавиш <Ctrl+J>.
9. Как записать имя элемента управления, если оно состоит из нескольких слов?
10. Почему каждый проект желательно сохранять в отдельной папке на диске?
Тема. Проектирование приложений с различными типами данных.
Цель: приобрести умения и навыки создания проектов с разными типами данных.
Назначение: научиться создавать проекты, в которых применяются разные типы данных. С этой целью освоить знания об использовании операторов Dim и присваивания, приобрести навыки создания имен переменных в зависимости от типа и назначения, приобрести умения применять функции преобразования типов. Эти знания и навыки понадобятся при работе с электронными таблицами Excel и особенно при создании баз данных в среде Access.
Общие рекомендации
Если значение, которое хранится в поле памяти не изменяется в процессе выполнения программы, то оно называется константой и объявляется в операторе Сonst.
Оператор объявления константы имеет следующий формат:
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.