Video Uas Komtek : Regresi Linear (Temperatur vs Waktu) Pada Dapur

Program regresi linear ini adalah program umum, yang dahulu pernah saya pelajari bersama teman - teman komputasi. Pada awalnya program ini sangatlah standart, tetapi berkat bimbingan dosen dan belajar bersama dengan teman seperjuangan, akhirnya penggunaan program komputasi dengan visual basic dapat lebih sempurna. Berkat bantuan dari mas hasnan pula akhirnya saya dapat membuat suatu program visual basic dengan menghubungkan ke nilai perhitungan excel. 

Program ini dibuat untuk mempermudah perhitungan dan analisa numerik kasus tugas besar saya yaitu mengetahui kenyamanan termal dapur rumah dengan menggunakan cerobong udara dan tanpa cerobong udara. kenapa memakasi regresi linear? karena semakin lama waktu penggunaan kompor yang menyala akan meningkatkan temperatur dapur. dan untuk menurunkannya sumber panas harus dimatikan.

Berikut video yang berhasil saya rekam, dengan berdurasi 4 menit, semoga dapat memberi pencerahan.




link video : http://youtu.be/gskw5UT3Ql4
atau search by name : video uas komtek

Langkah pembuatan :

1. input nilai x dan y pada tabel excel yang tersedia,kemudian buat link ke syntax

2. menghitung nilai x^2 dan x kali y

3. hitung sum tiap nilai x, y, x^2, dan x kali y

4. masukkan ke dalam persamaan linear

5. tetapkan variabel x sebagai nilai yang selalu muncul saat dirunning

6. atur menu reset

7. atur menu exit

8 running program dan pastikan nilai terhubung ke excel dengan baik

9.selesai

Coding

Private Sub cmd1_Click() ' data untuk aktual cerobong pada excel
texty1.Text = Cells(10, 4)
texty2.Text = Cells(11, 4)
texty3.Text = Cells(12, 4)
texty4.Text = Cells(13, 4)
texty5.Text = Cells(14, 4)
texty6.Text = Cells(15, 4)
texty7.Text = Cells(16, 4)

End Sub

Private Sub cmd2_Click() ' data untuk aktual tanpa cerobong pada excel
texty1.Text = Cells(10, 4)
texty1.Text = Cells(10, 5)
texty2.Text = Cells(11, 5)
texty3.Text = Cells(12, 5)
texty4.Text = Cells(13, 5)
texty5.Text = Cells(14, 5)
texty6.Text = Cells(15, 5)
texty7.Text = Cells(16, 5)
End Sub

Private Sub cmd3_Click() ' data untuk simulasi cerobong pada excel
texty1.Text = Cells(10, 6)
texty2.Text = Cells(11, 6)
texty3.Text = Cells(12, 6)
texty4.Text = Cells(13, 6)
texty5.Text = Cells(14, 6)
texty6.Text = Cells(15, 6)
texty7.Text = Cells(16, 6)
End Sub

Private Sub cmd4_Click() ' data untuk simulasi tanpa cerobong pada excel
texty1.Text = Cells(10, 7)
texty2.Text = Cells(11, 7)
texty3.Text = Cells(12, 7)
texty4.Text = Cells(13, 7)
texty5.Text = Cells(14, 7)
texty6.Text = Cells(15, 7)
texty7.Text = Cells(16, 7)
End Sub

Private Sub cmdcalculate_Click()
Dim x, y, xy, n As Double
Dim x1, x2, x3, x4, x5, x6, x7 As Double
Dim y1, y2, y3, y4, y5, y6, y7 As Double
Dim x2_1, x2_2, x2_3, x2_4, x2_5, x2_6, x2_7 As Double
Dim xy_1, xy_2, xy_3, xy_4, xy_5, xy_6, xy_7 As Double
Dim sum_x, sum_y, sum_x2, sum_xy, a0, a1 As Double

n = 7 'jumlah variabel input x

'variabel x
x1 = textx1.Text
x2 = textx2.Text
x3 = textx3.Text
x4 = textx4.Text
x5 = textx5.Text
x6 = textx6.Text
x7 = textx7.Text
'variabel y
y1 = texty1.Text
y2 = texty2.Text
y3 = texty3.Text
y4 = texty4.Text
y5 = texty5.Text
y6 = texty6.Text
y7 = texty7.Text

'nilai x^2
x2_1 = x1 ^ 2
x2_2 = x2 ^ 2
x2_3 = x3 ^ 2
x2_4 = x4 ^ 2
x2_5 = x5 ^ 2
x2_6 = x6 ^ 2
x2_7 = x7 ^ 2


'nilai xy
xy_1 = x1 * y1
xy_2 = x2 * y2
xy_3 = x3 * y3
xy_4 = x4 * y4
xy_5 = x5 * y5
xy_6 = x6 * y6
xy_7 = x7 * y7


'nilai sums
sum_x = Val(x1) + Val(x2) + Val(x3) + Val(x4) + Val(x5) + Val(x6) + Val(x7)
sum_y = Val(y1) + Val(y2) + Val(y3) + Val(y4) + Val(y5) + Val(y6) + Val(y7)
sum_x2 = (x1 ^ 2) + (x2 ^ 2) + (x3 ^ 2) + (x4 ^ 2) + (x5 ^ 2) + (x6 ^ 2) + (x7 ^ 2)
sum_xy = (x1 * y1) + (x2 * y2) + (x3 * y3) + (x4 * y4) + (x5 * y5) + (x6 * y6) + (x7 * y7)

'mencari linear equation
a0 = ((sum_y * sum_x2) - (sum_x * sum_xy)) / ((n * sum_x2) - (sum_x ^ 2))
a1 = ((n * sum_xy) - (sum_x * sum_y)) / ((n * sum_x2) - (sum_x ^ 2))

Labela1.Caption = a1
Labela0.Caption = a0


End Sub

Private Sub cmdclear_Click()

texty1.Text = Clear
texty2.Text = Clear
texty3.Text = Clear
texty4.Text = Clear
texty5.Text = Clear
texty6.Text = Clear
texty7.Text = Clear
Labela1.Caption = Clear
Labela0.Caption = Clear
End Sub

Private Sub cmdexit_Click()
Unload regresilinear
End Sub


Private Sub UserForm_Activate()
textx1.Text = Cells(10, 3)
textx2.Text = Cells(11, 3)
textx3.Text = Cells(12, 3)
textx4.Text = Cells(13, 3)
textx5.Text = Cells(14, 3)
textx6.Text = Cells(15, 3)
textx7.Text = Cells(16, 3)


End Sub

Terima kasih