Autor Beitrag
CASS
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 160

WIN XP
D7 Enterprise
BeitragVerfasst: Mi 11.01.06 13:18 
Hallo Leute,

wollte in eins meiner Programme eine Art Oszilloskop einbinden. In der JVCL hab ich dann die Komponente TJvSimScope gefunden. Sieht genau nach dem aus was ich brauche.

Leider kapier ich einfach nicht, wie ich jetzt eine Laufende Linie hinbekomme. Gemessen werden soll der Stromausgang eines Gerätes in Abhängigkeit zur Zeit. Ich bekomme also z. B. alle 5 sec. die Ausgangsspannung von dem Gerät, diese möchte ich dann in das SimScope eintragen, so dass sich dann eine Kurve ergibt.

2. Frage:
Kann ich beim SimScope noch zusätzlich eine Art Soll-Linie einblenden? So das ich die Abweichung der Kurve von der Soll-Linie sehe?

Danke schon im Voraus,

Grüße
Cass
Fighter#1
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 787

Win XP, Ubuntu 8.04
Turbo Delphi 2006, Delphi 2005 Pe, Delphi 5 Pe, Netbeans 6.1, Eclipse, Microsoft VisualC#, Dev C++, PHP, HTML, CSS
BeitragVerfasst: Mo 13.02.06 21:02 
Hatte das selbe Problem, hier die Lösung:

ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
Anzeige.Active:=True;
Anzeige.Interval:=10;
Anzeige.BaseLine:=0;
Anzeige.Lines.Add;
Anzeige.Lines.Lines[0].Color:=clRed;
Anzeige.Lines.Add;
Anzeige.Lines.Lines[1].Position:=50;

jetzt ist eine Grüne Linie in der Mitte.
Um die andere Linie anzusprechen (zum Beispiel in nem Timer einfach)
Anzeige.Lines.Lines[0].Position:=ZAHL;

_________________
Wer andere beherrscht ist stark,
wer sich selbst beherrscht ist mächtig. Lao Tse
Soularium
Hält's aus hier
Beiträge: 9



BeitragVerfasst: Mi 14.06.06 11:12 
Ich habe mich auch mal dran gewagt an das JvSimScope,aber ich bekomm gar nichts zum laufen!
Bekomme nur Fehlermeldungen!Ich habe jetzt schon über eine Stunde "Gegoogelt" und nichts gefunden.....leider.

Kann mir jemand vielleicht Grundlegende Syntax vom JvSimScope schreiben oder gar ein Bsp.Quelltext nachdem ich mich orientieren kann?wäre echt super!


Danke im Vorraus!
jasocul
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 6395
Erhaltene Danke: 149

Windows 7 + Windows 10
Sydney Prof + CE
BeitragVerfasst: Mi 14.06.06 11:21 
user profile iconSoularium hat folgendes geschrieben:
Ich habe mich auch mal dran gewagt an das JvSimScope,aber ich bekomm gar nichts zum laufen!
Bekomme nur Fehlermeldungen!

Ich kenne mich mit der Komponente nicht aus, aber für alle anderen wäre es bestimmt hilfreich, welche Fehlermeldungen du bekommst. :wink:
Soularium
Hält's aus hier
Beiträge: 9



BeitragVerfasst: Mi 14.06.06 11:46 
Die hüfigste Meldung ist:

Record,Objekt oder Klassentyp erforderlich
Fighter#1
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 787

Win XP, Ubuntu 8.04
Turbo Delphi 2006, Delphi 2005 Pe, Delphi 5 Pe, Netbeans 6.1, Eclipse, Microsoft VisualC#, Dev C++, PHP, HTML, CSS
BeitragVerfasst: Mi 14.06.06 11:50 
dann schick uns bitte code,
meiner oben funktioniert, hab das problem ja so gelöst...

_________________
Wer andere beherrscht ist stark,
wer sich selbst beherrscht ist mächtig. Lao Tse
FiceGoesDelphi
ontopic starontopic starontopic starontopic starontopic starofftopic starofftopic starofftopic star
Beiträge: 485

Win XP Prof
Delphi 2006
BeitragVerfasst: Do 17.01.08 08:56 
Moin!

Ja ich weiß, dieser Thread ist ein wenig älter :lol:
Aber ich habe auch ein Problem mit der Komponente.
Ich habe jetzt einfach mal deinen Code genommen und in einer OnClick Procedure eingebaut.
Wenn ich den Button nun klicke, kommt die Fehlermeldung:

Zitat:

Erste Gelegenheit für Exception bei $7C812A5B. Exception-Klasse EZeroDivide mit Meldung 'Gleitkommadivision durch Null'. Prozess SimScope1.exe (2208)


Ich verstehe aber jetzt absolut nicht, wo der etwas durch 0 teilen will :shock: :?:

ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
procedure TForm2.Button1Click(Sender: TObject);
var
   Anzeige: TJvSimScope;
begin
   JvSimScope.TJvScopeLines.Create( Anzeige );

   Anzeige.Active:=True;
   Anzeige.Interval:=10;
   Anzeige.BaseLine:=0;
   Anzeige.Lines.Add;
   Anzeige.Lines.Lines[0].Color:=clRed;
   Anzeige.Lines.Add;
   Anzeige.Lines.Lines[1].Position:=50;

   Anzeige.Lines.Lines[0].Position:=58;
end;


Den Code habe ich bisher. Ich habe das "Create" auch schonmal auskommentiert und es kommt der gleiche Fehler. Ich habe in irgendeinem Forum oder so gelesen, dass ich erst so ein Create aufruden muss. Wo liegt der Fehler?
Mein Ziel ist es, verschiedene Werte zu beziehen und diese dann dort Anzeigen zu lassen. Wie kann ich das am besten verwirklichen? Ist dafür ein Timer wirklich nötig? Wenn ich die Komponente richtig verstanden habe, ist da doch schon ein Timer eingebaut oder?

LG

Moderiert von user profile iconmatze: Code- durch Delphi-Tags ersetzt

_________________
<(^^<) <(^^)> (>^^)>
===================