solange $_sw >= 0

**Alina**

Moin Moin.
Erst einmal: mir viel nach dieser Nacht kein besserer Titel ein.

Mein Vorhaben:
Es gibt einen Startwert der hier mal 80 ist.

$_sw = 80

Solange $_sw >= 0 dann soll er folgende 3-Prüfungen durchführen:

1.) Ist $_sw >= 2 dann: a) $_sw - 2 und das Ergebnis, den neuen $_sw in die Colsole ausgeben (Ausgabe: "80 -2 = 78").
2.) Ist $_sw >= 1 dann: a) $_sw - 1 und das Ergebnis, den neuen $_sw in die Colsole ausgeben (Ausgabe: "78 -1 = 77").
3.) Ist $_sw >= 4 dann: a) $_sw - 4 und das Ergebnis, den neuen $_sw in die Colsole ausgeben. (Ausgabe: "77 -4 = 73").

Wenn ich es mal schnell im müden Kopf durchrechne sind das: (80/(2+1+4)) = 11 Komplette Durchläufe und beim nächsten durchlauf ist die 3. Pürfung nicht mehr moglich.
Das sind dann 36 Werte später in der Consolenausgabe, wenn ich den $_sw = 80 mit rechne. Oder?

Nur wie das ganze nun in eine Sinnvolle Schleife packen. Später werde ich es dann sicherlich noch erweitern müssen, da es bis zu acht Prüfungen geben kann, wobei dann auch der Startwert shöher ist.

Nun bin ich mal gesapnnt ob mich "wer" verstanden hat oder ob es eher die wird.

Peter S. Taler · *Ab 19-10-22 ergänzt um:*

Guten Morgen Alina,
sonntags um diese Zeit scheinen nur ganz verückte zu programieren......

Was bitte wird das schon wieder? Ein typischer Alina?

Spass beiseite - ich bi nicht so der Typ für ausgefallene Schleifen. Aber vom Ansatz her würde ich das "handwerklich" lösen. Einige geschachtelte if then else Schleifen - aber sozusagen von hinten beginnend.

Ich unterstelle (wenn Raupi das Ding schon gemacht hat) du kennst Deine Bedingungen...

Im vorliegenden Fall bedeutet das die Frage die den ersten Durchgang lößt =

80-7 > 4 wenn ja Schleife durchlaufen wenn nein untersuchen ob die einzelschritte möglich sind.

Ich habe allerdings keinen Plan was da bei sehr großen Zahlen passiert.
Aber im Forum gibt es ja den einen oder anderen der "Tempo Schleifen" zu seinem "Hobby" gemacht hat.

Was bitte wird das?

Gruß
Peter.

Ps.: Heute morgen Böen bis 9 - kein Winter sondern Früjahrsstürme

**Andy**

Den Inhalt dieses LINKS sollte man pinnen und vor jedem Threaderstellen mindestens 5x bestätigen lassen!

Peter S. Taler · *Ab 19-10-22 ergänzt um:*

Andy wieder - so streng mit Alina?

Gruß

Peter

Ps: Da brauchen wir ja die nichtmehr...

**Oscar**

Naja, er hat schon recht!
Die Bedingungen/Prüfungen, die Alina aufgeschrieben hat sind ja u.U. alle zutreffend (bei $_sw >= 4) und dann kommt es vielleicht auch auf die Reihenfolge der Prüfungen an.
Hier wäre es also besser, etwas mehr über den Hintergrund zu erfahren, um wirklich helfen zu können.

**Alina**

Ich habe es selber geschafft.

Sieht nun so aus und statt in die Console, gibt es Text in der MsgBox.

AutoIt

;Startwert setzen
Global $_sw = 81


; Anzahl der Schleifen berechnen
$_schleifen = Ceiling($_sw / 7)


; Nur zur Info beim scripten
MsgBox(0, "Benötigte Schleifendurchgänge",$_schleifen & " Schleifendurchgänge werden benötigt.")


; Schleife
For $i = $_schleifen To 0 Step -1
	if $_sw = 0 Then ExitLoop


