Subida a Gitea

.directory

@@ -0,0 +1,2 @@
+[Desktop Entry]
+Icon=./.icon.png

.hidden/CHANGELOG

@@ -0,0 +1,3 @@
+* Sat Jan 11 2020 luisgulo <luisgulo@soloconlinux.org.es> 0.0.5
+- Lanzamiento inicial
+

.lang/#project.pot

@@ -0,0 +1,20 @@
+# /home/luisgulo/ProyectosGAMBAS/VelocidadNavegacion/.project
+# Generated by the Gambas IDE
+
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: VelocidadNavegacion 3.12.2\n"
+"POT-Creation-Date: 2020-01-11 19:46 UTC\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: .project:1
+msgid "Velocidad de Navegacion"
+msgstr ""
+
+#: .project:2
+msgid "Medidor Grafico de Velocidad de Navegacion\nLocaliza el host mas cercano y realiza test de subida y bajada"
+msgstr ""
+

.lang/.pot

@@ -0,0 +1,69 @@
+#, fuzzy
+msgid ""
+msgstr ""
+"#-#-#-#-#  #project.pot (VelocidadNavegacion 3.12.2)  #-#-#-#-#\n"
+"Project-Id-Version: VelocidadNavegacion 3.12.2\n"
+"POT-Creation-Date: 2020-01-11 19:46 UTC\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+"#-#-#-#-#  FMain.pot ($(PACKAGE) $(VERSION))  #-#-#-#-#\n"
+"Project-Id-Version: $(PACKAGE) $(VERSION)\n"
+"POT-Creation-Date: 2020-01-11 19:46 UTC\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: .project:1
+msgid "Velocidad de Navegacion"
+msgstr ""
+
+#: .project:2
+msgid ""
+"Medidor Grafico de Velocidad de Navegacion\n"
+"Localiza el host mas cercano y realiza test de subida y bajada"
+msgstr ""
+
+#: FMain.form:14
+msgid "-"
+msgstr ""
+
+#: FMain.form:36
+msgid "Download: 43.05 Mbit/s"
+msgstr ""
+
+#: FMain.form:43
+msgid "Pulse para iniciar"
+msgstr ""
+
+#: FMain.class:9
+msgid "Test en Ejecucion"
+msgstr ""
+
+#: FMain.class:10
+msgid "Por favor espere hasta que se complete"
+msgstr ""
+
+#: FMain.class:37
+msgid "Espere..."
+msgstr ""
+
+#: FMain.class:50
+msgid "Bajada: "
+msgstr ""
+
+#: FMain.class:51
+msgid "Subida: "
+msgstr ""
+
+#: FMain.class:52
+msgid "Pulse para Iniciar"
+msgstr ""
+
+#: FMain.class:60
+msgid "Medidor de Velocidad de Navegación"
+msgstr ""
+
+#: FMain.class:68
+msgid "Velocidad RED"
+msgstr ""

.lang/FMain.pot

@@ -0,0 +1,56 @@
+# /home/luisgulo/ProyectosGAMBAS/VelocidadNavegacion/.src/FMain.class
+# Generated by the Gambas 3.12 compiler
+
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: $(PACKAGE) $(VERSION)\n"
+"POT-Creation-Date: 2020-01-11 19:46 UTC\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: FMain.form:14
+msgid "-"
+msgstr ""
+
+#: FMain.form:36
+msgid "Download: 43.05 Mbit/s"
+msgstr ""
+
+#: FMain.form:43
+msgid "Pulse para iniciar"
+msgstr ""
+
+#: FMain.class:9
+msgid "Test en Ejecucion"
+msgstr ""
+
+#: FMain.class:10
+msgid "Por favor espere hasta que se complete"
+msgstr ""
+
+#: FMain.class:37
+msgid "Espere..."
+msgstr ""
+
+#: FMain.class:50
+msgid "Bajada: "
+msgstr ""
+
+#: FMain.class:51
+msgid "Subida: "
+msgstr ""
+
+#: FMain.class:52
+msgid "Pulse para Iniciar"
+msgstr ""
+
+#: FMain.class:60
+msgid "Medidor de Velocidad de Navegación"
+msgstr ""
+
+#: FMain.class:68
+msgid "Velocidad RED"
+msgstr ""
+

.lang/en.po

