home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 April / CHIP4_98.ISO / software / ccconrad / basic.exe / CHIP / C-Control Setup / _SETUP.1 / 014.bas < prev    next >
Encoding:
BASIC Source File  |  1997-03-13  |  1.4 KB  |  66 lines
  1. '********************************************************************
  2. '
  3. ' C-Control/BASIC       014.BAS
  4. '
  5. ' Systemvoraussetzungen:
  6. '
  7. ' - serielle Verbindung zum PC
  8. ' - Terminalprogramm
  9. ' - ein Piezo-Schallwandler ohne Elektronik (z.B Conrad Electronic
  10. '   Best.-Nr. 75 16 69) zwischen dem BEEP-Port und GND
  11. ' - DCF77 Aktivantenne
  12. '
  13. ' Schwerpunkte:
  14. '
  15. ' - Verwendung der integrierten Echtzeituhr 
  16. ' - Warten auf Eintreten einer Bedingung mit WAIT
  17. '
  18. ' Das Programm gibt Datum und Uhrzeit seriell aus und piept zu jeder
  19. ' vollen Minute.
  20. '********************************************************************
  21.  
  22. ' --- Definitionen --------------------------------------------------
  23.  
  24. define lastsec byte
  25.  
  26.  
  27. ' --- Programmoperationen -------------------------------------------
  28.  
  29. lastsec = 0
  30.  
  31. ' Programmschleife (mit RESET beenden)
  32.  
  33. #loop
  34.  
  35.   ' warten, bis neue Sekunde angebrochen ist
  36.   wait second <> lastsec 
  37.   lastsec = second
  38.   
  39.   ' Tag
  40.   if day < 10 then print "0";   ' fuehrende Null hinzufuegen
  41.   print day; ".";
  42.  
  43.   ' Monat
  44.   if month < 10 then print "0";   
  45.   print month; ".";
  46.   
  47.   ' Jahr
  48.   if year < 10 then print "0";   
  49.   print year,
  50.   
  51.   ' Stunde
  52.   if hour < 10 then print "0";   
  53.   print hour; ":";
  54.  
  55.   ' Minute
  56.   if minute < 10 then print "0";   
  57.   print minute; ":";
  58.   
  59.   ' Sekunde
  60.   if second < 10 then print "0";   
  61.   print second
  62.   if second = 0 then beep 100,20,0
  63.  
  64. goto loop
  65.  
  66.