DAFLO programming Forum Forum für die Mitglieder der Programmierer-Gruppe DAFLO programming

|
|
|
| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
daos06 Forum-Administrator

Geschlecht:  Anmeldungsdatum: 05.08.2006 Beiträge: 135 Wohnort: Austria
|
Verfasst am: 12.08.2006, 20:05 Titel: Terminkalender! |
|
|
Hier ein von mir geproggter Terminkalender!
| Code: | rem +----------------------------------------------------------------------------+
rem | Terminkalender Version 2.0 |
rem | developped by FLODA programming (Daniel Ostheimer) |
rem | 2006-07-13 |
rem +----------------------------------------------------------------------------+
%Anfang
readfile [Inhalt] = 'c:\WINDOWS\system32\T3rm1n.dod', '0'
rem --- creating code for widget "Termin"
newdialog 'Termin', 'DIALOG', '220|100|661|331'
letdialog 'Termin', 'caption', 'Terminkalender Version 2.0 von Daniel Ostheimer'
rem --- creating code for widget "Terminausgabe"
newdialog 'Termin:Terminausgabe', 'EDIT', '20|30|400|150'
letdialog 'Termin:Terminausgabe', 'enabled', '0'
letdialog 'Termin:Terminausgabe', 'readonly', '-1'
letdialog 'Termin:Terminausgabe', 'TEXT', [Inhalt]
rem --- creating code for widget "button"
newdialog 'Termin:button', 'BUTTON', '480|75|100|25'
letdialog 'Termin:button', 'enabled', '0'
letdialog 'Termin:button', 'caption', 'Aktuallisieren'
newdialog 'Termin:button3', 'BUTTON', '40|210|170|30'
letdialog 'Termin:button3', 'enabled', '0'
letdialog 'Termin:button3', 'caption', 'Neuer Termin'
rem --- creating code for widget "button2"
newdialog 'Termin:button2', 'BUTTON', '260|210|170|30'
letdialog 'Termin:button2', 'enabled', '0'
letdialog 'Termin:button2', 'caption', 'Nächstes Mal erinnern'
rem --- make the dialog window visible
letdialog 'Termin', 'visible', [true]
rem Das einzige was noch nicht funktioniert
repeat
rem Dialog starten
rundialog [event] = '0'
rem Ich glaube hier steckt der Fehler
If [event] = 'click_Termin:button3'
rem --- creating code for widget "myDialog"
newdialog 'myDialog2', 'DIALOG', '220|100|390|349'
letdialog 'myDialog2', 'caption', 'myDialog'
rem --- creating code for widget "myWidget1"
newdialog 'myDialog2:myWidget1', 'COMBO', '45|20|55|200'
letdialog 'myDialog2:myWidget1', 'enabled', '0'
letdialog 'myDialog2:myWidget1', 'items', '01|02|03|04|05|06|07|08|09|10|11|12|13|14|15|16|17|18|19|20|21|22|23|24|25|26|27|28|29|30|31'
letdialog 'myDialog2:myWidget1', 'text', '04'
rem --- creating code for widget "myWidget2"
newdialog 'myDialog2:myWidget2', 'COMBO', '115|20|105|200'
letdialog 'myDialog2:myWidget2', 'enabled', '0'
letdialog 'myDialog2:myWidget2', 'items', 'Januar|Februar|März|April|Mai|Juni|Juli|August|September|Oktober|November|Dezember'
letdialog 'myDialog2:myWidget2', 'text', 'Januar'
rem --- creating code for widget "myWidget3"
newdialog 'myDialog2:myWidget3', 'INPUT', '240|20|100|25'
letdialog 'myDialog2:myWidget3', 'enabled', '0'
letdialog 'myDialog2:myWidget3', 'readonly', '-1'
letdialog 'myDialog2:myWidget3', 'text', [year]
rem --- creating code for widget "myWidget4"
newdialog 'myDialog2:myWidget4', 'COMBO', '110|65|40|200'
letdialog 'myDialog2:myWidget4', 'enabled', '0'
letdialog 'myDialog2:myWidget4', 'items', '1|2|3|4|5|6|7|89|10|11|12|13|14|15|16|17|18|19|20|21|22|23|00'
letdialog 'myDialog2:myWidget4', 'text', '16'
rem --- creating code for widget "myWidget5"
newdialog 'myDialog2:myWidget5', 'COMBO', '165|65|40|200'
letdialog 'myDialog2:myWidget5', 'enabled', '0'
letdialog 'myDialog2:myWidget5', 'items', '01|02|03|04|05|06|07|08|09|10|11|12|13|14|15|16|17|18|19|20|21|22|23|24|25|26|27|28|29|30|31|32|33|34|35|36|37|38|39|40|41|42|43|44|45|46|47|48|49|50|51|52|53|54|56|57|58|59'
letdialog 'myDialog2:myWidget5', 'text', '30'
rem --- creating code for widget "myWidget6"
newdialog 'myDialog2:myWidget6', 'LABEL', '220|70|20|15'
letdialog 'myDialog2:myWidget6', 'enabled', '0'
letdialog 'myDialog2:myWidget6', 'caption', 'Uhr'
rem --- creating code for widget "myWidget7"
newdialog 'myDialog2:myWidget7', 'EDIT_LINEWRAP', '25|90|320|155'
letdialog 'myDialog2:myWidget7', 'enabled', '0'
letdialog 'myDialog2:myWidget7', 'readonly', '-1'
rem --- creating code for widget "myWidget8"
newdialog 'myDialog2:myWidget8', 'BUTTON', '100|265|170|25'
letdialog 'myDialog2:myWidget8', 'enabled', '0'
letdialog 'myDialog2:myWidget8', 'caption', 'Termin erstellen'
rem --- make the dialog window visible
letdialog 'myDialog2', 'visible', [true]
repeat
rem Dialog starten
rundialog [event] = '0'
If [event] = 'close_myDialog2'
letdialog 'myDialog2', 'visible', [false]
endif
rem Ereignis auswerten
if [event] = 'click_myDialog2:myWidget8'
rem Textfeld auslesen
getdialog [Tag] = 'myDialog2:myWidget1', 'TEXT'
getdialog [Monat] = 'myDialog2:myWidget2', 'TEXT'
getdialog [Jahr] = 'myDialog2:myWidget3', 'TEXT'
getdialog [Stunden] = 'myDialog2:myWidget4', 'TEXT'
getdialog [Minuten] = 'myDialog2:myWidget5', 'TEXT'
getdialog [Art] = 'myDialog2:myWidget7', 'TEXT'
letdialog 'myDialog2', 'visible', [false]
[Datum] = [Tag] # ' ' # [Monat] # ' ' # [Jahr]
[Zeit] = [Stunden] # ':' # [Minuten] # ' Uhr'
rem dürfte funktionieren
getlen [len] = [Datum]
If [len] < '15'
[y] = [len]
repeat
[Datum] = [Datum] # ' '
[y] + '1'
until [y] = '15'
endif
getlen [len] = [Zeit]
If [len] < '15'
[y] = [len]
repeat
[Zeit] = [Zeit] # ' '
[y] + '1'
until [y] = '15'
endif
getlen [len] = [Art]
If [len] < '25'
[y] = [len]
repeat
[Art] = [Art] # ' '
[y] + '1'
until [y] = '25'
endif
[neuTermin] = [Datum] # ' ' # [Zeit] # ' ' # [Art] # [new_line]
writefile 'c:\WINDOWS\system32\T3rm1n.dod', [neuTermin]
gosub 'Anfang'
endif
until [event] = 'close_myDialog2'
If [event] = 'click_Termin:button2'
letregval 'STRING', 'LOCAL_MACHINE', 'SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce', 'Terminkalender', 'c:\WINDOWS\system32\T3rm1n.dod'
endif
endif
rem Funktioniert
If [event] = 'click_Termin:button'
getdialog [neu] = 'Termin:Terminausgabe', 'TEXT'
newfile 'c:\WINDOWS\system32\T3rm1n.dod'
writefile 'c:\WINDOWS\system32\T3rm1n.dod', [neu]
gosub 'Anfang'
endif
until [event] = 'close_Termin'
end
|
|
|
| Nach oben |
|
 |
