Kleines rechnen problem

[EWeiss]

Zitat:

Zitat von BUG (Beitrag 1098925)

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

[Aphton]

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:

Delphi-Quellcode:

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

[EWeiss]

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. :wall:
Hab schon alles versucht zumal da es ja auch negativ werte gibt wenn die scrollbar nach links gescrollt wird.

gruss

[rainerg]

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.

[Aphton]

Das dürfte helfen...

[EWeiss]

Zitat:

Zitat von Aphton (Beitrag 1098930)

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

[Aphton]

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...

[EWeiss]

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

[Aphton]

Nicht der Rede wert =P

[EWeiss]

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