Habe aus Langeweile ein kleines Script geschrieben.
Der Entscheider entscheidet Sachen für dich.
1.) Ja oder Nein
2.) eine Zahl
3.) einen Wochentag
4.) einen Monat
5.) eine Farbe;
6.) eines von 10 verschiedenen Gerichten
7.) was du tun kannst wenn dir langweilig ist
8.) eine von 10 verschiedenen Programm-Schreibideen.
Die Funktionen sind ziemlich easy geschrieben.
Hier ist der Code:
Spoiler anzeigen
#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]$hGUI = GUICreate("Der Entscheider",300,200)
$button1 = GUICtrlCreateButton("Ja/Nein",10,10,60,25)
$button2 = GUICtrlCreateButton("? bis ?",110,10,50,25)
$button3 = GUICtrlCreateButton("Wochentag",190,10,90,25)
$button4 = GUICtrlCreateButton("Monat",10,50,60,25)
$label = GUICtrlCreateLabel("Speziel für AutoIt-User:",10,130)
$button5 = GUICtrlCreateButton("Was soll ich Programmieren",20,150)
$button6 = GUICtrlCreateButton("Farbe",110,50,60,25)
$button7 = GUICtrlCreateButton("Essen",10,90,60,25)
$button8 = GUICtrlCreateButton("Was Tun (Mir ist Langweilig)",110,90,160,25)
$createlabel = GUICtrlCreateLabel("Created by Bakku",195,175)
GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]$msg = GUIGetMsg()
[/autoit] [autoit][/autoit] [autoit]Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $button1
JaNein()
Case $button2
Bis()
Case $button3
Wochentag()
Case $button4
Monat()
Case $button5
Programmieren()
Case $button6
Farbe()
Case $button7
Essen()
Case $button8
Langweilig()
EndSwitch
WEnd
[/autoit] [autoit][/autoit] [autoit]Func JaNein()
[/autoit] [autoit][/autoit] [autoit]$rnd = Random(1,2,1)
[/autoit] [autoit][/autoit] [autoit]If $rnd = "1" Then
MsgBox(0,"Die Antwort","Ja")
EndIf
If $rnd = "2" Then
MsgBox(0,"Die Antwort","Nein")
EndIf
EndFunc ;===> JaNein
[/autoit] [autoit][/autoit] [autoit]Func Bis()
[/autoit] [autoit][/autoit] [autoit]$input1 = InputBox("Zahl eingeben","Von welcher Zahl aus soll der Entscheider eine Zahl für sie entscheiden? (Von ? zu ?)")
$input2 = InputBox("Zahl eingeben","Bis zu welcher Zahl soll der Entscheider eine Zahl für sie entscheiden? (Von ? zu ?)")
If $input1 = "" Or $input2 = "" Then
MsgBox(0,"Fehler","Keine Zahl eingegeben")
Else
$rnd = Random($input1,$input2,1)
MsgBox(0,"Random","Die Antwort lautet: " & $rnd)
EndIf
EndFunc ;===> Bis
[/autoit] [autoit][/autoit] [autoit]Func Wochentag()
[/autoit] [autoit][/autoit] [autoit]$rnd = Random(1,7,1)
[/autoit] [autoit][/autoit] [autoit]If $rnd = "1" Then
MsgBox(0,"Die Antwort lautet","Montag")
EndIf
If $rnd = "2" Then
MsgBox(0,"Die Antwort lautet","Dienstag")
EndIf
If $rnd = "3" Then
MsgBox(0,"Die Antwort lautet","Mittwoch")
EndIf
If $rnd = "4" Then
MsgBox(0,"Die Antwort lautet","Donnerstag")
EndIf
If $rnd = "5" Then
MsgBox(0,"Die Antwort lautet","Freitag")
EndIf
If $rnd = "6" Then
MsgBox(0,"Die Antwort lautet","Samstag")
EndIf
If $rnd = "7" Then
MsgBox(0,"Die Antort lautet","Sonntag")
EndIf
EndFunc ;===> Wochentag
[/autoit] [autoit][/autoit] [autoit]Func Monat()
[/autoit] [autoit][/autoit] [autoit]$rnd = Random(1,12,1)
[/autoit] [autoit][/autoit] [autoit]If $rnd = "1" Then
MsgBox(0,"Die Antwort lautet","Januar")
EndIf
If $rnd = "2" Then
MsgBox(0,"Die Antwort lautet","Februar")
EndIf
If $rnd = "3" Then
MsgBox(0,"Die Antwort lautet","März")
EndIf
If $rnd = "4" Then
MsgBox(0,"Die Antwort lautet","April")
EndIf
If $rnd = "5" Then
MsgBox(0,"Die Antwort lautet","Mai")
EndIf
If $rnd = "6" Then
MsgBox(0,"Die Antwort lautet","Juni")
EndIf
If $rnd = "7" Then
MsgBox(0,"Die Antwort lautet","Juli")
EndIf
If $rnd = "8" Then
MsgBox(0,"Die Antwort lautet","August")
EndIf
If $rnd = "9" Then
MsgBox(0,"Die Antwort lautet","September")
EndIf
If $rnd = "10" Then
MsgBox(0,"Die Antwort lautet","Oktober")
EndIf
If $rnd = "11" Then
MsgBox(0,"Die Antwort lautet","November")
EndIf
If $rnd = "12" Then
MsgBox(0,"Die Antwort lautet","Dezember")
EndIf
EndFunc ;==> Monat
[/autoit] [autoit][/autoit] [autoit]Func Programmieren()
[/autoit] [autoit][/autoit] [autoit]$rnd = Random(1,10,1)
[/autoit] [autoit][/autoit] [autoit]If $rnd = "1" Then
MsgBox(0,"Programmieren","Wie wärs mit einem Sudoku?")
EndIf
If $rnd = "2" Then
MsgBox(0,"Programmieren","Wie wärs mit einem Tetris-Programm?")
EndIf
If $rnd = "3" Then
MsgBox(0,"Programmieren","Wie wärs mit einem Programm zum ausrechnen des Zeugnisdurchschnittes?")
EndIf
If $rnd = "4" Then
MsgBox(0,"Programmieren","(Anspruchvoll!) Wie wärs mit einem Orginaizer, z.B Kalender, Notizen, Aufgaben, Telefonbuch, etc.")
EndIf
If $rnd = "5" Then
MsgBox(0,"Programmieren","Wie wärs mit einem Vokabel-Lern-Programm")
EndIf
If $rnd = "6" Then
MsgBox(0,"Programmieren","Wie wärs mit einem Password-Saver")
EndIf
If $rnd = "7" Then
MsgBox(0,"Programmieren","Wie wärs mit einem Musik-Player")
EndIf
If $rnd = "8" Then
MsgBox(0,"Programmieren","(Anspruchsvoll!) Wie wärs mit einem Programm welches automatisch fehlende Satzzeichen einfügt und die Groß- und Kleinschreibung korrigiert")
EndIf
If $rnd = "9" Then
MsgBox(0,"Programmieren","Wie wärs mit einem Grafik-Programm, z.B so ähnlich wie Paint")
EndIf
If $rnd = "10" Then
MsgBox(0,"Programmieren","(Unmöglich!!!!) Wie wärs mit einen besseren Entscheider als der hier")
EndIf
EndFunc ;===> Programmieren
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func Farbe()
[/autoit] [autoit][/autoit] [autoit]$rnd = Random(1,9,1)
[/autoit] [autoit][/autoit] [autoit]If $rnd = "1" Then
MsgBox(0,"Die Antwort lautet","Grün")
EndIf
If $rnd = "2" Then
MsgBox(0,"Die Antwort lautet","Blau")
EndIf
If $rnd = "3" Then
MsgBox(0,"Die Antwort lautet","Rot")
EndIf
If $rnd = "4" Then
MsgBox(0,"Die Antwort lautet","Gelb")
EndIf
If $rnd = "5" Then
MsgBox(0,"Die Antwort lautet","Braun")
EndIf
If $rnd = "6" Then
MsgBox(0,"Die Antwort lautet","Orange")
EndIf
If $rnd = "7" Then
MsgBox(0,"Die Antwort lautet","Lila")
EndIf
If $rnd = "8" Then
MsgBox(0,"Die Antwort lautet","Weiß")
EndIf
If $rnd = "9" Then
MsgBox(0,"Die Antwort lautet","Schwarz")
EndIf
EndFunc ;===> Farbe
[/autoit] [autoit][/autoit] [autoit]Func Essen()
[/autoit] [autoit][/autoit] [autoit]$rnd = Random(1,10,1)
[/autoit] [autoit][/autoit] [autoit]If $rnd = "1" Then
MsgBox(0,"Essen","Wie wärs mit Nudeln")
EndIf
If $rnd = "2" Then
MsgBox(0,"Essen","Wie wärs mit Kartoffeln")
EndIf
If $rnd = "3" Then
MsgBox(0,"Essen","Wie wärs mit Pizza")
EndIf
If $rnd = "4" Then
MsgBox(0,"Essen","Wie wärs mit Döner")
EndIf
If $rnd = "5" Then
MsgBox(0,"Essen","Wie wärs mit McDonalds/Burger King (Burger King ist besser!!)")
EndIf
If $rnd = "6" Then
MsgBox(0,"Essen","Wie wärs mit Würstchen")
EndIf
If $rnd = "7" Then
MsgBox(0,"Essen","Wie wärs mit Fisch")
EndIf
If $rnd = "8" Then
MsgBox(0,"Essen","Wie wärs mit Reis")
EndIf
If $rnd = "9" Then
MsgBox(0,"Essen","Wie wärs mit Steak")
EndIf
If $rnd = "10" Then
MsgBox(0,"Essen","Wie wärs mit Salat")
EndIf
EndFunc ;===> Essen
[/autoit] [autoit][/autoit] [autoit]Func Langweilig()
[/autoit] [autoit][/autoit] [autoit]$rnd = Random(1,10,1)
[/autoit] [autoit][/autoit] [autoit]If $rnd = "1" Then
MsgBox(0,"Langeweile?","Mach endlich mal Arbeiten die du vor dich herschiebst!")
EndIf
If $rnd = "2" Then
MsgBox(0,"Langeweile?","Lernen")
EndIf
If $rnd = "3" Then
MsgBox(0,"Langeweile?","Lesen")
EndIf
If $rnd = "4" Then
MsgBox(0,"Langeweile?","Telefonieren")
EndIf
If $rnd = "5" Then
MsgBox(0,"Langeweile?","Etwas mit Freunden machen")
EndIf
If $rnd = "6" Then
MsgBox(0,"Langeweile?","Mit AutoIt programmieren")
EndIf
If $rnd = "7" Then
MsgBox(0,"Langeweile?","Etwas Zocken")
EndIf
If $rnd = "8" Then
MsgBox(0,"Langeweile?","Schlafen")
EndIf
If $rnd = "9" Then
MsgBox(0,"Langeweile?","Film schauen")
EndIf
If $rnd = "10" Then
MsgBox(0,"Langeweile?","Über dein Leben nachdenken")
EndIf
EndFunc ;==> Langeweile
[/autoit]