Der Entscheider

[autoit]

#include
#include
#include
#include

[/autoit] [autoit][/autoit] [autoit]

$Form1 = GUICreate("Der Entscheider", 321, 476, 691, 203, BitOR($WS_MINIMIZEBOX,$WS_SYSMENU,$WS_DLGFRAME,$WS_POPUP,$WS_GROUP,$WS_CLIPSIBLINGS))
GUISetBkColor(0xC8C8C8)
$Label1 = GUICtrlCreateLabel("Der Entscheider", 0, 0, 319, 41, $SS_CENTER)
GUICtrlSetFont(-1, 24, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000080)
$Label2 = GUICtrlCreateLabel("Wählen Sie, was entschieden werden soll:", 0, 56, 317, 20, $SS_CENTER)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("Ja / Nein", 16, 80, 89, 41, 0)
$Button3 = GUICtrlCreateButton("Ja / Nein / Vielleicht", 120, 80, 185, 41, 0)
$Button4 = GUICtrlCreateButton("Wochentag", 16, 128, 89, 41, 0)
$Button5 = GUICtrlCreateButton("Tag (1..31)", 112, 128, 89, 41, 0)
$Button6 = GUICtrlCreateButton("Monat", 208, 128, 97, 41, 0)
$Button7 = GUICtrlCreateButton("Lottozahl (1..49)", 16, 176, 129, 41, 0)
$Button8 = GUICtrlCreateButton("Roulette (0..36)", 152, 176, 153, 41, 0)
$Button9 = GUICtrlCreateButton("Zahl (1..3)", 16, 224, 81, 41, 0)
$Button10 = GUICtrlCreateButton("Zahl (1..10)", 104, 224, 97, 41, 0)
$Button11 = GUICtrlCreateButton("Zahl (1..100)", 208, 224, 97, 41, 0)
$Button12 = GUICtrlCreateButton("Farbe", 16, 272, 289, 41, 0)
$Label3 = GUICtrlCreateLabel("Ergebnis", 16, 424, 290, 31, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "MS Serif")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label4 = GUICtrlCreateLabel("coded by Arne 5/2010", 192, 456, 112, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Label5 = GUICtrlCreateLabel(" ", 16, 320, 287, 97)
GUICtrlSetBkColor(-1, 0xC8C8C8)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
case $Label1 ;Exit
Exit
Case $Button2 ;Ja/Nein
$i = Random(1,2,1)
If $i = 1 Then $o = "Ja!"
if $i = 2 then $o = "Nein!"
GUICtrlSetData($Label3,$o)
Case $Button3 ;Ja/Nein/Vielleicht
$i = random(1,3,1)
If $i = 1 Then $o = "Ja!"
if $i = 2 then $o = "Nein!"
if $i = 3 then $o = "Vielleicht!"
GUICtrlSetData($Label3,$o)
case $Button4 ;Wochentag
$i = random(1,7,1)
If $i = 1 Then $o = "Sonntag!"
if $i = 2 then $o = "Montag!"
if $i = 3 then $o = "Dienstag!"
If $i = 4 Then $o = "Mittwoch!"
if $i = 5 then $o = "Donnerstag!"
if $i = 6 then $o = "Freitag!"
if $i = 6 then $o = "Samstag!"
GUICtrlSetData($Label3,$o)
case $Button5 ;TagimMonat
$i = random(1,31,1)
GUICtrlSetData($Label3,$i)
case $Button6 ;Monat
$i = random(1,12,1)
GUICtrlSetData($Label3,$i & ". !")
case $Button7 ;Lotto
$i = random(1,49,1)
GUICtrlSetData($Label3,$i)
case $Button8 ;Roulette
$i = random(0,36,1)
GUICtrlSetData($Label3,$i)
case $Button9 ;1-3
$i = random(1,3,1)
GUICtrlSetData($Label3,$i)
case $Button10 ;1-10
$i = random(1,10,1)
GUICtrlSetData($Label3,$i)
case $Button11 ;1-100
$i = random(1,100,1)
GUICtrlSetData($Label3,$i)
case $Button12 ;Farbe
$i = random(1,8,1)
if $i = 1 then
$Label5 = GUICtrlCreateLabel(" ", 16, 320, 287, 97)
GUICtrlSetBkColor(-1,0x000000)
EndIf
if $i = 2 then
$Label5 = GUICtrlCreateLabel(" ", 16, 320, 287, 97)
GUICtrlSetBkColor(-1,0xFFFFFF)
EndIf
if $i = 3 then
$Label5 = GUICtrlCreateLabel(" ", 16, 320, 287, 97)
GUICtrlSetBkColor(-1,0xFF0000)
EndIf
if $i = 4 then
$Label5 = GUICtrlCreateLabel(" ", 16, 320, 287, 97)
GUICtrlSetBkColor(-1,0xFFFF00)
EndIf
if $i = 5 then
$Label5 = GUICtrlCreateLabel(" ", 16, 320, 287, 97)
GUICtrlSetBkColor(-1,0x00FF00)
EndIf
if $i = 6 then
$Label5 = GUICtrlCreateLabel(" ", 16, 320, 287, 97)
GUICtrlSetBkColor(-1,0x00FFFF)
EndIf
if $i = 7 then
$Label5 = GUICtrlCreateLabel(" ", 16, 320, 287, 97)
GUICtrlSetBkColor(-1,0x0000FF)
EndIf
if $i = 8 then
$Label5 = GUICtrlCreateLabel(" ", 16, 320, 287, 97)
GUICtrlSetBkColor(-1,0xFF00FF)
EndIf
Case $Label4 ;Readme
MsgBox(64,"Hilfe","Geschrieben von: Arne" & @CRLF & @CRLF &"An Anlehnung an:" & @CRLF & "http://itunes.apple.com/de/app/der-entscheider/id318557821?mt=8" & @CRLF & @CRLF & "Zum Schließen des Programms," & @CRLF & " auf den Titel Klicken!")
EndSwitch
WEnd

[/autoit]