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


 

 FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen   RegistrierenRegistrieren 
 ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin 

Terminkalender!



 
Neues Thema eröffnen   Neue Antwort erstellen    DAFLO programming Forum Foren-Übersicht -> RapidBatch
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
daos06
Forum-Administrator



Geschlecht: Geschlecht:männlich
Anmeldungsdatum: 05.08.2006
Beiträge: 135
Wohnort: Austria

BeitragVerfasst am: 12.08.2006, 20:05    Titel: Terminkalender! Antworten mit Zitat

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
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden MSN Messenger
Anzeige








BeitragVerfasst am: 12.08.2006, 20:05    Titel: Anzeige

Nach oben
daos06
Forum-Administrator



Geschlecht: Geschlecht:männlich
Anmeldungsdatum: 05.08.2006
Beiträge: 135
Wohnort: Austria

BeitragVerfasst am: 10.09.2006, 21:17    Titel: Antworten mit Zitat

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
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden MSN Messenger
daos06
Forum-Administrator



Geschlecht: Geschlecht:männlich
Anmeldungsdatum: 05.08.2006
Beiträge: 135
Wohnort: Austria

BeitragVerfasst am: 16.11.2006, 20:49    Titel: Antworten mit Zitat

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
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden MSN Messenger
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    DAFLO programming Forum Foren-Übersicht -> RapidBatch Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
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


Thema 186281-186320 | Thema 472521-472560 | Thema 791561-791600

Impressum | Datenschutz

Bei iphpbb.com bekommen Sie ein Kostenloses Forum mit vielen tollen Extras