; 1. Prüfung: ist $_sw >= 2
	if $_sw >= 2 Then
		$_sw= ($_sw-2)
			MsgBox(0, "-2", "noch offene Durchgäng: " & $i & ". Der Restwert ist: " & $_sw)
		EndIf


; 2. Prüfung: ist $_sw >= 1
	if $_sw >=1 Then
		$_sw= ($_sw-1)
			MsgBox(0, "-1", "noch offene Durchgäng: " & $i & ". Der Restwert ist: " &  $_sw)
		EndIf


; 3. Prüfung: ist $_sw >= 4
	if $_sw >=4 Then
		$_sw= ($_sw-4)
			MsgBox(0, "-4", "noch offene Durchgäng: " & $i & ". Der Restwert ist: " &  $_sw)
	EndIf


Next

Alles anzeigen

Peter S. Taler · *Ab 19-10-22 ergänzt um:*

Schon klar - aber Sie denkt manchmal wohl irgendwie Quer.

Also auf ein Neues.

Alina wir verstehen Dich nicht - hilf uns Dir zu helfen

LG

Peter

**Alina**

Ich habe die Lsg. gerade gaaaanz kurz vor Dir gepostet.

**Oscar**

Jetzt kennen wir die Lösung, wissen aber nicht wofür das die Lösung ist.

**Alina**

-2 heißt 2 vom $_sw abziehen und 2 Tage weiter im Kalender springen.
-1 heißt 1 vom $_sw abziehen und 1 Tag weiter im Kalender springen.
-4 heißt 4 vom $_sw abziehen und 4 Tage weiter im Kalender springe.
Und nach jedem dem Springen etwas im Kalender eintragen als Widerholungstermin.

Termin ist also am Tag x und danach nach zwei Tagen, danach nach einem Tag, danach
nach vier Tagen, und dann wieder von vorne. zwei-eins-vier-zwei-ein-vier-...

Peter S. Taler · *Ab 19-10-22 ergänzt um:*

Soso - das wolltest Du uns also zu Beginn eraten lassen - Alina bist Du in der Nacht vom 30.4 zum 1.5 ev. immer im Harz am Brocken?

LG

Peter

**Oscar**

Genau das meine ich mit der u.U. richtigen Reihenfolge der Bedingungen.
Meiner Meinung nach, machst Du da einen Fehler, denn wenn Du erst auf alle zwei Tage prüfst und dann zwei Tage addierst, dann kannst Du bei der nächsten Zeile nicht mehr auf jeden Tag prüfen.

**Alina**

@peter S. Taler. Was in in dieser Nacht denn?

@Oscar, aber es stimmt doch:
#cs
01.01. bis 14.01. = 14 Tage
1. Termin am Fr. 01.01. 14
2. Termin am So. 03.01. 14-2=12
3. Termin am Mo. 04.01. 12-1=11
4. Termin am Sa. 08.01. 11-4=7
5. Termin am So. 10.01. 7-2=5
5- Termin am Do. 11.01. 5-1=4
6. Termin am Sa. 14.01. 4-4=0
#ce

Oder irre ich mich? Nee, irren ist nicccccht "weiblich".

Peter S. Taler · *Ab 19-10-22 ergänzt um:*

HA ich sehe schon...

1) Das mit dem Kalender - ist das nicht besser mit day of the yer gemacht? Hier hast Du eine einfache Zahl, zu der man ohne Monatsgrenzen addieren kan. Die Rückrechnung in das Datum übernimmt wieder die Funktion? Da spart man sich sämtliche eigenen Datumsberechneungen.

2) Liebe Alina.
Die Nacht vom 30/4 zum 1/5 nennt man Walpurgisnacht. Und da fliegen die Hexen am Brocken auf ihren Besen ::::))))

Da du uns ja in die Kugel sehen läßt - dachte ich Du könntest das besser als wir --> wer lesen kann = Hexe --> Nimmt an Walpurgisnacht teil?

Klingt logisch?

LG
Peter

**Alina**

