Hallo, heute möchte ich euch mein kleines Projekt "mNotice" vorstellen.
Es ist ein simpler Notizenmanager mit (noch) nicht vielen Funktionen außer einer Notiz erstellen sowie löschen Funktion.
Ich würde mich sehr freuen wenn ihr mir Tipps geben könnt, was ich Scriptseitig besser machen könnte.
Auch wären Ideen gut, was für Funktionen ich noch einbauen könnte.
Ich habe mir für die nächsten Versionen folgende Ziele gesetzt:
- Bearbeiten-Funktionen
- Designs
- Aufzählungspunkte hinzufügen (wie in HTML bspw durch [p] o.Ä.)
- Alarm setzen können
- Widget
- Weiteres folgt, sobald eure Ideen für mich machbar sind
Ich bin noch nicht sehr erfahren in AutoIt, somit entschuldige ich mich für das teilweise schlechte Script, auch weil es ziemlich durcheinander ist.
Screenshot(s):
Spoiler anzeigen
[Blockierte Grafik: http://munksoft.mu.funpic.de/screenupload/MczL5.png]
-> GUI der Version 1.0
Download:
munkee.tk
Quellcode:
Spoiler anzeigen
ProgressOn("mNotice", "mNotice wird geladen, bitte warten.")
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <GuiButton.au3>
#include <GuiListBox.au3>
#Include <File.au3>
$lMsgOld = "Nothing Here"
[/autoit] [autoit][/autoit] [autoit];****************************************************
; -> GUI: Notiz hinzufügen
;****************************************************
$gui_add = GUICreate("mNotice - Notiz hinzufügen",348,381,-1,-1,-1,-1)
GUICtrlCreateLabel("Beschreibung:",10,65,71,15,-1,-1)
GUICtrlSetBkColor(-1,"-2")
GUICtrlCreateLabel("Titel der Notiz:",10,5,71,15,-1,-1)
GUICtrlSetBkColor(-1,"-2")
$notetitle = GUICtrlCreateInput("",10,20,328,20,-1,512)
$notedesc = GUICtrlCreateEdit("",10,80,326,261,2101316,-1)
$savenote = GUICtrlCreateButton("Speichern",10,350,157,30,-1,-1)
$cancel = GUICtrlCreateButton("Abbruch",184,350,155,30,-1,-1)
;****************************************************
;****************************************************
; -> Haupt-GUI
;****************************************************
$gui_list = GUICreate("Notizen",575,329,-1,-1,$WS_CAPTION,-1)
$close = GUICtrlCreateButton("Schließen",475,290,100,39,-1,-1)
$delbut = GUICtrlCreateButton("Löschen",90,290,90,39,-1,-1)
$newbut = GUICtrlCreateButton("Neu",0,290,90,39,-1,-1)
$list = GUICtrlCreatelist("", 0, 0, 179, 290, 4096, 512)
;****************************************************
ProgressSet(5, "Initialisiere Dateisystem...")
[/autoit] [autoit][/autoit] [autoit]If(FileExists("data/notes.idx")) Then
$noticelist = FileRead("data/notes.idx")
$fcl = _FileCountLines("data/notes.idx")
Global $note = FileRead("data/" & FileReadLine("data/notes.idx", 1) & ".note")
ProgressSet(10, "Lade Notizen...")
$prg = 10
For $i = 1 To $fcl Step 1
$prg += 1
ProgressSet($prg)
$line = FileReadLine("data/notes.idx", $i)
If(FileExists("data/" & $line & ".note")) Then
_GUICtrlListBox_AddString($list, $line)
Else
FileDelete("data/" & $line & ".note")
EndIf
Next
ProgressSet(100, "Bitte warten...")
Else
ProgressSet(40)
DirCreate("data")
_FileCreate("data/notes.idx")
_FileCreate("data/Willkommen bei mNotice.note")
FileWrite("data/Willkommen bei mNotice.note","Willkommen bei mNotice - Deinem eigenem Notizenmanager!" & @CRLF & "Links kannst du deine Notizen einsehen, ein Klick und die Beschreibung zu der jeweiligen Notiz erscheint auf dieser Seite." & @CRLF & "Unten siehst du Buttons, mit denen du neue Notizen erstellen, bearbeiten und auch löschen kannst." & @CRLF & @CRLF & "Viel Spaß mit mNotice wünscht dir munkee (Entwickler der Software)!")
FileWrite("data/notes.idx","Willkommen bei mNotice")
$note = FileRead("data/Willkommen bei mNotice.note")
$noticelist = FileRead("data/notes.idx")
_GUICtrlListBox_AddString($list, $noticelist)
ProgressSet(100, "Bitte warten...")
EndIf
ProgressOff()
$desc = GUICtrlCreateEdit($note,180,0,394,290,2099200,-1)
GUISetState(@SW_SHOW,$gui_list)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE,$gui_add)
Case $close
Exit
Case $newbut
GUISetState(@SW_SHOW, $gui_add)
Case $savenote
$nt = GUICtrlRead($notetitle)
FileOpen("data/notes.idx")
FileWrite("data/notes.idx", @CRLF & $nt)
;MsgBox(0, "Title", "NT returned " & $nt)
_GUICtrlListBox_AddString($list, $nt)
FileOpen("data/" & $nt & ".note")
_FileCreate("data/" & $nt & ".note")
$nd = GUICtrlRead($notedesc)
FileWrite("data/" & $nt & ".note",$nd)
GUISetState(@SW_HIDE,$gui_add)
;MsgBox(1, "Notiz hinzugefügt.", "Die Notiz '" & $nt & "' wurde zur Datenbank hinzugefügt.")
TrayTip("Notiz hinzugefügt","Die Notiz '" & $nt & "' wurde zur Datenbank hinzugefügt." & @CRLF & "Zur Speicherung wurde das Programm neugestartet.",10000)
Terminate()
Case $delbut
$yesno = MsgBox(36,"Notiz löschen", "Bist du sicher dass du die markierte Notiz löschen willst?")
If $yesno == 6 Then
$File = FileRead("data/notes.idx")
$Del = GuiCtrlRead($list)
$Save = StringReplace($File, $Del, "")
FileDelete("data/notes.idx")
FileDelete("data/" & $Del & ".note")
_FileCreate("data/notes.idx")
FileWrite("data/notes.idx", $Save)
TrayTip("Notiz hinzugefügt","Die Notiz wurde aus der Datenbank gelöscht." & @CRLF & "Zur Speicherung wurde das Programm neugestartet.",10000)
Terminate()
EndIf
EndSwitch
$lMsg = GuiCtrlRead($list)
If $lMsg <> $lMsgOld Then
$lMsgOld = $lMsg
;MsgBox(0, "Debug", $lMsg)
$text = FileRead("data/" & $lMsg & ".note")
GuiCtrlDelete($desc)
$desc = GUICtrlCreateEdit("",180,0,394,290,2099200,-1)
GuiCtrlSetData($desc, $text, "Fehler: Notiz wurde nicht in der Datenbank gefunden.")
EndIf
WEnd
Func Terminate()
if @Compiled then
Run('"' & @AutoItExe & '"')
Else
Run('"' & @AutoItExe & '" "' & @ScriptFullPath & '"')
EndIf
Exit
EndFunc
Wie gesagt würde ich mich sehr über Feedback freuen!
Edit-Log
Spoiler anzeigen
15. Juni '13 - 15:57: 2 Sachen zur "Todo" hinzugefügt.