domingo, 20 de julio de 2014

Programar con última version de Gambas en PC obsoleto!!

Buenas Gente!!

Les traigo un notición, en este post se trata de instalar la versión mas moderna de gambas en una pc obsoleta que por lo general se tira.

Caracteristicas de PC obsoleta:

Procesardor intel 733 
Memoria ram 256
Disco 10 gigas

Sistema operativo:
 http://minino.galpon.org/ ( minino-artabros-2.0. )
http://minino.galpon.org/es/descargas


Repositorio: 
 deb http://ftp.us.debian.org/debian/ sid main


1. descargamos la iso: minino-artabros-2.0
2. la grabamos en un cd
3. configuramos el bios para arrancar del cd
4. instalamos mínimo-artabros 2.0
5. agregamos el repositorio  deb http://ftp.us.debian.org/debian/ sid main 
6. instalamos el paquete gambas3  (synaptic)
7. instalar tanteador de tenis de mesa (opcional para clubes, liceos, escuelas etc)


Destalles de instalación:
memoria durante la instalación 133 (promedio) 145 o 150 picos
memoria solo sistema recién instalado 82 megas
memoria con tanteador andando 105 megas
procesador funciona a tope por eso si en vez de 733 fuera un poco mas alto seria mejor.


Nota: para poder hacer esto tenes que tener conocimientos medios de informática, me da pereza hacer un tutorial detallado ademas de que seria bastante largo, si vos no te animas, decile algún amigo ducho en el tema o de ultima pedicelo a un técnico, espero les guste.

miércoles, 11 de junio de 2014

Autenticación





' Gambas class file

Private Llave As String
Private PrimeraLlave As Boolean

Public Sub Form_Open()
Dim RutaKey As String
Me.Center
Me.Caption = "Autenticar a Juez Árbitro"
 RutaKey = Settings["Contraseña/Llave", Null]
  If IsNull(RutaKey) Then
    LabKey.Visible = False
    txtLlave.Visible = False
    btnAutenticar.Visible = False
    btnVerKey.Visible = False
    CheckBcambiarKey.Visible = False
    PrimeraLlave = True
  Else
      Me.Height = 90
  End If
End

Public Sub btnGuardarCambios_Click()
 If PrimeraLlave = True Then
  Llave = Crypt.MD5(txtNuevaKey.Text)
  Settings["Contraseña/Llave"] = Llave
  Settings.Save
  LabKey.Visible = True
  txtLlave.Visible = True
  btnNuevaKey.Visible = True
  btnVerKey.Visible = True
  CheckBcambiarKey.Visible = True
  btnAutenticar.Visible = True
  Me.Height = 90
  PrimeraLlave = False
 Else
  Print "se cambio clave correctamente"
  Llave = Crypt.MD5(txtNuevaKey.Text)
  Settings["Contraseña/Llave"] = Llave
  Settings.Save
  Me.Height = 90
  CheckBcambiarKey.Value = False
  txtNuevaKey.Clear
  txtRepetirKey.Clear
 Endif

End

Public Sub btnVerKey_MouseDown()
  txtLlave.Password = False
End

Public Sub btnVerKey_MouseUp()
  txtLlave.Password = True
End

Public Sub btnAutenticar_Click()
 Llave = Settings["Contraseña/Llave"]
 If Crypt.Check(txtLlave.Text, Llave) = False Then
    If CheckBcambiarKey.Value = True Then
      Message.Info("Contraseña correcta!" & gb.NewLine & "ahora podra cambiar la contraseña")
      txtLlave.Clear
    Else
      Message.Info("Bienvenido Juez Árbitro")
      txtLlave.Clear
    Endif
    If CheckBcambiarKey.Value = True
      VerCambiarKey
    Endif
  Else
    Message.Error("Contraseña incorrecta intente nuevamente")
    txtLlave.Clear
    txtLlave.SetFocus
  Endif

End


Public Sub btnNuevaKey_MouseDown()
  txtNuevaKey.Password = False
End

Public Sub btnNuevaKey_MouseUp()
   txtNuevaKey.Password = True
End

Public Sub btnRepetirKey_MouseDown()
  txtRepetirKey.Password = False
End

Public Sub btnRepetirKey_MouseUp()
  txtRepetirKey.Password = True
End

Public Sub txtRepetirKey_Change()
  If txtNuevaKey.Text = txtRepetirKey.Text Then
      PBxKeyIguales.Visible = True
      btnGuardarCambios.Enabled = True
  Else
       PBxKeyIguales.Visible = False
       btnGuardarCambios.Enabled = False
  Endif
End

Public Sub VerCambiarKey()
  Me.Height = 250
  LabNuevaKey.Visible = True
  txtNuevaKey.Visible = True
  btnNuevaKey.Visible = True
  LabRepetirKey.Visible = True
  txtRepetirKey.Visible = True
  btnRepetirKey.Visible = True
 End

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


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