Der Entscheider

Bakku

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)
$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)

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

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

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

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

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

If $rnd = "2" Then
MsgBox(0,"Die Antwort","Nein")
EndIf

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

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

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

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

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

If $rnd = "2" Then
MsgBox(0,"Die Antwort lautet","Dienstag")
EndIf

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

If $rnd = "3" Then
MsgBox(0,"Die Antwort lautet","Mittwoch")
EndIf

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

If $rnd = "4" Then
MsgBox(0,"Die Antwort lautet","Donnerstag")
EndIf

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

If $rnd = "5" Then
MsgBox(0,"Die Antwort lautet","Freitag")
EndIf

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

If $rnd = "6" Then
MsgBox(0,"Die Antwort lautet","Samstag")
EndIf

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

If $rnd = "7" Then
MsgBox(0,"Die Antort lautet","Sonntag")
EndIf

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

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

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

If $rnd = "2" Then
MsgBox(0,"Die Antwort lautet","Februar")
EndIf

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

If $rnd = "3" Then
MsgBox(0,"Die Antwort lautet","März")
EndIf

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

If $rnd = "4" Then
MsgBox(0,"Die Antwort lautet","April")
EndIf

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

If $rnd = "5" Then
MsgBox(0,"Die Antwort lautet","Mai")
EndIf

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

If $rnd = "6" Then
MsgBox(0,"Die Antwort lautet","Juni")
EndIf

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

If $rnd = "7" Then
MsgBox(0,"Die Antwort lautet","Juli")
EndIf

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

If $rnd = "8" Then
MsgBox(0,"Die Antwort lautet","August")
EndIf

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

If $rnd = "9" Then
MsgBox(0,"Die Antwort lautet","September")
EndIf

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

If $rnd = "10" Then
MsgBox(0,"Die Antwort lautet","Oktober")
EndIf

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

If $rnd = "11" Then
MsgBox(0,"Die Antwort lautet","November")
EndIf

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

If $rnd = "12" Then
MsgBox(0,"Die Antwort lautet","Dezember")
EndIf

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

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

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

If $rnd = "2" Then
MsgBox(0,"Programmieren","Wie wärs mit einem Tetris-Programm?")
EndIf

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

If $rnd = "3" Then
MsgBox(0,"Programmieren","Wie wärs mit einem Programm zum ausrechnen des Zeugnisdurchschnittes?")
EndIf

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

If $rnd = "4" Then
MsgBox(0,"Programmieren","(Anspruchvoll!) Wie wärs mit einem Orginaizer, z.B Kalender, Notizen, Aufgaben, Telefonbuch, etc.")
EndIf

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

If $rnd = "5" Then
MsgBox(0,"Programmieren","Wie wärs mit einem Vokabel-Lern-Programm")
EndIf

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

If $rnd = "6" Then
MsgBox(0,"Programmieren","Wie wärs mit einem Password-Saver")
EndIf

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

If $rnd = "7" Then
MsgBox(0,"Programmieren","Wie wärs mit einem Musik-Player")
EndIf

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

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

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

If $rnd = "9" Then
MsgBox(0,"Programmieren","Wie wärs mit einem Grafik-Programm, z.B so ähnlich wie Paint")
EndIf

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

If $rnd = "10" Then
MsgBox(0,"Programmieren","(Unmöglich!!!!) Wie wärs mit einen besseren Entscheider als der hier")
EndIf

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

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

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

If $rnd = "2" Then
MsgBox(0,"Die Antwort lautet","Blau")
EndIf

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

If $rnd = "3" Then
MsgBox(0,"Die Antwort lautet","Rot")
EndIf

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

If $rnd = "4" Then
MsgBox(0,"Die Antwort lautet","Gelb")
EndIf

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

If $rnd = "5" Then
MsgBox(0,"Die Antwort lautet","Braun")
EndIf

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

