Menghitung Factor untuk radiasi pada solar water heater

 ada banyak metode untuk menghitung solar water heater, salah satunya yang paling terkenal adalah dengan metode F-Chart. metode ini caranya adalah menghitung nilai x dan y

 nilai x dan F dihitung dengan

 

sedangkan nilai F nya adalah

 Syntax

sintak pemogramanya adalah sebagai berikut


Private Sub CommandButton1_Click()
    Dim f, y, x, a, fx, fin, U, Tamb, L, eff, K, H, tday As Double
If txth.Text = "" Or txtk.Text = "" Then
MsgBox "Terdapat data yang belum diisi, Mohon Check Ulang !!"

Else
 a = txtluas.Text
 fin = txtfin.Text
 fx = txtfx.Text
 U = txtu.Text
 Tamb = txttamb.Text
 'tday = Val(24 * 3600)
 L = txtl.Text  ' baiknya dihitung sendiri
 eff = txteff.Text
 K = txtk.Text
 H = txth.Text

x = (a * fx * fin * U * (100 - Tamb) * 86400) / L
y = (a * fx * fin * eff * K * H) / L

' a = collector area m2
' fin = heat transfer factor
' fx = heat exchanger factor
' U = collector heat loss coeffisen (W/m2 K)
' tamb = temperatur lingkungan (C)
' tday = 24 x 3600 sec
' L = total daily heat load J, rata2 per bulan
' eff = optical efficiency
' k = all day avarage of incidence angle modifier
' H = daili solar irradiation incident on collector (J/m2)

f = (1.029 * y) - (0.065 * x) - (0.245 * y ^ 2) + (0.0018 * x ^ 2) + (0.0215 * y ^ 3)
Label34.Caption = f
    If f > 1 Then
    lblhasil.ForeColor = &H8000&
    lblhasil.Caption = "Untuk wilayah " & ComboBox1.Text & " pada bulan " & ComboBox2.Text & " luas collector " & txtluas.Text & " m2, sudah cukup untuk memanaskan " & txtvl.Text & " liter air. "
    Else
    lblhasil.ForeColor = &HFF&
    lblhasil.Caption = "Untuk wilayah " & ComboBox1.Text & " pada bulan " & ComboBox2.Text & " Radiasi tidak mencukupi, Saran : 1. Perbesar luas collector, 2.Turunkan target suhu air, 3.Turunkan jumlah air."
    End If
End If

End Sub

Posted in: tugas besar