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.

Instalar Gambas 3.5.4 en Qiana

Instalar Gambas 3.5.4 en Qiana (Linux mint 17)

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

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 :