program z politechniki

Function licz()

With ComboBox1

Select Case .ListIndex

Case 0

ro = 7800

cp = 502

la = 73

Rz = TextBox12.Text

Rw = TextBox13.Text

N = TextBox6.Text

dt = TextBox4.Text

a = la / (ro * cp)

dr = (Rz - Rw) / N

krokt = ro * cp * dr ^ 2 / (2 * la)

Label13.Caption = Format(a, "#.##E+##")

Label14.Caption = Round(dr, 4)

Label21.Caption = Round(krokt, 2)

Label22.Caption = ScrollBar1.Value

Vs = 3.14 * Rw ^ 2

V1 = 3.14 * (Rw + dr) ^ 2 - Vs

V2 = 3.14 * (Rw + 2 * dr) ^ 2 - V1

V3 = 3.14 * (Rw + 3 * dr) ^ 2 - V2

V4 = 3.14 * (Rw + 4 * dr) ^ 2 - V3

V5 = 3.14 * (Rw + 5 * dr) ^ 2 - V4

V6 = 3.14 * (Rw + 5.5 * dr) ^ 2 - V5

S01 = 2 * 3.14 * Rw

S12 = 2 * 3.14 * (Rw + dr)

S23 = 2 * 3.14 * (Rw + 2 * dr)

S34 = 2 * 3.14 * (Rw + 3 * dr)

S45 = 2 * 3.14 * (Rw + 4 * dr)

S56 = 2 * 3.14 * (Rw + 5 * dr)

S67 = 2 * 3.14 * (Rw + 5.5 * dr)

T0 = TextBox7.Text

T1 = TextBox7.Text

T2 = TextBox7.Text

T3 = TextBox7.Text

T4 = TextBox7.Text

T5 = TextBox7.Text

Tp = TextBox10.Text

ALFA = TextBox11.Text

For i = 1 To ScrollBar1.Value

T0 = 2 * la * dt / (ro * cp * V1 * dr) * S12 * (T1 - T0) + ALFA * (Tp - T0) * S01 * dt / (ro * cp * V1) + T0

T1 = la * dt * S23 / (ro * cp * V2 * dr) * (T2 - T1) + la * dt * S12 / (dr * ro * cp * V2) * (T0 - T1) + T1

T2 = la * dt * S34 / (ro * cp * V3 * dr) * (T3 - T2) + la * dt * S23 / (dr * ro * cp * V3) * (T1 - T2) + T2

T3 = la * dt * S45 / (ro * cp * V4 * dr) * (T4 - T3) + la * dt * S34 / (dr * ro * cp * V4) * (T2 - T3) + T3

T4 = la * dt * S56 / (ro * cp * V5 * dr) * (T5 - T4) + la * dt * S45 / (dr * ro * cp * V5) * (T3 - T4) + T4

T5 = 2 * la * dt / (ro * cp * V6) * S56 * (T4 - T5) + ALFA * dt / (ro * cp * V6) * S67 * (Tp - T5) + T5

Next i

Label1.Caption = Round(T0, 4)

Label2.Caption = Round(T1, 4)

Label3.Caption = Round(T2, 4)

Label4.Caption = Round(T3, 4)

Label42.Caption = Round(T4, 4)

Label44.Caption = Round(T5, 4)

Case 1

ro = 8900

cp = 385

la = 411

Rz = TextBox12.Text

Rw = TextBox13.Text

N = TextBox6.Text

dt = TextBox4.Text

a = la / (ro * cp)

dr = (Rz - Rw) / N

krokt = ro * cp * dr ^ 2 / (2 * la)

Label13.Caption = Format(a, "#.##E+##")

Label14.Caption = Round(dr, 4)

Label21.Caption = Round(krokt, 2)

Label22.Caption = ScrollBar1.Value

Vs = 3.14 * Rw ^ 2

V1 = 3.14 * (Rw + dr) ^ 2 - Vs

