first commit

Author: diverc

README.md

@@ -1,2 +1,21 @@
 # zoom-timer
 Zoomで残り時間を刻む演出するための簡易タイマー
+
+
+
+SmallBasicで作ってます。
+
+Zoomで会議するときに、残り時間を意識してもらうためのアプリです。
+
+これを画面共有することで、残り時間が気になります。
+
+
+
+
+---
+
+screen 
+
+[f1](./img/screen1.png)
+[f2](./img/screen2.png)
+

countdowntimer.sb

@@ -0,0 +1,139 @@
+GraphicsWindow.Title = "Zoomの時間までを教えてあげるタイマー "
+oldsec=0
+'tiltime_t=Clock.ElapsedMilliseconds
+
+InitForm()
+Controls.ButtonClicked=OnButtonClicked
+Timer.Tick = OntimerTick
+Timer.Pause()
+
+Sub InitForm
+  GraphicsWindow.Width = 600
+  GraphicsWindow.Height = 650
+  GraphicsWindow.FontName = "Segoe UI Symbol"
+  GraphicsWindow.CanResize= "False"
+  GraphicsWindow.Top = 0
+  GraphicsWindow.Show()
+  Timer.Interval = 1000
+  
+  GraphicsWindow.FontSize = 120
+  Text[2] = Shapes.AddText("カウントダウンタイマー：")
+  Shapes.Move(Text[2],1,200)
+  
+  GraphicsWindow.FontSize = 20
+  Text[1] = Shapes.AddText(Clock.Time)
+  Shapes.Move(Text[1],0,0)
+  
+  button[1] = Controls.AddButton("▶",300,600)
+  Controls.SetSize(button[1],80,50)
+  button[2] = Controls.AddButton("◧",400,600)
+  Controls.SetSize(button[2],80,50)
+  button[3] = Controls.AddButton("■",500,600)
+  Controls.SetSize(button[3],80,50)
+  button[4] = Controls.AddButton("音(CHI)",400,0)
+  Controls.SetSize(button[4],80,50)
+  button[5] = Controls.AddButton("音(PRM)",500,0)
+  Controls.SetSize(button[5],80,50)
+  
+  T1h = Controls.AddTextBox(0,600)
+  Controls.SetSize(T1h,80,50)
+  Controls.SetTextBoxText(T1h,"0")
+  
+  T1m = Controls.AddTextBox(90,600)
+  Controls.SetSize(T1m,80,50)
+  Controls.SetTextBoxText(T1m,"0")
+  
+  T1s = Controls.AddTextBox(180,600)
+  Controls.SetSize(T1s,80,50)
+  Controls.SetTextBoxText(T1s,"30")
+EndSub
+
+Sub OnTimerTick
+  If  tiltime_t >  Clock.ElapsedMilliseconds  Then
+    sec = Clock.Second
+    str = "TIME - " + Clock.Hour + ":" + Clock.Minute + ":" + sec  + "." + Clock.Millisecond
+    Shapes.SetText(Text[1],str)
+    If oldsec <> sec Then
+      If Math.Remainder( sec, 2) = 0  Then
+        If "♪" =  Controls.GetButtonCaption(button[4]) Then
+          Sound.PlayClick()
+        EndIf
+      Else
+        If "♪" =  Controls.GetButtonCaption(button[5]) Then
+          Sound.PlayChimes()
+        EndIf
+      EndIf
+      
+      nowtime_t = math.Floor((tiltime_t -  Clock.ElapsedMilliseconds )/1000)
+      m1= Math.Remainder(nowtime_t, 3600)
+      s1= Math.Remainder(m1, 60)
+      h2=math.Floor(nowtime_t /3600)
+      m2=math.Floor(m1 /60)
+      s2=s1
+      If h2 < 10 Then
+        h2 = "_" + "0" +  h2
+      EndIf
+      If m2 < 10 Then
+        m2 = ":" + "0" +  m2
+      Else
+        m2 = ":"  +  m2
+      EndIf
+      If s2 < 10 Then
+        s2 = ":" + "0" +  s2
+      Else
+        s2 = ":"  +  s2
+      EndIf
+      
+      str =  h2 + m2  + s2 +"_"
+      If Math.Remainder( sec, 4) = 0  Then
+        Shapes.SetText(Text[2],str)
+        GraphicsWindow.BackgroundColor = "black"
+      ElseIf Math.Remainder( sec, 4) = 1  Then
+        Shapes.SetText(Text[2],str)
+        GraphicsWindow.BackgroundColor = "Gray"
+      ElseIf Math.Remainder( sec, 4) = 2  Then
+        Shapes.SetText(Text[2],str)
+        GraphicsWindow.BackgroundColor = "black"
+      ElseIf Math.Remainder( sec, 4) = 3  Then
+        Shapes.SetText(Text[2],str)
+        GraphicsWindow.BackgroundColor = "Gray"
+      Else
+        Shapes.SetText(Text[2],Str)
+      EndIf
+      oldsec=sec
+    Else
+      Shapes.SetText(Text[1],Str)
+    EndIf
+    
+  Else
+    Timer.Pause()
+    GraphicsWindow.BackgroundColor = "red"
+    Shapes.SetText(Text[2],"時間です")
+  EndIf
+EndSub
+
+Sub OnButtonClicked
+  If Controls.LastClickedButton = button[1] Then
+    target = 3600 * Controls.GetTextBoxText(T1h) + 60 * Controls.GetTextBoxText(T1m) + Controls.GetTextBoxText(T1s) * 1
+    tiltime_t = clock.ElapsedMilliseconds + target * 1000
+    GraphicsWindow.BackgroundColor = "black"
+    GraphicsWindow.BrushColor = "wihte"
+    Timer.Resume()
+  ElseIf Controls.LastClickedButton = button[2] Then
+    Timer.Resume()
+  ElseIf Controls.LastClickedButton = button[3] Then
+    Timer.Pause()
+  ElseIf Controls.LastClickedButton = button[4] Then
+    If "♪" =  Controls.GetButtonCaption(button[4]) Then
+      Controls.SetButtonCaption(button[4], "x-1")
+    Else
+      Controls.SetButtonCaption(button[4], "♪")
+    EndIf
+  ElseIf Controls.LastClickedButton = button[5] Then
+    If "♪" =  Controls.GetButtonCaption(button[5]) Then
+      Controls.SetButtonCaption(button[5], "x-2")
+    Else
+      Controls.SetButtonCaption(button[5], "♪")
+    EndIf
+  EndIf
+EndSub