If $rnd = "6" Then
MsgBox(0,"Die Antwort lautet","Orange")
EndIf

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

If $rnd = "7" Then
MsgBox(0,"Die Antwort lautet","Lila")
EndIf

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

If $rnd = "8" Then
MsgBox(0,"Die Antwort lautet","Weiß")
EndIf

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

If $rnd = "9" Then
MsgBox(0,"Die Antwort lautet","Schwarz")
EndIf

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

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

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

If $rnd = "2" Then
MsgBox(0,"Essen","Wie wärs mit Kartoffeln")
EndIf

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

If $rnd = "3" Then
MsgBox(0,"Essen","Wie wärs mit Pizza")
EndIf

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

If $rnd = "4" Then
MsgBox(0,"Essen","Wie wärs mit Döner")
EndIf

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

If $rnd = "5" Then
MsgBox(0,"Essen","Wie wärs mit McDonalds/Burger King (Burger King ist besser!!)")
EndIf

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

If $rnd = "6" Then
MsgBox(0,"Essen","Wie wärs mit Würstchen")
EndIf

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

If $rnd = "7" Then
MsgBox(0,"Essen","Wie wärs mit Fisch")
EndIf

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

If $rnd = "8" Then
MsgBox(0,"Essen","Wie wärs mit Reis")
EndIf

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

If $rnd = "9" Then
MsgBox(0,"Essen","Wie wärs mit Steak")
EndIf

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

If $rnd = "10" Then
MsgBox(0,"Essen","Wie wärs mit Salat")
EndIf

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

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

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

If $rnd = "2" Then
MsgBox(0,"Langeweile?","Lernen")
EndIf

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

If $rnd = "3" Then
MsgBox(0,"Langeweile?","Lesen")
EndIf

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

If $rnd = "4" Then
MsgBox(0,"Langeweile?","Telefonieren")
EndIf

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

If $rnd = "5" Then
MsgBox(0,"Langeweile?","Etwas mit Freunden machen")
EndIf

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

If $rnd = "6" Then
MsgBox(0,"Langeweile?","Mit AutoIt programmieren")
EndIf

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

If $rnd = "7" Then
MsgBox(0,"Langeweile?","Etwas Zocken")
EndIf

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

If $rnd = "8" Then
MsgBox(0,"Langeweile?","Schlafen")
EndIf

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

If $rnd = "9" Then
MsgBox(0,"Langeweile?","Film schauen")
EndIf

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

If $rnd = "10" Then
MsgBox(0,"Langeweile?","Über dein Leben nachdenken")
EndIf

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

EndFunc ;==> Langeweile

[/autoit]

Jonathan

sehr nützlich^^

Edit: das doofe dingen hat ebend entschieden, ich soll mich umbringen...
Edit2: Niemals mache cih meien Matha Hausaufgaben, die ich vor mir herschiebe

Bakku

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

PrideRage

Ziemlich witzig.
Was ich laut dem Prog tun soll wenn mir langweilig ist: Film Schauen.
Noch ein klick: Schlafen xD
Was denn jetzt
Aber schon n bissel nützlich.
MfG. PrideRage

xp_fan

Nett, nett.
Ich soll fünf Musik-Player schreiben!

//Edit: Warum kommen denn hier keine Smilies?

Jautois

Hab dein Scipt mal um ~220 Zeilen gekürzt. Du kannst Arrays verwenden um die Antworten zu speichern. Vielleicht hilft dir mein editiertes Script um Arrays zu verstehen

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>

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

Global $aKategorie[4] = ["Die Antwort lautet", "Programmieren", "Essen", "Langeweile?"]

[/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)

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

GUISetState(@SW_SHOW)

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

While 1
$msg = GUIGetMsg()
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()
If Random(1, 2, 1) = 1 Then
MsgBox(0, "Die Antwort", "Ja")
Else
MsgBox(0, "Die Antwort", "Nein")
EndIf
EndFunc ;==>JaNein

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

Func Bis()
$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()
Local $aAntworten[7] = ["Montag", "Dienstag", "Mittwoch", "Donnerstag", "Freitag", "Samstag", "Sonntag"]
MsgBox(0, $aKategorie[0], $aAntworten[Random(0, UBound($aAntworten)-1, 1)])
EndFunc ;==>Wochentag

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

Func Monat()
Local $aAntworten[12] = ["Januar", "Februar", "März", "April", "Mai", "Juni", "Juli", "August", "September", "Oktober", "November", "Dezember"]
MsgBox(0, $aKategorie[0],$aAntworten[Random(0, UBound($aAntworten)-1, 1)])
EndFunc ;==>Monat

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

Func Programmieren()
Local $aAntworten[10] = [ _
"Wie wärs mit einem Sudoku?", _
"Wie wärs mit einem Tetris-Programm?", _
"Wie wärs mit einem Programm zum ausrechnen des Zeugnisdurchschnittes?", _
"(Anspruchvoll!) Wie wärs mit einem Orginaizer, z.B Kalender, Notizen, Aufgaben, Telefonbuch, etc.", _
"Wie wärs mit einem Vokabel-Lern-Programm", _
"Wie wärs mit einem Password-Saver", _
"Wie wärs mit einem Musik-Player", _
"Wie wärs mit einem Grafik-Programm, z.B so ähnlich wie Paint", _
"(Unmöglich!!!!) Wie wärs mit einen besseren Entscheider als der hier"]
MsgBox(0, $aKategorie[1], $aAntworten[Random(0, UBound($aAntworten)-1, 1)])
EndFunc ;==>Programmieren

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

Func Farbe()
Local $aAntworten[9] = ["Grün", "Blau", "Rot", "Gelb", "Braun", "Orange", "Lila", "Weiß", "Schwarz"]
MsgBox(0, $aKategorie[0], $aAntworten[Random(0, UBound($aAntworten)-1, 1)])
EndFunc ;==>Farbe

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

Func Essen()
Local $aAntworten[10] = [ _
"Nudeln", _
"Kartoffeln", _
"Pizza", _
"Döner", _
"McDonalds/Burger King (Burger King ist besser!!)", _
"Würstchen", _
"Fisch", _
"Reis", _
"Steak", _
"Salat"]
MsgBox(1,"", UBound($aAntworten))
MsgBox(0, $aKategorie[0], "Wie wärs mit " & $aAntworten[Random(0, UBound($aAntworten)-1, 1)])
EndFunc ;==>Essen

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

Func Langweilig()
Local $aAntworten[10] = [ _
"Mach endlich mal Arbeiten die du vor dich herschiebst!", _
"Lernen", _
"Lesen", _
"Telefonieren", _
"Etwas mit Freunden machen", _
"Mit AutoIt programmieren", _
"Etwas Zocken", _
"Schlafen", _
"Film schauen", _
"Über dein Leben nachdenken"]
MsgBox(0, $aKategorie[3], $aAntworten[Random(0, UBound($aAntworten)-1, 1)])
EndFunc ;==>Langweilig

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

Bakku

Ah okay.
Mit Arrays hatte ich bisher noch nich soviel am Hut.
Danke

Jonathan

Zitat von Jautois

Arrays

brr diese dinger sind mir ja ganz schief gewachsen... warum kompiziert, wenns auch einfach geht der endbenutzer sieht den code nciht, und merkt es auch nciht wenn die datei jetzt 10kb größer ist oder nicht

Jonathan

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

Jautois

Zitat

brr diese dinger sind mir ja ganz schief gewachsen... warum kompiziert, wenns auch einfach geht der endbenutzer sieht den code nciht, und merkt es auch nciht wenn die datei jetzt 10kb größer ist oder nicht

