For-Schleifen-Hilfe

  • VBScript

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Marcus Gräfe.

    For-Schleifen-Hilfe

    Hallo,

    bräuchte Hilfe für folgende Schleife.
    Irgendwie bekomme ich diese nicht hin.

    Der Winkel Beta soll ausgegeben werden, sobald das Produkt der beiden Formeln gleich einem vorgegebenem Wert (Zylinderhub) ist.


    For Beta = 0 To 90 Step 0.1
    Hub1 = Sqr((Scherenschenkel / 2) ^ 2 + Abstand ^ 2 - (Scherenschenkel / 2) * 2 * Abstand * Cos(Beta + 2 * Alpha1))
    Hub2 = Sqr((Scherenschenkel / 2) ^ 2 + Abstand ^ 2 - (Scherenschenkel / 2) * 2 * Abstand * Cos(Beta + 2 * Alpha2))
    DeltaHub = Hub2 - Hub1
    If DeltaHub = Zylinderhub Then
    Text8 = Beta
    End If
    Next


    Vielen Dank!
    Nach deiner Beschreibung müsste es so aussehen:

    Visual Basic-Quellcode

    1. For Beta = 0 To 90 Step 0.1
    2. Hub1 = Sqr((Scherenschenkel / 2) ^ 2 + Abstand ^ 2 - (Scherenschenkel / 2) * 2 * Abstand * Cos(Beta + 2 * Alpha1))
    3. Hub2 = Sqr((Scherenschenkel / 2) ^ 2 + Abstand ^ 2 - (Scherenschenkel / 2) * 2 * Abstand * Cos(Beta + 2 * Alpha2))
    4. If (Hub1 * Hub2) = Zylinderhub Then Text8.Text = Beta
    5. Next Beta
    Besucht auch mein anderes Forum:
    Das Amateurfilm-Forum