@peter S. Taler: Ja, das ist nachvollziehbar, aber meines ist auch nachvollziehbar. Die berühmten tausend Wege nach Rom und ich nehm immer den Jacobs-Weg.

Über eine andere Lsg. des Problems bin ich offen gegenüber gestellt.

**Oscar**

Alina: Das stimmt nur, weil die Termine in Deinem Beispiel dem 2-1-4 Tage-Rhythmus folgen. Wenn Du Termine mit 1-1-2 oder so eintragen willst, dann klappt das nicht mehr.
Aber vielleicht war das ja auch die Aufgabenstellung. Das hast Du ja offen gelassen.

**Alina**

Oscar .

Ja lieber Oscar. Ds ist wirklich ein Problem, das ich noch nicht lösen konnte, was wenn der Tagerhythmus anders ist und/oder es nicht drei sondern 2/4/5/6 Tage sind?

Hier habe ich noch keinen Gedankenansatz. Hatte überlegt es wie in einer "Wenn-Dann-Sonst" Formel, wie bei Excel zu scripten, aber das ist da schon ein Problem.
WENN es 1 Tag in der Woche ist, dann +/-7, anosnten
Wenn es 2 Tage in der Woche ist, Starttag und mit 2 +/- Werten rechnen, ansonsten
Wenn es 3 Tage in der Woche ist, Starttag und mit 3 +/- Werten rechnen, ansonsten
Wenn es 4 Tage in der Woche ist, Starttag und mit 4 +/- Werten rechnen, ansonsten
Wenn es 5 Tage in der Woche ist, Starttag und mit 5 +/- Werten rechnen, ansonsten
Wenn es 6 Tage in der Woche ist, Starttag und mit 6 +/- Werten rechnen.

Und das jetzt umsetzen???

Peter S. Taler · *Ab 19-10-22 ergänzt um:*

ich mag ja daneben stehen aber das ganze wird doch viel einfacher wenn man keine Rücksicht auf wochentage monate usw nehmen muss.
Vom Prinzip also DAY OF THE YEAR oder wenn es Dir besser gefällt mit :

_DateToDayValue und_DayValueToDate oder eben mit _DateDiff da kann man bequem den tag des Jahres ausrechnen, weiterrechnen und wieder zurück.

Ich habe diese Datumsrechnerei mit 100tausend Abfragen schon lange zugunsten dieser Methode aufgegeben.

Gruß

Peter

**Alina**

@Oscar, hiermit sollte das Problem erst einmal gelöst sein.

AutoIt

#include <Array.au3>


; Tagesauswahl immer der reine nach. Nicht: "Mo,Mi,Di,Do,Fr" sondern "Mo,Di,Mi,Do,Fr"
$_tagesAuswahl = "Mi,Mi,Sa,So,Di"


; Auswahlmöghlichkeiten in ein Array geben
Local $array = StringSplit($_tagesAuswahl, ',', 0)


; Anzahl der Tagesauswahl
MsgBox (64,"","Es gibt: " & $array[0] & " angegebene Tage." & @CRLF & "Dieses Sind: " & $_tagesAuswahl )




; Anfrage wieviele Tage angegeben wurden
If $array[0] = 1 Then
	einer()
EndIf


If $array[0] = 2 Then
	zweier()
EndIf


If $array[0] = 3 Then
	dreier()
EndIf


If $array[0] = 4 Then
	vierer()
EndIf


If $array[0] = 5 Then
	fuenfer()
EndIf
If $array[0] = 6 Then
	sechser()
EndIf


If $array[0] = 7 Then
	siebener()
EndIf




; Funktionen
Func einer()
			Local $aArray_2[1] = [$array[1]];, "Mi"
			Local $aNewArray = _ArrayPermute($aArray_2, ",") ; Standardparameter verwenden
			;_ArrayDisplay($aNewArray, "Array mit allen möglichen Kombinationen")
			MsgBox(64,"1", $aNewArray[1])
EndFunc