@@ -0,0 +1,63 @@
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: VelocidadNavegacion 3.12.2\n"
+"PO-Revision-Date: 2020-01-11 13:51 UTC\n"
+"Last-Translator: luisgulo <luisgulo@gmail.com>\n"
+"Language: en\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: .project:1
+msgid "Velocidad de Navegacion"
+msgstr "Navigation Speed"
+
+#: .project:2
+msgid "Medidor Grafico de Velocidad de Navegacion\nLocaliza el host mas cercano y realiza test de subida y bajada"
+msgstr "Graphic Navigation Speed ​​Meter  nLocate the nearest host and perform upload and download tests"
+
+#: FMain.class:9
+msgid "Test en Ejecucion"
+msgstr "Running Test"
+
+#: FMain.class:10
+msgid "Por favor espere hasta que se complete"
+msgstr "Please wait until it is completed"
+
+#: FMain.class:37
+msgid "Espere..."
+msgstr "Wait..."
+
+#: FMain.class:54
+msgid "Bajada: "
+msgstr "Download: "
+
+#: FMain.class:55
+msgid "Subida: "
+msgstr "Upload: "
+
+#: FMain.class:56
+msgid "Comprobar de nuevo"
+msgstr "Check again"
+
+#: FMain.class:64
+msgid "Medidor de Velocidad de Navegación"
+msgstr "Navigation Speed ​​Meter"
+
+#: FMain.class:72
+msgid "Velocidad RED"
+msgstr "NET Speed"
+
+#: FMain.form:14
+msgid "-"
+msgstr "-"
+
+#: FMain.form:36
+msgid "Download: 43.05 Mbit/s"
+msgstr "Download: 43.05 Mbit/s"
+
+#: FMain.form:43
+msgid "Pulse para iniciar"
+msgstr "Press to Star"
+

.lang/es_ES.po

@@ -0,0 +1,63 @@
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: VelocidadNavegacion 3.12.2\n"
+"PO-Revision-Date: 2020-01-11 13:51 UTC\n"
+"Last-Translator: luisgulo <luisgulo@gmail.com>\n"
+"Language: es_ES\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: .project:1
+msgid "Velocidad de Navegacion"
+msgstr "Velocidad de Navegacion"
+
+#: .project:2
+msgid "Medidor Grafico de Velocidad de Navegacion\nLocaliza el host mas cercano y realiza test de subida y bajada"
+msgstr "Medidor Grafico de Velocidad de Navegacion\nLocaliza el host mas cercano y realiza test de subida y bajada"
+
+#: FMain.class:9
+msgid "Test en Ejecucion"
+msgstr "Test en Ejecucion"
+
+#: FMain.class:10
+msgid "Por favor espere hasta que se complete"
+msgstr "Por favor espere hasta que se complete"
+
+#: FMain.class:37
+msgid "Espere..."
+msgstr "Espere..."
+
+#: FMain.class:54
+msgid "Bajada: "
+msgstr "Bajada: "
+
+#: FMain.class:55
+msgid "Subida: "
+msgstr "Subida: "
+
+#: FMain.class:56
+msgid "Comprobar de nuevo"
+msgstr "Comprobar de nuevo"
+
+#: FMain.class:64
+msgid "Medidor de Velocidad de Navegación"
+msgstr "Medidor de Velocidad de Navegación"
+
+#: FMain.class:72
+msgid "Velocidad RED"
+msgstr "Velocidad RED"
+
+#: FMain.form:14
+msgid "-"
+msgstr "-"
+
+#: FMain.form:36
+msgid "Download: 43.05 Mbit/s"
+msgstr "Download: 43.05 Mbit/s"
+
+#: FMain.form:43
+msgid "Pulse para iniciar"
+msgstr "Pulse para iniciar"
+

.project

@@ -0,0 +1,30 @@
+# Gambas Project File 3.0
+Title=Velocidad de Navegacion
+Startup=FMain
+Icon=VelocidadNavegacion_128.png
+Version=1.0.10
+Component=gb.image
+Component=gb.gui
+Component=gb.form
+Description="Medidor Grafico de Velocidad de Navegacion\nLocaliza el host mas cercano y realiza test de subida y bajada"
+Authors="Luis GuLo"
+TabSize=2
+Translate=1
+Language=es_ES
+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=velocidadnavegacion-0.0.5
+CreateEachDirectory=1
+Packager=1
+Systems=debian
+Menus=debian:"Applications/Network/Communication"
+Categories=debian:"Network"
+Groups=debian:"utils"
+ExtraDependencies=debian:"speedtest-cli\t\t"
+Tags=Web,Network,Monitor
+WebSite=https://repositorio.soloconlinux.org.es
+CreateMenu=1

