152
IF (ratarata/kapasitas > 1) AND (ratarata MOD kapasitas < bep) THEN
fp = ROUNDDOWN(ratarata/kapasitas)
IF (ratarata/kapasitas > 1) AND (ratarata MOD kapasitas >= bep) THEN
fp = ROUNDUP(ratarata/kapasitas)
IF (ratarata/fp) >= kapasitas THEN xp = kapasitas
ELSE kapasitas =
ROUND(ratarata/fp)
z
=
(xp * tarif) – biaya
OPEN file Ramal
WRITE asal, tujuan, hari = k, fp, z, blocktime+30 AS block TO Ramal
CREATE file hari.txt
CLOSE Biaya Operasi
CLOSE Ramal
END
FormTrend
INPUT demand
IF key = #13 AND demand <> ‘ ’ THEN
DaftarData.Items.Add(demand)
IF Ramal CLICK THEN
Exx = 0
Exy = 0
Ex = 0
 |