Bewerbung Maker v3

Sezer

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

Script

Spoiler anzeigen

Zitat

[autoit]
#cs ------------------------------------
[/autoit] [autoit][/autoit] [autoit]
BewerbungMaker v3 by sezer0012
Author: sezer0012
[/autoit] [autoit][/autoit] [autoit]
Uhrzeit und Datum an veröffentlichung: 20:42 Uhr & 11 Mai 2013
Zeilen: 288
Wie lange ich gebraucht habe: 8 Stunden mit 2 Pausen
[/autoit] [autoit][/autoit] [autoit]
#ce -----------------------------------
[/autoit] [autoit][/autoit] [autoit]
;Includes
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
;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 ###
[/autoit] [autoit][/autoit] [autoit]
;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 ###
[/autoit] [autoit][/autoit] [autoit]
;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 ###
[/autoit] [autoit][/autoit] [autoit]
;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 ###
[/autoit] [autoit][/autoit] [autoit]
;Falls Ordner nicht existiert, erstellen!
If Not FileExists(@ScriptDir & "\Bewerbung") Then
DirCreate(@ScriptDir & "\Bewerbung")
EndIf
[/autoit] [autoit][/autoit] [autoit]
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
[/autoit] [autoit][/autoit] [autoit]
;GB = [G]große [B]ewerbung
Func GB()
[/autoit] [autoit][/autoit] [autoit]
;Aus Input text auslesen
$vUeberschrifft = GUICtrlRead($Input13)
$vName = GUICtrlRead($Input14)
$vAlter = GUICtrlRead($Input15)
[/autoit] [autoit][/autoit] [autoit]
;3 = 3x Inputs
$vHobby1 = GUICtrlRead($Input16)
$vHobby2 = GUICtrlRead($Input17)
$vHobby3 = GUICtrlRead($Input18)
[/autoit] [autoit][/autoit] [autoit]
$vStaerke1 = GUICtrlRead($Input19)
$vStaerke2 = GUICtrlRead($Input20)
$vStaerke3 = GUICtrlRead($Input21)
[/autoit] [autoit][/autoit] [autoit]
$vSchwaeche1 = GUICtrlRead($Input22)
$vSchwaeche2 = GUICtrlRead($Input23)
$vSchwaeche3 = GUICtrlRead($Input24)
[/autoit] [autoit][/autoit] [autoit]
;WDU1 = [W]ieso willst [D]u zu uns?
$vWDU1 = GUICtrlRead($Input25)
$vWDU2 = GUICtrlRead($Input26)
$vWDU3 = GUICtrlRead($Input27)
[/autoit] [autoit][/autoit] [autoit]
;WS1 = [W]ieso ollten wir dich nehmen?
$vWS1 = GUICtrlRead($Input28)
$vWS2 = GUICtrlRead($Input29)
$vWS3 = GUICtrlRead($Input30)
[/autoit] [autoit][/autoit] [autoit]
;Falls .txt existiert löschen!
If FileExists(@ScriptDir & "\Bewerbung\GbBewerbung.txt") Then
FileDelete(@ScriptDir & "\Bewerbung\GbBewerbung.txt")
EndIf
[/autoit] [autoit][/autoit] [autoit]
;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
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
;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 & ".")
[/autoit] [autoit][/autoit] [autoit]
;Ins Ordner Bewerbung verschieben.
FileMove(@ScriptDir & "\GbBewerbung.txt", @ScriptDir & "\Bewerbung\GbBewerbung.txt")
[/autoit] [autoit][/autoit] [autoit]
;MsgBox das es erfolgreich bearbeitet wurde und gespeichert wurde.
MsgBox(64, "Gespeichert.", "Deine Bewerbung wurde erfolgreich bearbeitet und im Ordner 'GbBewerbung' gespeichert.")
Exit
EndFunc
[/autoit] [autoit][/autoit] [autoit]
;KB = [K]leine ewerbung (Form2)
Func KB()
;Aus Input text auslesen
$vUeberschrifft = GUICtrlRead($Input1)
$vName = GUICtrlRead($Input2)
$vAlter = GUICtrlRead($Input3)
[/autoit] [autoit][/autoit] [autoit]
;3 = 3x Inputs
$vHobby1 = GUICtrlRead($Input4)
$vHobby2 = GUICtrlRead($Input5)
$vHobby3 = GUICtrlRead($Input6)
[/autoit] [autoit][/autoit] [autoit]
$vStaerke1 = GUICtrlRead($Input7)
$vStaerke2 = GUICtrlRead($Input8)
$vStaerke3 = GUICtrlRead($Input9)
[/autoit] [autoit][/autoit] [autoit]
$vSchwaeche1 = GUICtrlRead($Input10)
$vSchwaeche2 = GUICtrlRead($Input11)
$vSchwaeche3 = GUICtrlRead($Input12)
[/autoit] [autoit][/autoit] [autoit]
;Falls .txt existiert löschen!
If FileExists(@ScriptDir & "\Bewerbung\KbBewerbung.txt") Then
FileDelete(@ScriptDir & "\Bewerbung\KbBewerbung.txt")
EndIf
[/autoit] [autoit][/autoit] [autoit]
;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
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
;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 & ".")
[/autoit] [autoit][/autoit] [autoit]
;Ins Ordner Bewerbung verschieben.
FileMove(@ScriptDir & "\KbBewerbung.txt", @ScriptDir & "\Bewerbung\KbBewerbung.txt")
[/autoit] [autoit][/autoit] [autoit]
;MsgBox das es erfolgreich bearbeitet wurde und gespeichert wurde.
MsgBox(64, "Gespeichert.", "Deine Bewerbung wurde erfolgreich bearbeitet und im Ordner 'KbBewerbung' gespeichert.")
Exit
[/autoit] [autoit][/autoit] [autoit]
EndFunc
[/autoit] [autoit][/autoit] [autoit]
;============================================END===========
[/autoit]
=====================================================

Alles anzeigen

Virus - Total https://www.virustotal.com/de/file/ab8168…sis/1368298802/

Ich bitte um Feedback

MFG
Sezer0012

**minx**

Häng das Skript doch hier als Download an, wofür haben wir denn die Funktion, benutzt nicht so eine aufdringliche Schriftgröße, vor allem nicht CapsLock.

Sezer

Gemacht, und wie findest dus? Also Bewerbung Maker v3

**chesstiger**

So:
Ausgeführt habe ich das Programm nicht, ich habe mir nur den Quellcode angeschaut (reicht ja).

Und der ist, gelinde gesagt, unordentlich (Einrückung, Präfixe), Nicht eindeutig (Variablennamen ala $Input26) und teilweise ineffizient.
Ich schmetter das einfach mal so raus.^^

Tipps:
Verwende kein Koda, sondern designe deine GUIs/Forms per Quellcode. Ordentlicher, und du bekommst ein bessere Verständnis dafür.
Die ganzen FileWrites... Einfach alles in einen String schreiben, dann diesen String per FileWrite schreiben.

Es freut mich, dass du gleich ein so großes Programm codest; dennoch zeige ich dir einfach mal unverfroren deine Fehler.
Nimm das bitte nicht böse, es soll dir nur helfen.

lg