153
Ey = 0
IF DaftarData.Items = 0 THEN
SHOWMESSAGE “Daftar data belum terisi”
ELSE
FOR i = 0 TO DaftarData.Items.Count-1 DO
y = DaftarData.Items[i]
x = i+1 xy
=
x*y xx =
x*x Ex =
Ex+x Ey =
Ey+y
Exy = Exy+xy
Exx = Exx+xx
n = DaftarData.Items.Count
b = ((n*Exy)-(Ex*Ey))/((n*Exx)-(Ex*Ex)) a =
((Ey/n))-(b*(Ex/n)) Memo.Lines.Add(Persamaan
Regresi : y = a + bx) FOR j = n+1 TO n+n DO
f = a + (b*j)
HasilRamal.Items.Add(ROUND(f))
IF Hapus Daftar CLICK THEN
CLEAR demand
 |