.settings

@@ -0,0 +1,18 @@
+[Breakpoints]
+Count=0
+
+[DebugWindow]
+Count=0
+
+[Executable]
+Path="VelocidadNavegacion.gambas"
+
+[OpenFile]
+File[1]=".src/FMain.form"
+Active=2
+File[2]=".src/FMain.class:21.46"
+Count=2
+
+[Watches]
+Count=0
+

.src/FMain.class

@@ -0,0 +1,82 @@
+' Gambas class file
+
+Private AnchoLargo As Integer = 500
+Private AnchoCorto As Integer = 208
+Private Comprobando As Boolean = False
+Private cambio As Boolean = False
+Public Sub Logo_MouseDown()
+  If Comprobando
+    Message.Title = ("Test en Ejecucion")
+    Message.Info(("Por favor espere hasta que se complete"))
+  Else
+    IniciarTest()
+  Endif
+End
+
+Public Sub Form_Open()
+  Acorta()
+  System.Shell = "/bin/bash"
+  Comprobando = False
+End
+
+Public Sub Pulse_MouseDown()
+  If Comprobando
+    Message.Title = ("Test en Ejecucion")
+    Message.Info(("Por favor espere hasta que se complete"))
+  Else
+    IniciarTest()
+  Endif
+End
+
+Public Function IniciarTest()
+  Dim SalidaCMD As String
+  Dim trozo As String[]
+  Acorta()
+  'Lanzo y almaceno el valor en SalidaCMD
+  Comprobando = True
+  Pulse.text = ("Espere...")
+  cambio = False
+  Me.Refresh
+  Wait 0.1
+  reloj.Delay = 1000
+  reloj.Start
+  ' Usamos la herramienta de consola 'speedtest' 
+  Shell "echo $(speedtest|grep 'load:'|awk -F ' ' '{print $2" "$5}')" To SalidaCMD
+  trozo = Split(SalidaCMD, " ")
+  'Al finalizar permito de nuevo y muestro valores
+  Comprobando = False
+  reloj.Stop
+  Alarga()
+  txtBAJADA.Text = ("Bajada: ") & trozo[0] & " Mbit/s"
+  txtSUBIDA.Text = ("Subida: ") & trozo[1] & "Mbit/s"
+  Pulse.text = ("Pulse para Iniciar")
+End
+
+Public Function Alarga()
+  Me.Resizable = True
+  Me.Width = AnchoLargo
+  Me.Height = 152
+  Me.Resizable = False
+  Me.text = ("Medidor de Velocidad de Navegación")
+End
+
+Public Function Acorta()
+  Me.Resizable = True
+  Me.Width = AnchoCorto
+  Me.Height = 152
+  Me.Resizable = False  
+  Me.Text = ("Velocidad RED")
+End
+
+Public Sub reloj_Timer()
+  Me.Refresh
+  Wait 0.1
+  If cambio
+      Pulse.Text = "Espere..."
+  Else
+      Pulse.Text = " ... "
+  Endif
+  cambio = Not cambio
+  Me.Refresh  
+  Wait 0.1
+End

.src/FMain.class~

@@ -0,0 +1,82 @@
+' Gambas class file
+
+Private AnchoLargo As Integer = 500
+Private AnchoCorto As Integer = 208
+Private Comprobando As Boolean = False
+Private cambio As Boolean = False
+Public Sub Logo_MouseDown()
+  If Comprobando
+    Message.Title = ("Test en Ejecucion")
+    Message.Info(("Por favor espere hasta que se complete"))
+  Else
+    IniciarTest()
+  Endif
+End
+
+Public Sub Form_Open()
+  Acorta()
+  System.Shell = "/bin/bash"
+  Comprobando = False
+End
+
+Public Sub Pulse_MouseDown()
+  If Comprobando
+    Message.Title = ("Test en Ejecucion")
+    Message.Info(("Por favor espere hasta que se complete"))
+  Else
+    IniciarTest()
+  Endif
+End
+
+Public Function IniciarTest()
+  Dim SalidaCMD As String
+  Dim trozo As String[]
+  Acorta()
+  'Lanzo y almaceno el valor en SalidaCMD
+  Comprobando = True
+  Pulse.text = ("Espere...")
+  cambio = False
+  Me.Refresh
+  Wait 0.1
+  reloj.Delay = 1000
+  reloj.Start
+  ' Usamos la herramienta de consola 'speedtest' 
+  Shell "echo $(speedtest|grep 'load:'|awk -F ' ' '{print $2" "$5}') &" To SalidaCMD
+  trozo = Split(SalidaCMD, " ")
+  'Al finalizar permito de nuevo y muestro valores
+  Comprobando = False
+  reloj.Stop
+  Alarga()
+  txtBAJADA.Text = ("Bajada: ") & trozo[0] & " Mbit/s"
+  txtSUBIDA.Text = ("Subida: ") & trozo[1] & "Mbit/s"
+  Pulse.text = ("Pulse para Iniciar")
+End
+
+Public Function Alarga()
+  Me.Resizable = True
+  Me.Width = AnchoLargo
+  Me.Height = 152
+  Me.Resizable = False
+  Me.text = ("Medidor de Velocidad de Navegación")
+End
+
+Public Function Acorta()
+  Me.Resizable = True
+  Me.Width = AnchoCorto
+  Me.Height = 152
+  Me.Resizable = False  
+  Me.Text = ("Velocidad RED")
+End
+
+Public Sub reloj_Timer()
+  Me.Refresh
+  Wait 0.1
+  If cambio
+      Pulse.Text = "Espere..."
+  Else
+      Pulse.Text = " ... "
+  Endif
+  cambio = Not cambio
+  Me.Refresh  
+  Wait 0.1
+End

