art eeg mit canvas

[vollmer-net]

Hi,



wie kann ich eine Art EEG mit Canvas zeichnen? Es soll also eine art kurve von Rechts nach Links gehen....

Gruß

Alex

[ibp]

Zitat:

Zitat von vollmer-net

...EEG...

Hi Alex, was meinst Du mit EEG...
- Elektroenzephalogramm, oder
- Erneuerbare-Energien-Gesetz, oder
- ERDGAS ERDÖL GmbH, oder
- Elektronische Geschäftsverkehr-Gesetz, oder
- Eine-ekelige-Grafik, oder
- oder...


[edit]weitere eeg´s zugefügt...[/edit]

[vollmer-net]

Elektroenzephalogramm, oder

[2kstealth]

Also,

wenn du die Formel zur berechnung der Kurwe hast, dann kannst du einfach die Canvas.LineTo und Canvas.MoveTo Funktionen benutzen um die einzelnen Punkte miteinander zu verbinden.
des weiteren gibt es die Möglichkeit dieses Problem mit einer Frunktion namens Canvas.Pixels zu lösen.

Ich schlage vor du wirst ein bischen Konkreter und wir kommen zusammen zur Lösung deines Problems.


cu stealth

P.S.: Wenn möglich füge mal ein Bild an, auf dem Die beschriebene Kurwe abgebildet ist.

[ibp]

..da gibt es keine formel, da die werte aus messungen von der elektrischen aktivität des gehirns kommen.

wie liegen denn die daten vor?

[vollmer-net]

ich hab ja nur gesagt so in der art...es sollte ca so aussehen:

http://www.onlinekosten.de/images/br...s/netmeter.gif

[vollmer-net]

jemand noch ne ahnung....

[bigg]

ich hab mich mal probiert daran. es ist nichts großes und schrecklich programmiert. :-D

[vollmer-net]

Lol, das sieht doch super genial aus, danke schon mal,ich werd mal schauen ob och weiter damit arbeiten kann!

[vollmer-net]

was müsste ich im programmcode noch ändern, das sich die anzeige nur immer um eine stelle verändert?

so eins nach links! dann wieder und wieder und wieder

[Luckie]

@big: das ist aber kein EEG. Da werden ja nur zufällig jede Sekunde neue Balken generiert oder täusche ich mich da?

[vollmer-net]

es soll ja auch eine art eeg werden....bigg's demos ist schon cool...ich würde nur gerne wollen das ich richtige werte einsetzen kann und sich das ganze dann immer von rechts um eine stelle verschiebt und ganz rechts halt der aktuelle wert steht...

jemand ne ahnung?

[Luckie]

Also ein EEG sieht bei mir so aus:

Delphi-Quellcode:

type
  TPTArray = array of TPoint;

var
  Form1: TForm1;
  PTArray: TPTArray;
  Index: Integer = 0;

implementation

{$R *.dfm}

procedure DrawPixel(Canvas: TCanvas; Color: TColor; pt: TPoint);
begin
  Canvas.Pixels[pt.X, pt.Y] := Color;
end;

procedure DeletePixels(Canvas: TCanvas; Color: TColor; ptArray: TPTArray);
var
  i: Integer;
begin
  for i := 0 to length(ptArray) - 1 do
    Canvas.Pixels[ptArray[i].X, ptArray[i].Y] := Color;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled := True;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Setlength(PTArray, Paintbox1.Width);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  pt: TPoint;
begin
  pt.X := Index;
  pt.Y := Paintbox1.height div 2;
  ptArray[Index] := pt;
  DrawPixel(Paintbox1.Canvas, clGreen, pt);
  Inc(Index);
  if Index = length(ptArray) then
  begin
    DeletePixels(Paintbox1.Canvas, clbtnFace, ptArray);
    Index := 0;
  end;
end;

Ein Button, ein Timer und eine Paintbox. Den y-Wert kannst du ja entsprechend variiren.

[vollmer-net]

das ist auch ein schöner effekt, ich suche aber dennoch so wie oben das demo von bigg, nur halt das ich die werte zuweisen kann... und sich das ganze immer nur um eine stelle nach rechts verschiebt

[Luckie]

Dann mach es wie ich mit einem Array.

[vollmer-net]

ich kenne mich mit sowas nicht aus....kann mir nicht jemand helfen? ich weiß noch nicht mal wie ich anfangen soll! das beispiel von big ist ja schon ganz gut. ich denke es müsste doch nur noch abgeändert werden oder?

[bigg]

luckie hat schon recht, du musst ein array anlegen und dann alle einträge nacheinander
von rechts nach links zeichnen. In meinem Beispiel generiere ich alle Einträge neu pro Zeichnung.

Du brauchst doch bloss das Array mit Daten füllen. Die grösse des Arrays hängt von der Breite
des Diagramms ab.

@Luckie
Ja, ein EEG ist es nicht, aber ein schicker langsamer Effekt schon :-D

[vollmer-net]

kann mir da nicht jemand helfen?

[vollmer-net]

was mir probleme macht ist die abstufung in 60 teile u.s.w. und das mit dem nach links verscheieben!

[Tubos]

Ich würde das Array nicht verschieben, sondern stattdessen eine integer-Variable namens Anfang machen, die die aktuelle "ganz-links"-Position speichert.
Beim Zeichnen fängst du bei diesem Wert an, wenn du das Ende des Arrays erreicht hast machst du am Anfang weiter, und zwar solange bis du wieder beim Ende (also Anfang-1) bist.
Wenn du einen neuen Wert einträgst, überschreibst du einfach das Ende (Anfang-1) damit.
Dadurch musst du überhaupt nichts verschieben. Ist IMHO einfacher und natürlich wesentlich schneller.

Tubos

[vollmer-net]

ja aber ich sehe die letzten werte nicht...

[vollmer-net]

aber wie mache ich das jetzt mit dem ganzen

[Luckie]

Was hast du denn schon bisher? Zeig doch mal etwas Code.

[vollmer-net]

nur das von bigg abgeändert...aber ich habs wieder gelöscht weils nicht ging...ich komme einfach nicht weiter...

[bigg]

Schau mal hier vielleicht hilft dir das weiter:
http://www.delphipraxis.net/internal...ct.php?t=39486