StatusLCD

[iaby]

hallo zusammen,

wie versprochen hier mein StatusLCD prog.
es stellt system informationen auf der Form sowie auf einem externen LCD display dar.
dazu muss das display an den IOWarrior24 (wohl auch 40 !?) von CodeMercenaries angeschlossen sein.
es wurde für ein 16x2 character display geschrieben, ist aber kein problem es auch mit anderen LCDs zu betreiben.
geschrieben wurde es in Delphi7 personal.
es müssen noch die HID-Komponenten installiert werden, die im SDK vom IOWarrior liegen

für den aufbau der kompletten elektronischen schaltung gebe ich gerne ratschläge!

würde mich über kritik und verbesserungsvorschläge freuen!

gruss,
iaby

PS: ich weiß dass ich einen komischen programmierstil habe ;-)
das prog wurde noch nicht mit einem Intel CPU getestet!
kann also sein, das die CPU infos nicht 100%ig angezeigt werden!

den IOWarrior24 und platine findet man auch hier: http://www.emedia.de/@93B33fNmMVSi/bin/hw.pl
oben rechts unter "projekt"-> USB I/O Interface

[S2B]

Du könntest vielleicht noch das BorderStyle auf bsNone setzen, dann sieht es noch besser aus!
Sonst ist das Programm ganz nützlich! :thuimb:

Edit: Das Verschieben kannst du dann mit dem machen:

Delphi-Quellcode:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  SendMessage(Form1.Handle, WM_SYSCOMMAND, $F012, 0);
end;

[alanblack]

Hi,

also wenn ich das prog öffnen will kommt eine Meldung dass es nicht geöffnet werden kann. Und dann hängt sich mein Rechner fast total auf :(

[fkerber]

HI!

Danke für das Prog.


Ciao fkerber

[Nicodius]

alanblack: das liegt daran das du nicht so ein Teil hast wahrscheinlich :mrgreen:

[fkerber]

HI!

Nein, es geht auch ohne so "ein Teil"

Ciao fkerber

[iaby]

ja, sollte eigentlich auch ohne so ein "teil" gehen!
plug&plug funktioniert bei mir perfekt.

kannst du die meldung mal posten, oder starte das program aus delphi heraus!

[Robert Marquardt]

Als Oberaufseher eh Autor der HID-Komponente werde ich eine Kritik schreiben. :-)

[Robert Marquardt]

Es sind nur einige kleinere Fehler im Programm.

Der IOWarrior40 wird nicht erkannt, da die PID nicht abgefragt wird.
Das habe ich nachgeruestet und es funktioniert (ich habe einen IOWarrior40 mit 16x2 LCD).

Der Thread ist nicht korrekt implementiert.
Die Schleife sollte "while not Terminated do" lauten.
Das ist das Standardverfahren fuer Threads.

Ich habe ine ueberarbeitete Source.
iaby, sprich mich direkt an und ich schicke sie dir.

[Matze]

Zitat:

Zitat von Robert Marquardt

Ich habe ine ueberarbeitete Source.
iaby, sprich mich direkt an und ich schicke sie dir.

:hi: Robert, ist ja echt nett, dass du den Code verbessert hast, wie wär's, wenn du uns alle an deinem Wissen/Code teilhaben lässt. ;)

Ich denke, gerade so sieht man, wie man Dinge besser machen kann. Aber wenn nicht, dann ist es auch nicht so tragisch. ;)


@iaby: Auch von mir ein Dankeschön! :thumb:

[toms]

Zitat:

Zitat von Robert Marquardt

Es sind nur einige kleinere Fehler im Programm.
Ich habe ine ueberarbeitete Source.
iaby, sprich mich direkt an und ich schicke sie dir.

iaby wird ihn dann sicher ins Forum posten!

[Robert Marquardt]

Matze, ich verstehe es als Basishoeflichkeit zuerst dem Autor die Gelegenheit zu geben die Veraenderungen zu pruefen.
Ausserdem gibt es dann nur eine Download-Moeglichkeit und ich habe nur ein 56K Modem und keine Website.

Uebrigens habe ich fuer mich eine Service-Applikation geschrieben, die auf das Display ausgibt.

[Matze]

Zitat:

Zitat von Robert Marquardt

Matze, ich verstehe es als Basishoeflichkeit zuerst dem Autor die Gelegenheit zu geben die Veraenderungen zu pruefen.
Ausserdem gibt es dann nur eine Download-Moeglichkeit und ich habe nur ein 56K Modem und keine Website.

Uebrigens habe ich fuer mich eine Service-Applikation geschrieben, die auf das Display ausgibt.

Hey, ist ja gut...

[iaby]

so, ich habe jetzt den neuen source im anhang!

verbessert wurde:
-geänbertes design (BorderStyle = bsToolWindow)
-unterstützt nun IOW40 und IOW24 (grosses dankeschön an Robert M.)
-thread nun richtig implementiert (nochmals dankeschön an Robert M.)
-einige kleinere veränderungen
-sollte nun alle/viele LCD größen unterstützen (16x2, 20x2, 20x4, ...)

konnte dies noch nicht ausprobieren, da ich nur ein 16x2 LCD habe.
vielleicht hat von euch jemand ja ein anderes und kann es testen !?

um das prog euerem LCD anzupassen müsst ihr die konstanten cMaxChar und cMaxLines
anpassen.
wenn euer FTP auch online sein soll, dann müsst ihr noch im ThreadReadStatus.execute
die entsprechenden einträge anpassen, bis jetzt reagiert das prog nur auf
den "filezilla server.exe". genauso verfahrt ihr auch bei der firewall und dem HTTP-
server

gruss,
iaby

[supermuckl]

http://www.jalcds.de/

[klaus.meyer]

Ich würde noch eine Funktion einbauen, dass das Programm in die TNA geschickt werden kann.

Ich kann es nicht machen, da mit irgendeine Komponente Fehlt.

[Luckie]

Was bedeuted
RAM: 223MB/1GB? Ist soviel noch frei oder belegt?
Das gleiche bei der Festplatte. Und welche Festplatte ist es? ich habe mehrere Partitionen.

Du zeigts die IP, die ich vom Routers bekommen habe, an. Ist das so gedacht?

Was bedeutet: FTP, HTTP und Firewall offline? FTP Client hab eich zur Zeit nicht an, das könnte stimmen. Aber wie überprüfst du das mit dem Firewall und warum bin ich per HTTP offline? Ich habe gerade einen Brwoser geöffnet.

[Torpedo]

Da kann was nicht stimmen ;)
Außerdem habe ich 512 MB RAM.

[Luckie]

Rundungsfehler.

[Robert Marquardt]

Ich bin inzwischen Code Mercenaries-Angestellter und habe DSL.
Einer meiner naechsten Jobs wird es sein, eine LCD-Ansteuerungs-DLL zu machen.

Da sammle ich noch Ideen.
Bisher habe ich Fortschrittsbalken (quer) und Equalizer-Balken (senkrecht).