.src/FMain.form

@@ -0,0 +1,41 @@
+# Gambas Form File 3.0
+
+{ Form Form
+  MoveScaled(0,0,63,19)
+  Text = ("-")
+  Icon = Picture["VelocidadNavegacion_128.png"]
+  Resizable = False
+  { Logo PictureBox
+    MoveScaled(1,0,16,16)
+    Picture = Picture["VelocidadNavegacion_128.png"]
+  }
+  { Descarga PictureBox
+    MoveScaled(18,2,6,6)
+    Picture = Picture["icon:/48/download"]
+  }
+  { Subida PictureBox
+    MoveScaled(18,10,6,6)
+    Picture = Picture["icon:/48/upload"]
+  }
+  { txtBAJADA TextLabel
+    MoveScaled(27,2,33,6)
+    Font = Font["Bold,11"]
+    Text = ("Download: 43.05 Mbit/s")
+    Alignment = Align.Normal
+  }
+  { Pulse Label
+    MoveScaled(1,14,16,4)
+    Font = Font["Bold"]
+    Text = ("Pulse para iniciar")
+    Alignment = Align.Center
+  }
+  { txtSUBIDA TextLabel
+    MoveScaled(27,10,33,6)
+    Font = Font["Bold,11"]
+    Text = ("Download: 43.05 Mbit/s")
+    Alignment = Align.Normal
+  }
+  { reloj #Timer
+    #MoveScaled(55,11)
+  }
+}

.src/FMain.form~

@@ -0,0 +1,42 @@
+# Gambas Form File 3.0
+
+{ Form Form
+  MoveScaled(0,0,63,19)
+  Text = ("-")
+  Icon = Picture["VelocidadNavegacion_128.png"]
+  Resizable = False
+  { Logo PictureBox
+    MoveScaled(1,0,16,16)
+    Picture = Picture["VelocidadNavegacion_128.png"]
+  }
+  { Descarga PictureBox
+    MoveScaled(18,2,6,6)
+    Picture = Picture["icon:/48/download"]
+  }
+  { Subida PictureBox
+    MoveScaled(18,10,6,6)
+    Picture = Picture["icon:/48/upload"]
+  }
+  { txtBAJADA TextLabel
+    MoveScaled(27,2,33,6)
+    Font = Font["Bold,11"]
+    Text = ("Download: 43.05 Mbit/s")
+    Alignment = Align.Normal
+  }
+  { Pulse Label
+    MoveScaled(1,14,16,4)
+    Font = Font["Bold"]
+    Text = ("Pulse para iniciar")
+    Alignment = Align.Center
+  }
+  { txtSUBIDA TextLabel
+    MoveScaled(27,10,33,6)
+    Font = Font["Bold,11"]
+    Text = ("Download: 43.05 Mbit/s")
+    Alignment = Align.Normal
+  }
+  { reloj #Timer
+    #MoveScaled(55,11)
+    Delay = 500
+  }
+}

.startup

@@ -0,0 +1,10 @@
+FMain
+Velocidad de Navegacion
+0
+0
+1.0.10
+
+gb.image
+gb.gui
+gb.form
+

README.md

@@ -0,0 +1 @@
+# VelocidadNavegacion