V2 = 3.14 * (Rw + 2 * dr) ^ 2 - V1

V3 = 3.14 * (Rw + 3 * dr) ^ 2 - V2

V4 = 3.14 * (Rw + 4 * dr) ^ 2 - V3

V5 = 3.14 * (Rw + 5 * dr) ^ 2 - V4

V6 = 3.14 * (Rw + 5.5 * dr) ^ 2 - V5

S01 = 2 * 3.14 * Rw

S12 = 2 * 3.14 * (Rw + dr)

S23 = 2 * 3.14 * (Rw + 2 * dr)

S34 = 2 * 3.14 * (Rw + 3 * dr)

S45 = 2 * 3.14 * (Rw + 4 * dr)

S56 = 2 * 3.14 * (Rw + 5 * dr)

S67 = 2 * 3.14 * (Rw + 5.5 * dr)

T0 = TextBox7.Text

T1 = TextBox7.Text

T2 = TextBox7.Text

T3 = TextBox7.Text

T4 = TextBox7.Text

T5 = TextBox7.Text

Tp = TextBox10.Text

ALFA = TextBox11.Text

For i = 1 To ScrollBar1.Value

T0 = 2 * la * dt / (ro * cp * V1 * dr) * S12 * (T1 - T0) + ALFA * (Tp - T0) * S01 * dt / (ro * cp * V1) + T0

T1 = la * dt * S23 / (ro * cp * V2 * dr) * (T2 - T1) + la * dt * S12 / (dr * ro * cp * V2) * (T0 - T1) + T1

T2 = la * dt * S34 / (ro * cp * V3 * dr) * (T3 - T2) + la * dt * S23 / (dr * ro * cp * V3) * (T1 - T2) + T2

T3 = la * dt * S45 / (ro * cp * V4 * dr) * (T4 - T3) + la * dt * S34 / (dr * ro * cp * V4) * (T2 - T3) + T3

T4 = la * dt * S56 / (ro * cp * V5 * dr) * (T5 - T4) + la * dt * S45 / (dr * ro * cp * V5) * (T3 - T4) + T4

T5 = 2 * la * dt / (ro * cp * V6) * S56 * (T4 - T5) + ALFA * dt / (ro * cp * V6) * S67 * (Tp - T5) + T5

Next i

Label1.Caption = Round(T0, 4)

Label2.Caption = Round(T1, 4)

Label3.Caption = Round(T2, 4)

Label4.Caption = Round(T3, 4)

Label42.Caption = Round(T4, 4)

Label44.Caption = Round(T5, 4)

Case 2

ro = 2700

cp = 896

la = 226

Rz = TextBox12.Text

Rw = TextBox13.Text

N = TextBox6.Text

dt = TextBox4.Text

a = la / (ro * cp)

dr = (Rz - Rw) / N

krokt = ro * cp * dr ^ 2 / (2 * la)

Label13.Caption = Format(a, "#.##E+##")

Label14.Caption = Round(dr, 4)

Label21.Caption = Round(krokt, 2)

Label22.Caption = ScrollBar1.Value

Vs = 3.14 * Rw ^ 2

V1 = 3.14 * (Rw + dr) ^ 2 - Vs

V2 = 3.14 * (Rw + 2 * dr) ^ 2 - V1

V3 = 3.14 * (Rw + 3 * dr) ^ 2 - V2

V4 = 3.14 * (Rw + 4 * dr) ^ 2 - V3

V5 = 3.14 * (Rw + 5 * dr) ^ 2 - V4

V6 = 3.14 * (Rw + 5.5 * dr) ^ 2 - V5

S01 = 2 * 3.14 * Rw

S12 = 2 * 3.14 * (Rw + dr)

S23 = 2 * 3.14 * (Rw + 2 * dr)

S34 = 2 * 3.14 * (Rw + 3 * dr)

S45 = 2 * 3.14 * (Rw + 4 * dr)

