So ziemlich mein erstes Programm

Nischlas

Hi Autit-Community,
Naja also ich habe mich nun seid kurezm mit AutoIt beschäftigt..
Ehrlichgesagt find ichs nice^^
Allerdings bin ich noch ein übelster NOOB in AutoIt...

Könnt ihr mir vllt helfen bei meinem "ersten Programm"
Es ist ein "Lerntagebuch" für die Schule

[autoit]

#include <GUIConstants.au3>
#NoTrayIcon

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

#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Lerntagebuch", 694, 739, -1, -1)
GUISetBkColor(0xA6CAF0)
$Date = GUICtrlCreateDate("2009/03/17 19:28:48", 0, 688, 225, 42)
$Beenden = GUICtrlCreateButton("Beenden", 536, 688, 145, 41)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Speichern = GUICtrlCreateButton("Speichern", 384, 688, 145, 41)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Datum = GUICtrlCreateLabel("Datum", 8, 16, 183, 31)
GUICtrlSetFont(-1, 14, 800, 4, "Comic Sans MS")
$TDR = GUICtrlCreateLabel("Thema der Reihe", 8, 56, 179, 31)
GUICtrlSetFont(-1, 14, 800, 4, "Comic Sans MS")
$Box1D = GUICtrlCreateInput("Unten Links??", 200, 16, 265, 21)
$BoxTDR = GUICtrlCreateInput("", 200, 56, 265, 21)
$Drucken = GUICtrlCreateButton("Drucken", 232, 688, 145, 41, 0)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$TDS = GUICtrlCreateLabel("Thema der Stunde", 8, 96, 180, 31)
GUICtrlSetFont(-1, 14, 800, 4, "Comic Sans MS")
$BoxTDS = GUICtrlCreateInput("", 200, 96, 265, 21)
$Material = GUICtrlCreateLabel("Material", 8, 136, 178, 31)
GUICtrlSetFont(-1, 14, 800, 4, "Comic Sans MS")
$BoxMaterial = GUICtrlCreateInput("BoxMaterial", 200, 136, 265, 21)
$Bearbeitung = GUICtrlCreateLabel("Bearbeitung", 8, 176, 177, 31)
GUICtrlSetFont(-1, 14, 800, 4, "Comic Sans MS")
$EditBearbeitung = GUICtrlCreateEdit("", 200, 176, 265, 169)
GUICtrlSetData(-1, "EditBearbeitung")
$ErgebnisDerStunde = GUICtrlCreateLabel("Ergebnis der Stunde", 8, 368, 179, 31)
GUICtrlSetFont(-1, 14, 800, 0, "Comic Sans MS")
$Edit1 = GUICtrlCreateEdit("", 200, 368, 265, 121)
GUICtrlSetData(-1, "Edit1")
$Hausaufgaben = GUICtrlCreateLabel("Hausaufgaben", 8, 512, 181, 31)
GUICtrlSetFont(-1, 14, 800, 4, "Comic Sans MS")
$Edit2 = GUICtrlCreateEdit("", 200, 520, 265, 137)
GUICtrlSetData(-1, "Edit2")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

EndSwitch
WEnd

[/autoit]

Hm wie schaffe ich es das ganze zu beenden?
Oder alles in einem Dokument zu Speichern?
Oder das Dokument zu Drucken ?

Danke im voraus

satinez

Hallo und Willkommen
.

Spoiler anzeigen

[autoit]

#RequireAdmin
#include
;~ #NoTrayIcon

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

Opt('GUIOnEventMode', 1)

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

#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Lerntagebuch", 694, 739, -1, -1)
GUISetBkColor(0xA6CAF0)
$Date = GUICtrlCreateDate("2009/03/17 19:28:48", 0, 688, 225, 42)

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

$Beenden = GUICtrlCreateButton("Beenden", 536, 688, 145, 41)
GUICtrlSetOnEvent( $Beenden , '_End') ; Bei Klick rufe die Funktion "_End()" auf

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

GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Speichern = GUICtrlCreateButton("Speichern", 384, 688, 145, 41)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Datum = GUICtrlCreateLabel("Datum", 8, 16, 183, 31)
GUICtrlSetFont(-1, 14, 800, 4, "Comic Sans MS")
$TDR = GUICtrlCreateLabel("Thema der Reihe", 8, 56, 179, 31)
GUICtrlSetFont(-1, 14, 800, 4, "Comic Sans MS")
$Box1D = GUICtrlCreateInput("Unten Links??", 200, 16, 265, 21)
$BoxTDR = GUICtrlCreateInput("", 200, 56, 265, 21)
$Drucken = GUICtrlCreateButton("Drucken", 232, 688, 145, 41, 0)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$TDS = GUICtrlCreateLabel("Thema der Stunde", 8, 96, 180, 31)
GUICtrlSetFont(-1, 14, 800, 4, "Comic Sans MS")
$BoxTDS = GUICtrlCreateInput("", 200, 96, 265, 21)
$Material = GUICtrlCreateLabel("Material", 8, 136, 178, 31)
GUICtrlSetFont(-1, 14, 800, 4, "Comic Sans MS")
$BoxMaterial = GUICtrlCreateInput("BoxMaterial", 200, 136, 265, 21)
$Bearbeitung = GUICtrlCreateLabel("Bearbeitung", 8, 176, 177, 31)
GUICtrlSetFont(-1, 14, 800, 4, "Comic Sans MS")
$EditBearbeitung = GUICtrlCreateEdit("", 200, 176, 265, 169)
GUICtrlSetData(-1, "EditBearbeitung")
$ErgebnisDerStunde = GUICtrlCreateLabel("Ergebnis der Stunde", 8, 368, 179, 31)
GUICtrlSetFont(-1, 14, 800, 0, "Comic Sans MS")
$Edit1 = GUICtrlCreateEdit("", 200, 368, 265, 121)
GUICtrlSetData(-1, "Edit1")
$Hausaufgaben = GUICtrlCreateLabel("Hausaufgaben", 8, 512, 181, 31)
GUICtrlSetFont(-1, 14, 800, 4, "Comic Sans MS")
$Edit2 = GUICtrlCreateEdit("", 200, 520, 265, 137)
GUICtrlSetData(-1, "Edit2")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

EndSwitch
WEnd

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

Func _End()
Exit 0
EndFunc ;==>_End

[/autoit]

.
Probier das aus, kuck was ich verändert habe und verstehe bin selber noch "NEU" und muss sagen, wirst deine Freude behalten

Nischlas

Hi
Cool
Nun brauch man also Admin Recht
Das schaut ja eigentlich schon einmal "relativ" leicht aus

[autoit]

Func _End()
Exit 0
EndFunc ;==>_End

[/autoit]

**Schnuffel**

Hallo Nischlas,

erstmal willkommen im Forum.

Ich habe mal die Funktion "Speichern" aktiviert.
Für die Funktion Drucken solltest Du mal die Suchfunktion bemühen.

Bei Fragen und Problemen frag einfach hier im Forum

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#Include <Date.au3>

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

#NoTrayIcon

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

#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Lerntagebuch", 694, 739, -1, -1)
GUISetBkColor(0xA6CAF0)
$Date = GUICtrlCreateDate(_NowDate(), 0, 688, 225, 42)
$Beenden = GUICtrlCreateButton("Beenden", 536, 688, 145, 41)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Speichern = GUICtrlCreateButton("Speichern", 384, 688, 145, 41)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Datum = GUICtrlCreateLabel("Datum", 8, 16, 183, 31)
GUICtrlSetFont(-1, 14, 800, 4, "Comic Sans MS")
$TDR = GUICtrlCreateLabel("Thema der Reihe", 8, 56, 179, 31)
GUICtrlSetFont(-1, 14, 800, 4, "Comic Sans MS")
$Box1D = GUICtrlCreateInput("Unten Links??", 200, 16, 265, 21)
$BoxTDR = GUICtrlCreateInput("", 200, 56, 265, 21)
$Drucken = GUICtrlCreateButton("Drucken", 232, 688, 145, 41, 0)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$TDS = GUICtrlCreateLabel("Thema der Stunde", 8, 96, 180, 31)
GUICtrlSetFont(-1, 14, 800, 4, "Comic Sans MS")
$BoxTDS = GUICtrlCreateInput("", 200, 96, 265, 21)
$Material = GUICtrlCreateLabel("Material", 8, 136, 178, 31)
GUICtrlSetFont(-1, 14, 800, 4, "Comic Sans MS")
$BoxMaterial = GUICtrlCreateInput("BoxMaterial", 200, 136, 265, 21)
$Bearbeitung = GUICtrlCreateLabel("Bearbeitung", 8, 176, 177, 31)
GUICtrlSetFont(-1, 14, 800, 4, "Comic Sans MS")
$EditBearbeitung = GUICtrlCreateEdit("", 200, 176, 265, 169)
GUICtrlSetData(-1, "EditBearbeitung")
$ErgebnisDerStunde = GUICtrlCreateLabel("Ergebnis der Stunde", 8, 368, 179, 31)
GUICtrlSetFont(-1, 14, 800, 0, "Comic Sans MS")
$Edit1 = GUICtrlCreateEdit("", 200, 368, 265, 121)
GUICtrlSetData(-1, "Edit1")
$Hausaufgaben = GUICtrlCreateLabel("Hausaufgaben", 8, 512, 181, 31)
GUICtrlSetFont(-1, 14, 800, 4, "Comic Sans MS")
$Edit2 = GUICtrlCreateEdit("", 200, 520, 265, 137)
GUICtrlSetData(-1, "Edit2")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE, $Beenden
Exit
Case $Speichern
tb_speichern()
EndSwitch
WEnd

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

