AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Kleines rechnen problem

Ein Thema von EWeiss · begonnen am 4. Mai 2011 · letzter Beitrag vom 5. Mai 2011
Antwort Antwort
Seite 2 von 3     12 3   
EWeiss
(Gast)

n/a Beiträge
 
#11

AW: Kleines rechnen problem

  Alt 5. Mai 2011, 00:42
Du könntest für jeden Regler die Position relativ zum Masterregler speichern und dabei aufpassen, das die absoluten Werten im gewünschten Bereich bleiben.
Das tue ich ja schon in den propertys des Controlls selbst.
Allerdings im Speicher nicht in eine Datei.
Das würde aber auch nichts ändern. Ob Datei oder Speicher.. bleibt das gleiche.

Ich möchte erreichen das alle MidiSpuren gleichzeit abhängig von ihrer aktuelle position
mit dem MasterRegler in der Lautstärke verändert werden.

gruss

Geändert von EWeiss ( 5. Mai 2011 um 00:45 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Aphton
Aphton

Registriert seit: 31. Mai 2009
1.198 Beiträge
 
Turbo Delphi für Win32
 
#12

AW: Kleines rechnen problem

  Alt 5. Mai 2011, 00:47
Ich glaube, ich verstehe so langsam, worauf du hinaus willst.

Du willst bei allen Reglern eine Inkrementierung bzw. Dekrementierung mit der Differenz des geänderten Wertes des Masterreglers und des ursprünglichen Wertes machen.
Boah, ist schon schwer zum Ausdrücken xD

Also dann ist dein Fehler hier:
TempVal := SKAERO_GetTrackValue(SKAERO_GetMainItem(MainHandle, wp)); TempVal muss die Differenz des neuen und des alten Wertes sein.
Also du musst den alten Wert vom Masterregler merken - sofern eine Änderung momentan stattfindet am Regler und sobald sich der Regler nicht mehr ändert, diesen neuen Wert- des gemerkten Wertes ist dein TempVal
das Erkennen beginnt, wenn der Erkennende vom zu Erkennenden Abstand nimmt
MfG
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#13

AW: Kleines rechnen problem

  Alt 5. Mai 2011, 00:51
Zitat:
Du willst bei allen Reglern eine Inkrementierung bzw. Dekrementierung mit der Differenz des geänderten Wertes des Masterreglers und des ursprünglichen Wertes machen.
Korrekt..
Unter der berücksichtigung das der wert 0 von der niedrigsten Value Volume[IntI] nicht unterschritten wird
Das selbe mit der höchsten Value 100 nie überschritten wird.
Muss dann quasi rausspringen wenn eine der Regler 0 bzw. 100 erreicht hat.

Ist wirklich schwer rüber zu bringen

Also mit meiner Berechnung hapert es da ein bißchen.
Hab schon alles versucht zumal da es ja auch negativ werte gibt wenn die scrollbar nach links gescrollt wird.

gruss

Geändert von EWeiss ( 5. Mai 2011 um 00:55 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von rainerg
rainerg

Registriert seit: 5. Aug 2002
Ort: Hannover
82 Beiträge
 
Delphi XE Starter
 
#14

AW: Kleines rechnen problem

  Alt 5. Mai 2011, 00:53
Verwalte die Werte für die Trabkbars in einem Array. Dort dürfen die Werte größer als 100 oder kleiner als 0 werden. In Abhängigkeit vom Masteregler kannst du die anderen Werte dann steuern.

Berechne die Veränderung des Masterreglers zur alten Position (der wird dann positiv oder negativ sein) diesen Wert addierst (Minuswert ist ja dann logischerweise praktisch eine Subtraktion) du dann auf die einzelnen Regler.
Danach kannst du die Werte auf die Trackbar übertragen, legst aber vorher fest (z. B. über Min/Max), wie mit den Werten größer 100 und kleiner 0 umgegangen werden soll. So gehen die eigentlichen Reglerwerte nicht verloren.
Bewegst du eine der anderen Trackbars, also nicht den Master, musst du dessen Position in das entsprechende Arrayfeld übertragen, da du diesen Regler ja jetzt einzeln manipuliert hast.

Eine etwas andere Variante wäre, die Positionen der Trackbars relativ zum Masterregler im Array zu speichern.

Das Entscheidende ist, die Reglerposition nicht über die Trackbar direkt zu manipulieren.
Rainer G. aus H.
www.BunteReisebilder.de
  Mit Zitat antworten Zitat
Benutzerbild von Aphton
Aphton

Registriert seit: 31. Mai 2009
1.198 Beiträge
 
Turbo Delphi für Win32
 
#15

AW: Kleines rechnen problem

  Alt 5. Mai 2011, 01:00
Das dürfte helfen...
Angehängte Dateien
Dateityp: zip Blub.zip (203,2 KB, 1x aufgerufen)
Dateityp: zip Blub-src.zip (5,0 KB, 3x aufgerufen)
das Erkennen beginnt, wenn der Erkennende vom zu Erkennenden Abstand nimmt
MfG
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#16

AW: Kleines rechnen problem

  Alt 5. Mai 2011, 01:03
Das dürfte helfen...
Danke werde es mal anschauen..

Delphi-Quellcode:
        ID_TRACK_MASTERVOL:
        begin
          for IntI := 0 to 15 do
          begin
            OldVolVal := Volume[IntI];
            TempVal := SKAERO_GetTrackValue(SKAERO_GetMainItem(MainHandle, wp)) - OldVolVal;
            Volume[IntI] := Min(Volume[IntI] + TempVal, 100);
            SKAERO_SetTrackValue(SKAERO_GetMainItem(MainHandle, ID_VOLUME_FIRST + IntI), Volume[IntI]);
          end;
        end;
Wenn Volume[0]; einen wert von 67 hat kommt bei mir
TempVal = -22 heraus

Das ist dann schon der erste Fehler
Volume[0]; springt dann auf seinen ursprünglichen wert zurück.

EDIT:
Dein Beispiel geht nicht(geht schon)
Aber! da die anderen Regler alle nachziehen bis sie ebenfalls Hundert bzw. 0 erreicht haben.
Das dürfen sie aber nicht

Bei Hundert müssen alle anderen dann auf ihre aktuellen Position stehen bleiben.

gruss

Geändert von EWeiss ( 5. Mai 2011 um 01:06 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Aphton
Aphton

Registriert seit: 31. Mai 2009
1.198 Beiträge
 
Turbo Delphi für Win32
 
#17

AW: Kleines rechnen problem

  Alt 5. Mai 2011, 01:17
Bei hundert?
Für welchen Regler gilt das, Masterregler oder für alle?

Falls es für alle ist - heißt das, dass kein Regler mehr inkrementiert werden darf, wenn schon eines 100 erreicht hat?
Falls das so ist, müsste da eig. nur eine kleine Abfrage und zwar, ob alle Regler < 100 und > 0 sind.

Pass mal im Sourceode folgendes an:

Delphi-Quellcode:
procedure TForm1.MasterChange(Sender: TObject);
var
  Difference: Integer;
  i: Integer;
  t: TTrackbar;
begin
  Difference := Master.Position - oldMasterPosition;
  oldMasterPosition := Master.Position;

  for i := 1 to 5 do
  begin
    t := FindComponent('Trackbar' + IntToStr(i)) as TTrackbar;
    if Sign(Difference) = 1 then
    begin
      if t.Position = 100 then
        Abort;
    end else
      if t.Position = 0 then
        Abort;
  end;

  // alle 5 trackbars durchgehen und den neuen wert anwenden
  for i := 1 to 5 do
  begin
    t := FindComponent('Trackbar' + IntToStr(i)) as TTrackbar;
    t.Position := Max(Min(t.Position + Difference, 100), 0);
  end;
end;
Dürfte dann so aussehen...
Angehängte Dateien
Dateityp: zip blub.zip (203,2 KB, 1x aufgerufen)
das Erkennen beginnt, wenn der Erkennende vom zu Erkennenden Abstand nimmt
MfG

Geändert von Aphton ( 5. Mai 2011 um 01:22 Uhr)
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#18

AW: Kleines rechnen problem

  Alt 5. Mai 2011, 01:20
Zitat:
Falls es für alle ist - heißt das, dass kein Regler mehr inkrementiert werden darf, wenn schon eines 100 erreicht hat?
Ja so meine ich das dass gleiche bei 0

Danke für deine hilfe

gruss
  Mit Zitat antworten Zitat
Benutzerbild von Aphton
Aphton

Registriert seit: 31. Mai 2009
1.198 Beiträge
 
Turbo Delphi für Win32
 
#19

AW: Kleines rechnen problem

  Alt 5. Mai 2011, 01:22
Nicht der Rede wert =P
das Erkennen beginnt, wenn der Erkennende vom zu Erkennenden Abstand nimmt
MfG
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#20

AW: Kleines rechnen problem

  Alt 5. Mai 2011, 01:24
So ist das schon fast wie es sein sollte.
Nochmal Danke

Jetzt fehlt mir nur noch das der Masterregeler ebenfalls auf Hundert stehen muss
wenn eines der Regler Hundert bzw. 0 erreicht hat.

Dann wäre es perfekt.

gruss
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 03:36 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz