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===============================================================
Ich bitte um Feedback
MFG
Sezer0012
