sábado, 17 de mayo de 2014

socket


Propiedades:

  host :


  Port :


  LocalHost :


  LocalPort :


  RemoteHost :


  RemotePort :

 
  Path :


  Server :


  Status :


  Timeout :




Métodos:

  Connect :


  Peek :





Eventos:


Closed :
El servidor nos puede cerrar la conexión, o bien cerrarse por algún error. Para ello contamos con el evento Closed(), que es disparado por el control Socket al perder la conexión con el servidor

Error :


Found : 


Read  :


Ready :
Si la conexión se realiza con éxito el control Socket dispara el evento Ready(), aquí es donde podemos realizar acciones inmediatas en el momento preciso en que se logra establecer la conexión con el servidor


Write :








viernes, 16 de mayo de 2014

Dibujo Basico



' Gambas class file

Public puntoInicialX As Integer
Public puntoInicialY As Integer
Public puntoFinalX As Integer
Public puntoFinalY As Integer
Public ColorDibujo As Integer 'variable donde se guardara la elección del color
Public TipoDEdibujo As String 'variable que nos dira que tipo de dibujo queremos ejecutar


Public Sub _new()

End

Public Sub Form_Open()
Me.Center 'centramos el formulario
End

Public Sub AreaDibujo_MouseDown() 'evento que sucede cuando apretamos el boton del raton
   puntoInicialX = Mouse.X
   puntoInicialY = Mouse.y
End

Public Sub AreaDibujo_MouseUp() 'evento que sucede cuando soltamos el boton del raton
   puntoFinalX = Mouse.X
   puntoFinalY = Mouse.y
End

Public Sub AreaDibujo_MouseMove() 'evento que sucede cuando movemos el raton

 Select Case TipoDEdibujo
   Case "punto"
      Draw.Begin(AreaDibujo) 'comienzo del dibujo
      Draw.Foreground = ColorDibujo 'el color del punto que elegimos y guardamos en la variable ColorDibujo
      Draw.Point(Mouse.x, Mouse.y) 'point es punto, dibujará un punto en las coordenadas del puntero del raton
      Draw.End 'fin del dibujo
   Case "linea"
      Draw.Begin(AreaDibujo)
      Draw.Foreground = ColorDibujo
      Draw.Line(puntoInicialX, puntoInicialY, Mouse.x, Mouse.y) 'Line es línea, dibujará lineas
      Draw.End
   Case "goma"
      Draw.Begin(AreaDibujo)
      Draw.Foreground = &HFFFFFF
      Draw.FillColor = &HFFFFFF
      Draw.FillStyle = Fill.Solid
      Draw.Ellipse(Mouse.x - 15, Mouse.y - 15, 30, 30)
      Draw.End
  End Select

 End

Public Sub btnColor_Click()
   If Dialog.SelectColor() Then Return
   ColorDibujo = Dialog.Color
End

Public Sub btnLinea_Click()
  TipoDEdibujo = "linea"
End

Public Sub btnPunto_Click()
  TipoDEdibujo = "punto"
End

Public Sub btnGoma_Click()
  TipoDEdibujo = "goma"
End

Public Sub btnLimpiar_Click()

  AreaDibujo.Cached = False ' desactivamos la cache para poder borrar el DrawArea
  AreaDibujo.Clear 'borramos todo el DrawArea
  AreaDibujo.Cached = True ' activamos la cache para poder redibujar nuevamente en el DrawArea

End
Código fuente: DibujoBasico-0.0.1.tar.gz

domingo, 11 de mayo de 2014

Visualizar un gif en gambas3


' Gambas class file

' Como usar un gif en gambas3
' buscar el gif que nos interese y colocarlo en la carpeta del proyecto,
' dentro de la carpeta Datos.
' Agregar un MovieBox1 y en su propiedad path asignarle el gif que pusimos en la carpeta
' del proyecto
' Despues para visualizarlo ponemos la propiedad del MovieBox1.Playing a True para visualizarlo
' o False si  queremos que pare.

Public Sub _new()

End

Public Sub Form_Open()
Me.Center
btnDesconectar.Enabled = False
End

Public Sub btnConectar_Click()

  MovieBox1.Playing = True
  btnConectar.Enabled = False
  btnDesconectar.Enabled = True

End

Public Sub btnDesconectar_Click()

  MovieBox1.Playing = False
  btnConectar.Enabled = True
  btnDesconectar.Enabled = False

End

Código fuente: gif-0.0.1.tar.gz

Videos sobre programación Gambas


En este post iré recopilando enlaces a vídeos relacionados con la programación
de Gambas.


https://www.youtube.com/user/gambasfr/videos

Julio Sanchez
https://www.youtube.com/user/jusabejusabe


Daniel Calleja
https://www.youtube.com/user/dapeca2608

martes, 6 de mayo de 2014

Juguemos a ser Benoît Minisini



