Разработать приложение для расчета рентабельности проекта

@Lilianna · Регистрация: 14.11.2012

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

Доброе утро)))

Мне нужна помощь с кодом программы, а именно с одним фрагментом программы - мне необходимо сделать так, чтобы после того как будет посчитан индекс рентабельности, который появится в диалоговом окне (MsgBox), после нажатия кнопки ОК, начало проверятся условие: если индекс рентабельности > 1, следовательно выплывает окно " Проект рентабелен", в противном случае : "Проект нерентабелен". На данный момент, у меня хоть меньше 1, хоть больше: все равно появляется окно "проект рентабелен". Буду очень благодарна, если кто поможет)))

Вот код программы: Проект "Прачечные-самообслуживания"

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
Public Class FrmIR
 
Dim D As Integer
Dim KD1 As Single
Dim KD2 As Single
Private Sub BtnRD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRD.Click
Dim Inf As Integer
Dim Nu As Integer
Dim Rp As Integer
 
 
Inf = Val(Trim(TxtInf.Text))
Nu = Val(Trim(TxtNu.Text))
Rp = Val(Trim(TxtRp.Text))
 
D = Inf + Nu + Rp
 
LabD.Text = "Дисконт = " & Str(D) & " % "
LabD.Visible = True
 
End Sub
 
 
Private Sub BtnKD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKD.Click
 
KD1 = 1 / (1 + D)
KD2 = 1 / (1 + D) ^ 2
 
LabKD1.Text = " Коэф.дисконтирования на 1 год = " & Str(KD1) & ""
LabKD1.Visible = True
 
LabKD2.Text = "Коэф.дисконтирования на 2 год = " & Str(KD2) & ""
LabKD2.Visible = True
 
End Sub
 
 
Private Sub BtnIR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnIR.Click
Dim Pr As Integer
Dim Ns1 As Integer
Dim Ns2 As Integer
Dim MK1 As Integer
Dim MK2 As Integer
Dim OpT1 As Integer
Dim OpT2 As Integer
Dim ZP1 As Integer
Dim ZP2 As Integer
Dim Dr1 As Integer
Dim Dr2 As Integer
Dim Kr1 As Integer
Dim Kr2 As Integer
Dim AdminR1 As Integer
Dim AdminR2 As Integer
Dim Nf1 As Integer
Dim Nf2 As Integer
Dim IR As Single
 
Pr = Val(Trim(TxtPr.Text))
Ns1 = Val(Trim(TxtNs1.Text))
Ns2 = Val(Trim(TxtNs2.Text))
MK1 = Val(Trim(TxtMK1.Text))
MK2 = Val(Trim(TxtMK2.Text))
OpT1 = Val(Trim(TxtOpT1.Text))
OpT2 = Val(Trim(TxtOpT2.Text))
ZP1 = Val(Trim(TxtZP1.Text))
ZP2 = Val(Trim(TxtZP2.Text))
Dr1 = Val(Trim(TxtDr1.Text))
Dr2 = Val(Trim(TxtDr2.Text))
Kr1 = Val(Trim(TxtKr1.Text))
Kr2 = Val(Trim(TxtKr2.Text))
AdminR1 = Val(Trim(TxtAdminR1.Text))
AdminR2 = Val(Trim(TxtAdminR2.Text))
Nf1 = Val(Trim(TxtNf1.Text))
Nf2 = (Val(Trim(TxtNf2.Text)))
 
IR = (Ns1 * Pr * KD1 + Ns2 * Pr * KD2) / ((MK1 + OpT1 + ZP1 + Dr1 + Kr1 + AdminR1 + Nf1) + (MK2 + OpT2 + ZP2 + Dr2 + Kr2 + AdminR2 + Nf2))
 
IR = MsgBox("Индекс рентабельности = " & Str(IR), MsgBoxStyle.OkOnly)
 
 
If IR < 1 Then
 
MsgBox("Проект нерентабелен")
Else
MsgBox("Проект рентабелен")
End If
 
End Sub
End Class

Release · 17.11.2012, 11:01

Lilianna,

VB.NET
1
2
3
4
5
        Dim MBox As DialogResult = MessageBox.Show("Проект рентабелен", "Заголовок", MessageBoxButtons.OKCancel)
        If MBox = DialogResult.OK Then
            ' Твое условие
        End If
        If MBox = DialogResult.Cancel Then e.Cancel = MBox

Вот так сделать, чтоб при нажатии на ОК, выполнялось твое условие. Только не забудь его написать..

@Lilianna · 17.11.2012, 11:05 **[ТС]**

Круто)) Спасибо!!))

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

Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста.

@Lilianna · 20.11.2012, 09:28 **[ТС]**

Помогите сделать так, чтобы после подсчета индекса рентабельности шла следующая строка: если индекс рентабельности (далее IR) <1 , следовательно проект нерентабелен : надо чтобы это выводилось сообщение с помощью MsgBox; если IR >1, следовательно проект является рентабельным.

