154
CLEAR
DaftarData
CLEAR
HasilRamal
CLEAR Memo
END
FormMusiman
INPUT demand
IF key = #13 AND demand <> ‘ ’ THEN
DaftarData.Items.Add(demand)
IF Ramal CLICK THEN
Ey = 0
Eycosx = 0
Eysinx = 0
n = DaftarData.Items.Count
IF n = 0 THEN
SHOWMESSAGE “Daftar data masih kosong”
ELSE
FOR i = 0 TO DaftarData.Items.Count-1 DO
y = DaftarData.Items[i]
x1 = i + 1
ycosx = y * cos((2*180/n)*x1)
ysinx = y * sin((2*180/n)*x1)
 |