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 
 Ein kleines Code-Demo mit Fehlern - könnt ihr da mal drüber schauen?
Autor: Markus Barkholz (---.unity-media.net)
Datum:   02.01.18 12:11

Dieses Programm soll mir später einen DayCode erzeugen. Soll später zum Einloggen auf einer Webseite den Code vorgeben. Er wird dann immer nur 24h Gültigkeit haben.

Ein kleines Problem sehe ich aber in der rückwärts laufenden Uhrzeit. Das könnte ich zwar verkraften, nervt aber. Es fehlen genau 2Sekunden bis Mitternacht wenn man die PC-Zeit mit der verbleibenden Zeit vergleicht. Ablaufzeit ist 23:59:59. Setze ich allerdings diese Zeit auf 00:00:00 so funktioniert es nicht mehr.
Ich habe jetzt aber keine Idee wie ich das läsen könnte. Habt ihr eine?


 Declare Timer&, D!, 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
         If &GetTickCount-Timer& >= 1000                                                 'Alle 1000ms nachfolgenden Code ausführen
             LOCATE 2,4:Print "Dein persönlicher Zugans-Code: 12454544"
             D!=DT("setDate", DT("getDate",0)):D!=DT("setTime","23:59:59",D!)            'Funktionen zum Berechnen des Datums für
             D!=DT("DaysBetween",D!,!NOW,0):D$=DT("getTime",2,D!)                        'Ablauf des Codes um Mitternacht
             LOCATE 3,6:Print "Ablauf in: " + D$
             Locate 4,11:Print " Zeit:" + DT("GetTime",2)                                       'Anzeige auf Bildschirm
             Timer&=&GetTickCount                                                        'Timerereignis auslösen
         EndIf
         Select TrayIcon("msg",1)                                                        'Reagiert auf Maustasten
             CaseOf $201
                 ShowNormal
             CaseOf $204
                 ShowMin
         EndSelect
     EndWhile
 KillTimer  
 




 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