-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by akurka,
18. Jan 2016
Hallo Mavarik
Danke für den Kompliment, ich hoffe, dass ich es fertig bringe, habe halt ein bisschen Mühe mit der OOP.
Lauft mir so zu sagen gegen den Strich. Ich habe früher im MSPascal recht viel entwickelt und das kann man nicht so einfach abschütteln.
Um so mehr bin ich immer wieder froh wenn ich mal hier im Forum mit irgendeine
abwegige Ideee aufkreuzen kann. Für Kritik bin ich dann...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by akurka,
17. Jan 2016
Hallo Mavarik
Ja, das ist so, aber ich betreibe es mehr oder weniger als Hobby,
schliesslich darf ich das mit 70+.
Man muss mich also nicht bedauern.
Gruss Anton
PS:die Fliegerei war mal auch mein Hobby, aber das ist schon sehr lange her.
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by akurka,
17. Jan 2016
Hallo Perlsau
Entschuldige, war falsch,ich habe schon Dich gemeint-
Ich habe das AsyncPro darum nicht erwähnt weil ist es im Form1 verwende und zwar in einem
Thread der die Empfangene Meldungen direkt in Globale Variable abspeichert.
Da gibt es in Abständen von 50mS z.Bsp Status.CNC Meldungen und es kommen bis zu 10 Meldungen die genau gleich sind.
Mich interessiert aber nur, wenn sich...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by akurka,
15. Jan 2016
Hallo mitenand,
mit der AsyncPro rennt Ihr offene Türe ein, ich verwende es bereits.
Dirk hat schon recht, dass ich falsche Vorstellung von
den OnChange... Methoden hatte.
Ja nun man lernt nie aus.
Besten Dank für die Unterstützung von Euch allen.
Gruss Anton
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by akurka,
15. Jan 2016
Hallo Dirk
Danke, jetzt ist mir klar, dass ich kein OnChangeValue machen kann.
Bei der CNC wird es schwierig, resp. mit sehr grossem Aufwand verbunden (FPGA Aenderungen).
Aber vielleicht im Empfangs Thread für den COM Port nach jedem MeldungsEmpfang ein Vergleich zu machen und damit den Event auszulösen.
Während dem ein Byte empfangen wird kann man den vorherigen testen.
Mal versuchen.
...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by akurka,
15. Jan 2016
Hallo Mavarik
Entschuldige die späte Antwort. Ich musste nach den ersten Antworten
schnell weg.
Du hast es richtig angesprochen, woher soll der Event kommen ?
Leider bringt es nichts auf Empfang der Meldungen vom RS232 zu triggern.
Der Grund ist, dass es z.Bsp mehrere Status oder Istwert Meldungen die genau gleich sind, also müssen gar nicht berücksichtigt werden.
Du kanst Dir das so...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by akurka,
15. Jan 2016
Hallo TiGü
Besten Dank, das " MeineKlasse.OnvalueChange := Self.OnValueChange;"
hat gefehlt.
Ja mit der Polling, dass ist genau das Problem, das mache ich jetzt schon:
siehe meine vorherige Antwort an Jumpy und an Perlsau.
Wird es punkto Rechenzeit überhaupt etwas bringen mit dem setter, wenn ich den Wert der Variable pollen muss ??
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by akurka,
15. Jan 2016
Hallo Jumpy
Besten Dank für Dein Tipp.
Ja nach der ersten Durchsicht ist es genau das was mir fehlt.
Habe es augedrückt und werde es genau studieren.
Zu Deiner Frage:
Ja es sind mehrere Werte aus den Meldungen die von der CNC über RS232
kommen. Die Wichtigste ist die Status.CNC Meldung(16 Byte,Array) und daraus das ZBETR(BetriebswahlSchalterStellung=BWStellung= 1 Byte).
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by akurka,
15. Jan 2016
Hallo Perlsau
ja ok, ich meine ich habe mein Problem genügend erklärt (siehe Antwort an Dich und Dejan Vu), vollständigkeits halber zitiere ich es noch einmal :
Nun muss ich auch die setter Methode immer wieder aufrufen
was dem Polling eigentlich gleich kommt, ist das nicht so ?
Nun ich verstehe, dass Du genug hast Dich mit OOP Anfänger
zu plagen. Trotzdem vielen Dank für Deine...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by akurka,
14. Jan 2016
ja übrigens das fehlt noch :
TMeineKlasse = class
private
fBWStellung: Integer; //Hier ist der Wert gespeichert
fOnValueChange :TNotifyEvent;
procedure setBWStellung(const value: Integer);
//function getBWStellung:Integer;
public
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by akurka,
14. Jan 2016
Hallo Perlsau
So habe ich die neue Klasse Instanziert, gemäss dem Tutorial :
//====================================================
procedure TForm2.MenueCreate(Sender: TObject);
begin
keypreview:=true;
ActiveImage :=Image1;
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by akurka,
14. Jan 2016
Hallo TiGü
Entschuldige, aber mir ist nicht ganz klar welche Stelle in meinem Programm sehen willst ?
Soll ich Dir die ganze Unit senden ?
Gruss Anton
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by akurka,
14. Jan 2016
Hallo
jetzt läuft es durch den Compiler auch durch. Es ist jetzt auch klar warum es immer ein Fehler bei der Compilation gab.
Property BWStellung :Integer read getBWStellung write SetBWStellung;
Wenn es in der Zeile das " read getBWstellung" gibt, ist natürlich auch die Funktion
"getBWStellung" notwendig. Ersetzt man dagegen das
read getBWStellung durch read fBWStellung kann man die...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by akurka,
14. Jan 2016
Hallo mitenand
Beitrag von Perlsau:
genau das habe ich auch probiert aber mit oder ohne "f" die Fehlermeldung
ist immer die Gleiche.
Auch das mit Ctrl-Shift-C funktioniert nicht.
Ich fürchte das Problem liegt tatsächlich an meiner alte Delphi version.
Ja nun was tun ?
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by akurka,
13. Jan 2016
Hallo Perlsau
Tut mir leid dass ich Dich nochmal beanspruche aber es haut nicht.
Muss man für die Setter Deklaration immer eigene Klasse deklarieren
oder kann ich auch bestehende nehmen ? Ich habe beides probiert
aber ohne Erfolg. Was mache ich falsch ?
unit menueREF;
interface
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by akurka,
13. Jan 2016
Hallo Perlsau
Leider klappt es bereits bei der Deklaration nicht :
unit menueREF;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by akurka,
13. Jan 2016
Hallo
Vielen vielen Dank für die ausführliche Erklärung.
Es ist sehr gut erklärt, soweit habe ich es verstanden.
Ich hatte die überwachte Werte bisher über mehrere Timer überwacht was im prinzip einem Polling gleichkommt, und natürlich auch dem Windows Prinzip wiederspricht.
Jetzt werde ich mein Programm entsprechend umstellen, ich schreibe Dir
dann ob es klappt.
Besten Dank und ein...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by akurka,
13. Jan 2016
Hallo, danke für die beiden Beiträge.
Was den Setter anbelangt verstehe ich es nicht ganz, der Wert den ich überwachen will kommt von aussen, d.h es wird in meinem Programm gar nicht
verändert resp. gesetzt.
Im meinem Programm wird das Wert nur gelesen.
Ich meinte Setter bedeutet setzen eines bestehenden
Wertes und wenn es ungültig ist dann eine Exception auslösen. Verstehe ich es...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by akurka,
13. Jan 2016
Hallo
Ich suche eine Komponente die bei ànderung einer Variable (Externe Eingangswert) einen Event auslöst. Etwa in der Art : OnChangeValue.
Ich habe überall danach gesucht aber niergens gefunden.
Muss ich dann eine eigene Komponente schreiben ?