Func zweier()
			Local $aArray_2[2] = [$array[1], $array[2]];, "Mi", "Do"
			Local $aNewArray = _ArrayPermute($aArray_2, ",") ; Standardparameter verwenden
			;_ArrayDisplay($aNewArray, "Array mit allen möglichen Kombinationen")
			MsgBox(64,"2", $aNewArray[1] & @CRLF & $aNewArray[2])
EndFunc


Func dreier()
			Local $aArray_3[3] = [$array[1], $array[2], $array[3]];, "Do", "Fr", "Sa"
			Local $aNewArray = _ArrayPermute($aArray_3, ",") ; Standardparameter verwenden
			;_ArrayDisplay($aNewArray, "Array mit allen möglichen Kombinationen")
			MsgBox(64,"3", $aNewArray[1] & @CRLF & $aNewArray[4] & @CRLF & $aNewArray[6])
EndFunc


Func vierer()
			Local $aArray_4[4] = [$array[1], $array[2], $array[3], $array[4]];, "Fr", "So", "Di", "Mi"
			Local $aNewArray = _ArrayPermute($aArray_4, ",") ; Standardparameter verwenden
			;_ArrayDisplay($aNewArray, "Array mit allen möglichen Kombinationen")
			MsgBox(64,"4", $aNewArray[1] & @CRLF & $aNewArray[10] & @CRLF & $aNewArray[17]& @CRLF & $aNewArray[24])
EndFunc


Func fuenfer()
			Local $aArray_5[5] = [$array[1], $array[2], $array[3], $array[4], $array[5]];, "Fr", "Sa", "Mo", "Di", "Do"
			Local $aNewArray = _ArrayPermute($aArray_5, ",") ; Standardparameter verwenden
			;_ArrayDisplay($aNewArray, "Array mit allen möglichen Kombinationen")
			MsgBox(64,"5", $aNewArray[1] & @CRLF & $aNewArray[34] & @CRLF & $aNewArray[66]& @CRLF & $aNewArray[94]& @CRLF & $aNewArray[120])
EndFunc


Func sechser()
			Local $aArray_6[6] = [$array[1], $array[2], $array[3], $array[4], $array[5], $array[6]];, "Fr", "Sa", "So", "Mo", "Di", "Do"
			Local $aNewArray = _ArrayPermute($aArray_6, ",") ; Standardparameter verwenden
			;_ArrayDisplay($aNewArray, "Array mit allen möglichen Kombinationen")
			MsgBox(64,"6", $aNewArray[1] & @CRLF & $aNewArray[154] & @CRLF & $aNewArray[305]& @CRLF & $aNewArray[451] & @CRLF & $aNewArray[593]& @CRLF & $aNewArray[720])
EndFunc


Func siebener()
			Local $aArray_7[7] = [$array[1], $array[2], $array[3], $array[4], $array[5], $array[6], $array[7]];, "Fr", "Sa", "So", "Mo", "Di", "Mi","Do"
			Local $aNewArray = _ArrayPermute($aArray_7, ",") ; Standardparameter verwenden
			;_ArrayDisplay($aNewArray, "Array mit allen möglichen Kombinationen")
			MsgBox(64,"7", $aNewArray[1] & @CRLF & $aNewArray[10] & @CRLF & $aNewArray[874]& @CRLF & $aNewArray[1745]& @CRLF & $aNewArray[2616] & @CRLF & $aNewArray[3466]& @CRLF & $aNewArray[4296] & @CRLF & $aNewArray[5040])
EndFunc

Alles anzeigen

**Oscar**

Irgendwie erinnert mich das an "Per Anhalter durch die Galaxis":
Die Antwort lautet: "42"
Um zu verstehen was die Antwort bedeutet, muss man erstmal die Frage verstehen.

Du präsentierst uns hier Lösungen, zu denen wir nicht einmal das Problem verstehen.

Aber abgesehen davon, diese Reihe an If-Bedingungen kannst Du durch ein einziges Switch ersetzen.
Vermutlich geht das auch ohne diese "Armee von Funktionen", aber dazu müsste man die Problemstellung verstehen.