End Sub

Private Sub CommandButton1_Click()

Dim zena As Single

If Tg1.Value Then ‘ Кнопка нажата и товар шуба

zena = Val(Txtzena.Text) - 1000

Else ‘ Товар не шуба

zena = Val(Txtzena.Text)

End If

If Chkpok.Value Then ‘ Флажок нажат и скидка 10%

zena = zena - zena * 10 / 100

End If

txtezhpl.Text = zena / 10 ‘ Вставляем ежемесячную выплату

End Sub

Private Sub tg1_Change()

^‘свойство Enabled означает доступен ли элемент управления,

^‘в нашем случае поле txtname (в начале доступен)

Txtname.Enabled = Not Tg1.Value

If Tg1.Value Then ^‘ Кнопка нажата

Tg1.Caption = "Нажмите если хотите вести другой товар"

Txtname.Text = "Шуба" ^‘Поле заполнено

Else ' Кнопка не нажата и пустое поле можно заполнить

Tg1.Caption = "Нажмите если товар шуба"

Txtname.Text = " "

End If

End Sub

Private Sub UserForm_Initialize()

Tg1.Value = False

End Sub

Задачи для самостоятельного решения:

УКАЗАНИЯ КО ВСЕМ ЗАДАЧАМ:Все формы в задачах должны быть аккуратно (ровно) нарисованы и должны иметь необходимое число надписей, полей, кнопок, флажкови выключателей.

2. Вы пришли в банк взять потребительский кредит. Если у Вас положительная
кредитная история (выключатель), то выдать в поле заемщика соответствующие
сообщения «Вам могут дать кредит», иначе «У вас плохая кредитная история».
Аналогично, если у поручителя положительная кредитная история (выключатель),
то выдать в поле поручителя сообщение «Как поручитель Вы подходите», иначе
«У вас плохая кредитная история».

3. Рассчитать заработную плату рабочего, зная его оклад (поле ввода). Если рабочему
положена премия, то его зарплата увеличивается на 10$ (выключатель). Если
рабочий платит за проживание в служебной квартире, то зарплата уменьшиться на
5$ (флажок).

4. Рассчитать заработную плату рабочего, если известно количество его
отработанных часов и стоимость одного часа (два поля ввода). Рабочая неделя
длится 40 часов, если рабочий отработал больше 40 часов, то его сверхурочные
рассчитываются по двойному тарифу. Если рабочий работал более 10 лет, то его
зарплата увеличивается на 20 % (флажок). Если рабочему положена материальная
помощь, то зарплата увеличивается на 10$ (флажок).

__________________________________________________________________

ЛАБОРАТОРНАЯ РАБОТА 4. Пользовательская форма. Счетчики и списки.

Банк предоставляет потребительский кредит на 3, 6, 9 и 12 месяцев (список). В двух полях вводиться стоимость товара и первоначальный взнос. Процент за кредит задается с помощью поля со счетчиком. Кредит, равный стоимости товара минус первоначальный взнос, разбивается на соответствующее число месяцев. Проценты начисляются на остаток кредита ежемесячно. Рассчитать график ежемесячных платежей (результат будет в графе сумма).

 

Перечислим объекты	с ихсвойствами:
Объею-	Свойство	Значение свойства
Форма	caption	UserForml
Надпись	caption	Стоимость товара
Поле ввода	name	txtzena
Надпись	caption	Первоночальный взнос
Поле ввода	name	txtvznos
Надпись	caption	Процентная ставка
Поле ввода	name	txtrate
Счетчик	name	spnrate
Список (указаны сроки)	name	lstsrok
Список (график платежей)	name	lsttab
Кнопка	name	cmdl
	caption	Получить график платежей
Кнопка	name	CommandButton 1
	caption	Очистить

п ■ 6*100000012* fmBorttorStyfaNone График платежей fmCyctoAlFornK 32000 Trvw Tahoma ■ 84-00000012»

 

Сама программа выглядит так:

Дата добавления: 2015-07-26; просмотров: 121; Нарушение авторских прав

Мы поможем в написании ваших работ!