Dem kann ich nicht zustimmen. Arrays sind eigentlich nicht kompliziert. Einmal verstanden, kann man sie leicht verwenden.

Zu den 10kB: Naja der "Entscheider" hier ist ja auch kein großes Programm, aber mach das mal auf die - naja - "chaotische" Weise, in einem richtigen Programm. Da blickt doch hinterher in einem Code von 1000+ Zeilen keiner mehr durch. Bei 10kB Speicherplatzersparnis liegen wir dann auch nicht mehr.

Aber es soll jeder so machen wie er denkt. Ich bevorzuge es eben etwas "übersichtlicher" mit Arrays.

Bakku

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

Jonathan

Zitat von Bakku

Die meißten Ideen sind von https://autoit.de/www.kikisweb.de
Da habe ich auch schon mal geschaut

hab ja auch nit gesagt, das die von mir sind, aber ich habe sie abgeschrieben^^

Ubuntu

Sind aber keine schlechten Ideen und so was bringt abwechslung.

mfg Ubuntu

Edit:

Bei mir kam:
Was tun mir ist langweilig: AutoIt programmieren
Was kann ich programmieren: (anspruchsvoll) Terminplaner , Notizen verwalter, ..... oder so ähnlich
und das 2 mal.^^

Schau doch in meine Signatur du dummer entscheider.

SEuBo

Noch 18 weitere Dinge für den Langeweile-Plan:

Spoiler anzeigen

1. Suche ein Kopiergerät, und stelle es auf 200% verkleinern, A5 Papier, 99 Kopien
2. Sitz in deinem Garten und zeige mit einem Fön auf vorbeifahrende Autos, um zu sehen, ob sie langsamer werden.
3. Singe in der Oper mit.
4. Ruf deinen besten Freund an und antworte auf alles mit "Das ist das, was DU glaubst!".
5. Übe das Nachmachen der Fax- und Modemgeräusche.
6. Hebe irrelevantes Material in wissenschaftlichen Artikeln hervor und sende sie deinem Chef.
7. Rufe Zufallszahlen, wenn jemand am zählen ist.
8. Geh ins Wohnzimmer und stell die Farbe am TV so ein, dass alle Leute grün sind und erkläre, dass du es so magst.
9. Erforsche in der Öffentlichkeit, wie langsam du ein krächzendes Geräusch machen kannst.
10. Hupe und winke Fremden zu.
11. Gehe in ein feines Restaurant, aber lehne es ab, irgendwo an einen Tisch gesetzt zu werden und iss nur die Bonbons bei der Kasse.
12. SCHREIB EINEN BLOG NUR IN GROSSBUCHSTABEN.
13. Kaufe grosse Mengen von diesen orangen Kegeln für den Strassenbau und stell sie der ganzen Strasse entlang auf.
14. Wiederhole diese Unterhaltung einige Dutzend Male mit dir selbst: "Hörst du das?" - "Was?" - "Ach, vergiss es, schon vorbei!"
15. Versuche, die Willhelm-Tell-Ouvertüre (the Lone Ranger Theme) auf deinem Kinn zu klopfen. Wenn du fast fertig bist, sage "Nein, warte, ich hab es versaut", und wiederhole es.
16. Laufe durch die Straße und frage die Leute, welches Geschlecht sie sind.
17. Lade alle deine Freunde zu einer Party am Wochenende ein, nur um eine Stunde später allen abzusagen, weil du keine Lust mehr auf sie hast.
18. Wenn du Leuten etwas ausleihst, ruf ihnen täglich an und erinnere sie daran, dass sie im Falle eines Defektes das Gerät zahlen müssen.

http://www.ipernity.com/blog/cat/220220 nur ein bisschen abgeändert.

Ubuntu

Du musst bei der Version die ich habe noch Zeile 103 auskommentiren. (ich glaube meine version ist noch aktuell)
Sonst wird bei essen immer noch die anzahl der auswahlmöglichkeiten angezeigt.