Oh da muss ich dann aber erst mal die Funktionen lernen.
Aber dieses UDF ist gut. Da kann man ja auch Icons und so einfügen!!
Beiträge von Bakku
-
-
Hallo.
[autoit]
Wenn man in einer GUI ein Tab und dann ein Tabitem erstellt, ist er ja normalerweise Weiß.
Wie kann man da die Farbe ändern. Bei mir hat es nicht mitGUICtrlSetBkColor
[/autoit]und
[autoit]GUICtrlSetColor
[/autoit]geklappt?
-
Empire Earth I+II
Knights of Honor
Age of Empires
Warcraft III
Herr der Ringe Die Schlacht um Mittelerde I+II -
Hallo Leute.
Ich hatte dieses Problem schon öfters. Ich installiere etwas. Will es starten und plötzlich kommt ein Fenster wo drinne steht."Runtime error! abnormal program termination."
Ich habe schon bei Google eingegeben und auch andren Seiten gesucht, aber ich habe nichts hilfreiches gefunden.
Habt ihr ne Ahnung was das ist? Und ob es dafür Lösungen gibt?
Das Problem habe ich am meißten bei Computerspielen gesehen. -
Du suchst Computerspiele oder wie??
-
Ja stimmt.
Ich hatte es auch eigentlich vor.
Aber ich geb zu. Ich war dann doch zu faul dafür. -
Hallo.
Ich habe mal ein Sudoku gemacht. Mit Lösung und Check und so.
Grafisch ist es nicht so toll, war mir aber auch egal.Spoiler anzeigen
[autoit]#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#include <EditConstants.au3>$l1GUI = GUICreate("Soduku",345,400)
[/autoit] [autoit][/autoit] [autoit]; 1sten Kasten Input -------------------------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]
$11input = GUICtrlCreateInput("2",10,10,20,20,BitOR($ES_CENTER,$ES_READONLY))
$12input = GUICtrlCreateInput("4",40,10,20,20,BitOR($ES_CENTER,$ES_READONLY))
$13input = GUICtrlCreateInput("3",70,10,20,20,BitOR($ES_CENTER,$ES_READONLY))
$14input = GUICtrlCreateInput("8",10,40,20,20,BitOR($ES_CENTER,$ES_READONLY))
$15input = GUICtrlCreateInput("",40,40,20,20,$ES_CENTER)
$16input = GUICtrlCreateInput("",70,40,20,20,$ES_CENTER)
$17input = GUICtrlCreateInput("5",10,70,20,20,BitOR($ES_CENTER,$ES_READONLY))
$18input = GUICtrlCreateInput("",40,70,20,20,$ES_CENTER)
$19input = GUICtrlCreateInput("",70,70,20,20,$ES_CENTER)
;---------------------------------------------------------------------------------------------------------------; 2ter Kasten Input --------------------------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]
$21input = GUICtrlCreateInput("",10,130,20,20,$ES_CENTER)
$22input = GUICtrlCreateInput("",40,130,20,20,$ES_CENTER)
$23input = GUICtrlCreateInput("",70,130,20,20,$ES_CENTER)
$24input = GUICtrlCreateInput("",10,160,20,20,$ES_CENTER)
$25input = GUICtrlCreateInput("5",40,160,20,20,BitOR($ES_CENTER,$ES_READONLY))
$26input = GUICtrlCreateInput("6",70,160,20,20,BitOR($ES_CENTER,$ES_READONLY))
$27input = GUICtrlCreateInput("",10,190,20,20,$ES_CENTER)
$28input = GUICtrlCreateInput("9",40,190,20,20,BitOR($ES_CENTER,$ES_READONLY))
$29input = GUICtrlCreateInput("2",70,190,20,20,BitOR($ES_CENTER,$ES_READONLY))
;---------------------------------------------------------------------------------------------------------------;3ter Kasten Input ---------------------------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]
$31input = GUICtrlCreateInput("9",10,250,20,20,BitOR($ES_CENTER,$ES_READONLY))
$32input = GUICtrlCreateInput("3",40,250,20,20,BitOR($ES_CENTER,$ES_READONLY))
$33input = GUICtrlCreateInput("4",70,250,20,20,BitOR($ES_CENTER,$ES_READONLY))
$34input = GUICtrlCreateInput("",10,280,20,20,$ES_CENTER)
$35input = GUICtrlCreateInput("",40,280,20,20,$ES_CENTER)
$36input = GUICtrlCreateInput("",70,280,20,20,$ES_CENTER)
$37input = GUICtrlCreateInput("7",10,310,20,20,BitOR($ES_CENTER,$ES_READONLY))
$38input = GUICtrlCreateInput("",40,310,20,20,$ES_CENTER)
$39input = GUICtrlCreateInput("",70,310,20,20,$ES_CENTER)
;---------------------------------------------------------------------------------------------------------------;4ter Kasten Input ---------------------------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]
$41input = GUICtrlCreateInput("",130,10,20,20,$ES_CENTER)
$42input = GUICtrlCreateInput("9",160,10,20,20,BitOR($ES_CENTER,$ES_READONLY))
$43input = GUICtrlCreateInput("",190,10,20,20,$ES_CENTER)
$44input = GUICtrlCreateInput("6",130,40,20,20,BitOR($ES_CENTER,$ES_READONLY))
$45input = GUICtrlCreateInput("1",160,40,20,20,BitOR($ES_CENTER,$ES_READONLY))
$46input = GUICtrlCreateInput("3",190,40,20,20,BitOR($ES_CENTER,$ES_READONLY))
$47input = GUICtrlCreateInput("",130,70,20,20,$ES_CENTER)
$48input = GUICtrlCreateInput("",160,70,20,20,$ES_CENTER)
$49input = GUICtrlCreateInput("",190,70,20,20,$ES_CENTER)
;---------------------------------------------------------------------------------------------------------------;5ter Kasten Input ---------------------------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]
$51input = GUICtrlCreateInput("1",130,130,20,20,BitOR($ES_CENTER,$ES_READONLY))
$52input = GUICtrlCreateInput("",160,130,20,20,$ES_CENTER)
$53input = GUICtrlCreateInput("6",190,130,20,20,BitOR($ES_CENTER,$ES_READONLY))
$54input = GUICtrlCreateInput("",130,160,20,20,$ES_CENTER)
$55input = GUICtrlCreateInput("",160,160,20,20,$ES_CENTER)
$56input = GUICtrlCreateInput("",190,160,20,20,$ES_CENTER)
$57input = GUICtrlCreateInput("4",130,190,20,20,BitOR($ES_CENTER,$ES_READONLY))
$58input = GUICtrlCreateInput("",160,190,20,20,$ES_CENTER)
$59input = GUICtrlCreateInput("8",190,190,20,20,BitOR($ES_CENTER,$ES_READONLY))
;---------------------------------------------------------------------------------------------------------------;6ter Kasten Input ---------------------------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]
$61input = GUICtrlCreateInput("",130,250,20,20,$ES_CENTER)
$62input = GUICtrlCreateInput("",160,250,20,20,$ES_CENTER)
$63input = GUICtrlCreateInput("",190,250,20,20,$ES_CENTER)
$64input = GUICtrlCreateInput("7",130,280,20,20,BitOR($ES_CENTER,$ES_READONLY))
$65input = GUICtrlCreateInput("2",160,280,20,20,BitOR($ES_CENTER,$ES_READONLY))
$66input = GUICtrlCreateInput("5",190,280,20,20,BitOR($ES_CENTER,$ES_READONLY))
$67input = GUICtrlCreateInput("",130,310,20,20,$ES_CENTER)
$68input = GUICtrlCreateInput("4",160,310,20,20,BitOR($ES_CENTER,$ES_READONLY))
$69input = GUICtrlCreateInput("",190,310,20,20,$ES_CENTER)
;---------------------------------------------------------------------------------------------------------------;7ter Kasten Input ---------------------------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]
$71input = GUICtrlCreateInput("",250,10,20,20,$ES_CENTER)
$72input = GUICtrlCreateInput("",280,10,20,20,$ES_CENTER)
$73input = GUICtrlCreateInput("8",310,10,20,20,BitOR($ES_CENTER,$ES_READONLY))
$74input = GUICtrlCreateInput("",250,40,20,20,$ES_CENTER)
$75input = GUICtrlCreateInput("",280,40,20,20,$ES_CENTER)
$76input = GUICtrlCreateInput("",310,40,20,20,$ES_CENTER)
$77input = GUICtrlCreateInput("9",250,70,20,20,BitOR($ES_CENTER,$ES_READONLY))
$78input = GUICtrlCreateInput("7",280,70,20,20,BitOR($ES_CENTER,$ES_READONLY))
$79input = GUICtrlCreateInput("3",310,70,20,20,BitOR($ES_CENTER,$ES_READONLY))
;---------------------------------------------------------------------------------------------------------------;8ter Kasten Input ---------------------------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]
$81input = GUICtrlCreateInput("2",250,130,20,20,BitOR($ES_CENTER,$ES_READONLY))
$82input = GUICtrlCreateInput("9",280,130,20,20,BitOR($ES_CENTER,$ES_READONLY))
$83input = GUICtrlCreateInput("",310,130,20,20,$ES_CENTER)
$84input = GUICtrlCreateInput("8",250,160,20,20,BitOR($ES_CENTER,$ES_READONLY))
$85input = GUICtrlCreateInput("1",280,160,20,20,BitOR($ES_CENTER,$ES_READONLY))
$86input = GUICtrlCreateInput("",310,160,20,20,$ES_CENTER)
$87input = GUICtrlCreateInput("",250,190,20,20,$ES_CENTER)
$88input = GUICtrlCreateInput("",280,190,20,20,$ES_CENTER)
$89input = GUICtrlCreateInput("",310,190,20,20,$ES_CENTER)
;---------------------------------------------------------------------------------------------------------------;9ter Kasten Input ---------------------------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]
$91input = GUICtrlCreateInput("",250,250,20,20,$ES_CENTER)
$92input = GUICtrlCreateInput("",280,250,20,20,$ES_CENTER)
$93input = GUICtrlCreateInput("2",310,250,20,20,BitOR($ES_CENTER,$ES_READONLY))
$94input = GUICtrlCreateInput("",250,280,20,20,$ES_CENTER)
$95input = GUICtrlCreateInput("",280,280,20,20,$ES_CENTER)
$96input = GUICtrlCreateInput("9",310,280,20,20,BitOR($ES_CENTER,$ES_READONLY))
$97input = GUICtrlCreateInput("6",250,310,20,20,BitOR($ES_CENTER,$ES_READONLY))
$98input = GUICtrlCreateInput("8",280,310,20,20,BitOR($ES_CENTER,$ES_READONLY))
$99input = GUICtrlCreateInput("1",310,310,20,20,BitOR($ES_CENTER,$ES_READONLY))
;---------------------------------------------------------------------------------------------------------------;1ste Spalte Labels --------------------------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]
GUICtrlCreateLabel("|",110,10)
GUICtrlCreateLabel("|",110,20)
GUICtrlCreateLabel("|",110,30)
GUICtrlCreateLabel("|",110,40)
GUICtrlCreateLabel("|",110,50)
GUICtrlCreateLabel("|",110,60)
GUICtrlCreateLabel("|",110,70)
GUICtrlCreateLabel("|",110,80)
GUICtrlCreateLabel("|",110,90)
GUICtrlCreateLabel("|",110,100)
GUICtrlCreateLabel("|",110,110)
GUICtrlCreateLabel("|",110,120)
GUICtrlCreateLabel("|",110,130)
GUICtrlCreateLabel("|",110,140)
GUICtrlCreateLabel("|",110,150)
GUICtrlCreateLabel("|",110,160)
GUICtrlCreateLabel("|",110,170)
GUICtrlCreateLabel("|",110,180)
GUICtrlCreateLabel("|",110,190)
GUICtrlCreateLabel("|",110,200)
GUICtrlCreateLabel("|",110,210)
GUICtrlCreateLabel("|",110,220)
GUICtrlCreateLabel("|",110,230)
GUICtrlCreateLabel("|",110,240)
GUICtrlCreateLabel("|",110,250)
GUICtrlCreateLabel("|",110,260)
GUICtrlCreateLabel("|",110,270)
GUICtrlCreateLabel("|",110,280)
GUICtrlCreateLabel("|",110,290)
GUICtrlCreateLabel("|",110,300)
GUICtrlCreateLabel("|",110,310)
GUICtrlCreateLabel("|",110,320)
;---------------------------------------------------------------------------------------------------------------;2te Spalte Labels --------------------------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]
GUICtrlCreateLabel("|",230,10)
GUICtrlCreateLabel("|",230,20)
GUICtrlCreateLabel("|",230,30)
GUICtrlCreateLabel("|",230,40)
GUICtrlCreateLabel("|",230,50)
GUICtrlCreateLabel("|",230,60)
GUICtrlCreateLabel("|",230,70)
GUICtrlCreateLabel("|",230,80)
GUICtrlCreateLabel("|",230,90)
GUICtrlCreateLabel("|",230,100)
GUICtrlCreateLabel("|",230,110)
GUICtrlCreateLabel("|",230,120)
GUICtrlCreateLabel("|",230,130)
GUICtrlCreateLabel("|",230,140)
GUICtrlCreateLabel("|",230,150)
GUICtrlCreateLabel("|",230,160)
GUICtrlCreateLabel("|",230,170)
GUICtrlCreateLabel("|",230,180)
GUICtrlCreateLabel("|",230,190)
GUICtrlCreateLabel("|",230,200)
GUICtrlCreateLabel("|",230,210)
GUICtrlCreateLabel("|",230,220)
GUICtrlCreateLabel("|",230,230)
GUICtrlCreateLabel("|",230,240)
GUICtrlCreateLabel("|",230,250)
GUICtrlCreateLabel("|",230,260)
GUICtrlCreateLabel("|",230,270)
GUICtrlCreateLabel("|",230,280)
GUICtrlCreateLabel("|",230,290)
GUICtrlCreateLabel("|",230,300)
GUICtrlCreateLabel("|",230,310)
GUICtrlCreateLabel("|",230,320)
;---------------------------------------------------------------------------------------------------------------; 1ste Zeile Labels --------------------------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]
GUICtrlCreateLabel("_",10,100)
GUICtrlCreateLabel("_",20,100)
GUICtrlCreateLabel("_",30,100)
GUICtrlCreateLabel("_",40,100)
GUICtrlCreateLabel("_",50,100)
GUICtrlCreateLabel("_",60,100)
GUICtrlCreateLabel("_",70,100)
GUICtrlCreateLabel("_",80,100)
GUICtrlCreateLabel("_",90,100)
GUICtrlCreateLabel("_",100,100)
GUICtrlCreateLabel("_",110,100)
GUICtrlCreateLabel("_",120,100)
GUICtrlCreateLabel("_",130,100)
GUICtrlCreateLabel("_",140,100)
GUICtrlCreateLabel("_",150,100)
GUICtrlCreateLabel("_",160,100)
GUICtrlCreateLabel("_",170,100)
GUICtrlCreateLabel("_",180,100)
GUICtrlCreateLabel("_",190,100)
GUICtrlCreateLabel("_",200,100)
GUICtrlCreateLabel("_",210,100)
GUICtrlCreateLabel("_",220,100)
GUICtrlCreateLabel("_",230,100)
GUICtrlCreateLabel("_",240,100)
GUICtrlCreateLabel("_",250,100)
GUICtrlCreateLabel("_",260,100)
GUICtrlCreateLabel("_",270,100)
GUICtrlCreateLabel("_",280,100)
GUICtrlCreateLabel("_",290,100)
GUICtrlCreateLabel("_",300,100)
GUICtrlCreateLabel("_",310,100)
GUICtrlCreateLabel("_",320,100)
;---------------------------------------------------------------------------------------------------------------; 1ste Zeile Labels --------------------------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]
GUICtrlCreateLabel("_",10,220)
GUICtrlCreateLabel("_",20,220)
GUICtrlCreateLabel("_",30,220)
GUICtrlCreateLabel("_",40,220)
GUICtrlCreateLabel("_",50,220)
GUICtrlCreateLabel("_",60,220)
GUICtrlCreateLabel("_",70,220)
GUICtrlCreateLabel("_",80,220)
GUICtrlCreateLabel("_",90,220)
GUICtrlCreateLabel("_",100,220)
GUICtrlCreateLabel("_",110,220)
GUICtrlCreateLabel("_",120,220)
GUICtrlCreateLabel("_",130,220)
GUICtrlCreateLabel("_",140,220)
GUICtrlCreateLabel("_",150,220)
GUICtrlCreateLabel("_",160,220)
GUICtrlCreateLabel("_",170,220)
GUICtrlCreateLabel("_",180,220)
GUICtrlCreateLabel("_",190,220)
GUICtrlCreateLabel("_",200,220)
GUICtrlCreateLabel("_",210,220)
GUICtrlCreateLabel("_",220,220)
GUICtrlCreateLabel("_",230,220)
GUICtrlCreateLabel("_",240,220)
GUICtrlCreateLabel("_",250,220)
GUICtrlCreateLabel("_",260,220)
GUICtrlCreateLabel("_",270,220)
GUICtrlCreateLabel("_",280,220)
GUICtrlCreateLabel("_",290,220)
GUICtrlCreateLabel("_",300,220)
GUICtrlCreateLabel("_",310,220)
GUICtrlCreateLabel("_",320,220)
;---------------------------------------------------------------------------------------------------------------$fertigbutton = GUICtrlCreateButton("Fertig",270,370,50,25)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$tippbutton = GUICtrlCreateButton("Lösung",200,370,60,25)
$backbutton = GUICtrlCreateButton("Zurück zum Menü",10,370,100,25)GUISetState()
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]$msg = GUIGetMsg()
[/autoit] [autoit][/autoit] [autoit]Switch $msg
[/autoit] [autoit][/autoit] [autoit]
Case $GUI_EVENT_CLOSE
Exit
Case $backbutton
GUIDelete($l1GUI)
GUISetState(@SW_SHOW,$hGUI)
Case $fertigbutton
If GUICtrlRead($15input) = "7" And GUICtrlRead($16input) = "9" And GUICtrlRead($18input) = "6" And GUICtrlread($19input) = "1" And GUICtrlRead($21input) = "3" And GUICtrlRead($22input) = "8" And GUICtrlRead($23input) = "7" And GUICtrlRead($24input) And GUICtrlRead($27input) = "1" And GUICtrlRead($34input) = "6" And GUICtrlRead($35input) = "1" And GUICtrlRead($36input) = "8" And GUICtrlRead($38input) = "2" And GUICtrlRead($39input) = "5" And GUICtrlRead($41input) = "5" And GUICtrlRead($43input) = "7" And GUICtrlRead($47input) = "2" And GUICtrlRead($48input) = "8" And GUICtrlRead($49input) = "4" And GUICtrlRead($52input) = "5" And GUICtrlRead($54input) = "9" And GUICtrlRead($55input) = "3" And GUICtrlRead($56input) = "2" And GUICtrlRead($58input) = "7" And GUICtrlRead($61input) = "8" And GUICtrlRead($62input) = "6" And GUICtrlRead($63input) = "1" And GUICtrlRead($67input) = "3" And GUICtrlRead($69input) = "9" And GUICtrlRead($71input) = "1" And GUICtrlRead($72input) = "6" And GUICtrlRead($74input) = "4" And GUICtrlRead($75input) = "2" And GUICtrlRead($76input) = "5" And GUICtrlRead($83input) = "4" And GUICtrlRead($86input) = "7" And GUICtrlRead($87input) = "5" And GUICtrlRead($88input) = "3" And GUICtrlRead($89input) = "6" And GUICtrlRead($91input) = "7" And GUICtrlRead($92input) = "5" And GUICtrlRead($94input) = "3" And GUICtrlRead($95input) = "4" Then
MsgBox(0,"Richtig","Richtig")
Else
MsgBox(0,"Fehler","Da ist noch ein Fehler. Kontrolliere lieber noch einmal!!")
EndIf
Case $tippbutton
GUICtrlSetData($15input,"7")
GUICtrlSetData($16input,"9")
GUICtrlSetData($18input,"6")
GUICtrlSetData($19input,"1")
GUICtrlSetData($21input,"3")
GUICtrlSetData($22input,"8")
GUICtrlSetData($23input,"7")
GUICtrlSetData($24input,"4")
GUICtrlSetData($27input,"1")
GUICtrlSetData($34input,"6")
GUICtrlSetData($35input,"1")
GUICtrlSetData($36input,"8")
GUICtrlSetData($38input,"2")
GUICtrlSetData($39input,"5")
GUICtrlSetData($41input,"5")
GUICtrlSetData($43input,"7")
GUICtrlSetData($47input,"2")
GUICtrlSetData($48input,"8")
GUICtrlSetData($49input,"4")
GUICtrlSetData($52input,"5")
GUICtrlSetData($54input,"9")
GUICtrlSetData($55input,"3")
GUICtrlSetData($56input,"2")
GUICtrlSetData($58input,"7")
GUICtrlSetData($61input,"8")
GUICtrlSetData($62input,"6")
GUICtrlSetData($63input,"1")
GUICtrlSetData($67input,"3")
GUICtrlSetData($69input,"9")
GUICtrlSetData($71input,"1")
GUICtrlSetData($72input,"6")
GUICtrlSetData($74input,"4")
GUICtrlSetData($75input,"2")
GUICtrlSetData($76input,"5")
GUICtrlSetData($83input,"4")
GUICtrlSetData($86input,"7")
GUICtrlSetData($87input,"5")
GUICtrlSetData($88input,"3")
GUICtrlSetData($89input,"6")
GUICtrlSetData($91input,"7")
GUICtrlSetData($92input,"5")
GUICtrlSetData($94input,"3")
GUICtrlSetData($95input,"4")
EndSwitchWEnd
[/autoit] [autoit][/autoit] [autoit][/autoit] -
Zitat
achja hier noch n paar ideen gegen langeweile^^- Schriebe einen Brief an alle Fehrnsehserien, und sage wie lieb du Sie hast
- Schriebe einen Brief an Fehrnsehsender, und bitte um möglichst viele Autogramme
- hänge eine Fahne aus dem Fenster auf der du gegen Demonstartionen demonstrierst
- Streiche deine Wände in min. 10 verschiedenen Farben
- Stell all deine Möbel vor die Tür, und wenn jemand kommt schrei: halltet den Dieb
- Bemale deine Hauswand von außen mit blumenmustern
- Stell dich vor die tür, und schüttel jedem die hand, und bedanke dich für den kurzen besuch
- Ruf bei der Telefonstörstelle an, und sage, das dein Telefon nicht geht, und du nicht telefonieren könntest
- Bei anrufen melde dich als Anrufbeantworter
- wenn jemand klingelt winke den leuten aus dem fenster zu, und lasse die tür verschlossen
- gehe auf AutoIT.de und veräppel alle, indem du dir die Funktion einer MsgBox erklären lässt *nicht alle mir nachmachen*
- geh mit einem Laserpointer in avatar, und nerv alle
- hilf Jonathan mit seinem Telnet-Server Problem
- Beleidige BugFix als Kanibalen
Ähm Jonathan
Die meißten Ideen sind von https://autoit.de/www.kikisweb.de
Da habe ich auch schon mal geschaut
-
Ah okay.
Mit Arrays hatte ich bisher noch nich soviel am Hut.
Danke
-
Ja ich würde auch keine wirklichen wichtigen Fragen mit dem Entscheider beantworten lassen.
z.B soll ich sie/ihn Heiraten.
Das kann zu schlechten Ergebnissen führen -
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
[autoit]#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]$hGUI = GUICreate("Der Entscheider",300,200)
[/autoit] [autoit][/autoit] [autoit]
$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
[/autoit] [autoit][/autoit] [autoit]
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()
EndSwitchWEnd
[/autoit] [autoit][/autoit] [autoit]Func JaNein()
[/autoit] [autoit][/autoit] [autoit]$rnd = Random(1,2,1)
[/autoit] [autoit][/autoit] [autoit]If $rnd = "1" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Die Antwort","Ja")
EndIfIf $rnd = "2" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Die Antwort","Nein")
EndIfEndFunc ;===> 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 ?)")
[/autoit] [autoit][/autoit] [autoit]
$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)
EndIfEndFunc ;===> Bis
[/autoit] [autoit][/autoit] [autoit]Func Wochentag()
[/autoit] [autoit][/autoit] [autoit]$rnd = Random(1,7,1)
[/autoit] [autoit][/autoit] [autoit]If $rnd = "1" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Die Antwort lautet","Montag")
EndIfIf $rnd = "2" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Die Antwort lautet","Dienstag")
EndIfIf $rnd = "3" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Die Antwort lautet","Mittwoch")
EndIfIf $rnd = "4" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Die Antwort lautet","Donnerstag")
EndIfIf $rnd = "5" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Die Antwort lautet","Freitag")
EndIfIf $rnd = "6" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Die Antwort lautet","Samstag")
EndIfIf $rnd = "7" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Die Antort lautet","Sonntag")
EndIfEndFunc ;===> Wochentag
[/autoit] [autoit][/autoit] [autoit]Func Monat()
[/autoit] [autoit][/autoit] [autoit]$rnd = Random(1,12,1)
[/autoit] [autoit][/autoit] [autoit]If $rnd = "1" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Die Antwort lautet","Januar")
EndIfIf $rnd = "2" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Die Antwort lautet","Februar")
EndIfIf $rnd = "3" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Die Antwort lautet","März")
EndIfIf $rnd = "4" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Die Antwort lautet","April")
EndIfIf $rnd = "5" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Die Antwort lautet","Mai")
EndIfIf $rnd = "6" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Die Antwort lautet","Juni")
EndIfIf $rnd = "7" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Die Antwort lautet","Juli")
EndIfIf $rnd = "8" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Die Antwort lautet","August")
EndIfIf $rnd = "9" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Die Antwort lautet","September")
EndIfIf $rnd = "10" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Die Antwort lautet","Oktober")
EndIfIf $rnd = "11" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Die Antwort lautet","November")
EndIfIf $rnd = "12" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Die Antwort lautet","Dezember")
EndIfEndFunc ;==> Monat
[/autoit] [autoit][/autoit] [autoit]Func Programmieren()
[/autoit] [autoit][/autoit] [autoit]$rnd = Random(1,10,1)
[/autoit] [autoit][/autoit] [autoit]If $rnd = "1" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Programmieren","Wie wärs mit einem Sudoku?")
EndIfIf $rnd = "2" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Programmieren","Wie wärs mit einem Tetris-Programm?")
EndIfIf $rnd = "3" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Programmieren","Wie wärs mit einem Programm zum ausrechnen des Zeugnisdurchschnittes?")
EndIfIf $rnd = "4" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Programmieren","(Anspruchvoll!) Wie wärs mit einem Orginaizer, z.B Kalender, Notizen, Aufgaben, Telefonbuch, etc.")
EndIfIf $rnd = "5" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Programmieren","Wie wärs mit einem Vokabel-Lern-Programm")
EndIfIf $rnd = "6" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Programmieren","Wie wärs mit einem Password-Saver")
EndIfIf $rnd = "7" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Programmieren","Wie wärs mit einem Musik-Player")
EndIfIf $rnd = "8" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Programmieren","(Anspruchsvoll!) Wie wärs mit einem Programm welches automatisch fehlende Satzzeichen einfügt und die Groß- und Kleinschreibung korrigiert")
EndIfIf $rnd = "9" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Programmieren","Wie wärs mit einem Grafik-Programm, z.B so ähnlich wie Paint")
EndIfIf $rnd = "10" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Programmieren","(Unmöglich!!!!) Wie wärs mit einen besseren Entscheider als der hier")
EndIfEndFunc ;===> 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
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Die Antwort lautet","Grün")
EndIfIf $rnd = "2" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Die Antwort lautet","Blau")
EndIfIf $rnd = "3" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Die Antwort lautet","Rot")
EndIfIf $rnd = "4" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Die Antwort lautet","Gelb")
EndIfIf $rnd = "5" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Die Antwort lautet","Braun")
EndIfIf $rnd = "6" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Die Antwort lautet","Orange")
EndIfIf $rnd = "7" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Die Antwort lautet","Lila")
EndIfIf $rnd = "8" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Die Antwort lautet","Weiß")
EndIfIf $rnd = "9" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Die Antwort lautet","Schwarz")
EndIfEndFunc ;===> Farbe
[/autoit] [autoit][/autoit] [autoit]Func Essen()
[/autoit] [autoit][/autoit] [autoit]$rnd = Random(1,10,1)
[/autoit] [autoit][/autoit] [autoit]If $rnd = "1" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Essen","Wie wärs mit Nudeln")
EndIfIf $rnd = "2" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Essen","Wie wärs mit Kartoffeln")
EndIfIf $rnd = "3" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Essen","Wie wärs mit Pizza")
EndIfIf $rnd = "4" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Essen","Wie wärs mit Döner")
EndIfIf $rnd = "5" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Essen","Wie wärs mit McDonalds/Burger King (Burger King ist besser!!)")
EndIfIf $rnd = "6" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Essen","Wie wärs mit Würstchen")
EndIfIf $rnd = "7" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Essen","Wie wärs mit Fisch")
EndIfIf $rnd = "8" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Essen","Wie wärs mit Reis")
EndIfIf $rnd = "9" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Essen","Wie wärs mit Steak")
EndIfIf $rnd = "10" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Essen","Wie wärs mit Salat")
EndIfEndFunc ;===> Essen
[/autoit] [autoit][/autoit] [autoit]Func Langweilig()
[/autoit] [autoit][/autoit] [autoit]$rnd = Random(1,10,1)
[/autoit] [autoit][/autoit] [autoit]If $rnd = "1" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Langeweile?","Mach endlich mal Arbeiten die du vor dich herschiebst!")
EndIfIf $rnd = "2" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Langeweile?","Lernen")
EndIfIf $rnd = "3" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Langeweile?","Lesen")
EndIfIf $rnd = "4" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Langeweile?","Telefonieren")
EndIfIf $rnd = "5" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Langeweile?","Etwas mit Freunden machen")
EndIfIf $rnd = "6" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Langeweile?","Mit AutoIt programmieren")
EndIfIf $rnd = "7" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Langeweile?","Etwas Zocken")
EndIfIf $rnd = "8" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Langeweile?","Schlafen")
EndIfIf $rnd = "9" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Langeweile?","Film schauen")
EndIfIf $rnd = "10" Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Langeweile?","Über dein Leben nachdenken")
EndIfEndFunc ;==> Langeweile
[/autoit] -
Man kann es ja so machen das man bespricht wer was macht, und wenn man dann ein Scrpt fertig hat, dann kann man es z.B auf diesen Server:
Zitatwie zb. http://www.bplaced.net/ (hat max. 8 Zugänge für 8 Personen)
hochladen
-
Hi Clonker.
Hört sich cool an.
Also ich würde mitmachen! -
Stimmt.
Das werde ich noch einbauen. -
Hallo.
Ich habe so ein kleines Reaktionsspiel gemacht. Das funktioniert so.
In der Mitte wird eine Zahl angezeigt. Dann muss man auf den entsprechenden Button klicken.
Also. Wenn in der Mitte eine 2 steht dann klickt man auf den 2 Button.
Wenn ihr die Schnelligkeit verändern wollt, dann müsst ihr nur die Sleep-Phase in Zeile 56 verändern.
Hier ist das Script:Spoiler anzeigen
[autoit]#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]
Global $var$hGUI = GUICreate("So schnell du kannst",300,400)
[/autoit] [autoit][/autoit] [autoit]
$onebutton = GUICtrlCreateButton("1",10,10,100,100)
$twobutton = GUICtrlCreateButton("2",180,10,100,100)
$threebutton = GUICtrlCreateButton("3",10,130,100,100)
$fourbutton = GUICtrlCreateButton("4",180,130,100,100)
$fivebutton = GUICtrlCreateButton("5",10,260,100,100)
$sixbutton = GUICtrlCreateButton("6",180,260,100,100)
$label = GUICtrlCreateLabel("",133,160,30,40)
$startbutton = GUICtrlCreateButton("Start",125,360,50,25)GUICtrlSetFont($onebutton,30)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetFont($twobutton,30)
GUICtrlSetFont($threebutton,30)
GUICtrlSetFont($fourbutton,30)
GUICtrlSetFont($fivebutton,30)
GUICtrlSetFont($sixbutton,30)
GUICtrlSetFont($label,30)GUICtrlSetBkColor($twobutton,0xff0000)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetBkColor($onebutton,0xff000)
GUICtrlSetBkColor($threebutton,0xfff000)
GUICtrlSetBkColor($fourbutton,0xf0)
GUICtrlSetBkColor($fivebutton,0xff7f00)
GUICtrlSetBkColor($sixbutton,0x7f00ff)
GUISetState()While 1
[/autoit] [autoit][/autoit] [autoit]
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $startbutton
$var = _Startup()
Case Else
Check($var,$msg)
EndSwitch
WEndFunc _Startup()
[/autoit] [autoit][/autoit] [autoit]
$msg = GUIGetMsg()
Local $rnd = Random(1, 6, 1)
GUICtrlSetState($label,$GUI_SHOW)
GUICtrlSetData($label, $rnd)
Sleep(500)
GUICtrlSetState($label,$GUI_HIDE)
Check($rnd,$msg)
Return($rnd)
EndFuncFunc Check($iRightNum, $Button)
[/autoit]
Switch $Button
Case $onebutton
If $iRightNum = 1 Then
$var = _Startup()
Else
MsgBox(0,"Fehler","Fehler")
EndIf
Case $twobutton
If $iRightNum = 2 Then
$var = _Startup()
Else
MsgBox(0,"Fehler","Fehler")
EndIf
Case $threebutton
If $iRightNum = 3 Then
$var = _Startup()
Else
MsgBox(0,"Fehler","Fehler")
EndIf
Case $fourbutton
If $iRightNum = 4 Then
$var = _Startup()
Else
MsgBox(0,"Fehler","Fehler")
EndIf
Case $fivebutton
If $iRightNum = 5 Then
$var = _Startup()
Else
MsgBox(0,"Fehler","Fehler")
EndIf
Case $sixbutton
If $iRightNum = 6 Then
$var = _Startup()
Else
MsgBox(0,"Fehler","Fehler")
EndIf
EndSwitch
EndFunc -
Genau das habe ich.
Is ja jetzt auch egal. Danke für die Hilfe! -
Ok.
Danke.
Aber wieso haben denn meine Funktionen gar kein Sinn ergeben.
Ich fande es sie nicht mal so schlecht
-
Ok. Ich habe erst Funktionen eigebaut das man nur 2 Buttons drücken muss.
Spoiler anzeigen
[autoit]#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.3.4.0
[/autoit] [autoit][/autoit] [autoit]
Author: myNameScript Function:
[/autoit] [autoit][/autoit] [autoit]
Template AutoIt script.#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]
#include<GUIConstantsEx.au3>$hGUI = GUICreate("So schnell du kannst",300,400)
[/autoit] [autoit][/autoit] [autoit]
$onebutton = GUICtrlCreateButton("1",10,10,100,100)
$twobutton = GUICtrlCreateButton("2",180,10,100,100)
$threebutton = GUICtrlCreateButton("3",10,130,100,100)
$fourbutton = GUICtrlCreateButton("4",180,130,100,100)
$fivebutton = GUICtrlCreateButton("5",10,260,100,100)
$sixbutton = GUICtrlCreateButton("6",180,260,100,100)
$label = GUICtrlCreateLabel("",133,160,30,40)
$startbutton = GUICtrlCreateButton("Start",125,360,50,25)
GUICtrlSetState($label,$GUI_HIDE)GUICtrlSetFont($onebutton,30)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetFont($twobutton,30)
GUICtrlSetFont($threebutton,30)
GUICtrlSetFont($fourbutton,30)
GUICtrlSetFont($fivebutton,30)
GUICtrlSetFont($sixbutton,30)
GUICtrlSetFont($label,30)GUICtrlSetBkColor($twobutton,0xff0000)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetBkColor($onebutton,0xff000)
GUICtrlSetBkColor($threebutton,0xfff000)
GUICtrlSetBkColor($fourbutton,0xf0)
GUICtrlSetBkColor($fivebutton,0xff7f00)
GUICtrlSetBkColor($sixbutton,0x7f00ff)
GUISetState()Do
[/autoit] [autoit][/autoit] [autoit]$r = Random(1,2,1)
[/autoit] [autoit][/autoit] [autoit]Check_1()
[/autoit] [autoit][/autoit] [autoit]Check_2()
[/autoit] [autoit][/autoit] [autoit]Until GUIGetMsg() = $GUI_EVENT_CLOSE
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
ExitFunc Check_1()
[/autoit] [autoit][/autoit] [autoit]If $r = "1" Then
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetState($label,$GUI_SHOW)
GUICtrlSetData($label,"1")
Sleep(500)
GUICtrlSetState($label,$GUI_HIDE)
Do
Sleep(100)
Until GUIGetMsg() = $onebutton Or GUIGetMsg() = $twobutton or GUIGetMsg() = $threebutton or GUIGetMsg() = $fourbutton or GUIGetMsg() = $fivebutton or GUIGetMsg() = $sixbutton
EndIfEndFunc ;==> Check_1
[/autoit] [autoit][/autoit] [autoit]Func Check_2()
[/autoit] [autoit][/autoit] [autoit]If $r = "2" Then
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetState($label,$GUI_SHOW)
GUICtrlSetData($label,"2")
Sleep(500)
GUICtrlSetState($label,$GUI_HIDE)
Do
Sleep(100)
Until GUIGetMsg() = $onebutton Or GUIGetMsg() = $twobutton or GUIGetMsg() = $threebutton or GUIGetMsg() = $fourbutton or GUIGetMsg() = $fivebutton or GUIGetMsg() = $sixbutton
EndIfEndFunc ;==> Check_2
[/autoit] -
Hallo Leute.
Ich mache grad so ein Reaktionsspiel.
Dort sind 6 Buttons und in der Mitte wird eine Zahl angezeigt und dann muss man auf den entsprechenden Button drücken.
Es ist also so, dass das Script jede Sekunde eine andre Zahl einsetzen muss. Ist es dann normal das das Programm laggt o.ä? -
Achso.
Danke für die Hilfe