Вычислить сумму, которая удерживается с работника в счет погашения потребительского кредита и кредита на жилищное строительство

@Татьяна77 · Регистрация: 11.12.2010

Студворк — интернет-сервис помощи студентам

Нужно сделать задачи в Visual Basic 6.0
Задание 1!!!!!!
Вычислить сумму, которая удерживается с работника в счет погашения потребительского кредита и кредита на жилищное строительство.

В окно «Начислено» вводится сумма, которая начислена работнику. С помощью кнопок-переключателей указываются виды кредита, по которым имеется задолженность. В текстовом окне «Удержано» должна выдаваться сумма, которая удерживается с работника в счет погашения кредита. Она вычисляется следующим
образом:
• если имеется задолженность по обоим видам кредита, то с работника удерживается 20% от начисленной суммы;
• если имеется задолженность по какому-либо одному кредиту, то с работника удерживается 10% от начисленной суммы;
• если нет задолженности по кредитам, то в окне «Удержано» должно выводиться сообщение «Нет удержаний».

Никак не получается сделать правильный код!!!!!!Помогите, пожалуйста, кто может!!!! Заранее спасибо!!!!

@gaw · 11.12.2010, 21:26

Сообщение от Татьяна77

Задание 1!!!!!!

что сие значит ?

да, и, если возможно, покажите свой

Сообщение от Татьяна77

не получается сделать правильный код!!!!!!

@Татьяна77 · 11.12.2010, 21:29 **[ТС]**

Ну всего их ещё 9))))) Я по чуть-чуть каждого сделала, а самое главное, т.е код, с ошибками всегда!!!!

@gaw · 11.12.2010, 21:35

давайте оптом, чего уж там;)

@CyBOSSeR · 11.12.2010, 21:37

Комментарий модератора

Никакого опта. Одна тема - один вопрос.

@Татьяна77 · 11.12.2010, 21:48 **[ТС]**

Сообщение от gaw

что сие значит ?

да, и, если возможно, покажите свой

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim N  As Single, U As String
 
Private Sub CmdВычислить_Click()
 N = Val(TxtНачислено.Text)
 U = Val(TxtУдержано.Text)
If Chk1.Value And Chk2.Value = True Then
  U = 0.2 * N: TxtУдержано.Text = Str(U)
ElseIf Chk1.Value Or Chk2.Value = True Then
  U = 0.1 * N: TxtУдержано.Text = Str(U)
Else
  U = "Нет удержаний"
 TxtУдержано.Text = Str(U)
 End If
End Sub
 
Private Sub ÑmdВыход_Click()
 End
End Sub

Вот он))))

@gaw · 11.12.2010, 21:58

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub Check1_Click(Index As Integer) 'Index---0,1
i = Check1(0).Value + Check1(1).Value
s = Val(Text1.Text)
If s > 0 Then
 Label1 = Choose(i + 1, "Нет удержаний", "Удержано:  " & 0.1 * s, "Удержано:  " & 0.2 * s)
Else
MsgBox "?"
End If
End Sub

@Татьяна77 · 11.12.2010, 22:05 **[ТС]**

Чё то не работает(((((

@gaw · 11.12.2010, 22:36

на форме:
-- Check1(0), Check1(1) --флажки видов кредита
-- Text1 -- зарплата
-- Label1 -- сообщение

@Татьяна77 · 11.12.2010, 23:38 **[ТС]**

[QUOTE=gaw;1191941]на форме:
-- Check1(0), Check1(1) --флажки видов кредита
-- Text1 -- зарплата
-- Label1 -- сообщение[/QUOTE

Сообщение "Нет удержаний" должна выдаваться в текстовом окне Удержано!!
Не работает этот вариант,который вы написали((((( Но всё-равно спасибо!!!

@gaw · 11.12.2010, 23:52

иак замените Label1 на Text1

Новые блоги и статьи Все статьи Все блоги /
Видеокарта простаивает ночами? Вот 4 проекта, которые загрузят её наукой Programma_Boinc 10.04.2026 Видеокарта простаивает ночами? Вот 4 проекта, которые загрузят её наукой Если на Windows стоит дискретная NVIDIA или AMD — можно отдать её вычислительную мощность реальным исследованиям. . . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .

@Татьяна77 0 / 0 / 0 Регистрация: 11.12.2010 Сообщений: 6

	Вычислить сумму, которая удерживается с работника в счет погашения потребительского кредита и кредита на жилищное строительство 11.12.2010, 21:18. Показов 2766. Ответов 10 Метки нет (Все метки) Нужно сделать задачи в Visual Basic 6.0 Задание 1!!!!!! Вычислить сумму, которая удерживается с работника в счет погашения потребительского кредита и кредита на жилищное строительство. В окно «Начислено» вводится сумма, которая начислена работнику. С помощью кнопок-переключателей указываются виды кредита, по которым имеется задолженность. В текстовом окне «Удержано» должна выдаваться сумма, которая удерживается с работника в счет погашения кредита. Она вычисляется следующим образом: • если имеется задолженность по обоим видам кредита, то с работника удерживается 20% от начисленной суммы; • если имеется задолженность по какому-либо одному кредиту, то с работника удерживается 10% от начисленной суммы; • если нет задолженности по кредитам, то в окне «Удержано» должно выводиться сообщение «Нет удержаний». Никак не получается сделать правильный код!!!!!!Помогите, пожалуйста, кто может!!!! Заранее спасибо!!!! 0

@Татьяна77 0 / 0 / 0 Регистрация: 11.12.2010 Сообщений: 6
	11.12.2010, 21:29 [ТС]
	Ну всего их ещё 9))))) Я по чуть-чуть каждого сделала, а самое главное, т.е код, с ошибками всегда!!!! 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	11.12.2010, 21:35
	давайте оптом, чего уж там;) 0

@Татьяна77 0 / 0 / 0 Регистрация: 11.12.2010 Сообщений: 6
	11.12.2010, 22:05 [ТС]
	Чё то не работает((((( 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	11.12.2010, 22:36
	на форме: -- Check1(0), Check1(1) --флажки видов кредита -- Text1 -- зарплата -- Label1 -- сообщение 0

@Татьяна77 0 / 0 / 0 Регистрация: 11.12.2010 Сообщений: 6
	11.12.2010, 23:38 [ТС]
	[QUOTE=gaw;1191941]на форме: -- Check1(0), Check1(1) --флажки видов кредита -- Text1 -- зарплата -- Label1 -- сообщение[/QUOTE Сообщение "Нет удержаний" должна выдаваться в текстовом окне Удержано!! Не работает этот вариант,который вы написали((((( Но всё-равно спасибо!!! 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	11.12.2010, 23:52
	иак замените Label1 на Text1 0

Вычислить сумму, которая удерживается с работника в счет погашения потребительского кредита и кредита на жилищное строительство

Решение