https://foro.gambas-es.org/viewtopic.php?f=5&t=5113&p=29915#p29915
-----------------------------------
didier18
Martes, 26 Enero 2016, 17:20

Re: Panel Movil Luminoso De Leds
-----------------------------------
¡Hola

@mister_electronico ¿Tiene interés en transformar el procedimiento de la escritura? :roll: 
Esto mejorará el tiempo de procesamiento, economizar los procesos y ser más legible para todos los lectores ...

Por ejemplo aquí está lo que podía dar:

[code linenumbers=false syntax=gambas]' Gambas class file
Public $Pathdef As String = User.Home & "/" & Application.Title & "/tmp/panel"
Public $bEq As Boolean[/code]

$ Pathdef es una variable pública, será en cualquier lugar accesible en el código. Se establece la ruta del temporal en la user.home / el nombre de la aplicación / "/ tmp / panel de"

Puse el comentario (con mi mala traducción en el código :sad: ).

[code linenumbers=false syntax=gambas]Public Sub CreaPuntos()
Dim $char, $sL0, $sL1, $sL2$sL3$sL4$sL5 As String
  Select $char
    Case "A"
      $sL0 = "0111111"
      $sL1 = "1001000"
      $sL2 = "1001000"
      $sL3 = "1001000"
      $sL4 = "0111111"
      $sL5 = "0000000"
    Case "B"
      $sL0 = "1111111"
      $sL1 = "1001001"
      $sL2 = "1001001"
      $sL3 = "1001001"
      $sL4 = "0110110"
      $sL5 = "0000000"
    Case "C"
      'etc...
      
  End Select
 End[/code]
[code linenumbers=false syntax=gambas]Public Sub CreaSvg()
 Dim i, num As Integer
 If $Pathdef Not Exist($Pathdef) Then Mkdir $Pathdef 'Si la ruta no existe, se crea
    Select $bEq 'de acuerdo con el valor de $ BEQ (2 caso posible, es una variable booleana)
      Case True 'si $ EQB es cierto que llamamos Rotary procedimiento ()
        Rotar()
      Case False  'si es falsa $ EQB llamar al procedimiento Crea Puntos ()
        CreaPuntos()
    End Select
  i = 1
  num = 568
  'etc...
End[/code]
[code linenumbers=false syntax=gambas]Public Sub Rotar()
Dim cpt As Integer
  'TEMPDIR=/tmp/panel ($Pathdef ya definido)
  
  'let i=i+1 'será reemplazado por ...
  'también se puede decir
  Inc cpt
  'también se puede decir
  cpt += 1 'o cpt+=3 si el incremento es de 3
 'etc...
  
End[/code]

Esto no es una obligación, por supuesto, sólo una pista para mejorar ...

Buen día.