S56 = 2 * 3.14 * (Rw + 5 * dr)

S67 = 2 * 3.14 * (Rw + 5.5 * dr)

T0 = TextBox7.Text

T1 = TextBox7.Text

T2 = TextBox7.Text

T3 = TextBox7.Text

T4 = TextBox7.Text

T5 = TextBox7.Text

Tp = TextBox10.Text

ALFA = TextBox11.Text

For i = 1 To ScrollBar1.Value

T0 = 2 * la * dt / (ro * cp * V1 * dr) * S12 * (T1 - T0) + ALFA * (Tp - T0) * S01 * dt / (ro * cp * V1) + T0

T1 = la * dt * S23 / (ro * cp * V2 * dr) * (T2 - T1) + la * dt * S12 / (dr * ro * cp * V2) * (T0 - T1) + T1

T2 = la * dt * S34 / (ro * cp * V3 * dr) * (T3 - T2) + la * dt * S23 / (dr * ro * cp * V3) * (T1 - T2) + T2

T3 = la * dt * S45 / (ro * cp * V4 * dr) * (T4 - T3) + la * dt * S34 / (dr * ro * cp * V4) * (T2 - T3) + T3

T4 = la * dt * S56 / (ro * cp * V5 * dr) * (T5 - T4) + la * dt * S45 / (dr * ro * cp * V5) * (T3 - T4) + T4

T5 = 2 * la * dt / (ro * cp * V6) * S56 * (T4 - T5) + ALFA * dt / (ro * cp * V6) * S67 * (Tp - T5) + T5

Next i

Label1.Caption = Round(T0, 4)

Label2.Caption = Round(T1, 4)

Label3.Caption = Round(T2, 4)

Label4.Caption = Round(T3, 4)

Label42.Caption = Round(T4, 4)

Label44.Caption = Round(T5, 4)

Case Else

ro = TextBox3.Text

la = TextBox2.Text

cp = TextBox5.Text

Rz = TextBox12.Text

Rw = TextBox13.Text

N = TextBox6.Text

dt = TextBox4.Text

a = la / (ro * cp)

dr = (Rz - Rw) / N

krokt = ro * cp * dr ^ 2 / (2 * la)

Label13.Caption = Format(a, "#.##E+##")

Label14.Caption = Round(dr, 4)

Label21.Caption = Round(krokt, 2)

Label22.Caption = ScrollBar1.Value

Vs = 3.14 * Rw ^ 2

V1 = 3.14 * (Rw + dr) ^ 2 - Vs

V2 = 3.14 * (Rw + 2 * dr) ^ 2 - V1

V3 = 3.14 * (Rw + 3 * dr) ^ 2 - V2

V4 = 3.14 * (Rw + 4 * dr) ^ 2 - V3

V5 = 3.14 * (Rw + 5 * dr) ^ 2 - V4

V6 = 3.14 * (Rw + 5.5 * dr) ^ 2 - V5

S01 = 2 * 3.14 * Rw

S12 = 2 * 3.14 * (Rw + dr)

S23 = 2 * 3.14 * (Rw + 2 * dr)

S34 = 2 * 3.14 * (Rw + 3 * dr)

S45 = 2 * 3.14 * (Rw + 4 * dr)

S56 = 2 * 3.14 * (Rw + 5 * dr)

S67 = 2 * 3.14 * (Rw + 5.5 * dr)

T0 = TextBox7.Text

T1 = TextBox7.Text

T2 = TextBox7.Text

T3 = TextBox7.Text

T4 = TextBox7.Text

T5 = TextBox7.Text

Tp = TextBox10.Text

ALFA = TextBox11.Text

For i = 1 To ScrollBar1.Value

T0 = 2 * la * dt / (ro * cp * V1 * dr) * S12 * (T1 - T0) + ALFA * (Tp - T0) * S01 * dt / (ro * cp * V1) + T0

