Video Uas Komtek : Menghitung Konveksi Udara Dalam Dapur

Menghitung konveksi secara manual, merupakan cara yang mudah ketika semua variabel diketahui, tetapi akan terasa sulit jika terdapat banyak data yang digunakan. Penggunaan Visual Basic disini digunakan untuk mempermudah perhitungan konveksi udara dengan langsung menginput nilai terkait dalam sebuah kasus.

Pemograman ini tidak terhubung dengan excel (seperti pada program regresi linear). Program ini dibuat untuk menganalisa konveksi yang terjadi pada dapur dengan berbagai ketetapan baku seperti koefisien konduksi udara 0,024 serta sumber panas dari api kompor diasumsikan 100 derajat celcius atau 373K.  Kemudian data temperatur ruang yang didapat nantinya untuk mencari delta temperatur (Tsumber - Truang) . Dengan menginput data tersebut nantinya akan didapat nilai q pada setiap kasus. Berikut hasilnya selama 2 menit video berlangsung :

link video : http://youtu.be/d6g3xWh4Dos

atau search by name : video uas komtek

Langkah Pembuatan :
1. Masukkan ketetapan data terkait (konduktivitas termal udara, luasan bidang olah, sumber panas)
2. Masukkan data temperatur ruang sesuai waktu dan keadaan (aktual dan simulasi)
3. Hitung Konveksi q=h.A. (delta T)
4. Hitung Prosentasi keakuratan antara aktual dan simulasi (%)
5. Pastikan dapat berjalan baik dengan data dan satuan yang sesuai
6. selesai

Coding :
Private Sub CommandButton1_Click()
Dim menit, koef, acer, atcer, tsumber, t1, t2, t3, t4 As Double

'input data
menit = TextBox1.Text
koef = TextBox2.Text
acer = TextBox3.Text
atcer = TextBox4.Text
tsumber = TextBox5.Text
t1 = TextBox6.Text
t2 = TextBox7.Text
t3 = TextBox8.Text
t4 = TextBox9.Text

'hitung konveksi aktual
'hitung cerobong
q1 = koef * acer * (tsumber - t1)
TextBox10.Text = q1
Label13.Caption = menit

'hitung tanpa
q2 = koef * atcer * (tsumber - t2)
TextBox11.Text = q2
Label14.Caption = menit


'hitung konveksi simulasi
'hitung cerobong
q3 = koef * acer * (tsumber - t3)
TextBox13.Text = q3
Label15.Caption = menit

'hitung tanpa
q4 = koef * atcer * (tsumber - t4)
TextBox12.Text = q4
Label17.Caption = menit


'hitung prosentasi cerobong
persen1 = ((q3 - q1) / q3) * 100
TextBox14.Text = persen1

'hitung prosentasi tanpa cerobong
persen2 = ((q4 - q2) / q4) * 100
TextBox15.Text = persen2

End Sub


Private Sub CommandButton2_Click()
TextBox1.Text = Clear
TextBox6.Text = Clear
TextBox7.Text = Clear
TextBox8.Text = Clear
TextBox9.Text = Clear
TextBox10.Text = Clear
TextBox11.Text = Clear
TextBox12.Text = Clear
TextBox13.Text = Clear
TextBox14.Text = Clear
TextBox15.Text = Clear
Label13.Caption = menit
Label14.Caption = menit
Label15.Caption = menit
Label17.Caption = menit

End Sub



Private Sub UserForm_Activate()

TextBox2.Text = 0.024
TextBox3.Text = 10
TextBox4.Text = 11
TextBox5.Text = 373

End Sub


Private Sub CommandButton3_Click()
Unload Me
End Sub

Terima Kasih