Code: Select all
' scrolling word clock by neil
WindowTitle "SCROLLING WORD CLOCK"
Dim As String hr,mn,t,t1,t2,key
Dim As Ubyte hrs,min,ln,min1
Dim AS String text,Fletter,Oletters
Dim As Integer zoom = 3 '' from 1 to 9 for example
Dim As Integer w = 23 * 8, h = 21 * 8
ScreenRes 380,70
SetMouse 0,0,0
' font color green - white background
Color 2,15
Cls
Do
t = "":t1 = "":t2 = "":mn = "":hr = ""
t = time
mn=Mid(t,4,2):hr=Mid(t,1,2)
hrs = val(hr):min = val(mn)
If hrs > 12 Then hrs -= 12
If hrs = 0 Then hrs += 12
If min > 30 Then
hrs += 1
if hrs > 12 Then hrs = 1
End if
if hrs = 1 Then t2 = "ONE"
if hrs = 2 Then t2 = "TWO"
if hrs = 3 Then t2 = "THREE"
if hrs = 4 Then t2 = "FOUR"
if hrs = 5 Then t2 = "FIVE"
if hrs = 6 Then t2 = "SIX"
if hrs = 7 Then t2 = "SEVEN"
if hrs = 8 Then t2 = "EIGHT"
if hrs = 9 Then t2 = "NINE"
if hrs = 10 Then t2 = "TEN"
if hrs = 11 Then t2 = "ELEVEN"
if hrs = 12 Then t2 = "TWELVE"
if min = 0 Then t1 = " IT IS " + t2 + " O`CLOCK "
if min = 1 Then t1 = " IT IS ONE MINUTE PAST " + t2
if min = 2 Then t1 = " IT IS TWO MINUTES PAST " + t2
if min = 3 Then t1 = " IT IS THREE MINUTES PAST " + t2
if min = 4 Then t1 = " IT IS FOUR MINUTES PAST " + t2
if min = 5 Then t1 = " IT IS FIVE MINUTES PAST " + t2
if min = 6 Then t1 = " IT IS SIX MINUTES PAST " + t2
if min = 7 Then t1 = " IT IS SEVEN MINUTES PAST " + t2
if min = 8 Then t1 = " IT IS EIGHT MINUTES PAST " + t2
if min = 9 Then t1 = " IT IS NINE MINUTES PAST " + t2
if min = 10 Then t1 = " IT IS TEN MINUTES PAST " + t2
if min = 11 Then t1 = " IT IS ELEVEN MINUTES PAST " + t2
if min = 12 Then t1 = " IT IS TWELVE MINUTES PAST " + t2
if min = 13 Then t1 = " IT IS THIRTEEN MINUTES PAST " + t2
if min = 14 Then t1 = " IT IS FOURTEEN MINUTES PAST " + t2
if min = 15 Then t1 = " IT IS A QUARTER PAST " + t2
if min = 16 Then t1 = " IT IS SIXTEEN MINUTES PAST " + t2
if min = 17 Then t1 = " IT IS SEVENTEEN MINUTES PAST " + t2
if min = 18 Then t1 = " IT IS EIGHTEEN MINUTES PAST " + t2
if min = 19 Then t1 = " IT IS NINETEEN MINUTES PAST " + t2
if min = 20 Then t1 = " IT IS TWENTY MINUTES PAST " + t2
if min = 21 Then t1 = " IT IS TWENTY-ONE MINUTES PAST " + t2
if min = 22 Then t1 = " IT IS TWENTY-TWO MINUTES PAST " + t2
if min = 23 Then t1 = " IT IS TWENTY-THREE MINUTES PAST " + t2
if min = 24 Then t1 = " IT IS TWENTY-FOUR MINUTES PAST " + t2
if min = 25 Then t1 = " IT IS TWENTY-FIVE MINUTES PAST " + t2
if min = 26 Then t1 = " IT IS TWENTY-SIX MINUTES PAST " + t2
if min = 27 Then t1 = " IT IS TWENTY-SEVEN MINUTES PAST " + t2
if min = 28 Then t1 = " IT IS TWENTY-EIGHT MINUTES PAST " + t2
if min = 29 Then t1 = " IT IS TWENTY-NINE MINUTES PAST " + t2
if min = 30 Then t1 = " IT IS HALF PAST " + t2
if min = 31 Then t1 = " IT IS TWENTY-NINE MINUTES TO " + t2
if min = 32 Then t1 = " IT IS TWENTY-EIGHT MINUTES TO " + t2
if min = 33 Then t1 = " IT IS TWENTY-SEVEN MINUTES TO " + t2
if min = 34 Then t1 = " IT IS TWENTY-SIX MINUTES TO " + t2
if min = 35 Then t1 = " IT IS TWENTY-FIVE MINUTES TO " + t2
if min = 36 Then t1 = " IT IS TWENTY-FOUR MINUTES TO " + t2
if min = 37 Then t1 = " IT IS TWENTY-THREE MINUTES TO " + t2
if min = 38 Then t1 = " IT IS TWENTY-TWO MINUTES TO " + t2
if min = 39 Then t1 = " IT IS TWENTY-ONE MINUTES TO " + t2
if min = 40 Then t1 = " IT IS TWENTY MINUTES TO " + t2
if min = 41 Then t1 = " IT IS NINETEEN MINUTES TO " + t2
if min = 42 Then t1 = " IT IS EIGHTEEN MINUTES TO " + t2
if min = 43 Then t1 = " IT IS SEVENTEEN MINUTES TO " + t2
if min = 44 Then t1 = " IT IS SIXTEEN MINUTES TO " + t2
if min = 45 Then t1 = " IT IS A QUARTER TO " + t2
if min = 46 Then t1 = " IT IS FOURTEEN MINUTES TO " + t2
if min = 47 Then t1 = " IT IS THIRTEEN MINUTES TO " + t2
if min = 48 Then t1 = " IT IS TWELVE MINUTES TO " + t2
if min = 49 Then t1 = " IT IS ELEVEN MINUTES TO " + t2
if min = 50 Then t1 = " IT IS TEN MINUTES TO "+ t2
if min = 51 Then t1 = " IT IS NINE MINUTES TO " + t2
if min = 52 Then t1 = " IT IS EIGHT MINUTES TO " + t2
if min = 53 Then t1 = " IT IS SEVEN MINUTES TO " + t2
if min = 54 Then t1 = " IT IS SIX MINUTES TO "+ t2
if min = 55 Then t1 = " IT IS FIVE MINUTES TO " + t2
if min = 56 Then t1 = " IT IS FOUR MINUTES TO " + t2
if min = 57 Then t1 = " IT IS THREE MINUTES TO " + t2
if min = 58 Then t1 = " IT IS TWO MINUTES TO "+ t2
if min = 59 Then t1 = " IT IS ONE MINUTE TO " + t2
ln = len(t1)
Do
Fletter = Mid(t1,1,1)
Oletters = Mid(t1,2,ln)
t1 = Oletters + FLetter
ScreenLock
Cls
Locate 2,1:print t1
t = time
mn=Mid(t,4,2)
min1 = val(mn)
For x As Integer = w - 1 To 0 Step -1
For y As Integer = h - 1 To 0 Step -1
Line(x * zoom, y * zoom)-Step(zoom - 1, zoom - 1), Point(x, y), BF
Next
Next
Screenunlock
key = inkey
' speed adjust as needed
Sleep 210,1
if min1 <> min THEN Exit do
If (Key = chr(27)) Or (key = Chr(255) & "k") Then End
Loop
Loop Until (key = Chr(27)) Or (key = Chr(255) & "k")
EndCode: Select all
'' Hexadecimal Clock this is base-16.
Dim As Integer zoom = 4 '' from 1 to 9 for example
Dim As Integer w = 17 * 8, h = 5 * 8
Dim As String t, hrs, min, sec, key
Screenres w * zoom, h * zoom
Do
Screenlock
Cls
Color 14
Locate 2, 2 : Print "HEX CLOCK 24 HR"
Color 10
t = Time
hrs = Left(t, 2):min = Mid(t, 4, 2):sec = Right(t, 2)
Locate 4, 6
Print Hex(Val(hrs), 2);":"; Hex(Val(min), 2);":";Hex(Val(sec), 2)
For x As Integer = w - 1 To 0 Step -1
For y As Integer = h - 1 To 0 Step -1
Line(x * zoom, y * zoom)-Step(zoom - 1, zoom - 1), Point(x, y), BF
Next
Next
Screenunlock
key = inkey
If (Key >= "1") And (key <= "9") Then
zoom = Valint(key)
Screenres w * zoom, h * zoom
End If
Sleep 100, 1
Loop Until (key = Chr(27)) Or (key = Chr(255) & "k")