[Fun-Tool] EKG-PC-Monitor

[turboPASCAL]

Tja, was soll ich sagen, halt ein EKG-PC-Monitor. Das ist kein so ernst gemeintes Programm, ebend etwas für den kleinen Spass zwischen durch.

Das Programm entstand aus diesem Thread. Um Zuriff auf den Source zu haben habe ich hier mal ein Thread eröffnet.

Die Routine der Sounderzeugung ist ein abgewandelter Code von hier.
Die CPU Auslastung unter Windows NT/2000/XP ermitteln von hier.

Wie immer Opensource zum gucken und nachmachen.

Ach, worum ich euch bitten möchte, wenn ihr eine neue Version hochladet, macht das immer in dem selben Beitrag und verlinkt dann darauf.

[Zacherl]

Zitat von inherited:

Zitat von Florian Bernd:

Das Programm wird ja immer besser!
Was mir aufgefallen ist, das der Defibrilator den Zustand des Patienten (zumindest auf diesem alten Rechner) temporär verschlechtert.

Edit: Bei einer Auslastung > 80 wird die Linie sofort grade. Wäre es nicht schöner noch zu sehen, wie die letzten Ausschläge auch nach links wandern?

Ist doch eingebaut... Wenn ihr andern typen vllt mal immer die NEUSESTE version updaten würdet...

Scheint so als hätte 3_of_8 nicht deine Version verbessert. Und somit habe ich auch nicht deine Verbesserungen in meiner Version, weil ich dachte die von 3_of_8 wäre die neueste.
Ich guck mal, dass ich deine Verbesserungen in meine einbaue und somit alle zusammenbringe.

[inherited]

So alles neu in einem v5 (geschätzer wert )
und ab jetzt bitte immer die neuste version zum bearbeiten nehmen!
@ florian^^ hat sich damit erledigt, vllt kann turboPASCAL in seinem ersten beitrag den download RAUSNEHMEN und auf hier inten verweisen(oder irgendn mod)

[turboPASCAL]

@FB

Delphi-Quellcode:

procedure TfrmPcEkg.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  // if Key in ['0'..'9', Chr(VK_BACK)] then Key := #0;
  // oder :
  if Ord(Key) in [0..9, VK_BACK] then Key := #0;
  

//  if (Key <> '0') and (Key <> '1') and (Key <> '2') and (Key <> '3') and
//     (Key <> '4') and (Key <> '5') and (Key <> '6') and (Key <> '7') and
//     (Key <> '8') and (Key <> '9') and (Ord(Key) <> VK_BACK) then
//  Key := #0;
end;

Besser ?

[DGL-luke]

also ich würd da ja noch n dezentes "not" irgendwo einfügen =

[inherited]

lol

geupdatet damitdenkt dran ab jetzt DIESE VERSION nehmen(oder meine aus dem letzten beitrag von mir aus

[turboPASCAL]

Zitat von DGL-luke:

also ich würd da ja noch n dezentes "not" irgendwo einfügen =

Könnte man.

Was mir gerade einfällt, schade das es hier in der DP keinen "Sammelordner" gibt ala CVS wo dann jeder darauf zugreifen kann (Anmelde / Feigabetechnisch). Für die Zusammenarbeit oder so....

Muss man wohl erst vorschlagen.

Ach, worum ich euch bitten möchte, wenn ihr eine neue Version hochladet, macht das immer in dem selben Beitrag und verlinkt dann darauf.

[3_of_8]

Problem: Wir brauchen Transparenz. Also verlustfreie Bilder. GIF wird nur von JEDI unterstützt.

Also BMP, und das ist eindeutig zu groß.

[Zacherl]

Zitat von turboPASCAL:

@FB

Delphi-Quellcode:

procedure TfrmPcEkg.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  // if Key in ['0'..'9', Chr(VK_BACK)] then Key := #0;
  // oder :
  if Ord(Key) in [0..9, VK_BACK] then Key := #0;
  

//  if (Key <> '0') and (Key <> '1') and (Key <> '2') and (Key <> '3') and
//     (Key <> '4') and (Key <> '5') and (Key <> '6') and (Key <> '7') and
//     (Key <> '8') and (Key <> '9') and (Ord(Key) <> VK_BACK) then
//  Key := #0;
end;

Besser ?

Mist. Ich hatte
if Key in [0..9, Chr(VK_BACK)] then Key := #0;
und da hat der Compiler gemeckert. Deswegen hab ich es so umständlich gemacht. Einfach nur die ' vergessen.

Zitat:

Ach, worum ich euch bitten möchte, wenn ihr eine neue Version hochladet, macht das immer in dem selben Beitrag und verlinkt dann darauf.

Ist glaube ich besser, man nimmt immer einen neuen Beitrag, da man als User, der selbst etwas modifizieren will zuerst ganz hinten nach der neusten Version sucht.

[JWeis]

Zitat von inherited:

denkt dran ab jetzt DIESE VERSION nehmen(oder meine aus dem letzten beitrag von mir aus

ich würde nicht diese version nehmen denn da kommp der fehler (siehe anhang!)

[edit]ich glaub dass ich den fehler gefunden habe.

ich benutze d7 pro und kein d 2006 [/edit]

[inherited]

omfg
ok ich kram ma mein altes d7 raus^^