Программа предназначена для расчета рентабельности прачечной -самообслуживания. Код программы:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
Public Class FrmIR
 
    Dim D As Integer
    Dim KD1 As Single
    Dim KD2 As Single
    Private Sub BtnRD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRD.Click
        Dim Inf As Integer
        Dim Nu As Integer
        Dim Rp As Integer
 
 
        Inf = Val(Trim(TxtInf.Text))
        Nu = Val(Trim(TxtNu.Text))
        Rp = Val(Trim(TxtRp.Text))
 
        D = Inf + Nu + Rp
 
        LabD.Text = "Дисконт = " & Str(D) & " % "
        LabD.Visible = True
 
    End Sub
 
 
    Private Sub BtnKD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKD.Click
 
        KD1 = 1 / (1 + D)
        KD2 = 1 / (1 + D) ^ 2
 
        LabKD1.Text = " Коэф.дисконтирования на 1 год = " & Str(KD1) & ""
        LabKD1.Visible = True
 
        LabKD2.Text = "Коэф.дисконтирования на 2 год = " & Str(KD2) & ""
        LabKD2.Visible = True
 
    End Sub
 
    
    Private Sub BtnIR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnIR.Click
        Dim Pr As Integer
        Dim Ns1 As Integer
        Dim Ns2 As Integer
        Dim MK1 As Integer
        Dim MK2 As Integer
        Dim OpT1 As Integer
        Dim OpT2 As Integer
        Dim ZP1 As Integer
        Dim ZP2 As Integer
        Dim Dr1 As Integer
        Dim Dr2 As Integer
        Dim Kr1 As Integer
        Dim Kr2 As Integer
        Dim AdminR1 As Integer
        Dim AdminR2 As Integer
        Dim Nf1 As Integer
        Dim Nf2 As Integer
        Dim IR As Single
 
        Pr = Val(Trim(TxtPr.Text))
        Ns1 = Val(Trim(TxtNs1.Text))
        Ns2 = Val(Trim(TxtNs2.Text))
        MK1 = Val(Trim(TxtMK1.Text))
        MK2 = Val(Trim(TxtMK2.Text))
        OpT1 = Val(Trim(TxtOpT1.Text))
        OpT2 = Val(Trim(TxtOpT2.Text))
        ZP1 = Val(Trim(TxtZP1.Text))
        ZP2 = Val(Trim(TxtZP2.Text))
        Dr1 = Val(Trim(TxtDr1.Text))
        Dr2 = Val(Trim(TxtDr2.Text))
        Kr1 = Val(Trim(TxtKr1.Text))
        Kr2 = Val(Trim(TxtKr2.Text))
        AdminR1 = Val(Trim(TxtAdminR1.Text))
        AdminR2 = Val(Trim(TxtAdminR2.Text))
        Nf1 = Val(Trim(TxtNf1.Text))
        Nf2 = (Val(Trim(TxtNf2.Text)))
 
        IR = (Ns1 * Pr * KD1 + Ns2 * Pr * KD2) / ((MK1 + OpT1 + ZP1 + Dr1 + Kr1 + AdminR1 + Nf1) + (MK2 + OpT2 + ZP2 + Dr2 + Kr2 + AdminR2 + Nf2))
 
        IR = MsgBox("Индекс рентабельности = " & Str(IR))
 
        If IR < 1 Then
 
 
 
        End If
 
 
        
    End Sub
End Class

@_Лёша_ · 20.11.2012, 10:42

VB.NET
1
2
3
4
5
 If IR < 1 Then
 msgbox("проект нерентабелен")
else
 msgbox("проект рентабелен")
        End If

@Lilianna · 20.11.2012, 10:51 **[ТС]**

Да, спасибо, я именно так и делала, но ничего не получается. у меня индекс рентабельности получился меньше 1, а сообщение выходит, что проект рентабельный. В чем проблема?

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

Не дублируйте тему по форумам

@madgun · 20.11.2012, 12:06

может в этой строке:

VB.NET
1
IR = MsgBox("Индекс рентабельности = " & Str(IR))

убрать "IR = " ?

@_Лёша_ · 20.11.2012, 12:23

Согласен, IR= лишнее.

@Flamberg · 20.11.2012, 12:50

Можно просто убрать "IR = " в строке 78

@Fardo · 20.11.2012, 13:57

VB.NET
1
Messagebox.show ("Индекс рентабельности = ")

Новые блоги и статьи Все статьи Все блоги /
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.

@_Лёша_ 388 / 377 / 22 Регистрация: 08.02.2011 Сообщений: 1,078
	20.11.2012, 12:23
	Согласен, IR= лишнее. 0

@Flamberg 35 / 35 / 1 Регистрация: 14.11.2012 Сообщений: 176
	20.11.2012, 12:50
	Можно просто убрать "IR = " в строке 78 0