Sub rafakam()
Dim t1, t2, t3, t4, t5, p1, p2, p3, p4, p5, p6, m1, m2, m3, m4, m5, m6, m7, m8, nitw, cww, nitn, ng, I1, s1, s2s, s2p, s2b, i2p, i2b, x2s, i2s, i2, i4, s4, s5s, s5p, s5b, i5p, i5b, x5s, i5s, i5, i6, i7, nit, nel, nturboz, nreakt, nelektrowni, p, wd As Double

m1 = UserForm1.TextBox13.Value * 1
m2 = UserForm1.TextBox2.Value * 1
t1 = UserForm1.TextBox3.Value
p1 = UserForm1.TextBox4.Value * 10
p2 = UserForm1.TextBox5.Value * 10
p5 = UserForm1.TextBox6.Value / 100
nitw = UserForm1.TextBox7.Value
nitn = UserForm1.TextBox8.Value
nturboz = UserForm1.TextBox9.Value
t5 = UserForm1.TextBox10.Value
nreakt = UserForm1.TextBox15.Value
wd = UserForm1.TextBox16.Value * 1000

'Sprawdzenie, czy wszystkie dane wejściowe zostały uzupełnione
If UserForm1.TextBox13.Value = Empty Then
        MsgBox ("Proszę wpisac wszystkie dane!")
        ElseIf UserForm1.TextBox2.Value = Empty Then
            MsgBox ("Prosze wpisac wszystkie dane!")
        ElseIf UserForm1.TextBox3.Value = Empty Then
            MsgBox ("Prosze wpisac wszystkie dane!")
        ElseIf UserForm1.TextBox4.Value = Empty Then
            MsgBox ("Prosze wpisac wszystkie dane!")
        ElseIf UserForm1.TextBox5.Value = Empty Then
            MsgBox ("Prosze wpisac wszystkie dane!")
        ElseIf UserForm1.TextBox6.Value = Empty Then
            MsgBox ("Prosze wpisac wszystkie dane!")
        ElseIf UserForm1.TextBox7.Value = Empty Then
            MsgBox ("Prosze wpisac wszystkie dane!")
        ElseIf UserForm1.TextBox8.Value = Empty Then
            MsgBox ("Prosze wpisac wszystkie dane!")
        ElseIf UserForm1.TextBox9.Value = Empty Then
            MsgBox ("Prosze wpisac wszystkie dane!")
        ElseIf UserForm1.TextBox10.Value = Empty Then
            MsgBox ("Prosze wpisac wszystkie dane!")
        ElseIf UserForm1.TextBox15.Value = Empty Then
            MsgBox ("Prosze wpisac wszystkie dane!")
        ElseIf UserForm1.TextBox16.Value = Empty Then
    Exit Sub
End If





'Entalpia w poszczególnych punktach
I1 = h_pT(p1, t1)
s1 = s_pT(p1, t1)


s2s = s1
i2s = h_ps(p2, s2s)
i2 = I1 - nitw * (I1 - i2s)


i3 = h_pT(p2, t1)
i4 = i3
s4 = s_pT(p2, t1)


s5s = s4
i5s = h_ps(p5, s5s)
i5 = i4 - nitn * (i4 - i5s)


cww = 4.19 'cieplo wlasciwe wody
i6 = cww * t5

'BS TURBINY WYSOKOPREZNEJ
m3 = m1 - m2


'BE MIESZALNIKA
i7 = ((m2 * i2) + (m3 * i6)) / m1
i8 = i7


'Moc wewnętrzna turbin
nit = (m1 * (I1 - i2)) + (m3 * (i4 - i5))



'Moc elektryczna turbozespolu
nel = nit * nturboz


'Strumień paliwa doprowadzanego do reaktora
p = ((m1 * (I1 - i7)) + (m3 * (i4 - i3))) / (nreakt * wd)


'Sprawność elektrownii
nelektrowni = nel / (p * wd)


'Zapis wyników w poszczególnych polach

I1 = Round(I1, 1)
    UserForm1.Label51.Caption = I1

i2 = Round(i2, 1)
    UserForm1.Label52.Caption = i2

i3 = Round(i3, 1)
    UserForm1.Label53.Caption = i3

i4 = Round(i4, 1)
    UserForm1.Label54.Caption = i4

i5 = Round(i5, 1)
    UserForm1.Label55.Caption = i5

i6 = Round(i6, 1)
    UserForm1.Label56.Caption = i6

i7 = Round(i7, 1)
    UserForm1.Label57.Caption = i7

i8 = Round(i8, 1)
    UserForm1.Label58.Caption = i8

'Nit
nit = Round(nit, 0)
    UserForm1.Label59.Caption = nit

'Nel
nel = Round(nel, 0)
    UserForm1.Label60.Caption = nel

'nelektrowni
nelektrowni = Round(nelektrowni, 2)
    UserForm1.Label61.Caption = nelektrowni

'p
p = p * 1000
p = Round(p, 3)
    UserForm1.Label62.Caption = p


End Sub