Разработать программу, позволяющую заполнять форму стимулирующих надбавок и вычислять

Мвнюня · 04.04.2013, 20:35

Здравствуйте,помогите пожалуйста написать программку на Visual Basice.
Разработать программу, позволяющую заполнять форму стимулирующих надбавок и вычислять общую сумму надбавки. Надбавка за ученую степень кандидата наук составляет 3000 рублей, доктора наук – 6000. Надбавка за интенсивность труда – 500 рублей, за вредность – 1000 рублей, за правительственные награды – 500 рублей. Каждый сотрудник имеет индивидуальный перечень надбавок.

interacia · 05.04.2013, 17:53

Кнопка (Вычислить)

Код:

Private Sub Command1_Click()
Dim Sum As Integer
Sum = 0
If Option1.Value = True Then Sum = 3000
If Option2.Value = True Then Sum = 6000
If Check1.Value = 1 Then Sum = Sum + 500
If Check2.Value = 1 Then Sum = Sum + 1000
If Check3.Value = 1 Then Sum = Sum + 500
Text1.Text = Sum
End Sub

04.04.2013, 20:35	#1 (permalink)
Мвнюня Member Регистрация: 03.03.2013 Сообщений: 22 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Разработать программу, позволяющую заполнять форму стимулирующих надбавок и вычислять Здравствуйте,помогите пожалуйста написать программку на Visual Basice. Разработать программу, позволяющую заполнять форму стимулирующих надбавок и вычислять общую сумму надбавки. Надбавка за ученую степень кандидата наук составляет 3000 рублей, доктора наук – 6000. Надбавка за интенсивность труда – 500 рублей, за вредность – 1000 рублей, за правительственные награды – 500 рублей. Каждый сотрудник имеет индивидуальный перечень надбавок. Миниатюры

05.04.2013, 17:53	#2 (permalink)
interacia Member Регистрация: 29.01.2013 Сообщений: 91 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 565	Кнопка (Вычислить) Код: Private Sub Command1_Click() Dim Sum As Integer Sum = 0 If Option1.Value = True Then Sum = 3000 If Option2.Value = True Then Sum = 6000 If Check1.Value = 1 Then Sum = Sum + 500 If Check2.Value = 1 Then Sum = Sum + 1000 If Check3.Value = 1 Then Sum = Sum + 500 Text1.Text = Sum End Sub

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

04.04.2013, 20:35
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Обратите внимание на эти топики, тут может быть решение проблемы Разработать алгоритм и программу Разработать регистр

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070