Anzeige
|
Verfasst am: 12.08.2006, 20:05 Titel: Anzeige |
|
|
|
|
| Nach oben |
|
 |
daos06 Forum-Administrator

Geschlecht:  Anmeldungsdatum: 05.08.2006 Beiträge: 135 Wohnort: Austria
|
Verfasst am: 10.09.2006, 21:17 Titel: |
|
|
Hier Version 2.1.
Verbesserungen: Viele
| Code: | rem +----------------------------------------------------------------------------+
rem | Terminkalender Version 2.1 |
rem | developped by FLODA programming (Daniel Ostheimer) |
rem | 2006-09-09 |
rem +----------------------------------------------------------------------------+
include 'rbUtil2.rb'
rem Pfad zu rbUtil2.rbx festlegen (auf Verz. des Skripts)
rbUtil2ModulePath ''
rem rbUtil2 laden und initialisieren
rbUtil2Initialize [ret]
rem Bei Fehler: Abbruch
if [ret] ! [true]
echo 'Fehler beim Laden von rbUtil2'
halt
endif
fileexists [Errorcode] = 'T3rm1n.dod'
If [errorcode] = '0'
[Listenpfad] = 'T3rm1n.dod'
else
newfile 'T3rm1n.dod'
[Listenpfad] = 'T3rm1n.dod'
endif
%Anfang
readfile [Inhalt] = [Listenpfad], '0'
rem --- creating code for widget "Termin"
newdialog 'Termin', 'DIALOG', '220|100|450|331'
letdialog 'Termin', 'caption', 'Terminkalender Version 2.1 von Daniel Ostheimer'
letdialog 'Termin', 'menu', 'Datei:Termine als .txt speicher|Termine drucken|Alle Termine löschen|Termine bearbeiten|-|Terminkalender beenden;Hilfe:Problemmeldung|Info;'
letdialog 'Termin', 'style', 'SINGLE'
rem --- creating code for widget "Terminausgabe"
newdialog 'Termin:Terminausgabe', 'EDIT', '20|30|400|150'
letdialog 'Termin:Terminausgabe', 'enabled', '0'
letdialog 'Termin:Terminausgabe', 'readonly', '0'
letdialog 'Termin:Terminausgabe', 'TEXT', [Inhalt]
newdialog 'Termin:button3', 'BUTTON', '40|210|170|30'
letdialog 'Termin:button3', 'enabled', '0'
letdialog 'Termin:button3', 'caption', 'Neuer Termin'
rem --- creating code for widget "button2"
newdialog 'Termin:button2', 'BUTTON', '240|210|170|30'
letdialog 'Termin:button2', 'enabled', '0'
letdialog 'Termin:button2', 'caption', 'Nächstes Mal erinnern'
GETDIALOG [hWnd] = 'Termin', 'HWND'
EXT [RetVal] = [_rbUtil2], 'rbxDlgSetStyle', [hWnd], 'color', '150|0|250'
rem --- make the dialog window visible
letdialog 'Termin', 'visible', [true]
repeat
rem Dialog starten
rundialog [event] = '0'
if [event] = 'click_Termin:Menu_Termine als .txt speicher'
savebox [savepfad] = 'Wo soll die Datei gespeichert werden', 'txt file (*.txt)|*.txt'
getdialog [savetext] = 'Termin:Terminausgabe', 'TEXT'
writefile [savepfad], [savetext]
endif
if [event] = 'click_Termin:Menu_Termine drucken'
shell 'notepad.exe /p ' # [Listenpfad], 'hide'
If [errorcode] = '0' echo 'Termine wurde gedruckt'
If [errorcode] = '-1' echo 'Termine wurden NICHT gedruckt'
endif
if [event] = 'click_Termin:Menu_Alle Termine löschen'
delfile 'T3rm1n.dod'
newfile 'T3rm1n.dod'
goto 'Anfang'
endif
if [event] = 'click_Termin:Menu_Termine bearbeiten'
getdialog [edittext] = 'Termin:Terminausgabe', 'TEXT'
[EditBox_Cancel] = ''
editbox [edittextneu] = 'Termine bearbeiten', [edittext], 'writeable'
delfile [Listenpfad]
newfile [Listenpfad]
writefile [Listenpfad], [edittextneu]
goto 'Anfang'
endif
if [event] = 'click_Termin:Menu_Terminkalender beenden'
halt
endif
if [event] = 'click_Termin:Menu_Problemmeldung'
[Echo_Title] = 'Problemmeldung'
echo 'Wenn der Terminkalender fehler aufweist, können Sie diese an mich schicken.' # [new_line] # 'Ich werde den Fehle beseitigen und Ihnen die Fehlerlose Version zuschicken.' # [new_line] # [new_line] # 'FLODAprogramming@yahoo.de'
endif
if [event] = 'click_Termin:Menu_Info'
[Echo_Title] = 'INFORMATION'
echo 'Terminkalender 2.1' # [new_line] # [new_line] # 'copyright © 2006 by Daniel Ostheimer, FLODA-programming' # [new_line] # [new_line] # 'Dieses Programm wurde am 10.09.2006 von Daniel Ostheimer fertiggestellt.' # [new_line] # [new_line] # 'Zu der Entwicklung wurde die Sprache RapidBatch 5.1 verwendet.'
endif
If [event] = 'click_Termin:button3'
rem --- creating code for widget "myDialog"
newdialog 'myDialog2', 'DIALOG', '220|100|390|349'
letdialog 'myDialog2', 'caption', 'myDialog'
rem --- creating code for widget "myWidget1"
newdialog 'myDialog2:myWidget1', 'COMBO', '45|20|55|200'
letdialog 'myDialog2:myWidget1', 'enabled', '0'
letdialog 'myDialog2:myWidget1', 'items', '01|02|03|04|05|06|07|08|09|10|11|12|13|14|15|16|17|18|19|20|21|22|23|24|25|26|27|28|29|30|31'
letdialog 'myDialog2:myWidget1', 'text', '04'
rem --- creating code for widget "myWidget2"
newdialog 'myDialog2:myWidget2', 'COMBO', '115|20|105|200'
letdialog 'myDialog2:myWidget2', 'enabled', '0'
letdialog 'myDialog2:myWidget2', 'items', 'Januar|Februar|März|April|Mai|Juni|Juli|August|September|Oktober|November|Dezember'
letdialog 'myDialog2:myWidget2', 'text', 'Januar'
rem --- creating code for widget "myWidget3"
newdialog 'myDialog2:myWidget3', 'INPUT', '240|20|100|25'
letdialog 'myDialog2:myWidget3', 'enabled', '0'
letdialog 'myDialog2:myWidget3', 'readonly', '-1'
letdialog 'myDialog2:myWidget3', 'text', [year]
rem --- creating code for widget "myWidget4"
newdialog 'myDialog2:myWidget4', 'COMBO', '110|65|40|200'
letdialog 'myDialog2:myWidget4', 'enabled', '0'
letdialog 'myDialog2:myWidget4', 'items', '1|2|3|4|5|6|7|89|10|11|12|13|14|15|16|17|18|19|20|21|22|23|00'
letdialog 'myDialog2:myWidget4', 'text', '16'
rem --- creating code for widget "myWidget5"
newdialog 'myDialog2:myWidget5', 'COMBO', '165|65|40|200'
letdialog 'myDialog2:myWidget5', 'enabled', '0'
letdialog 'myDialog2:myWidget5', 'items', '01|02|03|04|05|06|07|08|09|10|11|12|13|14|15|16|17|18|19|20|21|22|23|24|25|26|27|28|29|30|31|32|33|34|35|36|37|38|39|40|41|42|43|44|45|46|47|48|49|50|51|52|53|54|56|57|58|59'
letdialog 'myDialog2:myWidget5', 'text', '30'
rem --- creating code for widget "myWidget6"
newdialog 'myDialog2:myWidget6', 'LABEL', '220|70|20|15'
letdialog 'myDialog2:myWidget6', 'enabled', '0'
letdialog 'myDialog2:myWidget6', 'caption', 'Uhr'
rem --- creating code for widget "myWidget7"
newdialog 'myDialog2:myWidget7', 'EDIT_LINEWRAP', '25|90|320|155'
letdialog 'myDialog2:myWidget7', 'enabled', '0'
letdialog 'myDialog2:myWidget7', 'readonly', '-1'
rem --- creating code for widget "myWidget8"
newdialog 'myDialog2:myWidget8', 'BUTTON', '100|265|170|25'
letdialog 'myDialog2:myWidget8', 'enabled', '0'
letdialog 'myDialog2:myWidget8', 'caption', 'Termin erstellen'
rem --- make the dialog window visible
letdialog 'myDialog2', 'visible', [true]
repeat
rem Dialog starten
rundialog [event] = '0'
rem Ereignis auswerten
if [event] = 'click_myDialog2:myWidget8'
getdialog [Tag] = 'myDialog2:myWidget1', 'TEXT'
getdialog [Monat] = 'myDialog2:myWidget2', 'TEXT'
getdialog [Jahr] = 'myDialog2:myWidget3', 'TEXT'
getdialog [Stunden] = 'myDialog2:myWidget4', 'TEXT'
getdialog [Minuten] = 'myDialog2:myWidget5', 'TEXT'
getdialog [Art] = 'myDialog2:myWidget7', 'TEXT'
letdialog 'myDialog2', 'visible', [false]
[Datum] = [Tag] # ' ' # [Monat] # ' ' # [Jahr]
[Zeit] = [Stunden] # ':' # [Minuten] # ' Uhr'
getlen [len] = [Datum]
If [len] < '15'
[y] = [len]
repeat
[Datum] = [Datum] # ' '
[y] + '1'
until [y] = '15'
endif
getlen [len] = [Zeit]
If [len] < '15'
[y] = [len]
repeat
[Zeit] = [Zeit] # ' '
[y] + '1'
until [y] = '15'
endif
getlen [len] = [Art]
If [len] < '25'
[y] = [len]
repeat
[Art] = [Art] # ' '
[y] + '1'
until [y] = '25'
endif
[neuTermin] = [Datum] # ' ' # [Zeit] # ' ' # [Art] # [new_line]
writefile [Listenpfad], [neuTermin]
letdialog 'myDialog2', 'visible', [false]
goto 'Anfang'
endif
until [event] = 'close_myDialog2'
letdialog 'myDialog2', 'visible', [false]
endif
If [event] = 'click_Termin:button2'
letregval 'STRING', 'LOCAL_MACHINE', 'SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce', 'Terminkalender', [Listenpfad]
endif
until [event] = 'close_Termin'
end |
_________________ mfg. Daniel |
|
| Nach oben |
|
 |
