TJvDigits von JVCL

[Vader]

hallo,

möchte gerne was mit der komponente TJvDigits von JVCL programmieren, wie kann man da zb. ein zahl nach oben zählen lassen ?

mfg vader

[s.h.a.r.k]

Hey.

Das ganz musst du so machen:

Delphi-Quellcode:

procedure TForm1.IncrementDigitCounter;
var
  i : Double;
begin
  i := JvgDigits1.Value;
  i := i + 1;
  JvgDigits1.Value := i;
end;

mfg shark

[Vader]

hallo,

danke werd's probieren !
mfg vader

[jbg]

Wofür die Hilfsvariable i ?

Delphi-Quellcode:

procedure TForm1.IncrementDigitCounter;
begin
  JvgDigits1.Value := JvgDigits1.Value + 1;
end;

[fkerber]

Hi!

Oder so:

Delphi-Quellcode:

procedure TForm1.IncrementDigitCounter; 
begin 
  inc(JvgDigits1.Value)
end;

Ciao Frederic

[Khabarakh]

Zitat:

Zitat von fkerber

Hi!

Oder so:

Delphi-Quellcode:

procedure TForm1.IncrementDigitCounter; 
begin 
  inc(JvgDigits1.Value)
end;

Ciao Frederic

Würde mich wundern, wenn Value keine Property ist :wink: .
*diekomponentesuch*

[fkerber]

HI!

Kenne die Kompo nicht, aber du hast Recht, es sieht danach aus, als wärs ne Value, dann haut das nicht hin...


Ciao Frederic

[ManuMF]

Habs überprüft:

Inc funktioniert nicht,
Dig.Value := Dig.Value + 1 funktioniert.

Gruß,
ManuMF

[Vader]

hallo,

ich möchte jetzt die uhrzeit anzeigen lassen,
habs so probiert aber ohne erfolg !

Delphi-Quellcode:

JvgDigits2.Value:=timetostr(time);

mfg vader

[fkerber]

Hi!

Erwartet Value nicht nen Integer? Und du weißt ihm einen String zu?
Du musst die Uhrzeit wohl vorher zerlegen...

Ciao Frederic

[ManuMF]

Das geht sowieso nicht so ganz:
Die Uhrzeit hat das Format xx:xx:xx (als String), und die JvDigits wollen eine Kommazahl (xx,xx).
Ich glaube, bei "15,75 Uhr" weiß nicht gleich jeder, dass es viertel vor vier ist... ;-)

Probiers mal mit JvSegmentedLEDDisplay (JvHMI).

Gruß,
ManuMF

[Vader]

hallo ManuMF,

kannst du mir nicht einen code posten mit "JvSegmentedLEDDisplay", wie man da
eine uhrzeit realisieren könnte, das fehlt mir noch bei meinem programm als optisches highligt !!

mfg vader

[Vader]

hallo,

noch eine frage: hab die jedis installiert, gibt's es eine deutsche hilfe zu den komponenten ?
mfg vader

[ManuMF]

Deutsche Hilfe gibt es glaube ich nicht...

aber es ist recht einfach:
Erstelle dir 8 Digits (Rechtklick im OI -> Add Digit). Beim 3. und 6. stellst du UseColon auf scuColonOnly. Das heißt, die Digits sind nur ein Doppelpunkt.
Dann, z. B. per Timer: JvSegmentedLEDDisplay.Text := TimeToStr(Time) oder wie auch immer. Nur solltest du darauf achten, dass der String, den du übergibst, immer zu den Doppelpunkten in den Digits passt. ODER: Du stellst alle Digits auf scuFull, dann kann theoretisch nichts passieren.

Gruß,
ManuMF

[Vader]

hallo ManuMF,

du schreibst 8 digts, sind das 8 JvSegmentedLEDDisplay ?
weil ich finde die eigenschaften "UseColon und scuFull" nicht ?

mfg vader

[ManuMF]

Hallo,

Zitat:

Zitat von ManuMF

Erstelle dir 8 Digits (Rechtklick im OI -> Add Digit).

Rechtsklick auf JvS.L.Display. Die Eigenschaften haben dann die einzelnen Digits.

Gruß,
ManuMF

[Vader]

hallo,

danke das mit den eigenschaften habe ich geschnallt, aber wie soll ich die zeit
auf die 8 digts verteilen, so geht nicht

Delphi-Quellcode:

JvSegmentedLEDDisplay1.Text := TimeToStr(Time)
JvSegmentedLEDDisplay2.Text := TimeToStr(Time)
JvSegmentedLEDDisplay3.Text := TimeToStr(Time)
...usw ???

mfg vader

[Vader]

hallo,
hat irgend wer eine idee wie man das lösen könnte ?
mfg vader

[ManuMF]

Zitat:

Zitat von ManuMF

per Timer:

Delphi-Quellcode:

JvSegmentedLEDDisplay.Text := TimeToStr(Time);

Das würde, wenn der Timer das Intervall 1000 oder kleiner (wobei das so reichen sollte) hat, die aktuelle Zeit anzeigen.

Gruß,
ManuMF

[Vader]

hallo,ManuMF

ich steh glaube ich auf der leitung, muß ich jetzt 8 JvSegmentedLEDDisplay auf die form setzten ?
weil ich habe 8 JvSegmentedLEDDisplay kompo auf der form und wenn ich deinen code in den timer
schreibe kommt diese fehlermeldung

Delphi-Quellcode:

[Fehler] Unit1.pas(36): E2003 Undefinierter Bezeichner: 'Text'

mfg vader

[ManuMF]

Zitat:

Zitat von ManuMF

Erstelle dir 8 Digits (Rechtklick im OI auf JvS.L.Display -> Add Digit).

Ich habs doch schon geschrieben ;-)

Erstelle ein JvSegmentedLEDDisplay. Im OI klicke rechts drauf und dann auf "Add Digit" (siehe Anhang 1).
Für das Digit wähle UseColon = scFull aus (siehe Anhang 2). Das ganze dann 8 mal.

Jetzt kannst du einen Timer verwenden:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  JvSegmentedLEDDisplay1.Text := TimeToStr(Time);
end;

Das war's :mrgreen:

Gruß,
ManuMF

[Vader]

hallo ManuMF,

schwere geburt,aber jetzt hab ich's , damke nochmal !
mfg vader

[ManuMF]

Kein Problem, dafür ist das Forum ja da...

Gruß,
ManuMF