Este post te enseñara como jugar con el código fuente de la propia ide de gambas3, si bien el código esta difícil para los novatos como nosotros siempre se puede aprender observando pequeños trozos de código.
Por esta razón les dejo el como observar,  modificar, aprender en el código fuente de gambas3.

Paso 1
Descargar la ultima versión de gambas en el lugar que mas nos guste.
http://sourceforge.net/projects/gambas/
gambas3-3.5.3.tar.bz2

Paso 2
Descomprimimos el archivo

Paso 3
Buscamos dentro de la carpeta esta carpeta:
gambas3-3.5.3/app/src/gambas3

Paso 4
la carpeta gambas3 la cortamos de ahí y la colocamos en otra parte para mayor comodidad

Paso 5
Abrimos gambas y ubicamos la carpeta gambas3 y el ide reconocera el "proyecto gambas3"

Paso 6 
Genial !! ahora a jugar con el código de gambas3 como si fuéramos el propio Benoit


domingo, 4 de mayo de 2014

Split

Matriz de Cadenas = Split ( Cadena AS String [ , Separadores AS String , Escape AS String ,  
Ignorar nulos AS Boolean ] )

Matriz de Cadenas = Split ( Cadena AS String [ , Separadores AS String , Escape AS String , 
IgnorarNulos AS Boolean , MantenerEscape AS Boolean ] )
 
Divide una cadena en subcadenas delimitadas por separadores y caracteres de escape.
  • Cadena es la cadena a dividir.
  • Separadores es la lista de caracteres separadores.
  • Escape es un caracter de escape. Cualquier separador rodeado de dos caracteres de escape es ignorado en el proceso de división. Si Escape contiene dos caracteres, el primero se considera el caracter inicial de escape, y el segundo el final.
  • Ignore nulos indica a Split() que no debe devolver elementos vacíos.
  • MantenerEscape mantiene en las cadenas devueltas los caracteres de escape encontrados.
Esta función devuelve una matriz de cadenas rellenada con las subcadenas detectadas. Los separadores y caracteres de escape no se devuelven.
Esta función devuelve una matriz de cadenas rellenada con las subcadenas detectadas. Los separadores y caracteres de escape se devuelven o no de acuerdo al valor de MantenerEscape.
Por defecto, el caracter "coma" es el separador, y no hay caracteres de escape.
Si una cadena contiene caracteres de escape, entonces estos caracteres de escape deben ser duplicados.
Separador y caracteres de escape son solo un simple byte de caracteres ASCII. No puede utilizar esta función para separar cadenas que contengan caracteres no ASCII o alguna cadena determinada. Por ejemplo: Split(MiCadena, "\r\n") dividirá Micadena utilizando "\r" o "\n" como separadores, pero no "\r\n" en conjunto como si fuera una cadena separadora.
http://gambasdoc.org/help/lang/split?es&v3



' Gambas class file


Public Sub Form_Open()
Me.Center
End

Public Sub btnSplit1_Click()
    Dim CadenaX As String[]
    Dim color As String
     TextArea2.Text = File.Load("textoSplit1")
    TextArea1.Clear
    CadenaX = Split(btnSplit1.Text, ",")
    For Each Color In CadenaX
      TextArea1.Text = TextArea1.Text & Color & "\n"
      Wait 1
    Next
End

Public Sub btnSplit2_Click()
    Dim CadenaX As String[]
    Dim palabra As String
     TextArea2.Text = File.Load("textoSplit2")
    TextArea1.Clear
    CadenaX = Split(btnSplit2.Text, " ", "()")
    For Each palabra In CadenaX
      TextArea1.Text = TextArea1.Text & palabra & "\n"
      Wait 1
    Next
End

Public Sub btnSplit3_Click()
    Dim CadenaX As String[]
    Dim IPyPuerto As String
     TextArea2.Text = File.Load("textoSplit3")
    TextArea1.Clear
    CadenaX = Split(btnSplit3.Text, "Mesa")
    IPyPuerto = CadenaX[0]
    TextArea1.Text = TextArea1.Text & IPyPuerto & "\n"
End

Public Sub btnSplit4_Click()
   Dim CadenaX, CadenaZ As String[]
   Dim a, partesX As Integer
   Dim palabras, numerosX As String
    TextArea2.Text = File.Load("textoSplit4")
    TextArea1.Clear
    CadenaX = Split(btnSplit4.Text, ",")
    partesX = CadenaX.Count
    Print partesX
    For Each palabras In CadenaX
      TextArea1.Text = TextArea1.Text & palabras & "\n"
      Wait 1
    Next
     TextArea1.Clear
     Wait 1
    For a = 0 To (partesX - 1) Step 1
      Print a
      CadenaZ = Split(CadenaX[a], "-")
      For Each numerosX In CadenaZ
         TextArea1.Text = TextArea1.Text & numerosX & "\n"
      Wait 1
      Next
    Next
End

Código fuente: Split-0.0.1.tar.gz