Video UAS Komtek : Menghitung Konduksi Pada Dapur

Konduksi dan konveksi adalah hal yang paling dominan terjadi dalam dapur, ketika api kompor yang menyala menyebabkan panas pada sekelilingnya. perpindahan konduksi dapat terjadi dengan mudah pada meja dibawah kompor (meja kayu) kemudian dinding yang bersentuhan dekat dengan kompor (sumber panas).

Dari perhitungan konduksi ini, membutuhkan nilai luasan tiap bidang yang dikonduksikan, ketebalan benda, dan juga koefisien konduktivitas tiap material yang dicobakan. Berikut hasil video rekan jejak berdurasi 2 menit :

Link video : http://youtu.be/Y87g3GYICQ4
search by name Video : UAS KOMTEK (3) :Menghitung Konduksi Udara Dalam Dapur Dengan Visual Basic


Langkah Penyelesaian Konduksi
1. Menginput data yang ingin didapatkan seperti, konduktivitas tiap material, luasan dan ketebalan benda uji
2. Masukkan temperatur benda uji (kelvin)
3. Masukan ke dalah rumus konduksi Q = K. A (delta T) /d(tebal) satuan watt
4. Runing program dan pastika satuan dan rumus benar
5. Selesai

Coding :
Private Sub UserForm_Activate()
TextBox1.Text = 1.73 'kondultivitas dinding
TextBox2.Text = 0.16 'konduktivitas kayu
TextBox3.Text = 373 'asumsi panas kompor 373 kelvin

End Sub

Private Sub CommandButton1_Click()
Dim koefmeja, koefdinding, tempsumber, luasanmeja, tebalmeja, tempmeja, t1m, luasandinding, tebaldinding, tempdinding As Double
Dim qmeja, qdinding As Double


'Input Data Ketetapan
koefdinding = TextBox1.Text 'koefisien beton
koefmeja = TextBox2.Text 'koefisien konduksi kayu
tempsumber = TextBox3.Text 'temperatur kompor

'Input Data Meja
tempmeja = TextBox4.Text 'temperatur meja
luasanmeja = TextBox6.Text '(panjang x lebar) meja
tebalmeja = TextBox7.Text 'tebal meja (m)

'Input Data Dinding
tempdinding = TextBox8.Text 'temperatur dinding
luasandinding = TextBox10.Text '(panjang x lebar) dinding
tebaldinding = TextBox11.Text 'tebal dinding (m)

'input rumus
qmeja = koefmeja * luasanmeja * (tempsumber - tempmeja) / tebalmeja
qdinding = koefdinding * luasandinding * (tempsumber - tempdinding) / tebaldinding

'input output hasil
TextBox12.Text = qmeja
TextBox14.Text = qdinding

End Sub
Private Sub CommandButton2_Click()
TextBox4.Text = Clear
TextBox6.Text = Clear
TextBox7.Text = Clear
TextBox8.Text = Clear
TextBox10.Text = Clear
TextBox11.Text = Clear
TextBox12.Text = Clear
TextBox14.Text = Clear
End Sub

Private Sub CommandButton3_Click()
Unload UserForm3
End Sub

Terima Kasih