mmbasic_original:digiclock
DCF77 DigiClock
This module is part of the original MMBasic library. It is reproduced here with kind permission of Hugh Buckle and Geoff Graham. Be aware it may reference functionality which has changed or is deprecated in the latest versions of MMBasic.
' -------------------------------------------------------------------------- ' ' DigiClock for DynaMite / Maxmite ' ' One Maximite drives one screen, three screens make one DigiClock ' Each screen is displaying two digits, either HH, MM or SS. ' ' This program uses V4.4B of the MMBasic language, so the DuinomMites have ' to be flashed with the most recent firmware. ' ' The clock is automatically set via DCF77 (Conrad Receiver) ' http://www.conrad.de/ce/de/product/641138/C-Control-DCF-Empfaengerplatine ' ' Wiring: The first device (SECOND) needs to receive the DCF signal on Pin 1 ' The other devices get their time via a UART connection on COM1. So connect Pin 16 ' of the SECOND board to pin 15 on the MINUTE and HOUR board. ' ' (External View) ' ' + GND for DCF Board ' | ' | ' | ' | 1 DCF In for SECOND module ' + + ' o o o o o o o o o o o o o ' ' o o o o o o o o o o o o o ' ^ ^ + ' | | 15 Rx Connect to Tx of SECOND Module ' | + ' | 16 Tx Connect to Rx of MINUTE and HOUR Module ' | ' + 3.3V for DCF Board ' ' You will need a 10 kOhm Pullup between Vcc and the non-inverting output of ' the DCF module (pulling high to 3.3V) as the module has open collector ' outputs. ' ' Take a look at "DuinoMite MMBasic ReadMe.pdf" for more info. ' ' The bitmaps and all basic files have to be copied to the SD card, change ' the DisplayMode variable for each board accordingly. ' ' You can of course replace the clock images by your own ones, but stick to ' the size and the BMP format - some BMP sizes make ugly bit noise at the end. ' ' v2.0 written in 2014 by Tim Hagemann (tim@way2.net) ' ' Use this code free of charge for private or educational uses. Ask for ' permission in case of commercial usage. ' ' -------------------------------------------------------------------------- DisplayMode = 2 ' 0: HH, 1: MM, 2:SS DigitY = 50 ' Y pos of both digits DigitLX = 53 ' X pos of left digit DigitRX = 250 ' X pos of right digit DCFPin = 1 ' Pin for the DCF77 signal SignalY = 300 ' Position of the search signal line SignalHeight = 20 ' Pulse height on screen ' ' ----------- initialization ' WaitingForTime = 1 FirstSyncFound = 0 OldSignalY = SignalY oldsignal = 1 Dim dcfbit(60) ' --- configure pin as input SetPin DCFPin, 2 cls ' ' ----------- welcome screen ' print "Welcome to DClock v2.0" print "----------------------" print print "Starting time sync." print if DisplayMode = 2 then print "This is the 'SECOND' and the DCF77 Unit" endif if DisplayMode = 1 then print "This is the 'MINUTE' Unit" endif if DisplayMode = 0 then print "This is the 'HOUR' Unit" endif ' ' ----------- main program ' if DisplayMode = 2 then DisplaySecondAndSendDCF else DisplayDigitAndReceiveDCF endif ' ----------------------------------------------------------------------- sub DisplaySecondAndSendDCF ' --- setup the ticker for the DCF signal SetTick 10, CheckDCF77 ' --- com1: Rx is pin 15, Tx is pin 16 OPEN "COM1:4800" AS #1 Do ' --- deferred actions if DoCls = 1 then cls DoCls = 0 endif if UpdateLastSync = 1 then print @(0,415) "Last synced: ";LastSync$;" "; UpdateLastSync = 0 endif currt$ = Time$ ' --- when time changed If currt$ <> oldt$ Then s1 = Val(Mid$(currt$,7,1)) s2 = Val(Mid$(currt$,8,1)) ' --- main program If WaitingForTime = 0 Then print #1,"TT";currt$ ' --- main display routine PrintDigit DigitLX, DigitY, s1 PrintDigit DigitRX, DigitY, s2 EndIf ' --- save time for compare oldt$ = currt$ EndIf ' --- wait a bit Pause 50 Loop end sub ' ----------------------------------------------------------------------- Sub DisplayDigitAndReceiveDCF ' --- com1: Rx is pin 15, Tx is pin 16 OPEN "COM1:4800" AS #1 do if LOC(#1) <> 0 then ' ---- read serial input a$ = input$(50,#1) ' ---- add to the receive uffer r$ = r$ + a$ 'print "'";r$;"'" ' ---- now process chr13 = instr(r$,chr$(13)) if chr13 <> 0 then ' ---- we found a CR command$ = left$(r$,chr13) cmd$ = left$(command$,2) param$ = mid$(command$,3) commandfound = 0 if cmd$="TT" then commandfound = 1 h1 = Val(Mid$(param$,1,1)) h2 = Val(Mid$(param$,2,1)) m1 = Val(Mid$(param$,4,1)) m2 = Val(Mid$(param$,5,1)) ' --- main display routine if FirstCLS = 0 then cls FirstCLS = 1 endif If DisplayMode = 0 Then PrintDigit DigitLX, DigitY, h1 PrintDigit DigitRX, DigitY, h2 Else PrintDigit DigitLX, DigitY, m1 PrintDigit DigitRX, DigitY, m2 EndIf endif if commandfound = 0 then 'print "Error: command ";command$;" is invalid" endif r$ = "" endif else Pause 50 endif loop end sub ' ----------------------------------------------------------------------- Sub PrintDigit (x,y,v) bitmapname$ = Str$(v) + ".bmp" LoadBMP bitmapname$, x, y End Sub ' ----------------------------------------------------------------------- Sub CheckDCF77 ' --- buffer the signal to avoid glitches signal = Pin(DCFPin) ' --- update the counters if signal = 1 or ignorepulse = 1 then highcount = highcount + 1 else lowcount = lowcount + 1 endif ' --- in search mode, display a fancy osci like graphic if WaitingForTime = 1 then ' --- clear old line Line (SignalX,SignalY) - (SignalX,SignalY-SignalHeight),0 ' --- draw new line NewSignalY = SignalY-signal*SignalHeight Line (SignalX,OldSignalY) - (SignalX,NewSignalY),1 OldSignalY = NewSignalY ' --- do the X warp around SignalX = SignalX + 1 if (SignalX > MM.HRES) then SignalX = 0 endif endif ' --- falling edge if oldsignal = 1 and signal = 0 then ' --- this is the falling edge 'print "Lowcnt";lowcount;" Highcnt";highcount ' --- filter out very small pulses if highcount < 7 then ignorepulse = 1 'print "Ignore pulse - too small" else if lowcount > 120 then 'print "Lowcount detected" ' --- two cases: we found the sync and completed the full datagram ' or we found the first sync having read only rubbish If FirstSyncFound = 1 Then ' --- the is then the 2nd, 3rd,... sync. ProcessDCFTime Else ' --- ok, now we got the first one! FirstSyncFound = 1 if WaitingForTime = 1 then print @(0,150) "First minute break found...now receiving time...";spc(40) endif EndIf ' --- the next bit will be bit 1, we ignore bit 60 --> anyway 0 bitindex = 1 else 'print "Pulse detected" ' --- only process, if we completed the first round If FirstSyncFound = 1 Then if WaitingForTime = 1 then print @(0,150) "Receiving bit number";bitindex;" of 58";spc(40) endif If bitindex <= 60 Then ' --- more than 100 ms? The this is a "1" If highcount > 10 Then dcfbit(bitindex) = 1 Else dcfbit(bitindex) = 0 EndIf 'Print "BIT :", dcfbit(bitindex) bitindex = bitindex + 1 Else if WaitingForTime = 1 then print @(0,150) "Lost sync. Try again.";spc(40) endif ' --- something was wrong. Restart sync FirstSyncFound = 0 EndIf EndIf endif lowcount = 0 highcount = 0 ignorepulse = 0 endif endif oldsignal = signal End Sub ' ----------------------------------------------------------------------- Sub ProcessDCFTime idx = 21 mm = dcfbit(idx) + dcfbit(idx+1)*2 + dcfbit(idx+2)*4 + dcfbit(idx+3)*8 + dcfbit(idx+4)*10 + dcfbit(idx+5)*20 + dcfbit(idx+6)*40 p1 = Party(21,28) idx = 29 hh = dcfbit(idx) + dcfbit(idx+1)*2 + dcfbit(idx+2)*4 + dcfbit(idx+3)*8 + dcfbit(idx+4)*10 + dcfbit(idx+5)*20 p2 = Party(29,35) idx = 36 dd = dcfbit(idx) + dcfbit(idx+1)*2 + dcfbit(idx+2)*4 + dcfbit(idx+3)*8 + dcfbit(idx+4)*10 + dcfbit(idx+5)*20 idx = 45 mo = dcfbit(idx) + dcfbit(idx+1)*2 + dcfbit(idx+2)*4 + dcfbit(idx+3)*8 + dcfbit(idx+4)*10 idx = 50 yy = dcfbit(idx) + dcfbit(idx+1)*2 + dcfbit(idx+2)*4 + dcfbit(idx+3)*8 + dcfbit(idx+4)*10 + dcfbit(idx+5)*20 + dcfbit(idx+6)*40 + dcfbit(idx+7)*80 p3 = Party(36,58) 'Print "//////////// time", hh , mm, dd,mo,yy,p1,p2,p3 ' --- now do some checks dcferr = 0 If Fix(p1/2) <> p1/2 Then dcferr = 1 EndIf If Fix(p2/2) <> p2/2 Then dcferr = 1 EndIf If Fix(p3/2) <> p3/2 Then dcferr = 1 EndIf If mo<1 Or mo>12 Then dcferr = 1 EndIf If dd<1 Or dd>31 Then dcferr = 1 EndIf If mm>59 Then dcferr = 1 EndIf If hh>23 Then dcferr = 1 EndIf If yy>25 Then dcferr = 1 EndIf ' --- now process If dcferr = 0 Then Time$ = Str$(hh)+":"+Str$(mm)+":00" if WaitingForTime = 1 then WaitingForTime = 0 ' --- deferred CLS - will otherwise get us out of sync DoCls = 1 endif ' --- deferred PRINT - will otherwise get us out of sync UpdateLastSync = 1 LastSync$ = time$ EndIf End Sub ' ----------------------------------------------------------------------- Function Party(idxa,idxe) p = 0 For i = idxa To idxe p = p + dcfbit(i) Next i Party = p End Function
mmbasic_original/digiclock.txt · Last modified: 2024/01/19 09:39 by 127.0.0.1