Computergestüzte Alarmanlage

[robinWie]

Hallo,
ich habe mal ein Tutorial für Überwachungsfreaks geschrieben . Ist mein erstes. Darin wird erklärt wie eine ganz simple Schaltung mit dem RS232 Port verbindet und abfragt ob ein Kontakt besteht
Leider hat es nicht geklappt eine .zip und den Alarmton hochzuladen (TimeOut)

[s.h.a.r.k]

Hm...

Was wäre aber wenn der PC sich aufhängt???

PS: Hast Modem oder warum hast nen TimeOut???


mfg shark

[joachimd]

Zitat von robinWie:

Darin wird erklärt wie eine ganz simple Schaltung mit dem RS232 Port verbindet und abfragt ob ein Kontakt besteht

RS232.pas kommt mir aber stark bekannt vor...Du solltest die soweit bereinigen, dass nicht so unsinnige Funktionen wie 'GetSissyLevel' drin sind. Die kennt eh keiner ohne weitere Erklärung...

[robinWie]

Zitat:

PS: Hast Modem oder warum hast nen TimeOut???

DSL 2000. Aber ich habe bei .zip Dateien fast immer ein Timeout.

Zitat:

Was wäre aber wenn der PC sich aufhängt???

In dem Tutorial ist ja nur eine art Grundgerüst. Man könnte es ja so machen, dass man in dem Timer noch eine Speicherfunktion einbaut aber das ist dir überlassen

Edit:

Zitat:

RS232.pas kommt mir aber stark bekannt vor...Du solltest die soweit bereinigen, dass nicht so unsinnige Funktionen wie 'GetSissyLevel' drin sind. Die kennt eh keiner ohne weitere Erklärung...

Es wäre ja möglich, dass die funktionen doch jemand kennt. Und ich hatte nicht vor die Funktionsbandbreite zu verkleinern. Und ich denke die paar Byte, die das Programm größer wird, machen den Braten auch nicht Fett

[Evian]

Ich finde das Tut echt cool! Schlicht und einfach, aber macht Lust auf mehr.. werd mir nachher gleich mal nen wenig Klingeldrat kaufen!

[robinWie]

Es ist nur ein ziemliches gefummel den Klingeldraht an die Pins von der Schnittstelle zu Fummeln . Sonst kann man einfach einen Stecker von einer alten Maus nehmen

[Agent159]

Hey, ich habs ausprobiert und find es einfach super

Mach mich gleich mal dran aus meiner Testkonstruktion eine Eltern-Warnungsanlage zu bauen:
Denn merk ich immer, wenn meine Eltern die Treppe hochkommen

Beim ersten Testen ist mir aber ein Fehler aufgefallen:

if Alarmanlage.InitCom( 'COM1', CBR_9600, NOPARITY, ONESTOPBIT) then Da fehlt ein Parameter

Aber so muss es richtig sein:
if Alarmanlage.InitCom( 'COM1', CBR_9600, 8, NOPARITY, ONESTOPBIT) then
MfG euer Nico alias Agent159

[any_key]

aHoyHoy
finds auch doll...^^
aber ich glaub beim zweiten button fehlt noch das der erste button wieder auf enabled true gesetzt wird
also einfach das noch dazu packen

Code:

button1.enabled := true;

ach ja und natürlich den zweiten button wieder deaktivieren...

hab noch was lustiges beobachtet
ich hab einfach mal ne led in die schaltung eingelötet
wenn der stromkreis geschlossen ist aber das programm nicht aktiviert ist leuchtet diese orange
wenn man dann die überwachung aktiviert leuchtet sie grün

[robinWie]

Zitat:

wenn der stromkreis geschlossen ist aber das programm nicht aktiviert ist leuchtet diese orange
wenn man dann die überwachung aktiviert leuchtet sie grün

Entweder hat du eine LED mit 2 Farben (was mir nicht vorstellen kann) oder du hast bei aktivierter Anlage andere Spannungswerte als bei Deaktivierter. Dann kann das schonmal passieren.

Zitat:

Da fehlt ein Parameter

Den habe ich ja ganz vergessen
Ich hoffe ihr verzeiht mir

[Agent159]

ja bei mir klappt es super xD
habs vor nen paar wochen gemacht und musst erstma den fehler finden, naja kP ^^

aber super idee und jetzt seh ich immer, wenns zuhause klingel


PS:War das ne fummelei, den draht an den pins festzubekommen ;D