Terminkalender!

Verfügbare Informationen zu "Terminkalender!"

Qualität des Beitrags:

Beteiligte Poster: daos06

Forum: DAFLO programming Forum

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

aus dem Unterforum: RapidBatch

Antworten: 3

Forum gestartet am: Samstag 05.08.2006

Sprache: deutsch

Link zum Originaltopic: Terminkalender!

Letzte Antwort: vor 17 Jahren, 5 Monaten, 9 Tagen, 6 Stunden, 14 Minuten

Alle Beiträge und Antworten zu "Terminkalender!"

Re: Terminkalender!

daos06 - 12.08.2006, 20:05

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

---

Re: Terminkalender!

daos06 - 10.09.2006, 21:17

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

---

Re: Terminkalender!

daos06 - 16.11.2006, 20:49

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

---

Mit folgendem Code, können Sie den Beitrag ganz bequem auf ihrer Homepage verlinken

<a href="http://www.iphpbb.com/foren-archiv/14/867200/866040/terminkalender-80423332-50537-15.html" target="_blank">Terminkalender!</a>

---

Weitere Beiträge aus dem Forum DAFLO programming Forum

rbUtil2 - gepostet von daos06 am Mittwoch 06.09.2006
DAFLO verschönert den XP Desktop.... - gepostet von daos06 am Dienstag 28.11.2006

---

Ähnliche Beiträge wie "Terminkalender!"

Terminkalender - romaronja (Freitag 10.08.2007)
Der Terminkalender - Harryhase der V. (Donnerstag 01.02.2007)
Raid Terminkalender - Wuzler (Freitag 15.09.2006)
Terminkalender für 2008 - schnieder (Sonntag 09.09.2007)
Terminkalender - Zerschmetterling (Dienstag 29.11.2005)
Terminkalender auf der Homepage - DanielH (Freitag 29.12.2006)
Terminkalender - labomba (Sonntag 27.05.2007)
Terminkalender - engelasthra (Montag 05.12.2005)
Terminkalender Online - christianho (Sonntag 24.06.2007)
NutŽs Terminkalender - maeuschen75 (Donnerstag 08.02.2007)