Func tb_speichern()
$tb = FileOpen("tagebuch.txt",1)
FileWriteLine($tb,GUICtrlRead($Date)&@CRLF&"Thema der Reihe :"&GUICtrlRead($TDR)&@CRLF&"Thema der Stunde :"&GUICtrlRead($TDS))
FileWriteLine($tb,GUICtrlRead($BoxMaterial)&@CRLF&GUICtrlRead($EditBearbeitung)&@CRLF&GUICtrlRead($Edit1)&@CRLF&GUICtrlRead($Edit2)&@CRLF&@CRLF)
FileClose($tb)
EndFunc

[/autoit]

Nischlas

Hehe
Sry Da hatte ich bis jetzt noch nicht drann gedacht..

satinez

Naja eigentlich nicht aber das ist so ne Gewohnheit von mir Kannst es ja mal auskommentieren und kucken
Das mit dem Speichern fragst du den Falschen, im moment kann ich nur so die einfachen GUI Befehle, immer langsam

Nischlas

Jop
Naja ich geh dann mal schlafen
Thx schoneinmal

Commander21

Erstmal willkommen in diesem wunderbaren Forum.

Da haste dir für den Anfang ja ganz schön hohe Ziehle gesetzt.
Hast du denn schon etwas erfahrung mit AutoIt, weil du schon so durchstartest? Oder fängst du ganz von vorn an?

Wenn du von vorn anfängst, würde ich dir empfehlen, erstmal mit kleinen Sachen anzufangen.
Ich z.B. habs so gemacht, das ich mir erstmal die Deutsche Hilf angesehen hab.
Dort hab ich mir dann Sachen rausgesucht, mit denen ich anfangen will.
Z.B. mit so einfachen sachen wie InputBoxen, MsgBoxen...
Dann gings so an die GUI Oberfläschen. Dann zwischendrin mal ne Kombo aus beidem und dann eben schrittweise hocharbeiten.

Denn es ist wirklich net so schön, wenn man sich selbst da gleich ins kalte Wasser wirft und dann zu anfang schon mit Arrays, Datenbanksachen und so überflutet wird.

Is nur ein kleiner Tipp meinerseits...

Da fällt mir ein, ich kapier das mit den Arraysimmer noch net, bin ich nu einfach zu blöd oder woran liegt das?

latemail

