Support Forum / Форум поддержки

Code: Select all

''
UD Timer Chrome by rbytes
August 2017
Up-Down timer
Uses graphic images of the 10 digits, the colon
and the 'Done' message
''
' ########################  Set Count Duration ###############################
maxt = 20 'total seconds to be timed
' ############################################################################

cnt = 0
'#.drawrect(160,255,343,500)        ' used only for setting digit sizes and offsets
xn=[31,200,455,620,865,1035]          ' reference x positions using p variable
hn=110;yn=230                       ' reference height and y position
#.scrclear(1,1,1)

' the character images vary in size and xy offsets so this array stores correction data
q=[[0,0,0],[0,0,0],[0,0,0],[0,0,0],[0,0,0],[0,0,0],[0,0,0],[0,0,0],[0,0,0],[0,0,0]]

' the "s" flags prevent #.image and show being executed more than once per image object
s1,s2,s3,s4,s5,s6 = 0

' the "flag" flags only allow any digit to be refreshed once when a second, minute or hour changes
flag1,flag2,flag3,flag4,flag5,flag6 = 0

' runflag starts the timing loop when it = 1
runflag = 0

#.output("Enter the total seconds to be timed, then press Return")
maxtt = #.input()
#.output("You entered "+maxtt+" seconds")

maxt=#.val(maxtt)

#.output("Press 0 to count down or 1 to count up, then press Return")
udflag = #.input()
#.output("You entered "+udflag)
udflg = #.val(udflag)

#.delay(1)
#.clear()
#.scrclear(.5,.5,.5)

' start button
butt=#.button
  butt.height = 50
  butt.text = "S T A R T"
  butt.width = 120
  butt.x = 550
  butt.y = 450
#.show(butt)

' draw the left colon
b = #.image                       ' colon image
b.source = "resources\Ccolon.png"
b.height = 80
b.x = 380
b.y = 250
#.show(b)

' draw the right colon
c = #.image                       ' colon image
c.source = "resources\Ccolon.png"
c.height = 80
c.x = 795
c.y = 250
#.show(c)

' set t depending on whether the count is down or up
? udflg = 1
  t=0
!
  t=maxt
.

>
' MAIN PROGRAM LOOP

' convert seconds into hours, minutes and seconds
hor,min,sec=gett(t)

' increment the loop counter
cnt += 1

' units of seconds
sc = #.int(sec-(sec>9)*#.lower(sec/10)*10)
? sc=0, sc = 10
e6 = sc
p = 6
? e6 != flag6
  nm="resources\C"+e6+".png"
  h=hn+q[1,e6];x=xn[p]+q[2,e6];y=yn+q[3,e6]
  f6(s6,nm,h,x,y)
.
flag6 = e6
s6 = 1

' tens of seconds
sect = #.lower(sec/10)
? sect=0, sect = 10
e5 = sect
p=5
? e5 != flag5
  nm="resources\C"+e5+".png"
  h=hn+q[1,e5];x=xn[p]+q[2,e5];y=yn+q[3,e5]
  ? e5 = 1, x += 95
  f5(s5,nm,h,x,y)
.
flag5 = e5
s5 = 1

' units of minutes
mn = #.int(min-(min>9)*#.lower(min/10)*10)
? mn=0, mn = 10
e4 = mn
p=4
? e4 != flag4
  nm="resources\C"+e4+".png"
  h=hn+q[1,e4];x=xn[p]+q[2,e4];y=yn+q[3,e4]
  f4(s4,nm,h,x,y)
.
flag4 = e4
s4 = 1

' tens of minutes
mint = #.lower(min/10)
? mint=0, mint = 10
e3 = mint
p=3
? e3 != flag3
  nm="resources\C"+e3+".png"
  h=hn+q[1,e3];x=xn[p]+q[2,e3];y=yn+q[3,e3]
  ? e3 = 1, x += 90
  f3(s3,nm,h,x,y)
.
flag3 = e3
s3 = 1

' units of hours
hr = #.int(hor-(hor>9)*#.lower(hor/10)*10)
? hr=0, hr = 10
e2 = hr
p=2
? e2 != flag2
  nm="resources\C"+e2+".png"
  h=hn+q[1,e2];x=xn[p]+q[2,e2];y=yn+q[3,e2]
  f2(s2,nm,h,x,y)
.
flag2 = e2
s2 = 1

' tens of hours
hort = #.lower(hor/10)
? hort=0, hort = 10
e1 = hort
p=1
? e1 != flag1
  nm="resources\C"+e1+".png"
  h=hn+q[1,e1];x=xn[p]+q[2,e1];y=yn+q[3,e1]
  ? e1 = 1, x += 100
  f1(s1,nm,h,x,y)
.
flag1 = e1
s1 = 1
#.delay(1)
? udflg = 1
  t += 1
  loopflg = maxt + 1
!
  t -= 1
.

' wait until the start button is pushed 
:test
? #.act(butt) = 1 | runflag = 1
  ' when the start button is pushed, we need a 1 second delay before the count changes
  ? runflag = 0, #.delay(1)
  ' the runflag variable keeps the timing loop running even though the Start button is pressed just once
  runflag = 1
  again ->
! 
  ' add a short delay to slow down the test loop
  #.delay(.1)
  test ->
.

' repeat the timing loop
:again
< cnt < maxt + 1

#.scrclear(1,0,0)

' draw the Done message
dn = #.image                       ' Done image
dn.source = "resources\CDone.png"
dn.width = 500
dn.x = 365
dn.y = 600
#.show(dn)
'd.height = 500

#.end()

' calculates hours, minutes and seconds from t (total seconds)
gett(t)=
  hor = #.lower(t/3600)
  min = #.lower((t-hor*3600)/60)
  sec = t%60
  <= hor,min,sec  ' returns values
.

f1(s1,src,h,x,y) =      ' hours tens digit
  ? s1=0
    i1 = #.image
  .
  i1.source = src
  i1.height = h
  i1.x = x
  i1.y = y
  ? s1=0, #.show(i1)
.

f2(s2,src,h,x,y) =      ' hours units digit
  ? s2=0
    i2 = #.image
  .
'  i2 = #.image
  i2.source = src
  i2.height = h
  i2.x = x
  i2.y = y
  ? s2=0, #.show(i2)
.

f3(s3,src,h,x,y) =      ' minutes tens digit
  ? s3=0
    i3 = #.image
  .
'  i3 = #.image
  i3.source = src
  i3.height = h
  i3.x = x
  i3.y = y
  ? s3=0, #.show(i3)
.

f4(s4,src,h,x,y) =      ' minutes units digit
  ? s4=0
    i4 = #.image
  .
'  i4 = #.image
  i4.source = src
  i4.height = h
  i4.x = x
  i4.y = y
  ? s4=0, #.show(i4)
.

f5(s5,src,h,x,y) =      ' seconds tens digit
  ? s5=0
    i5 = #.image
  .
'  i5 = #.image
  i5.source = src
  i5.height = h
  i5.x = x
  i5.y = y
  ? s5=0, #.show(i5)
.

f6(s6,src,h,x,y) =      ' seconds units digit
  ? s6 = 0
    i6 = #.image
  .
  i6.source = src
  i6.height = h
  i6.x = x
  i6.y = y
  ? s6 = 0, #.show(i6)
.