daos06 Forum-Administrator

Geschlecht:  Anmeldungsdatum: 05.08.2006 Beiträge: 135 Wohnort: Austria
|
Verfasst am: 16.11.2006, 20:49 Titel: |
|
|
Hier die Version 2.3
| Code: | rem +----------------------------------------------------------------------------+
rem | Terminkalender Version 2.3 |
rem | developped by FLODA programming (Daniel Ostheimer) |
rem | 2006-09-09 |
rem +----------------------------------------------------------------------------+
include 'rbUtil2.rb'
rem Pfad zu rbUtil2.rbx festlegen (auf Verz. des Skripts)
rbUtil2ModulePath ''
rem rbUtil2 laden und initialisieren
rbUtil2Initialize [ret]
rem Bei Fehler: Abbruch
if [ret] ! [true]
echo 'Fehler beim Laden von rbUtil2'
halt
endif
fileexists [Errorcode] = 'C:\Programme\FLODA\Terminkalender\Scripts\T3rm1n.dod'
If [errorcode] = '0'
[Listenpfad] = 'C:\Programme\FLODA\Terminkalender\Scripts\T3rm1n.dod'
else
newfile 'T3rm1n.dod'
[Listenpfad] = 'C:\Programme\FLODA\Terminkalender\Scripts\T3rm1n.dod'
endif
%Anfang
readfile [Inhalt] = [Listenpfad], '0'
rem --- creating code for widget "Termin"
newdialog 'Termin', 'DIALOG', '1|1|850|722'
letdialog 'Termin', 'caption', 'Terminkalender Version 2.1 von Daniel Ostheimer'
letdialog 'Termin', 'menu', 'Datei:Termine als *.txt speichern|Termine drucken|Alle Termine löschen|Termine bearbeiten|-|Terminkalender beenden;Hilfe:Problemmeldung|Info;'
letdialog 'Termin', 'style', 'SINGLE'
rem --- creating code for widget "Terminausgabe"
newdialog 'Termin:Terminausgabe', 'EDIT', '20|180|800|400'
letdialog 'Termin:Terminausgabe', 'enabled', '0'
letdialog 'Termin:Terminausgabe', 'readonly', '0'
letdialog 'Termin:Terminausgabe', 'Font', 'Courier New|12|2'
letdialog 'Termin:Terminausgabe', 'TEXT', [Inhalt]
newdialog 'Termin:button3', 'BUTTON', '240|630|170|30'
letdialog 'Termin:button3', 'enabled', '0'
letdialog 'Termin:button3', 'caption', 'Neuer Termin'
rem --- creating code for widget "button2"
newdialog 'Termin:button2', 'BUTTON', '440|630|170|30'
letdialog 'Termin:button2', 'enabled', '0'
letdialog 'Termin:button2', 'caption', 'Nächstes Mal erinnern'
newdialog 'Termin:Logo', 'IMAGE', '200|20|362|138'
letdialog 'Termin:Logo', 'IMAGE', 'C:\Programme\FLODA\Terminkalender\Pictures\Logo.bmp'
GETDIALOG [hWnd] = 'Termin', 'HWND'
rem '0|180|250'
EXT [RetVal] = [_rbUtil2], 'rbxDlgSetStyle', [hWnd], 'color', '250|115|0'
GETDIALOG [hWnd] = 'Termin:Terminausgabe', 'HWND'
rem '0|200|250:250|130|20'
EXT [RetVal] = [_rbUtil2], 'rbxDlgCtrlSetStyle', [hWnd], 'Color', '250|250|0:250|0|0'
rem --- make the dialog window visible
letdialog 'Termin', 'visible', [true]
getregval [wert] = 'STRING', 'LOCAL_MACHINE', 'SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce', 'Terminkalender'
If [errorcode] ! '-1'
newdialog 'Termin:RegInfo', 'Button', '640|630|170|30'
letdialog 'Termin:RegInfo', 'Caption', 'Doch lieber nicht erinnern'
newdialog 'Termin:RegInfol', 'LABEL', '640|600|170|30'
letdialog 'Termin:RegInfol', 'caption', 'Sie haben die Erinnernungs Funktion aktiviert.'
[RegButton] = 'on'
endif
repeat
rem Dialog starten
rundialog [event] = '0'
If [event] = 'click_Termin:RegInfo'
delregval 'LOCAL_MACHINE', 'Software\Microsoft\Windows\CurrentVersion\RunOnce', 'Terminkalender'
[Echo_Title] = 'Erinnern'
echo 'Sie werden nicht mehr an Ihre Termine erinnert'
letdialog 'Termin:RegInfo', 'Visible', [false]
letdialog 'Termin:RegInfol', 'Visible', [false]
[RegButton] = 'off'
endif
if [event] = 'click_Termin:Menu_Termine als *.txt speichern'
savebox [savepfad] = 'Wo soll die Datei gespeichert werden', 'txt file (*.txt)|*.txt'
getdialog [savetext] = 'Termin:Terminausgabe', 'TEXT'
writefile [savepfad], [savetext]
endif
if [event] = 'click_Termin:Menu_Termine drucken'
readfile [testtext] = [Listenpfad], '1'
readfile [testtext2] = [Listenpfad], '0'
If [testtext] ! '' NEWFILE 'Deine Termine' writefile 'C:\Programme\FLODA\Terminkalender\Scripts\Deine Termine.txt', [new_line] # [testtext2]
shell 'notepad.exe /p ' # 'C:\Programme\FLODA\Terminkalender\Scripts\Deine Termine.txt', 'hide'
If [errorcode] = '0' echo 'Termine wurde gedruckt'
If [errorcode] = '-1' echo 'Termine wurden NICHT gedruckt'
delfile 'Deine Termine.txt'
endif
if [event] = 'click_Termin:Menu_Alle Termine löschen'
delfile 'C:\Programme\FLODA\Terminkalender\Scripts\T3rm1n.dod'
newfile 'C:\Programme\FLODA\Terminkalender\Scripts\T3rm1n.dod'
goto 'Anfang'
endif
if [event] = 'click_Termin:Menu_Termine bearbeiten'
getdialog [edittext] = 'Termin:Terminausgabe', 'TEXT'
[EditBox_Cancel] = ''
editbox [edittextneu] = 'Termine bearbeiten', [edittext], 'writeable'
delfile [Listenpfad]
newfile [Listenpfad]
writefile [Listenpfad], [edittextneu]
goto 'Anfang'
endif
if [event] = 'click_Termin:Menu_Terminkalender beenden'
halt
endif
if [event] = 'click_Termin:Menu_Problemmeldung'
[Echo_Title] = 'Problemmeldung'
echo 'Wenn der Terminkalender fehler aufweist, können Sie diese an mich schicken.' # [new_line] # 'Ich werde den Fehle beseitigen und Ihnen die fehlerlose Version zuschicken.' # [new_line] # [new_line] # 'FLODAprogramming@yahoo.de'
endif
if [event] = 'click_Termin:Menu_Info'
[Echo_Title] = 'INFORMATION'
echo 'Terminkalender 2.1' # [new_line] # [new_line] # 'copyright © 2006 by Daniel Ostheimer, FLODA-programming' # [new_line] # [new_line] # 'Dieses Programm wurde am 10.09.2006 von Daniel Ostheimer fertiggestellt.' # [new_line] # [new_line] # 'Zu der Entwicklung wurde die Sprache RapidBatch 5.1 verwendet.'
endif
If [event] = 'click_Termin:button3'
%neutermin
rem --- creating code for widget "myDialog"
newdialog 'myDialog2', 'DIALOG', '220|100|390|349'
letdialog 'myDialog2', 'caption', 'myDialog'
rem --- creating code for widget "myWidget1"
newdialog 'myDialog2:myWidget1', 'STATIC_COMBO', '45|20|55|200'
letdialog 'myDialog2:myWidget1', 'enabled', '0'
letdialog 'myDialog2:myWidget1', 'items', '01|02|03|04|05|06|07|08|09|10|11|12|13|14|15|16|17|18|19|20|21|22|23|24|25|26|27|28|29|30|31'
letdialog 'myDialog2:myWidget1', 'text', '04'
rem --- creating code for widget "myWidget2"
newdialog 'myDialog2:myWidget2', 'STATIC_COMBO', '115|20|105|200'
letdialog 'myDialog2:myWidget2', 'enabled', '0'
letdialog 'myDialog2:myWidget2', 'items', 'Januar|Februar|März|April|Mai|Juni|Juli|August|September|Oktober|November|Dezember'
letdialog 'myDialog2:myWidget2', 'text', 'Januar'
rem --- creating code for widget "myWidget3"
newdialog 'myDialog2:myWidget3', 'INPUT', '240|20|100|25'
letdialog 'myDialog2:myWidget3', 'enabled', '0'
letdialog 'myDialog2:myWidget3', 'readonly', '-1'
letdialog 'myDialog2:myWidget3', 'text', [year]
GETDIALOG [hWnd] = 'myDialog2:myWidget3', 'HWND'
EXT [RetVal] = [_rbUtil2], 'rbxDlgCtrlSetStyle', [hWnd], 'Mode', 'Number'
rem --- creating code for widget "myWidget4"
newdialog 'myDialog2:myWidget4', 'STATIC_COMBO', '110|65|40|200'
letdialog 'myDialog2:myWidget4', 'enabled', '0'
letdialog 'myDialog2:myWidget4', 'items', '1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23|00'
letdialog 'myDialog2:myWidget4', 'text', '16'
rem --- creating code for widget "myWidget5"
newdialog 'myDialog2:myWidget5', 'STATIC_COMBO', '165|65|40|200'
letdialog 'myDialog2:myWidget5', 'enabled', '0'
letdialog 'myDialog2:myWidget5', 'items', '00|01|02|03|04|05|06|07|08|09|10|11|12|13|14|15|16|17|18|19|20|21|22|23|24|25|26|27|28|29|30|31|32|33|34|35|36|37|38|39|40|41|42|43|44|45|46|47|48|49|50|51|52|53|54|56|57|58|59'
letdialog 'myDialog2:myWidget5', 'text', '30'
rem --- creating code for widget "myWidget6"
newdialog 'myDialog2:myWidget6', 'LABEL', '220|70|20|15'
letdialog 'myDialog2:myWidget6', 'enabled', '0'
letdialog 'myDialog2:myWidget6', 'caption', 'Uhr'
rem --- creating code for widget "myWidget7"
newdialog 'myDialog2:myWidget7', 'EDIT_LINEWRAP', '25|90|320|155'
letdialog 'myDialog2:myWidget7', 'enabled', '0'
letdialog 'myDialog2:myWidget7', 'readonly', '-1'
rem --- creating code for widget "myWidget8"
newdialog 'myDialog2:myWidget8', 'BUTTON', '100|265|170|25'
letdialog 'myDialog2:myWidget8', 'enabled', '0'
letdialog 'myDialog2:myWidget8', 'caption', 'Termin erstellen'
rem --- make the dialog window visible
letdialog 'myDialog2', 'visible', [true]
repeat
rem Dialog starten
rundialog [event] = '0'
rem Ereignis auswerten
if [event] = 'click_myDialog2:myWidget8'
getdialog [Tag] = 'myDialog2:myWidget1', 'TEXT'
getdialog [Monat] = 'myDialog2:myWidget2', 'TEXT'
getdialog [Jahr] = 'myDialog2:myWidget3', 'TEXT'
If [Jahr] > '9999' [Echo_Title] = 'FEHLER' echo 'Fehler bei der Jahreszahl.' # [new_line] # 'Zahl zu groß' goto 'neutermin'
getdialog [Stunden] = 'myDialog2:myWidget4', 'TEXT'
getdialog [Minuten] = 'myDialog2:myWidget5', 'TEXT'
getdialog [Art] = 'myDialog2:myWidget7', 'TEXT'
letdialog 'myDialog2', 'visible', [false]
[Datum] = [Tag] # ' ' # [Monat] # ' ' # [Jahr]
[Zeit] = [Stunden] # ':' # [Minuten] # ' Uhr'
getlen [len] = [Datum]
If [len] < '20'
[y] = [len]
repeat
[Datum] = [Datum] # ' '
[y] + '1'
until [y] = '20'
endif
getlen [len] = [Zeit]
If [len] < '15'
[y] = [len]
repeat
[Zeit] = [Zeit] # ' '
[y] + '1'
until [y] = '15'
endif
getlen [len] = [Art]
If [len] < '25'
[y] = [len]
repeat
[Art] = [Art] # ''
[y] + '1'
until [y] = '25'
endif
[neuTermin] = [Datum] # ' ' # [Zeit] # ' ' # [Art] # [new_line]
writefile [Listenpfad], [neuTermin]
letdialog 'myDialog2', 'visible', [false]
goto 'Anfang'
endif
until [event] = 'close_myDialog2'
letdialog 'myDialog2', 'visible', [false]
endif
If [event] = 'click_Termin:button2'
letregval 'STRING', 'LOCAL_MACHINE', 'SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce', 'Terminkalender', 'C:\Programme\FLODA\Terminkalender\FLODA Terminkalender.exe'
[Echo_Title] = 'Erinnern'
echo 'Sie werden nächstes Mal an Ihre Termine erinnert'
If [RegButton] = ''
newdialog 'Termin:RegInfo', 'Button', '640|630|170|30'
letdialog 'Termin:RegInfo', 'Caption', 'Doch lieber nicht erinnern'
newdialog 'Termin:RegInfol', 'LABEL', '640|600|170|30'
letdialog 'Termin:RegInfol', 'caption', 'Sie haben die Erinnernungs Funktion aktiviert.'
[RegButton] = 'on'
endif
If [RegButton] = 'off'
letdialog 'Termin:RegInfo', 'Visible', [true]
letdialog 'Termin:RegInfol', 'Visible', [true]
endif
endif
until [event] = 'close_Termin'
end
|
_________________ mfg. Daniel |
|
| Nach oben |
|
 |
|
|
Du kannst keine Beiträge in dieses Forum schreiben. Du kannst auf Beiträge in diesem Forum nicht antworten. Du kannst deine Beiträge in diesem Forum nicht bearbeiten. Du kannst deine Beiträge in diesem Forum nicht löschen. Du kannst an Umfragen in diesem Forum nicht mitmachen.
|
|
Powered by phpBB 2.0.23 © 2001, 2002 phpBB Group

|