Subida a Gitea
This commit is contained in:
commit
00e2f2f0a9
25 changed files with 953 additions and 0 deletions
2
.directory
Normal file
2
.directory
Normal file
|
|
@ -0,0 +1,2 @@
|
|||
[Desktop Entry]
|
||||
Icon=./.icon.png
|
||||
BIN
.gambas/FMAIN
Normal file
BIN
.gambas/FMAIN
Normal file
Binary file not shown.
BIN
.gambas/FRMCONFIG
Normal file
BIN
.gambas/FRMCONFIG
Normal file
Binary file not shown.
15
.hidden/CHANGELOG
Normal file
15
.hidden/CHANGELOG
Normal file
|
|
@ -0,0 +1,15 @@
|
|||
* Sat Apr 11 2020 luisgulo <luisgulo@soloconlinux.org.es> 1.0.5
|
||||
- Ajuste version
|
||||
|
||||
* Sat Apr 11 2020 luisgulo <luisgulo@soloconlinux.org.es> 1.0.3
|
||||
- Se ajusta icono de Configuracion
|
||||
|
||||
* Thu Apr 02 2020 luisgulo <luisgulo@soloconlinux.org.es> 1.0.3
|
||||
- Ajuste en numero de Version
|
||||
|
||||
* Thu Apr 02 2020 luisgulo <luisgulo@soloconlinux.org.es> 1.0.2
|
||||
- Se incluye el icono en la aplicación
|
||||
|
||||
* Thu Apr 02 2020 luisgulo <luisgulo@soloconlinux.org.es> 1.0.2
|
||||
- Lanzamiento inicial - Reloj tecnica Pomodoro´
|
||||
|
||||
BIN
.hidden/TomatoClock.mp3
Normal file
BIN
.hidden/TomatoClock.mp3
Normal file
Binary file not shown.
BIN
.icon.png
Normal file
BIN
.icon.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 27 KiB |
31
.project
Normal file
31
.project
Normal file
|
|
@ -0,0 +1,31 @@
|
|||
# Gambas Project File 3.0
|
||||
Title=TomateClock
|
||||
Startup=FMain
|
||||
Icon=TomateClock-icono.png
|
||||
Version=1.0.5
|
||||
Component=gb.image
|
||||
Component=gb.gui
|
||||
Component=gb.form
|
||||
Component=gb.media
|
||||
Component=gb.media.form
|
||||
Description="Reloj para la técnica Pomodoro. Emite una alarma en cada cambio de fase."
|
||||
Authors="luisgulo@soloconlinux.org.es"
|
||||
TabSize=2
|
||||
Language=en_US
|
||||
SourcePath=/home/luisgulo/ProyectosGAMBAS/SOURCEs
|
||||
Maintainer=luisgulo
|
||||
Vendor=luisgulo
|
||||
Address=luisgulo@soloconlinux.org.es
|
||||
Url=https://repositorio.soloconlinux.org.es
|
||||
License=General Public License
|
||||
PackageName=tomateclock-1.0.5
|
||||
CreateEachDirectory=1
|
||||
Packager=1
|
||||
Systems=debian
|
||||
Menus=debian:"Applications/Sound"
|
||||
Categories=debian:"Clock"
|
||||
Groups=debian:"utils"
|
||||
ExtraFiles=debian:"TomatoClock.mp3\t/usr/local/share/applications"
|
||||
Tags=Amusement,Audio,Clock,JustInTime,Multimedia,Utility
|
||||
WebSite=https://repositorio.soloconlinux.org.es
|
||||
CreateMenu=1
|
||||
20
.settings
Normal file
20
.settings
Normal file
|
|
@ -0,0 +1,20 @@
|
|||
[Breakpoints]
|
||||
Count=0
|
||||
|
||||
[DebugWindow]
|
||||
Count=0
|
||||
|
||||
[Executable]
|
||||
Path="TomateClock.gambas"
|
||||
|
||||
[OpenFile]
|
||||
Active=1
|
||||
File[1]=".src/FMain.form"
|
||||
Count=4
|
||||
File[2]=".src/FMain.class:0.8"
|
||||
File[3]=".src/frmConfig.form"
|
||||
File[4]=".src/frmConfig.class:6.17"
|
||||
|
||||
[Watches]
|
||||
Count=0
|
||||
|
||||
197
.src/FMain.class
Normal file
197
.src/FMain.class
Normal file
|
|
@ -0,0 +1,197 @@
|
|||
' Gambas class file
|
||||
|
||||
Public RutaTomato As String
|
||||
Public FichTomato As String
|
||||
Public Tiempos As String[]
|
||||
Public Proceso As Integer
|
||||
Public SegProceso As Integer
|
||||
Public Transcurrido As Integer
|
||||
|
||||
Public Sub Form_Open()
|
||||
' AJUSTAR VOLUMEN AL 20%
|
||||
Dim obVolumen As Object
|
||||
Dim obControlador As Object
|
||||
'Sonido se instala en la ruta tras la instalación
|
||||
Pitido.URL = "/usr/local/share/applications/TomatoClock.mp3"
|
||||
obControlador = Pitido.Children[0]
|
||||
obControlador = obControlador.Children[0]
|
||||
obVolumen = obControlador.Children[3]
|
||||
obVolumen.Children[5].value = 20 ' --> 20%
|
||||
System.Shell = "/bin/bash"
|
||||
RutaTomato = User.Home & "/.TomateClock"
|
||||
FichTomato = RutaTomato & "/tomateclock.config"
|
||||
'Forzar creacion directorio por defecto siempre
|
||||
Shell "mkdir -p " & RutaTomato Wait
|
||||
Me.X = 0
|
||||
Me.Y = 0
|
||||
CargarValores()
|
||||
Proceso = 99
|
||||
Transcurrido = 0
|
||||
MostrarPomodoros()
|
||||
' Para la "foto"
|
||||
'picTomate.Visible = True
|
||||
End
|
||||
|
||||
Public Sub botonConfig_Click()
|
||||
frmConfig.ShowModal
|
||||
CargarValores()
|
||||
End
|
||||
|
||||
Public Sub botonINICIAR_Click()
|
||||
botonINICIAR.Enabled = False
|
||||
botonConfig.Enabled = False
|
||||
Proceso = 0
|
||||
' simular proceso
|
||||
Dim i As Integer
|
||||
For i = 0 To Tiempos.Max
|
||||
Proceso = i
|
||||
MostrarPomodoros()
|
||||
Wait Tiempos[i] * 60 ' Esperamos lo que se ha definido
|
||||
Pitido.Play
|
||||
Next
|
||||
botonConfig.Enabled = True
|
||||
botonConfig.Enabled = True
|
||||
End
|
||||
|
||||
Public Function CargarValores()
|
||||
Dim tPom As String
|
||||
Dim pCorta As String
|
||||
Dim pLarga As String
|
||||
|
||||
Dim Existe As String[]
|
||||
Existe = Dir(RutaTomato, "tomateclock.config")
|
||||
If Existe.Count > 0
|
||||
' Leer valores del fichero de configuracion
|
||||
Dim trozo As String[]
|
||||
Dim ValoresFich As String
|
||||
Shell "echo -ne $(cat " & Shell$(FichTomato) & ")" To ValoresFich
|
||||
trozo = Split(ValoresFich, "-")
|
||||
tPom = trozo[0]
|
||||
pCorta = trozo[1]
|
||||
pLarga = trozo[2]
|
||||
Else
|
||||
'No hay configuracion - pongo valores x defecto -
|
||||
tPom = "25"
|
||||
pCorta = "5"
|
||||
pLarga = "20"
|
||||
Endif
|
||||
Tiempos = [tPom, pCorta, tPom, pCorta, tPom, pCorta, tPom, pLarga]
|
||||
txtPomodoro.Text = tPom
|
||||
txtPausa.Text = pCorta & " / " & pLarga
|
||||
Proceso = 0 'Empezaremos por el primero
|
||||
End
|
||||
|
||||
Public Function MostrarPomodoros()
|
||||
Select Case Proceso
|
||||
Case 0 ' Pomodoro 1
|
||||
Tomate1.Visible = True
|
||||
Pausa1.Visible = False
|
||||
Tomate2.Visible = False
|
||||
Pausa2.Visible = False
|
||||
Tomate3.Visible = False
|
||||
Pausa3.Visible = False
|
||||
Tomate4.Visible = False
|
||||
Pausa4.Visible = False
|
||||
' imagen
|
||||
picTomate.Visible = True
|
||||
picPausa.Visible = False
|
||||
Case 1 ' Pausa Corta 1
|
||||
Tomate1.Visible = True
|
||||
Pausa1.Visible = True
|
||||
Tomate2.Visible = False
|
||||
Pausa2.Visible = False
|
||||
Tomate3.Visible = False
|
||||
Pausa3.Visible = False
|
||||
Tomate4.Visible = False
|
||||
Pausa4.Visible = False
|
||||
' imagen
|
||||
picTomate.Visible = False
|
||||
picPausa.Visible = True
|
||||
Case 2 ' Pomodoro 2
|
||||
Tomate1.Visible = True
|
||||
Pausa1.Visible = True
|
||||
Tomate2.Visible = True
|
||||
Pausa2.Visible = False
|
||||
Tomate3.Visible = False
|
||||
Pausa3.Visible = False
|
||||
Tomate4.Visible = False
|
||||
Pausa4.Visible = False
|
||||
' imagen
|
||||
picTomate.Visible = True
|
||||
picPausa.Visible = False
|
||||
Case 3 ' Pausa Corta 2
|
||||
Tomate1.Visible = True
|
||||
Pausa1.Visible = True
|
||||
Tomate2.Visible = True
|
||||
Pausa2.Visible = True
|
||||
Tomate3.Visible = False
|
||||
Pausa3.Visible = False
|
||||
Tomate4.Visible = False
|
||||
Pausa4.Visible = False
|
||||
' imagen
|
||||
picTomate.Visible = False
|
||||
picPausa.Visible = True
|
||||
Case 4 ' Pomodoro 3
|
||||
Tomate1.Visible = True
|
||||
Pausa1.Visible = True
|
||||
Tomate2.Visible = True
|
||||
Pausa2.Visible = True
|
||||
Tomate3.Visible = True
|
||||
Pausa3.Visible = False
|
||||
Tomate4.Visible = False
|
||||
Pausa4.Visible = False
|
||||
' imagen
|
||||
picTomate.Visible = True
|
||||
picPausa.Visible = False
|
||||
Case 5 ' Pausa Corta 3
|
||||
Tomate1.Visible = True
|
||||
Pausa1.Visible = True
|
||||
Tomate2.Visible = True
|
||||
Pausa2.Visible = True
|
||||
Tomate3.Visible = True
|
||||
Pausa3.Visible = True
|
||||
Tomate4.Visible = False
|
||||
Pausa4.Visible = False
|
||||
' imagen
|
||||
picTomate.Visible = False
|
||||
picPausa.Visible = True
|
||||
Case 6 ' Pomodoro 4
|
||||
Tomate1.Visible = True
|
||||
Pausa1.Visible = True
|
||||
Tomate2.Visible = True
|
||||
Pausa2.Visible = True
|
||||
Tomate3.Visible = True
|
||||
Pausa3.Visible = True
|
||||
Tomate4.Visible = True
|
||||
Pausa4.Visible = False
|
||||
' imagen
|
||||
picTomate.Visible = True
|
||||
picPausa.Visible = False
|
||||
Case 7 ' Pausa Larga
|
||||
Tomate1.Visible = True
|
||||
Pausa1.Visible = True
|
||||
Tomate2.Visible = True
|
||||
Pausa2.Visible = True
|
||||
Tomate3.Visible = True
|
||||
Pausa3.Visible = True
|
||||
Tomate4.Visible = True
|
||||
Pausa4.Visible = True
|
||||
' imagen
|
||||
picTomate.Visible = False
|
||||
picPausa.Visible = True
|
||||
Case Else ' Para otros casos (inicio)
|
||||
'Todo visible
|
||||
Tomate1.Visible = True
|
||||
Pausa1.Visible = True
|
||||
Tomate2.Visible = True
|
||||
Pausa2.Visible = True
|
||||
Tomate3.Visible = True
|
||||
Pausa3.Visible = True
|
||||
Tomate4.Visible = True
|
||||
Pausa4.Visible = True
|
||||
' imagen
|
||||
picTomate.Visible = False
|
||||
picPausa.Visible = False
|
||||
End Select
|
||||
'Message("estoy en proceso: " & Proceso)
|
||||
End
|
||||
197
.src/FMain.class~
Normal file
197
.src/FMain.class~
Normal file
|
|
@ -0,0 +1,197 @@
|
|||
' Gambas class file
|
||||
|
||||
Public RutaTomato As String
|
||||
Public FichTomato As String
|
||||
Public Tiempos As String[]
|
||||
Public Proceso As Integer
|
||||
Public SegProceso As Integer
|
||||
Public Transcurrido As Integer
|
||||
|
||||
Public Sub Form_Open()
|
||||
' AJUSTAR VOLUMEN AL 20%
|
||||
Dim obVolumen As Object
|
||||
Dim obControlador As Object
|
||||
'Sonido se instala en la ruta tras la instalación
|
||||
Pitido.URL = "/usr/local/share/applications/TomatoClock.mp3"
|
||||
obControlador = Pitido.Children[0]
|
||||
obControlador = obControlador.Children[0]
|
||||
obVolumen = obControlador.Children[3]
|
||||
obVolumen.Children[5].value = 20 ' --> 20%
|
||||
System.Shell = "/bin/bash"
|
||||
RutaTomato = User.Home & "/.TomateClock"
|
||||
FichTomato = RutaTomato & "/tomateclock.config"
|
||||
'Forzar creacion directorio por defecto siempre
|
||||
Shell "mkdir -p " & RutaTomato Wait
|
||||
Me.X = 0
|
||||
Me.Y = 0
|
||||
CargarValores()
|
||||
Proceso = 99
|
||||
Transcurrido = 0
|
||||
MostrarPomodoros()
|
||||
' Para la "foto"
|
||||
picTomate.Visible = True
|
||||
End
|
||||
|
||||
Public Sub botonConfig_Click()
|
||||
frmConfig.ShowModal
|
||||
CargarValores()
|
||||
End
|
||||
|
||||
Public Sub botonINICIAR_Click()
|
||||
botonINICIAR.Enabled = False
|
||||
botonConfig.Enabled = False
|
||||
Proceso = 0
|
||||
' simular proceso
|
||||
Dim i As Integer
|
||||
For i = 0 To Tiempos.Max
|
||||
Proceso = i
|
||||
MostrarPomodoros()
|
||||
Wait Tiempos[i] * 60 ' Esperamos lo que se ha definido
|
||||
Pitido.Play
|
||||
Next
|
||||
botonConfig.Enabled = True
|
||||
botonConfig.Enabled = True
|
||||
End
|
||||
|
||||
Public Function CargarValores()
|
||||
Dim tPom As String
|
||||
Dim pCorta As String
|
||||
Dim pLarga As String
|
||||
|
||||
Dim Existe As String[]
|
||||
Existe = Dir(RutaTomato, "tomateclock.config")
|
||||
If Existe.Count > 0
|
||||
' Leer valores del fichero de configuracion
|
||||
Dim trozo As String[]
|
||||
Dim ValoresFich As String
|
||||
Shell "echo -ne $(cat " & Shell$(FichTomato) & ")" To ValoresFich
|
||||
trozo = Split(ValoresFich, "-")
|
||||
tPom = trozo[0]
|
||||
pCorta = trozo[1]
|
||||
pLarga = trozo[2]
|
||||
Else
|
||||
'No hay configuracion - pongo valores x defecto -
|
||||
tPom = "25"
|
||||
pCorta = "5"
|
||||
pLarga = "20"
|
||||
Endif
|
||||
Tiempos = [tPom, pCorta, tPom, pCorta, tPom, pCorta, tPom, pLarga]
|
||||
txtPomodoro.Text = tPom
|
||||
txtPausa.Text = pCorta & " / " & pLarga
|
||||
Proceso = 0 'Empezaremos por el primero
|
||||
End
|
||||
|
||||
Public Function MostrarPomodoros()
|
||||
Select Case Proceso
|
||||
Case 0 ' Pomodoro 1
|
||||
Tomate1.Visible = True
|
||||
Pausa1.Visible = False
|
||||
Tomate2.Visible = False
|
||||
Pausa2.Visible = False
|
||||
Tomate3.Visible = False
|
||||
Pausa3.Visible = False
|
||||
Tomate4.Visible = False
|
||||
Pausa4.Visible = False
|
||||
' imagen
|
||||
picTomate.Visible = True
|
||||
picPausa.Visible = False
|
||||
Case 1 ' Pausa Corta 1
|
||||
Tomate1.Visible = True
|
||||
Pausa1.Visible = True
|
||||
Tomate2.Visible = False
|
||||
Pausa2.Visible = False
|
||||
Tomate3.Visible = False
|
||||
Pausa3.Visible = False
|
||||
Tomate4.Visible = False
|
||||
Pausa4.Visible = False
|
||||
' imagen
|
||||
picTomate.Visible = False
|
||||
picPausa.Visible = True
|
||||
Case 2 ' Pomodoro 2
|
||||
Tomate1.Visible = True
|
||||
Pausa1.Visible = True
|
||||
Tomate2.Visible = True
|
||||
Pausa2.Visible = False
|
||||
Tomate3.Visible = False
|
||||
Pausa3.Visible = False
|
||||
Tomate4.Visible = False
|
||||
Pausa4.Visible = False
|
||||
' imagen
|
||||
picTomate.Visible = True
|
||||
picPausa.Visible = False
|
||||
Case 3 ' Pausa Corta 2
|
||||
Tomate1.Visible = True
|
||||
Pausa1.Visible = True
|
||||
Tomate2.Visible = True
|
||||
Pausa2.Visible = True
|
||||
Tomate3.Visible = False
|
||||
Pausa3.Visible = False
|
||||
Tomate4.Visible = False
|
||||
Pausa4.Visible = False
|
||||
' imagen
|
||||
picTomate.Visible = False
|
||||
picPausa.Visible = True
|
||||
Case 4 ' Pomodoro 3
|
||||
Tomate1.Visible = True
|
||||
Pausa1.Visible = True
|
||||
Tomate2.Visible = True
|
||||
Pausa2.Visible = True
|
||||
Tomate3.Visible = True
|
||||
Pausa3.Visible = False
|
||||
Tomate4.Visible = False
|
||||
Pausa4.Visible = False
|
||||
' imagen
|
||||
picTomate.Visible = True
|
||||
picPausa.Visible = False
|
||||
Case 5 ' Pausa Corta 3
|
||||
Tomate1.Visible = True
|
||||
Pausa1.Visible = True
|
||||
Tomate2.Visible = True
|
||||
Pausa2.Visible = True
|
||||
Tomate3.Visible = True
|
||||
Pausa3.Visible = True
|
||||
Tomate4.Visible = False
|
||||
Pausa4.Visible = False
|
||||
' imagen
|
||||
picTomate.Visible = False
|
||||
picPausa.Visible = True
|
||||
Case 6 ' Pomodoro 4
|
||||
Tomate1.Visible = True
|
||||
Pausa1.Visible = True
|
||||
Tomate2.Visible = True
|
||||
Pausa2.Visible = True
|
||||
Tomate3.Visible = True
|
||||
Pausa3.Visible = True
|
||||
Tomate4.Visible = True
|
||||
Pausa4.Visible = False
|
||||
' imagen
|
||||
picTomate.Visible = True
|
||||
picPausa.Visible = False
|
||||
Case 7 ' Pausa Larga
|
||||
Tomate1.Visible = True
|
||||
Pausa1.Visible = True
|
||||
Tomate2.Visible = True
|
||||
Pausa2.Visible = True
|
||||
Tomate3.Visible = True
|
||||
Pausa3.Visible = True
|
||||
Tomate4.Visible = True
|
||||
Pausa4.Visible = True
|
||||
' imagen
|
||||
picTomate.Visible = False
|
||||
picPausa.Visible = True
|
||||
Case Else ' Para otros casos (inicio)
|
||||
'Todo visible
|
||||
Tomate1.Visible = True
|
||||
Pausa1.Visible = True
|
||||
Tomate2.Visible = True
|
||||
Pausa2.Visible = True
|
||||
Tomate3.Visible = True
|
||||
Pausa3.Visible = True
|
||||
Tomate4.Visible = True
|
||||
Pausa4.Visible = True
|
||||
' imagen
|
||||
picTomate.Visible = False
|
||||
picPausa.Visible = False
|
||||
End Select
|
||||
'Message("estoy en proceso: " & Proceso)
|
||||
End
|
||||
95
.src/FMain.form
Normal file
95
.src/FMain.form
Normal file
|
|
@ -0,0 +1,95 @@
|
|||
# Gambas Form File 3.0
|
||||
|
||||
{ Form Form
|
||||
MoveScaled(0,0,72,10)
|
||||
Text = ("TOMATE Clock (Tecnica Pomodoro)")
|
||||
Icon = Picture["TomateClock-icono.png"]
|
||||
Resizable = False
|
||||
{ botonINICIAR Button
|
||||
MoveScaled(1,5,18,4)
|
||||
Text = (" COMENZAR")
|
||||
Picture = Picture["icon:/32/play"]
|
||||
}
|
||||
{ botonConfig Button
|
||||
MoveScaled(58,5,4,4)
|
||||
ToolTip = ("Configurar")
|
||||
Picture = Picture["TomateClock-Config.png"]
|
||||
}
|
||||
{ picTomate PictureBox
|
||||
MoveScaled(63,1,8,8)
|
||||
Picture = Picture["TomateClock-icono.png"]
|
||||
Stretch = True
|
||||
}
|
||||
{ picPausa PictureBox
|
||||
MoveScaled(63,1,8,8)
|
||||
Picture = Picture["TomateClock-Pausa.png"]
|
||||
Stretch = True
|
||||
}
|
||||
{ Panel1 Panel
|
||||
MoveScaled(1,1,61,3)
|
||||
{ Tomate1 Panel
|
||||
MoveScaled(0,0,11,3)
|
||||
Background = Color.Red
|
||||
Border = Border.Plain
|
||||
}
|
||||
{ Pausa1 Panel
|
||||
MoveScaled(11,0,2,3)
|
||||
Background = Color.Green
|
||||
Border = Border.Plain
|
||||
}
|
||||
{ Tomate2 Panel
|
||||
MoveScaled(13,0,11,3)
|
||||
Background = Color.Red
|
||||
Border = Border.Plain
|
||||
}
|
||||
{ Pausa2 Panel
|
||||
MoveScaled(24,0,2,3)
|
||||
Background = Color.Green
|
||||
Border = Border.Plain
|
||||
}
|
||||
{ Tomate3 Panel
|
||||
MoveScaled(26,0,11,3)
|
||||
Background = Color.Red
|
||||
Border = Border.Plain
|
||||
}
|
||||
{ Pausa3 Panel
|
||||
MoveScaled(37,0,2,3)
|
||||
Background = Color.Green
|
||||
Border = Border.Plain
|
||||
}
|
||||
{ Tomate4 Panel
|
||||
MoveScaled(39,0,11,3)
|
||||
Background = Color.Red
|
||||
Border = Border.Plain
|
||||
}
|
||||
{ Pausa4 Panel
|
||||
MoveScaled(50,0,11,3)
|
||||
Background = Color.Green
|
||||
Border = Border.Plain
|
||||
}
|
||||
}
|
||||
{ PictureBox1 PictureBox
|
||||
MoveScaled(25,5,4,4)
|
||||
Picture = Picture["TomateClock-icono.png"]
|
||||
Stretch = True
|
||||
}
|
||||
{ txtPomodoro Label
|
||||
MoveScaled(29,6,5,4)
|
||||
Font = Font["Bold"]
|
||||
Text = ("25")
|
||||
}
|
||||
{ PictureBox2 PictureBox
|
||||
MoveScaled(35,5,4,4)
|
||||
Picture = Picture["TomateClock-Pausa.png"]
|
||||
Stretch = True
|
||||
}
|
||||
{ txtPausa Label
|
||||
MoveScaled(39,6,7,4)
|
||||
Font = Font["Bold"]
|
||||
Text = ("05 / 25")
|
||||
}
|
||||
{ Pitido MediaView
|
||||
MoveScaled(0,0,13,5)
|
||||
Visible = False
|
||||
}
|
||||
}
|
||||
94
.src/FMain.form~
Normal file
94
.src/FMain.form~
Normal file
|
|
@ -0,0 +1,94 @@
|
|||
# Gambas Form File 3.0
|
||||
|
||||
{ Form Form
|
||||
MoveScaled(0,0,72,10)
|
||||
Text = ("TOMATE Clock (Tecnica Pomodoro)")
|
||||
Icon = Picture["TomateClock-icono.png"]
|
||||
Resizable = False
|
||||
{ botonINICIAR Button
|
||||
MoveScaled(1,5,18,4)
|
||||
Text = (" COMENZAR")
|
||||
Picture = Picture["icon:/32/play"]
|
||||
}
|
||||
{ botonConfig Button
|
||||
MoveScaled(58,5,4,4)
|
||||
Picture = Picture["icon:/22/options"]
|
||||
}
|
||||
{ picTomate PictureBox
|
||||
MoveScaled(63,1,8,8)
|
||||
Picture = Picture["TomateClock-icono.png"]
|
||||
Stretch = True
|
||||
}
|
||||
{ picPausa PictureBox
|
||||
MoveScaled(63,1,8,8)
|
||||
Picture = Picture["TomateClock-Pausa.png"]
|
||||
Stretch = True
|
||||
}
|
||||
{ Panel1 Panel
|
||||
MoveScaled(1,1,61,3)
|
||||
{ Tomate1 Panel
|
||||
MoveScaled(0,0,11,3)
|
||||
Background = Color.Red
|
||||
Border = Border.Plain
|
||||
}
|
||||
{ Pausa1 Panel
|
||||
MoveScaled(11,0,2,3)
|
||||
Background = Color.Green
|
||||
Border = Border.Plain
|
||||
}
|
||||
{ Tomate2 Panel
|
||||
MoveScaled(13,0,11,3)
|
||||
Background = Color.Red
|
||||
Border = Border.Plain
|
||||
}
|
||||
{ Pausa2 Panel
|
||||
MoveScaled(24,0,2,3)
|
||||
Background = Color.Green
|
||||
Border = Border.Plain
|
||||
}
|
||||
{ Tomate3 Panel
|
||||
MoveScaled(26,0,11,3)
|
||||
Background = Color.Red
|
||||
Border = Border.Plain
|
||||
}
|
||||
{ Pausa3 Panel
|
||||
MoveScaled(37,0,2,3)
|
||||
Background = Color.Green
|
||||
Border = Border.Plain
|
||||
}
|
||||
{ Tomate4 Panel
|
||||
MoveScaled(39,0,11,3)
|
||||
Background = Color.Red
|
||||
Border = Border.Plain
|
||||
}
|
||||
{ Pausa4 Panel
|
||||
MoveScaled(50,0,11,3)
|
||||
Background = Color.Green
|
||||
Border = Border.Plain
|
||||
}
|
||||
}
|
||||
{ PictureBox1 PictureBox
|
||||
MoveScaled(25,5,4,4)
|
||||
Picture = Picture["TomateClock-icono.png"]
|
||||
Stretch = True
|
||||
}
|
||||
{ txtPomodoro Label
|
||||
MoveScaled(29,6,5,4)
|
||||
Font = Font["Bold"]
|
||||
Text = ("25")
|
||||
}
|
||||
{ PictureBox2 PictureBox
|
||||
MoveScaled(35,5,4,4)
|
||||
Picture = Picture["TomateClock-Pausa.png"]
|
||||
Stretch = True
|
||||
}
|
||||
{ txtPausa Label
|
||||
MoveScaled(39,6,7,4)
|
||||
Font = Font["Bold"]
|
||||
Text = ("05 / 25")
|
||||
}
|
||||
{ Pitido MediaView
|
||||
MoveScaled(0,0,13,5)
|
||||
Visible = False
|
||||
}
|
||||
}
|
||||
75
.src/frmConfig.class
Normal file
75
.src/frmConfig.class
Normal file
|
|
@ -0,0 +1,75 @@
|
|||
' Gambas class file
|
||||
|
||||
Public RutaTomato As String
|
||||
Public FichTomato As String
|
||||
|
||||
Public Sub Form_Open()
|
||||
Me.X = FMain.x + 10
|
||||
Me.Y = FMain.Y + 10
|
||||
System.Shell = "/bin/bash"
|
||||
RutaTomato = User.Home & "/.TomateClock"
|
||||
FichTomato = RutaTomato & "/tomateclock.config"
|
||||
MAXyMIN()
|
||||
Dim Existe As String[]
|
||||
Existe = Dir(RutaTomato, "tomateclock.config")
|
||||
If Existe.Count > 0
|
||||
' Leer valores del fichero de configuracion
|
||||
LeerConfig()
|
||||
Else
|
||||
'No hay configuracion - pongo valores x defecto -
|
||||
ValoresDefecto()
|
||||
Endif
|
||||
End
|
||||
Public Function MAXyMIN()
|
||||
tiempoPomodoro.MinValue = 1
|
||||
tiempoPomodoro.MaxValue = 59
|
||||
tiempoPausaCorta.MinValue = 1
|
||||
tiempoPausaCorta.MaxValue = 59
|
||||
tiempoPausaLarga.MinValue = 1
|
||||
tiempoPausaLarga.MaxValue = 59
|
||||
End
|
||||
Public Function ValoresDefecto()
|
||||
tiempoPomodoro.Value = 25
|
||||
tiempoPausaCorta.Value = 5
|
||||
tiempoPausaLarga.Value = 20
|
||||
End
|
||||
|
||||
Public Sub BotonDefecto_Click()
|
||||
ValoresDefecto()
|
||||
End
|
||||
|
||||
Public Sub tiempoPomodoro_Change()
|
||||
lcdPomodoro.Text = Right("0" & tiempoPomodoro.Value, 2)
|
||||
End
|
||||
|
||||
Public Sub tiempoPausaCorta_Change()
|
||||
lcdPausaCorta.Text = Right("0" & tiempoPausaCorta.Value, 2)
|
||||
End
|
||||
|
||||
Public Sub tiempoPausaLarga_Change()
|
||||
lcdPausaLarga.Text = Right("0" & tiempoPausaLarga.Value, 2)
|
||||
End
|
||||
|
||||
Public Sub botonGuardar_Click()
|
||||
GrabarConfig()
|
||||
End
|
||||
|
||||
Public Function LeerConfig()
|
||||
Dim trozo As String[]
|
||||
Dim ValoresFich As String
|
||||
Shell "echo -ne $(cat " & Shell$(FichTomato) & ")" To ValoresFich
|
||||
trozo = Split(ValoresFich, "-")
|
||||
tiempoPomodoro.Value = trozo[0]
|
||||
tiempoPausaCorta.Value = trozo[1]
|
||||
tiempoPausaLarga.Value = trozo[2]
|
||||
End
|
||||
|
||||
|
||||
Public Function GrabarConfig()
|
||||
Dim Valores As String
|
||||
Valores = Shell$(tiempoPomodoro.Value & "-" & tiempoPausaCorta.Value & "-" & tiempoPausaLarga.Value)
|
||||
Shell "echo " & valores & " > " & FichTomato Wait
|
||||
Me.Close
|
||||
End
|
||||
|
||||
|
||||
76
.src/frmConfig.class~
Normal file
76
.src/frmConfig.class~
Normal file
|
|
@ -0,0 +1,76 @@
|
|||
' Gambas class file
|
||||
|
||||
Public RutaTomato As String
|
||||
Public FichTomato As String
|
||||
|
||||
Public Sub Form_Open()
|
||||
Me.X = FMain.x + 10
|
||||
Me.Y = FMain.Y + 10
|
||||
System.Shell = "/bin/bash"
|
||||
RutaTomato = User.Home & "/.TomateClock"
|
||||
FichTomato = RutaTomato & "/tomateclock.config"
|
||||
MAXyMIN()
|
||||
Dim Existe As String[]
|
||||
Existe = Dir(RutaTomato, "tomateclock.config")
|
||||
If Existe.Count > 0
|
||||
' Leer valores del fichero de configuracion
|
||||
LeerConfig()
|
||||
Else
|
||||
Message("valores x defecto")
|
||||
'No hay configuracion - pongo valores x defecto -
|
||||
ValoresDefecto()
|
||||
Endif
|
||||
End
|
||||
Public Function MAXyMIN()
|
||||
tiempoPomodoro.MinValue = 1
|
||||
tiempoPomodoro.MaxValue = 59
|
||||
tiempoPausaCorta.MinValue = 1
|
||||
tiempoPausaCorta.MaxValue = 59
|
||||
tiempoPausaLarga.MinValue = 1
|
||||
tiempoPausaLarga.MaxValue = 59
|
||||
End
|
||||
Public Function ValoresDefecto()
|
||||
tiempoPomodoro.Value = 25
|
||||
tiempoPausaCorta.Value = 5
|
||||
tiempoPausaLarga.Value = 20
|
||||
End
|
||||
|
||||
Public Sub BotonDefecto_Click()
|
||||
ValoresDefecto()
|
||||
End
|
||||
|
||||
Public Sub tiempoPomodoro_Change()
|
||||
lcdPomodoro.Text = Right("0" & tiempoPomodoro.Value, 2)
|
||||
End
|
||||
|
||||
Public Sub tiempoPausaCorta_Change()
|
||||
lcdPausaCorta.Text = Right("0" & tiempoPausaCorta.Value, 2)
|
||||
End
|
||||
|
||||
Public Sub tiempoPausaLarga_Change()
|
||||
lcdPausaLarga.Text = Right("0" & tiempoPausaLarga.Value, 2)
|
||||
End
|
||||
|
||||
Public Sub botonGuardar_Click()
|
||||
GrabarConfig()
|
||||
End
|
||||
|
||||
Public Function LeerConfig()
|
||||
Dim trozo As String[]
|
||||
Dim ValoresFich As String
|
||||
Shell "echo -ne $(cat " & Shell$(FichTomato) & ")" To ValoresFich
|
||||
trozo = Split(ValoresFich, "-")
|
||||
tiempoPomodoro.Value = trozo[0]
|
||||
tiempoPausaCorta.Value = trozo[1]
|
||||
tiempoPausaLarga.Value = trozo[2]
|
||||
End
|
||||
|
||||
|
||||
Public Function GrabarConfig()
|
||||
Dim Valores As String
|
||||
Valores = Shell$(tiempoPomodoro.Value & "-" & tiempoPausaCorta.Value & "-" & tiempoPausaLarga.Value)
|
||||
Shell "echo " & valores & " > " & FichTomato Wait
|
||||
Me.Close
|
||||
End
|
||||
|
||||
|
||||
69
.src/frmConfig.form
Normal file
69
.src/frmConfig.form
Normal file
|
|
@ -0,0 +1,69 @@
|
|||
# Gambas Form File 3.0
|
||||
|
||||
{ Form Form
|
||||
MoveScaled(0,0,44,41)
|
||||
Text = ("Configuracion TomateClock")
|
||||
Icon = Picture["icon:/22/options"]
|
||||
Resizable = False
|
||||
{ BotonDefecto Button
|
||||
MoveScaled(2,34,23,6)
|
||||
Text = (" Valores por defecto")
|
||||
Picture = Picture["TomateClock_32x32.png"]
|
||||
}
|
||||
{ Panel1 Panel
|
||||
MoveScaled(2,23,39.875,9.875)
|
||||
{ lcdPausaLarga LCDLabel
|
||||
MoveScaled(31,0,8,4)
|
||||
Foreground = Color.DarkGreen
|
||||
Text = ("2o")
|
||||
Alignment = Align.Right
|
||||
}
|
||||
{ tiempoPausaLarga Slider
|
||||
MoveScaled(0,5,39,4)
|
||||
PageStep = 1
|
||||
}
|
||||
{ Label3 Label
|
||||
MoveScaled(0,0,29,4)
|
||||
Text = ("Pausa Larga (Minutos)")
|
||||
}
|
||||
}
|
||||
{ Panel2 Panel
|
||||
MoveScaled(2,12,39.875,9.875)
|
||||
{ lcdPausaCorta LCDLabel
|
||||
MoveScaled(31,0,8,4)
|
||||
Foreground = Color.DarkGreen
|
||||
Text = ("5")
|
||||
Alignment = Align.Right
|
||||
}
|
||||
{ tiempoPausaCorta Slider
|
||||
MoveScaled(0,5,39,4)
|
||||
PageStep = 1
|
||||
}
|
||||
{ Label2 Label
|
||||
MoveScaled(0,0,29,4)
|
||||
Text = ("Pausa Corta (Minutos)")
|
||||
}
|
||||
}
|
||||
{ Panel3 Panel
|
||||
MoveScaled(2,1,39.875,9.875)
|
||||
{ lcdPomodoro LCDLabel
|
||||
MoveScaled(31,0,8,4)
|
||||
Foreground = Color.Red
|
||||
Text = ("25")
|
||||
Alignment = Align.Right
|
||||
}
|
||||
{ tiempoPomodoro Slider
|
||||
MoveScaled(0,5,39,4)
|
||||
PageStep = 1
|
||||
}
|
||||
{ Label1 Label
|
||||
MoveScaled(0,0,29,4)
|
||||
Text = ("Minutos para cada 'Pomodoro'")
|
||||
}
|
||||
}
|
||||
{ botonGuardar Button
|
||||
MoveScaled(26,34,16,6)
|
||||
Text = (" Guardar")
|
||||
Picture = Picture["icon:/32/floppy"]
|
||||
}
|
||||
}
|
||||
69
.src/frmConfig.form~
Normal file
69
.src/frmConfig.form~
Normal file
|
|
@ -0,0 +1,69 @@
|
|||
# Gambas Form File 3.0
|
||||
|
||||
{ Form Form
|
||||
MoveScaled(0,0,44,41)
|
||||
Text = ("Configuracion TomateClock")
|
||||
Icon = Picture["icon:/22/options"]
|
||||
Resizable = False
|
||||
{ BotonDefecto Button
|
||||
MoveScaled(2,34,23,6)
|
||||
Text = (" Valores por defecto")
|
||||
Picture = Picture["TomateClock_32x32.png"]
|
||||
}
|
||||
{ Panel1 Panel
|
||||
MoveScaled(2,23,39.875,9.875)
|
||||
{ lcdPausaLarga LCDLabel
|
||||
MoveScaled(31,0,8,4)
|
||||
Foreground = Color.DarkGreen
|
||||
Text = ("2o")
|
||||
Alignment = Align.Right
|
||||
}
|
||||
{ tiempoPausaLarga Slider
|
||||
MoveScaled(0,5,39,4)
|
||||
PageStep = 1
|
||||
}
|
||||
{ Label3 Label
|
||||
MoveScaled(0,0,29,4)
|
||||
Text = ("Pausa Larga (Minutos)")
|
||||
}
|
||||
}
|
||||
{ Panel2 Panel
|
||||
MoveScaled(2,12,39.875,9.875)
|
||||
{ lcdPausaCorta LCDLabel
|
||||
MoveScaled(31,0,8,4)
|
||||
Foreground = Color.DarkGreen
|
||||
Text = ("5")
|
||||
Alignment = Align.Right
|
||||
}
|
||||
{ tiempoPausaCorta Slider
|
||||
MoveScaled(0,5,39,4)
|
||||
PageStep = 1
|
||||
}
|
||||
{ Label2 Label
|
||||
MoveScaled(0,0,29,4)
|
||||
Text = ("Pausa Corta (Minutos)")
|
||||
}
|
||||
}
|
||||
{ Panel3 Panel
|
||||
MoveScaled(2,1,39.875,9.875)
|
||||
{ lcdPomodoro LCDLabel
|
||||
MoveScaled(31,0,8,4)
|
||||
Foreground = Color.Red
|
||||
Text = ("25")
|
||||
Alignment = Align.Right
|
||||
}
|
||||
{ tiempoPomodoro Slider
|
||||
MoveScaled(0,5,39,4)
|
||||
PageStep = 1
|
||||
}
|
||||
{ Label1 Label
|
||||
MoveScaled(0,0,29,4)
|
||||
Text = ("Minutos para cada 'Pomodoro'")
|
||||
}
|
||||
}
|
||||
{ Button1 Button
|
||||
MoveScaled(26,34,16,6)
|
||||
Text = (" Guardar")
|
||||
Picture = Picture["icon:/32/floppy"]
|
||||
}
|
||||
}
|
||||
12
.startup
Normal file
12
.startup
Normal file
|
|
@ -0,0 +1,12 @@
|
|||
FMain
|
||||
TomateClock
|
||||
0
|
||||
0
|
||||
1.0.5
|
||||
|
||||
gb.image
|
||||
gb.gui
|
||||
gb.form
|
||||
gb.media
|
||||
gb.media.form
|
||||
|
||||
1
README.md
Normal file
1
README.md
Normal file
|
|
@ -0,0 +1 @@
|
|||
# TomateClock
|
||||
BIN
TomateClock-Config.png
Normal file
BIN
TomateClock-Config.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 952 B |
BIN
TomateClock-Pausa.png
Normal file
BIN
TomateClock-Pausa.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 17 KiB |
BIN
TomateClock-icono.png
Normal file
BIN
TomateClock-icono.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 28 KiB |
BIN
TomateClock.gambas
Executable file
BIN
TomateClock.gambas
Executable file
Binary file not shown.
BIN
TomateClock_32x32.png
Normal file
BIN
TomateClock_32x32.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 2.7 KiB |
BIN
TomateClock_48x48.png
Normal file
BIN
TomateClock_48x48.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 5.4 KiB |
BIN
TomatoClock.mp3
Normal file
BIN
TomatoClock.mp3
Normal file
Binary file not shown.
Loading…
Reference in a new issue