Check That Random Don't Gen Same 2 Times In A Row

[Rex]

Hi i created a little script to generate a dinner menu, bu i have one big problem.

Random some times puts uses the same dinner in a row.

expandcollapse popup

#include <GUIConstants.au3>; Includes Gui Constants
#include <file.au3>
#include <string.au3>

Global $Uge

    $Y = 0
    $Uge = "19"
    
    Do
        $Uge = $Uge + 1
        $Y = $Y+1
        If $y = 1 Then
            FileWrite("Menu.txt",">>>> Menu uge " & $Uge & " <<<<" & @CRLF)
            Else
        FileWrite("Menu.txt","" & @CRLF & ">>>> Menu uge " & $Uge & " <<<<" & @CRLF)
        EndIf
        _Retter()
        Until $Y = 4
    Exit

;Funktionen udvælg retter
Func _Retter()
    $i = 0
    $NumberOfLines = _FileCountLines(@ScriptDir & "\Retter.txt")
    Do 
        $i = $i+1
    $Retter = Random(1,$NumberOfLines,1)
    $Read = FileReadLine("Retter.txt", $Retter)
;Checker at den samme ret kommer 2 dage i træk
        If $Read = "chilisuppe" Then
        $i = $i +1
    EndIf
    If $Read = "Pizza" Then
        $i = $i + 1
        EndIf
    FileWrite("Menu.txt", $Read & @CRLF)
Until $i = 7
EndFunc

this i my code, can any one help me to do a check so i dont get the same dinner 2 days in a row

/Rex

[Don N]

expandcollapse popup

#include <GUIConstants.au3>; Includes Gui Constants
#include <file.au3>
#include <string.au3>

Global $Uge

    $Y = 0
    $Uge = "19"
    
    Do
        $Uge = $Uge + 1
        $Y = $Y+1
        If $y = 1 Then
            FileWrite("Menu.txt",">>>> Menu uge " & $Uge & " <<<<" & @CRLF)
            Else
        FileWrite("Menu.txt","" & @CRLF & ">>>> Menu uge " & $Uge & " <<<<" & @CRLF)
        EndIf
        _Retter()
        Until $Y = 4
    Exit

;Funktionen udvælg retter
Func _Retter()
    $i = 0
    $NumberOfLines = _FileCountLines(@ScriptDir & "\Retter.txt")
    
    $prev_meal = ""

    Do
        $i = $i+1
        
       ;this loop will prevent 2 of the same meals in a row
         Do
               $Retter = Random(1,$NumberOfLines,1)
               $Read = FileReadLine("Retter.txt", $Retter)
         Until $Read <> $prev_meal

;Checker at den samme ret kommer 2 dage i træk
        If $Read = "chilisuppe" Then
        $i = $i +1
    EndIf
    If $Read = "Pizza" Then
        $i = $i + 1
        EndIf
    FileWrite("Menu.txt", $Read & @CRLF)
  
   ;reacord the meal to check for same meal in next loop iteration
     $prev_meal = $Read

Until $i = 7
EndFunc

I added a nested loop to keep generating random meals until one that doesnt match the previous one is generated.

[Rex]

expandcollapse popup

#include <GUIConstants.au3>; Includes Gui Constants
#include <file.au3>
#include <string.au3>

Global $Uge

    $Y = 0
    $Uge = "19"
    
    Do
        $Uge = $Uge + 1
        $Y = $Y+1
        If $y = 1 Then
            FileWrite("Menu.txt",">>>> Menu uge " & $Uge & " <<<<" & @CRLF)
            Else
        FileWrite("Menu.txt","" & @CRLF & ">>>> Menu uge " & $Uge & " <<<<" & @CRLF)
        EndIf
        _Retter()
        Until $Y = 4
    Exit

;Funktionen udvælg retter
Func _Retter()
    $i = 0
    $NumberOfLines = _FileCountLines(@ScriptDir & "\Retter.txt")
    
    $prev_meal = ""

    Do
        $i = $i+1
        
     ;this loop will prevent 2 of the same meals in a row
         Do
               $Retter = Random(1,$NumberOfLines,1)
               $Read = FileReadLine("Retter.txt", $Retter)
         Until $Read <> $prev_meal

;Checker at den samme ret kommer 2 dage i træk
        If $Read = "chilisuppe" Then
        $i = $i +1
    EndIf
    If $Read = "Pizza" Then
        $i = $i + 1
        EndIf
    FileWrite("Menu.txt", $Read & @CRLF)
  
 ;reacord the meal to check for same meal in next loop iteration
     $prev_meal = $Read

Until $i = 7
EndFunc

I added a nested loop to keep generating random meals until one that doesnt match the previous one is generated.

Thx

I'd try to do the same thing, i only forgot to put the "clear" var in the loop (no wondering it dn't work :"> )

Now all i need is to finde out how to put in weekdays then i have a perfect meeal menu creater, and for 4 weeks

Ohh any on how to prevent getting suppe twice a week ?

/Rex

Edited May 8, 2006 by Rex

[seandisanti]

Thx

I'd try to do the same thing, i only forgot to put the "clear" var in the loop (no wondering it dn't work :"> )

Now all i need is to finde out how to put in weekdays then i have a perfect meeal menu creater, and for 4 weeks

Ohh any on how to prevent getting suppe twice a week ?

/Rex

bah. wish i'd thought of something like this 5 years ago. thought i was taking the easy way out by just getting married.

[Rex]

bah. wish i'd thought of something like this 5 years ago. thought i was taking the easy way out by just getting married.

My prob. is that i'm married - but nither me or my wife can deside what to make for dinner.

/Rex

[seandisanti]

My prob. is that i'm married - but nither me or my wife can deside what to make for dinner.

/Rex

ah. my (soon to be ex) wife can't decide what NOT to have for dinner.