T1 = la * dt * S23 / (ro * cp * V2 * dr) * (T2 - T1) + la * dt * S12 / (dr * ro * cp * V2) * (T0 - T1) + T1

T2 = la * dt * S34 / (ro * cp * V3 * dr) * (T3 - T2) + la * dt * S23 / (dr * ro * cp * V3) * (T1 - T2) + T2

T3 = la * dt * S45 / (ro * cp * V4 * dr) * (T4 - T3) + la * dt * S34 / (dr * ro * cp * V4) * (T2 - T3) + T3

T4 = la * dt * S56 / (ro * cp * V5 * dr) * (T5 - T4) + la * dt * S45 / (dr * ro * cp * V5) * (T3 - T4) + T4

T5 = 2 * la * dt / (ro * cp * V6) * S56 * (T4 - T5) + ALFA * dt / (ro * cp * V6) * S67 * (Tp - T5) + T5

Next i

Label1.Caption = Round(T0, 4)

Label2.Caption = Round(T1, 4)

Label3.Caption = Round(T2, 4)

Label4.Caption = Round(T3, 4)

Label42.Caption = Round(T4, 4)

Label44.Caption = Round(T5, 4)

End Select

End With

End Function

Private Sub ComboBox1_Change()

licz

End Sub

Private Sub CommandButton2_Click()

licz

End Sub

Private Sub ScrollBar1_Change()

licz

End Sub

Private Sub userform_initialize()

ComboBox1.AddItem "stal"

ComboBox1.AddItem "miedź"

ComboBox1.AddItem "aluminium"

ComboBox1.AddItem "użytkownika"

End Sub


Wyszukiwarka

Podobne podstrony:
projekt podstawy programowania, Politechnika Częstochowska- Wydział Budownictwa, Podstawy Programowa
sprawko programowanie, Politechnika Śląska
Prezentacja programu, Politechnika Lubelska, Studia, Studia, sem VI, VI-semestr, SJESJA, negocjacje,
program1, Politechnika Lubelska, Studia, Studia, Wychowanie Techniczne-wszystkie lata, 2, dydaktyka,
ALgorytmy i programowanie, POLITECHNIKA wydział E kierunek I, ALGORYTMY I ZLOZONOSC, ROZNE JAKIES TA
zasady zaliczeń PP IG, Politechnika Białostocka, ZiIP (PB), Semestr 1, Podstawy programowania, Progr
Podstawy elektroniki - informatyka - program - gablota, Politechnika Lubelska, Studia, Studia, sem V
TEORIA RUCHU POJAZDÓW-program, MiBM Politechnika Poznańska, Semestr V
sprawko programowanie barol, Politechnika Śląska
Plik Word a w nim przydatne wiadomości do nauki obsługi programu Matlab, Politechnika Rzeszowska
Program -Wykłady Technologia Maszyn, POLITECHNIKA POZNAŃSKA, LOGISTYKA, semestr IV, maszyny technolo
PROGRAM WYKŁADÓW z Gosp. Energ, Energetyka Politechnika Krakowska Wydział Mechaniczny I stopień, Go
zestawy-labC++-kolokwium 2 2006-2007, Politechnika Śląska MT MiBM, Semestr III, Języki programowania
Laboratorium Instalacji I Oświetlenia, Zapoznanie i praca z programem OBL, POLITECHNIKA LUBELSKA
Programowanie Niskopoziomowe 3, Politechnika Lubelska, Studia, semestr 5, Sem V, Nowy folder
Program dla elektrotechniki I-stopień- K Ciesielska 06-10-2013, Politechnika Poznańska, 2 rok, III,
slajdy TIOB W01 A Ramowy program wykladow z przedmiotu, Przodki IL PW Inżynieria Lądowa budownictwo
Program wykładów z fizyki, Politechnika Wrocławska Energetyka, I semestr, Fizyka 1.2

więcej podobnych podstron