Das OFFIZIELLE PROFAN SUPPORT FORUM
Einsteigerfragen
PROFAN-Programmierung
Helfer & Tools
Anregungen & Vorschläge
PROFAN-NEWS
Die Regeln!
2 - PROFAN-Programmierung

 Neues Thema  |  Zur Übersicht  |  Suchen  |  Einloggen   Vorherige Nachricht  |  Nächste Nachricht 
 Re: Ein kleines Code-Demo mit Fehlern - könnt ihr da mal drüber schauen?
Autor: Heinz Brill (---.dip0.t-ipconnect.de)
Datum:   04.01.18 08:27

Mist, es fehlt immer noch eine Sekunde 8-)
 Declare D!, dif!, D$, hIcon&                              'Variablen deklaration
  Var ProgName$ = "DayCode v1.0 - Markus Barkholz  © 2017"                                'Programmname festlegen
  WindowTitle ProgName$                                                                   'und Anzeigen
  WindowStyle 8+16                                                                        'Programmfenster kann nicht vergrößert oder verkleinert, nur geschlossen werden.
  Window 366, 100                                                                         'Größe des Programmfensters
  CLS  : ClearList                                                                        'Bildschirm und evtl. vorhandene Listen werden gelöscht
  UseIcon "WINDOWS"                                                                       'Icon des Programms festlegen
  hIcon& = Create("hIcon", "WINDOWS")                                                     'Erzeugt IconHandle
  TrayIcon("add", %hWnd, 1, hIcon&, "DayCode")                                            'Erstellt TrayIcon mit Namen DayCode
  Set("Decimals",12)                                                                      'Anzahl der Dezimalstellen nach dem Komma
  SetTimer 1000                                                                           'Timer mit Intervall 1000ms starten
      While 1
          If IsKey(27)                                                                    'Programm kan auch mit ESC verlassen werden
              TrayIcon("delete", %hWnd, 1)                                                'Löscht das TrayIcon
              DeleteObject hIcon&                                                         'Löscht das IconHandle
              End                                                                         'Beendet das Programm
          EndIf
          'Alle 1000ms nachfolgenden Code ausführen
          If %wmTimer
              LOCATE 2,4:Print "Dein persönlicher Zugans-Code: 12454544"
              'Hier wird die Uhrzeit auf 00:00:00 gesetzt                                                                             'Ablauf des Codes um Mitternacht
              D! = DT("SetDate", DT("GetYear", !NOW), DT("GetMonth", !NOW), DT("GetDay", !NOW))
              ' Erst dann um 1 Tag erhöhen
              D! = DT("IncDay", D!, 1)
              dif! = DT("DaysBetween", D!, !NOW)
              D$ = DT("getTime", 2, dif!)
              LOCATE 3,6:Print "Ablauf in: " + D$
              Locate 4,11:Print " Zeit:" + DT("DateTimeStr", "tt", !NOW)                  'Anzeige auf Bildschirm
                                                                                          'Timerereignis auslösen
          EndIf
          Select TrayIcon("msg",1)                                                        'Reagiert auf Maustasten
              CaseOf $201
                  ShowNormal
              CaseOf $204
                  ShowMin
          EndSelect
      EndWhile
  KillTimer
 


H.Brill
XProfan X4 + FreeProfan

 Beitrag beantworten  |  Foren-Liste  |  Alle Antworten   Neuerer Beitrag  |  Älteres Thema 

 Beiträge Autor  Datum
 Ein kleines Code-Demo mit Fehlern - könnt ihr da mal drüber schauen?  Neu
Markus Barkholz 02.01.18 12:11 
 Re: Ein kleines Code-Demo mit Fehlern - könnt ihr da mal drüber schauen?  Neu
Wilfried Heyse2 03.01.18 15:12 
 Re: Ein kleines Code-Demo mit Fehlern - könnt ihr da mal drüber schauen?  Neu
Heinz Brill 03.01.18 18:25 
 Re: Ein kleines Code-Demo mit Fehlern - könnt ihr da mal drüber schauen?  Neu
Heinz Brill 04.01.18 08:27 
 Re: Ein kleines Code-Demo mit Fehlern - könnt ihr da mal drüber schauen?  Neu
Markus Barkholz 05.01.18 18:40 
 Re: Ein kleines Code-Demo mit Fehlern - könnt ihr da mal drüber schauen?  Neu
Markus Barkholz 05.01.18 19:01 


 Foren-Liste  |  Zur Registrierung 
 Benutzerlogin
 Benutzername:
 Passwort:
 Login-Daten speichern:
   
 Passwort vergessen?
E-Mail-Adresse oder Username unten eingeben. Dann wird Dir per e-Mail ein neues Passwort zugeschickt.

phorum.org