[quote='satinez',index.php?page=Thread&postID=81797#post81797]Hallo und Willkommen
.

Spoiler anzeigen

[autoit]

#RequireAdmin
#include
;~ #NoTrayIcon

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

Opt('GUIOnEventMode', 1)

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

#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Lerntagebuch", 694, 739, -1, -1)
GUISetBkColor(0xA6CAF0)
$Date = GUICtrlCreateDate("2009/03/17 19:28:48", 0, 688, 225, 42)

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

$Beenden = GUICtrlCreateButton("Beenden", 536, 688, 145, 41)
GUICtrlSetOnEvent( $Beenden , '_End') ; Bei Klick rufe die Funktion "_End()" auf

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

GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Speichern = GUICtrlCreateButton("Speichern", 384, 688, 145, 41)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Datum = GUICtrlCreateLabel("Datum", 8, 16, 183, 31)
GUICtrlSetFont(-1, 14, 800, 4, "Comic Sans MS")
$TDR = GUICtrlCreateLabel("Thema der Reihe", 8, 56, 179, 31)
GUICtrlSetFont(-1, 14, 800, 4, "Comic Sans MS")
$Box1D = GUICtrlCreateInput("Unten Links??", 200, 16, 265, 21)
$BoxTDR = GUICtrlCreateInput("", 200, 56, 265, 21)
$Drucken = GUICtrlCreateButton("Drucken", 232, 688, 145, 41, 0)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$TDS = GUICtrlCreateLabel("Thema der Stunde", 8, 96, 180, 31)
GUICtrlSetFont(-1, 14, 800, 4, "Comic Sans MS")
$BoxTDS = GUICtrlCreateInput("", 200, 96, 265, 21)
$Material = GUICtrlCreateLabel("Material", 8, 136, 178, 31)
GUICtrlSetFont(-1, 14, 800, 4, "Comic Sans MS")
$BoxMaterial = GUICtrlCreateInput("BoxMaterial", 200, 136, 265, 21)
$Bearbeitung = GUICtrlCreateLabel("Bearbeitung", 8, 176, 177, 31)
GUICtrlSetFont(-1, 14, 800, 4, "Comic Sans MS")
$EditBearbeitung = GUICtrlCreateEdit("", 200, 176, 265, 169)
GUICtrlSetData(-1, "EditBearbeitung")
$ErgebnisDerStunde = GUICtrlCreateLabel("Ergebnis der Stunde", 8, 368, 179, 31)
GUICtrlSetFont(-1, 14, 800, 0, "Comic Sans MS")
$Edit1 = GUICtrlCreateEdit("", 200, 368, 265, 121)
GUICtrlSetData(-1, "Edit1")
$Hausaufgaben = GUICtrlCreateLabel("Hausaufgaben", 8, 512, 181, 31)
GUICtrlSetFont(-1, 14, 800, 4, "Comic Sans MS")
$Edit2 = GUICtrlCreateEdit("", 200, 520, 265, 137)
GUICtrlSetData(-1, "Edit2")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

EndSwitch
WEnd

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

Func _End()
Exit 0
EndFunc ;==>_End

[/autoit]

Zeile 14 / Zeile 50

Du verwendest hier zwei unterschiedliche Modi der GUI-Bearbeitung (Meldungen, Button etc.) .... das führt zu Fehlern und ist nicht zulässig!!!

**Andy**

Hallo Commander21,

Zitat

Da fällt mir ein, ich kapier das mit den Arraysimmer noch net, bin ich nu einfach zu blöd oder woran liegt das?

Nein, blöd bist du sicher nicht. Wahrscheinlich hats Dir nur keiner verständlich erklärt.
Ich versuche es mal^^
Stell dir ein leeres Blatt Tabellenkalkulation vor.
Eine einzelne "Zeile" entspricht dem eindimensionalen Array mit dem Inhalt [1],[2],[3],[4] usw.
Das Tabellenblatt entspricht dem 2-dimensionalen Array. Die einzelnen "Felder" sprichst du an mit [A][1] oder [A][3] oder[C][5]....
Hast du mehrere [T]abellenblätter, dann bist du in der 3. Dimension. [T1][A][3] oder[T4][C][5]....
Zusätzlich hast du mehrere [D]ateien mit [T]abellenblättern. 4. Dimension [D2][T1][A][3] oder [D6][T4][C][5]....
Auf deinem Rechner sind viele [O]rdner mit [D]ateien und [T]abellenblättern [O2][D2][T1][A][3] oder[O7][D6][T4][C][5]
Dann hast du noch verschiedene [F]estplatten, [N]etzwerkrechner usw....

Um jetzt auf ein einzelnes Feld zuzugreifen musst du nur die entsprechende "Adresse" wissen.
[Array´s] sind garnicht schwer^^

ciao
Andy

Nischlas

Zitat

Wenn du von vorn anfängst, würde ich dir empfehlen, erstmal mit kleinen Sachen anzufangen.
Ich z.B. habs so gemacht, das ich mir erstmal die Deutsche Hilf angesehen hab.
Dort hab ich mir dann Sachen rausgesucht, mit denen ich anfangen will.
Z.B. mit so einfachen sachen wie InputBoxen, MsgBoxen...
Dann gings so an die GUI Oberfläschen. Dann zwischendrin mal ne Kombo aus beidem und dann eben schrittweise hocharbeiten.

das hab ich schon
Danke für die vielen Posts

Commander21

mhh... ok das muss ich mir dann heut abend mal angucken. Bin grad mit Möbel aufbauen fertig geworden. Wenn ich so gut in autoit wäre wie mit möbel aufbauen, dann würd ich warscheinlich auch die arrays kapiern