eumex 306: tag und nachtschalteautomatik

eumex 306: tag und nachtschalteautomatik

unsre eumex 306 tk anlage kennt tag und nachtschaltung.

da der meiste fax spam nachts kommt und geschaäftliches tagsueber haben wir ind er nachtschaltung (*81) die faxnummer auf den unbelegten port 4 gelegt, tagsueber dagegen auf port 3 ,wo das fax hängt

da mein vater immer vergisst,das umzustellen, habe ich ein einfaches pascal programm geschrieben,das sowohl beim pc-start, als auch im laufenden betrieb ständig datum und uhrzeit prueft und ggf. die anlage umschaltet, und zwar:

montags bis freitags wird das fax um 8 uhr aktiviert, tagschaltung und ab 20 uhr wieder abgestellt.

samstags und sonntags dagegen bleibt es imemr aus.

ist der pc wenigstens ab und zu am tag mal an, dann stellt er die anlage gleich auf den richtigen modus, es reicht also,den pc gelegentlich mal anzuhaben,er musss nciht durchlaufen

im pc muss ein faxmodem sein, dieses ist bei uns com3: und ist an port 4 der tk anlage eingesteckt, und niommt keine anrufe entgegen

aber ist egal,wo man es einsteckt,am besten an einem freien prot sofern vorhanden,zur not mittels nfn-verteiler auch neben ein telefon ode rfaxgerät,dan n geht aber der schalktbefehl verloren.

da das modem ca. 30 sekunden wartet, bis es mit "no carrier" wiede rind en bereitmodus geht,kanne s sein,das wenn man den pc um 7:59:45 oder so, oder um 19:59:45 oder so bootet,das dann der falsche mdous drinoinst,weil erstmal der befehl fuer die alte zeitphase rausgeht und dann zu kurz danachd er neue,der dann ignoriert wird (und das returnd es neuen bricht evtl. sogar den alten vorzeitig ab, da das dtmf wählen aber ca. eine viertelskundebraucht, wird dieser letzte fall wiederrum höchstens alle 300 jahre einmal eintr4etetn, ansonsten isses zuverlässig, ihr könnts an eure gegebenheiten anpassen

marcus

das ist die winxp version,die dos version daxtimer.pas unterscheidet sich nur durch die zeile uses dos; statt uses windows; und ist lzexe comprimiert

================== faxtimer.pas ====================

{$I-}
program faxtimer;
uses windos;
var comport:text;hour,minute,second,centi,year,month,day,dow:word;status:boolean;

procedure readstatus;
var sta:byte;
begin
status:=false;
assign(comport,'c:\windows\faxtimer.&$%');
reset(comport);
if ioresult<>0 then exit;
read(comport,sta);
close(comport);
status:=true;
if sta=0 then status:=false;
end;

procedure writestatus;
var sta:byte;
begin
assign(comport,'c:\windows\faxtimer.&$%');
rewrite(comport);
sta:=0;
if status=true then sta:=1;
write(comport,sta);
close(comport)
end;

procedure make(x:byte);
begin
if x=0 then if status=false then exit;
if x=1 then if status=true then exit;
if x=0 then status:=false;
if x=1 then status:=true;
writestatus;
if x=0 then writeln(comport,'ATDT *80');
if x=1 then writeln(comport,'ATDT *81')
end;

begin
readstatus;
assign(comport,'com3'); {faxmodem}
rewrite(comport); {wollen ja befehle rausschreiben}
repeat
gettime(hour,minute,second,centi);
getdate(year,month,day,dow);
if dow=1 then if hour>=20 then make(0);
if dow=2 then if hour>=20 then make(0);
if dow=3 then if hour>=20 then make(0);
if dow=4 then if hour>=20 then make(0);
if dow=5 then if hour>=20 then make(0);
if dow=1 then if hour>=8 then if hour<20 then make(1);
if dow=2 then if hour>=8 then if hour<20 then make(1);
if dow=3 then if hour>=8 then if hour<20 then make(1);
if dow=4 then if hour>=8 then if hour<20 then make(1);
if dow=5 then if hour>=8 then if hour<20 then make(1);
if dow=6 then make(0);
if dow=7 then make(0);
until 1=2;
end.

{faxtimer v1.00 final erste und letzte version (c) von 24.10.2002 21:14:17 bis 24.20.2002 21:36:12
marcus Morbe as freeware! kann weitergegeben geändert und genutzt werden, schaltet via pc-mdoem die eumex 306 tk anlage
WARNUNG: die windows vbersion ist NUR fuer windows nt/xp geeignet! windows 9x hängt sich auf!
die dos version ist NUR fuer die dos box unter dos, und windows 9x geeignet! läuft nicht unter windows xp oder dosemu im linux!
2 gedruckte sicherheitskopien des codes gem8: windows xp version = faxtimer.pas turbo pascal 1.00 fuer windows
dos-box-version daxtimer.pas = turbo pascal 5.5 fuer dos
}

========= listing ende ======
poste das mdforum, electronikwerkstatt und drucke 2 kopien auf papier