Bewerbung Maker v3

05/11/2013 21:04 sezer0012#1
Meine Damen und Herren,
ich präsentiere euch das was ihr noch nie gesehen habt, (Vielleicht schon )

BEWERBUNG MAKER V3 UND DIESMAL ALLES BESSER!


Was ist neu?
- 4 Forms
- 2 Optionen = KLEINE BEWERBUNG oder GROßE BEWERBUNG
- Extra Form für Hilfe
- Es ist größer.
- Es wird ein extra Ordner erstellt.
UND VIELES MEHR

Code:
#cs ------------------------------------

BewerbungMaker v3 by sezer0012
Author: sezer0012

Uhrzeit und Datum an veröffentlichung: 20:42 Uhr & 11 Mai 2013
Zeilen: 288
Wie lange ich gebraucht habe: 8 Stunden mit 2 Pausen

#ce -----------------------------------

;Includes
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

;Form 1 (Beim Start)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Bewerbung Maker v3", 239, 107, 192, 124)
GUISetBkColor(0x99B4D1)
$Label1 = GUICtrlCreateLabel("Copyright by sezer0012", 8, 72, 209, 30)
GUICtrlSetFont(-1, 16, 800, 2, "Corbel")
$Button1 = GUICtrlCreateButton("Kleine Bewerbung", 0, 8, 115, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Große Bewerbung", 120, 8, 115, 25, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Hilfe", 0, 40, 235, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

;Form 2 (Kleine Bewerbung)
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Kleine Bewerbung", 439, 263, 192, 124)
GUISetBkColor(0xABABAB)
$Input1 = GUICtrlCreateInput("", 16, 24, 121, 21)
$Group2 = GUICtrlCreateGroup("Überschrifft", 8, 8, 137, 49)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group1 = GUICtrlCreateGroup("Name", 152, 8, 137, 49)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Input2 = GUICtrlCreateInput("", 160, 24, 121, 21)
$Group3 = GUICtrlCreateGroup("Alter", 296, 8, 137, 49)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Input3 = GUICtrlCreateInput("", 304, 24, 121, 21)
$Group4 = GUICtrlCreateGroup("Hobbys", 8, 64, 137, 97)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Input4 = GUICtrlCreateInput("", 16, 80, 121, 21)
$Input5 = GUICtrlCreateInput("", 16, 104, 121, 21)
$Input6 = GUICtrlCreateInput("", 16, 128, 121, 21)
$Group5 = GUICtrlCreateGroup("Stärken", 152, 64, 137, 97)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Input7 = GUICtrlCreateInput("", 160, 80, 121, 21)
$Input8 = GUICtrlCreateInput("", 160, 104, 121, 21)
$Input9 = GUICtrlCreateInput("", 160, 128, 121, 21)
$Group6 = GUICtrlCreateGroup("Schwächen", 296, 64, 137, 97)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Input10 = GUICtrlCreateInput("", 304, 80, 121, 21)
$Input11 = GUICtrlCreateInput("", 304, 104, 121, 21)
$Input12 = GUICtrlCreateInput("", 304, 128, 121, 21)
$Label2 = GUICtrlCreateLabel("Copyright by sezer0012", 8, 200, 423, 57)
GUICtrlSetFont(-1, 32, 800, 2, "Corbel")
$Button4 = GUICtrlCreateButton("Speichern", 8, 168, 427, 25, $WS_GROUP)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

;Form 3 (Hilfe)
#Region ### START Koda GUI section ### Form=
$Form3 = GUICreate("Hilfe", 602, 409, 192, 124)
GUISetBkColor(0x99B4D1)
$Label2 = GUICtrlCreateLabel("Es ist wichtig zu beachten das man bei diesen Wörtern nichts groß schreiben darf,", 11, 8, 581, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\Bewerbung\Beachten.jpg", 8, 56, 580, 244, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Label1 = GUICtrlCreateLabel("und keine Zeichen einfügen darf.", 11, 32, 236, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button5 = GUICtrlCreateButton("Zurück", 8, 304, 580, 26, $WS_GROUP)
$Label3 = GUICtrlCreateLabel("Copyright by sezer0012", 11, 328, 577, 76)
GUICtrlSetFont(-1, 44, 800, 2, "Corbel")
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

;Form 4 (Große Bewerbung)
#Region ### START Koda GUI section ### Form=c:\users\bülent\desktop\form 1-4\form4.kxf
$Form4 = GUICreate("Große Bewerbung", 447, 447, 192, 124)
GUISetBkColor(0xC0C0C0)
$Group1 = GUICtrlCreateGroup("Überschrifft", 8, 8, 137, 41)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Input13 = GUICtrlCreateInput("", 11, 24, 121, 21)
$Group2 = GUICtrlCreateGroup("Name", 152, 8, 137, 41)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Input14 = GUICtrlCreateInput("", 155, 24, 121, 21)
$Group3 = GUICtrlCreateGroup("Alter", 296, 8, 137, 41)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Input15 = GUICtrlCreateInput("", 299, 24, 121, 21)
$Group6 = GUICtrlCreateGroup("Hobbys", 8, 56, 137, 97)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Input16 = GUICtrlCreateInput("", 11, 72, 121, 21)
$Input17 = GUICtrlCreateInput("", 11, 96, 121, 21)
$Input18 = GUICtrlCreateInput("", 11, 120, 121, 21)
$Input19 = GUICtrlCreateInput("", 155, 72, 121, 21)
$Group7 = GUICtrlCreateGroup("Stärken", 152, 56, 137, 97)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Input20 = GUICtrlCreateInput("", 155, 96, 121, 21)
$Input21 = GUICtrlCreateInput("", 155, 120, 121, 21)
$Input22 = GUICtrlCreateInput("", 299, 72, 121, 21)
$Group8 = GUICtrlCreateGroup("Schwächen", 296, 56, 137, 97)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Input23 = GUICtrlCreateInput("", 299, 120, 121, 21)
$Input24 = GUICtrlCreateInput("", 299, 96, 121, 21)
$Input25 = GUICtrlCreateInput("", 11, 176, 409, 21)
$Group4 = GUICtrlCreateGroup("Wieso möchtest du zu uns? [3x Sätze, Großschreiben erlaubt und Zeichen auch.", 8, 160, 425, 97)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Input26 = GUICtrlCreateInput("", 11, 200, 409, 21)
$Input27 = GUICtrlCreateInput("", 12, 227, 409, 21)
$Input28 = GUICtrlCreateInput("", 12, 272, 409, 21)
$Group5 = GUICtrlCreateGroup("Wieso sollten wir dich nehmen? [3x Sätze, Groschreiben erlaubt und Zeichen auch.", 8, 256, 425, 97)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Input29 = GUICtrlCreateInput("", 12, 296, 409, 21)
$Input30 = GUICtrlCreateInput("", 12, 323, 409, 21)
$Button6 = GUICtrlCreateButton("Speichern", 8, 360, 427, 25, $WS_GROUP)
$Label4 = GUICtrlCreateLabel("Copyright by sezer0012", 3, 384, 442, 59)
GUICtrlSetFont(-1, 34, 800, 2, "Corbel")
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

;Falls Ordner nicht existiert, erstellen!
If Not FileExists(@ScriptDir & "\Bewerbung") Then
DirCreate(@ScriptDir & "\Bewerbung")
EndIf

While 1
$nMsg = GUIGetMsg(1) 
Switch $nMsg[0] 
Case $GUI_EVENT_CLOSE 
Switch $nMsg[1] 
Case $Form1 
Exit 
Case $Form2 
GUISetState(@SW_HIDE, $Form2) 
Case $Form3
GUISetState(@SW_HIDE, $Form3)
Case $Form4
GUISetState(@SW_HIDE, $Form4)
EndSwitch 
;============================================START================================================================
;Form 1 Button
Case $Button1
GUISetState(@SW_SHOW, $Form2) 

Case $Button2
GUISetState(@SW_SHOW, $Form4) 

Case $Button3
GUISetState(@SW_SHOW, $Form3)

;Form 2 Button
Case $Button4
File()

;Form 3 Button
Case $Button5
GUISetState(@SW_HIDE, $Form3)
GUISetState(@SW_SHOW, $Form1)

;Form 4 Button
Case $Button6
GB()
EndSwitch
WEnd

;GB = [G]große [B]ewerbung
Func GB()

;Aus Input text auslesen
$vUeberschrifft = GUICtrlRead($Input13)
$vName = GUICtrlRead($Input14)
$vAlter = GUICtrlRead($Input15)

;3 = 3x Inputs
$vHobby1 = GUICtrlRead($Input16)
$vHobby2 = GUICtrlRead($Input17)
$vHobby3 = GUICtrlRead($Input18)

$vStaerke1 = GUICtrlRead($Input19)
$vStaerke2 = GUICtrlRead($Input20)
$vStaerke3 = GUICtrlRead($Input21)

$vSchwaeche1 = GUICtrlRead($Input22)
$vSchwaeche2 = GUICtrlRead($Input23)
$vSchwaeche3 = GUICtrlRead($Input24)

;WDU1 = [W]ieso willst [D]u zu uns?
$vWDU1 = GUICtrlRead($Input25)
$vWDU2 = GUICtrlRead($Input26)
$vWDU3 = GUICtrlRead($Input27)

;WS1 = [W]ieso ollten wir dich nehmen?
$vWS1 = GUICtrlRead($Input28)
$vWS2 = GUICtrlRead($Input29)
$vWS3 = GUICtrlRead($Input30)

;Falls .txt existiert löschen!
If FileExists(@ScriptDir & "\Bewerbung\GbBewerbung.txt") Then 
FileDelete(@ScriptDir & "\Bewerbung\GbBewerbung.txt")
EndIf

;Falls ein Fehler beim Öffnen auftrifft
$LOG = FileOpen("GbBewerbung.txt", 1)
If $LOG = -1 Then;
MsgBox(16, "Mist!", "Die Datei konnte nicht geöffnet werden!")
Exit
EndIf


;Bewerbung in Sätze bearbeiten
FileWrite("GbBewerbung.txt", $vUeberschrifft & " Bewerbung" & @CRLF) ; @CRLF = Zeilenbruch
FileWrite("GbBewerbung.txt", "Mein Name ist " & $vName & " und ich bin " & $vAlter & " Jahre alt." & @CRLF)
FileWrite("GbBewerbung.txt", "Meine Hobbys sind: " & $vHobby1 & ", " & $vHobby2 & " und " & $vHobby3 & "." & @CRLF & @CRLF)
FileWrite("GbBewerbung.txt", "Stärken: " & $vStaerke1 & ", " & $vStaerke2 & " und " & $vStaerke3 & "." & @CRLF)
FileWrite("GbBewerbung.txt", "Schwächen: " & $vSchwaeche1 & ", " & $vSchwaeche2 & " und " & $vSchwaeche3 & "." & @CRLF & @CRLF)
FileWrite("GbBewerbung.txt", "Wieso willst du zu uns?" & @CRLF)
FileWrite("GbBewerbung.txt", "•" & $vWDU1 & @CRLF)
FileWrite("GbBewerbung.txt", "•" & $vWDU2 & @CRLF)
FileWrite("GbBewerbung.txt", "•" & $vWDU3 & @CRLF & @CRLF)
FileWrite("GbBewerbung.txt", "Wieso sollten wir dich nehmen?" & @CRLF)
FileWrite("GbBewerbung.txt", "•" & $vWS1 & @CRLF)
FileWrite("GbBewerbung.txt", "•" & $vWS2 & @CRLF)
FileWrite("GbBewerbung.txt", "•" & $vWS3 & @CRLF & @CRLF)
FileWrite("GbBewerbung.txt", "Ich hoffe euch hat meine Bewerbung gefallen." & @CRLF & @CRLF)
FileWrite("GbBewerbung.txt", "Mit Freundlichen Grüßen," & @CRLF)
FileWrite("GbBewerbung.txt", $vName & ".")

;Ins Ordner Bewerbung verschieben.
FileMove(@ScriptDir & "\GbBewerbung.txt", @ScriptDir & "\Bewerbung\GbBewerbung.txt")

;MsgBox das es erfolgreich bearbeitet wurde und gespeichert wurde.
MsgBox(64, "Gespeichert.", "Deine Bewerbung wurde erfolgreich bearbeitet und im Ordner 'GbBewerbung' gespeichert.")
Exit
EndFunc

;KB = [K]leine ewerbung (Form2)
Func KB()
;Aus Input text auslesen
$vUeberschrifft = GUICtrlRead($Input1)
$vName = GUICtrlRead($Input2)
$vAlter = GUICtrlRead($Input3)

;3 = 3x Inputs
$vHobby1 = GUICtrlRead($Input4)
$vHobby2 = GUICtrlRead($Input5)
$vHobby3 = GUICtrlRead($Input6)

$vStaerke1 = GUICtrlRead($Input7)
$vStaerke2 = GUICtrlRead($Input8)
$vStaerke3 = GUICtrlRead($Input9)

$vSchwaeche1 = GUICtrlRead($Input10)
$vSchwaeche2 = GUICtrlRead($Input11)
$vSchwaeche3 = GUICtrlRead($Input12)

;Falls .txt existiert löschen!
If FileExists(@ScriptDir & "\Bewerbung\KbBewerbung.txt") Then 
FileDelete(@ScriptDir & "\Bewerbung\KbBewerbung.txt")
EndIf

;Falls ein Fehler beim Öffnen auftrifft
$LOG = FileOpen("KbBewerbung.txt", 1)
If $LOG = -1 Then;
MsgBox(16, "Mist!", "Die Datei konnte nicht geöffnet werden!")
Exit
EndIf


;Bewerbung in Sätze bearbeiten
FileWrite("KbBewerbung.txt", $vUeberschrifft & " Bewerbung" & @CRLF) ; @CRLF = Zeilenbruch
FileWrite("KbBewerbung.txt", "Mein Name ist " & $vName & " und ich bin " & $vAlter & " Jahre alt." & @CRLF)
FileWrite("KbBewerbung.txt", "Meine Hobbys sind: " & $vHobby1 & ", " & $vHobby2 & " und " & $vHobby3 & "." & @CRLF & @CRLF)
FileWrite("KbBewerbung.txt", "Stärken: " & $vStaerke1 & ", " & $vStaerke2 & " und " & $vStaerke3 & "." & @CRLF)
FileWrite("KbBewerbung.txt", "Schwächen: " & $vSchwaeche1 & ", " & $vSchwaeche2 & " und " & $vSchwaeche3 & "." & @CRLF)
FileWrite("KbBewerbung.txt", "Ich hoffe euch hat meine Bewerbung gefallen." & @CRLF & @CRLF)
FileWrite("KbBewerbung.txt", "Mit Freundlichen Grüßen," & @CRLF)
FileWrite("KbBewerbung.txt", $vName & ".")

;Ins Ordner Bewerbung verschieben.
FileMove(@ScriptDir & "\KbBewerbung.txt", @ScriptDir & "\Bewerbung\KbBewerbung.txt")

;MsgBox das es erfolgreich bearbeitet wurde und gespeichert wurde.
MsgBox(64, "Gespeichert.", "Deine Bewerbung wurde erfolgreich bearbeitet und im Ordner 'KbBewerbung' gespeichert.")
Exit

EndFunc

;============================================END===============================================================
Virus - Total [Only registered and activated users can see links. Click Here To Register...]

Ich bitte um Feedback :D

MFG
Sezer0012
05/11/2013 22:17 WJNeeson#2
PHP Code:
>Running AU3Check (1.54.22.0)  from:C:\Program Files (x86)\AutoIt3
C:\Users\Luca\Desktop\AutoIt Scripts\epvp Hilfen\epvp.au3(155,6) : ERROR: File(): undefined function.
File()
~~~~~^
C:\Users\Luca\Desktop\AutoIt Scripts\epvp Hilfen\epvp.au3 - 1 error(s), 0 warning(s) 
Da hast du wohl was vergessen..
05/11/2013 22:26 sezer0012#3
Entschuldigung, jetzt geht es wieder :D
05/12/2013 16:51 Andreas9#4
Okay ist ganz nett, aber sowie du es angekündigt hast habe ich mir etwas erwartet was die Welt verändert :D.

Viel Zeit wird das nicht ersparen aber ne kleine Autoit Übung ist es aufjedenfall :-).
Geb dir n Thanks für die Mühe^^
05/12/2013 19:35 Achat#5
:S Schau dir mal arrays an ;)
Eine Bewerbung kann man sich doch selber schreiben/Vorlage erstellen, außerdem wie willst du bitte eine txt ausdrucken? Die hat keinerlei Formatierung. Lebenslauf etc?

Bot-Bewerbung :facepalm:

MfG
05/12/2013 23:03 Logtetsch#6
8 Stunden mit 2 Pause? Was willst du uns damit sagen?
Wenn ich mir das Programm ansehe würde ich glatt glauben, dass es eher 8 Pausen und 2 Stunden waren...

Btw: Eine Bewerbung sollte immer etwas Eigenes haben und daher schlecht mit einem Bot zu realisieren.