home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 April / CHIP4_98.ISO / software / ccconrad / basic.exe / CHIP / Programme.Bas / Utility / Ser_DCF77_Uhr.bas < prev    next >
Encoding:
BASIC Source File  |  1997-11-17  |  804 b   |  30 lines
  1. '******************  Ser_Uhr****************************************
  2. ' Das Programm gibt Datum und Uhrzeit seriell aus 
  3. ' - serielle Verbindung zum PC
  4. ' - Terminalprogramm
  5. ' - DCF77 Aktivantenne
  6. ' - Verwendung der integrierten Echtzeituhr
  7.  
  8. define lastsec byte
  9.  
  10. lastsec = 0
  11.  
  12. #loop
  13.   wait second <> lastsec  ' warten, bis neue Sekunde angebrochen ist
  14.   lastsec = second
  15.   if day < 10 then print "0";     ' Tag
  16.   print day; ".";
  17.   if month < 10 then print "0";   ' Monat
  18.   print month; ".";
  19.   if year < 10 then print "0";    ' Jahr
  20.   print year,
  21.   if hour < 10 then print "0";    ' Stunde
  22.   print hour; ":";
  23.   if minute < 10 then print "0";  ' Minute
  24.   print minute; ":";
  25.   if second < 10 then print "0";  ' Sekunde
  26.   print second
  27.   'if second = 0 then beep 100,20,0
  28. goto loop
  29.  
  30.