PROGRAMACION EN GAMBAS

Off Topic: Conficker se esta comiendo a windows 7

jjmoncar — Thu, 24 Sep 2009 21:43:46 +0000

El director del Conficker Working Group admite que el gusano representa una “amenaza masiva” para Internet.

Los expertos en seguridad admiten que el gusano les desconcierta. Conficker ha infectado a más de cinco millones de ordenadores creando un botnet que es lo suficientemente potente como para bloquear la red de Austria, según hemos podido leer en el Sydney Morning Herald.

Rodney Joffe, director del Conficker Working Group,c erado para acabar con el gusano, afirma que el consenso general en el mundo de la seguridad es que Conficker es la mayor amenaza a la que nos enfrentamos desde un punto de vista del cibercrimen. “Se ha probado que es extremadamente resistentes, que es casi imposible de eliminar”, afirma Jofee

El gusano surgió el pasado mes de noviembre, cuando se expandió rápidamente entre los Pcs explotando un fallo en Microsoft Windows.

Los ordenadores infectados son arrastrados a una red de botnes controlados por los autores del gusano Conficker, y por eso los investigadores de seguridad temen que pudieran utilizar ese botnet para lanzar ataques a través de Internet.
Confiquer cuenta con mecanismos para impedir que el usuario que explore sus ordenadores con programas antivirus lo detecte. El gusano se extiende sin conocimiento del usuario y no haga otra cosa más que encender su ordenador.

De forma que según los investigadores si un administrador de red puede desinfectar 99 máquinas de una red de cien y sólo una queda infectada, ésta logrará infectar al resto de nuevo.

Y aun asi, hay empresas, instituciones publicas y personas que afirman que windos y toda su generacion, es lo mejor de lo mejor…

fuente: http://www.itespresso.es/es/news/2009/09/23/conficker-confunde-a-los-expertos-en-seguridad

Insertar Imagen con PictureBox

jjmoncar — Sat, 22 Aug 2009 20:48:37 +0000

Luego de una larga ausencia, lo prometido es deuda. He vuelto… y en esta oportunidad les traigo algo que siempre me preguntan. ¿como hago para insertar una imagen en un PictureBox sin hacerlo por las propiedades del Proyecto?. Bueno, realmente es muy fácil. Solo deben crear un proyecto nuevo, que para efectos prácticos quede mas o menos asi:

y el código para que cargue la imagen seria el siguiente:

PUBLIC SUB BtnCerrar_Click()

ME.Close

END

PUBLIC SUB BtnCargar_Click()
DIM Himagen AS String

Himagen = User.Home & “/proyectosgambas/fotoBD/fotos/dsc00447.jpg”
CajaFoto.Picture = Picture[Himagen]

END

si quieres que salga un dialog para que puedas seleccionar la imagen que tu quieras, debes hacer algunas modificaciones que incluyen agregar el siguiente codigo, y ajustarlo al ya existente.

Dim Ruta as String (declaras una variable tipo string)
Dialog.OpenFile (esto te abre el navegador para que selecciones tu imagen)
Ruta=Dialog.Path (almacena en la variable la ruta y archivo seleccionado en el navegador)
picturebox.picture=Picture[Ruta] (coloca en el objeto picturebox la imagen que seleccionaste)

Ahora si lo quieres desde una base de datos…. bueno eso te lo dejo a tu inmaginacion, ya con esto tienes las herramientas necesarias para hacerlo… que les sea de provecho.

5to. Congreso Nacional de Software Libre 2009

jjmoncar — Thu, 12 Mar 2009 14:35:16 +0000

El Quinto Congreso Nacional de Software Libre (Venezuela 2009) es una serie ordenada de eventos que se iniciarán en abril y culminarán en julio de 2009. entre uno de sus principales objetivos se encuentra el de concentrar a una selección importante de expertos nacionales e internacionales en el uso de GNU/Linux y el Software Libre en un ciclo de ponencias y demostraciones, ofreciendo a todos los participante una muestra integral del Software Libre y el Sistema Operativo GNU/Linux, su implementación, características y posibilidades. Con el V CNSL se prepara el terreno y se impulsa la formación de proyectos locales y nacionales de Software Libre, contando con comunidades de expertos, desarrolladores y usuarios que desean intercambiar conocimiento y a la vez destacando el talento local y trayectoria de investigación o desarrollo de nuestros profesionales en cada uno de los estados visitados.

El CNSL busca promocionar el talento venezolano. En cada una de las regiones y sedes visitadas buscamos los talentos que tengan algo que decir, que muestren sus conocimientos y se den a conocer. Así colaboraremos con los procesos de Migración a Software Libre en el sector Público y Privado, promoviendo a todos los profesionales, llamándolos para que las empresas e instituciones locales consigan en ellos, muy seguramente, las personas capacitadas en el área de Software Libre para los procesos de administración y desarrollo de sistemas.

En esta oportunidad, el Quinto Congreso tendrá por primera vez como una de sus sedes a la Ciudad de Carúpano, Estado Sucre. El evento se realizará el 01 y 02 de Mayo del presente año, de 8:00 a.m. a 6:00 p.m. en el I.U.T “Jacinto Navarro Vallenilla”. Estan todos cordialmente invitados a participar en este importante evento.

Para mayor información pueden visitar los siguientes links:

http://www.cnsl.org.ve/tiki-index.php

http://www.cnsl.org.ve/tiki-index.php?page=Carupano

http://grulica.wordpress.com/ (Grupo de Usuario de Linux de Carúpano)

CARGA DE DATA DE DOS COMBOBOX

jjmoncar — Fri, 06 Feb 2009 01:04:12 +0000

A continuacion les coloco el codigo y el formulario de como cargar dos combobox con la data contenida en una BD.

Imagen del formulario en vista de diseño

El codigo de este formulario es el siguiente:

PUBLIC Atencion AS Boolean

PUBLIC SUB Form_Open()

ME.Center()
LlenarCombo()
LaFecha()

END

PUBLIC SUB LaFecha()

DIM FechaActual AS Variant

FechaActual = Date(Day(Now) & “/” & Month(Now) & “/” & Year(Now))
Label9.Text = FechaActual

END

PUBLIC SUB LlenarCombo()

DIM query AS String
DIM resultado AS Result
DIM captura AS Integer
DIM i AS Integer

ModConexion.rs1 = ModConexion.db.Exec(“select codigo FROM laboratorio.datoslab”)
ModConexion.rs1.MoveFirst
captura = ModConexion.rs1.Count
i = 1
WHILE i <= captura
ComboBox1.Add(ModConexion.rs1!codigo)
ComboBox1.Refresh()
ModConexion.rs1.MoveNext
DEC (captura)
WEND
END

PUBLIC SUB Button4_Click()

ME.Close()

END

PUBLIC SUB ValidarVacios()

IF ComboBox1.Text = “” OR ComboBox2.Text = “” OR TextBox1.Text = “” OR TextBox2.Text = “” OR TextEdit1.Text = “” THEN
Message.Error(“Existen casillas vacias\n asegurese de llenarlas todas”)
Atencion = FALSE
TextBox1.Clear()
TextBox2.Clear()
TextEdit1.Clear()
ELSE
Atencion = TRUE
ENDIF

END

PUBLIC SUB ComboBox1_Change()

DIM Respuesta AS String
DIM query AS String
DIM resultado AS Result
DIM captura AS Integer
DIM i AS Integer

ComboBox2.Clear()
TextBox1.Clear()
TextBox2.Clear()

Respuesta = Trim(ComboBox1.Text)

query = “select * from laboratorio.datosequipo where codigo =’” & Respuesta & “‘”
ModConexion.consulta(query)

resultado = db.Exec(query)
ModConexion.rs1.MoveFirst
captura = ModConexion.rs1.Count
i = 1

WHILE i <= captura
ComboBox2.Add(ModConexion.rs1!codequipo)
ComboBox2.Refresh()
ModConexion.rs1.MoveNext
DEC (captura)
WEND

END

PUBLIC SUB ComboBox2_Change()

DIM Respuesta AS String
DIM query AS String
DIM resultado AS Result

Respuesta = Trim(ComboBox2.Text)

query = “select * from laboratorio.datosequipo where codequipo =’” & Respuesta & “‘”
ModConexion.consulta(query)

resultado = db.Exec(query)

IF resultado.Count > 0 THEN
TextBox1.Text = ModConexion.rs1!marca
TextBox2.Text = ModConexion.rs1!modelo

END IF

END

PUBLIC SUB Button1_Click()

DIM query AS String

ValidarVacios()
IF Atencion = TRUE THEN
query = “INSERT INTO laboratorio.mantenimiento set codlab=’” & UCase(comboBox1.Text) & “‘, fecha=’” & Trim(Label9.Text) & “‘, codequipo=’” & UCase(ComboBox2.Text) & “‘, marca=’” & UCase(TextBox1.Text) & “‘, modelo=’” & UCase(textbox2.text) & “‘, falla=’” & UCase(Trim(TextEdit1.text)) & “‘, entregado=’” & UCase(TextBox3.Text) & “‘, dpto=’” & UCase(ComboBox3.Text) & “‘”
ModConexion.consulta(query)
IF ModConexion.conexion() THEN
message.Info(“Los dato se insertaron satisfactoriamente”)
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextEdit1.Clear()
ComboBox2.Clear()

ELSE
message.Error(“Los datos no se pudieron insertar”)
ENDIF
ENDIF

END

PUBLIC SUB Button2_Click()

END

Workespace. Corregido el link.

jjmoncar — Tue, 06 Jan 2009 14:51:41 +0000

buenos dias.

la presente es para comunicarle a toda la comunidad de usuarios y programadores gambas, que el link para descargar el ejemplo del uso del objeto workespace ha sido corregido y el mismo se encuentra activo desde este momento. Agradezco me disculpen por las molestias ocasionadas.

saludos.

jjmoncar

Uso del Objeto Workspace

jjmoncar — Mon, 22 Dec 2008 21:06:34 +0000

El objeto Workspace es muy parecido a lo que usaban VisualBasic se llama formularios MDI. La ventaja del uso de este objeto es que nos permite colocar formularios dentro de formularios, es decir, que en un mismo formulario principal podemos llamar a otros sin necesidad de recordar de cerrar todos los formularios que por alli queden abiertos. Pueden descargar un ejemplo del uso de este control, aqui.

PD: Deben activar el componente gb.form.mdi que se encuentra en:Proyecto -> Propiedades, y escojer la pestaña componentes.

Uso de los Controles Data (databrowser, datasource, etc)

jjmoncar — Mon, 22 Dec 2008 12:56:59 +0000

A peticion de la audiencia, y despues de bastante tiempo sin colocar entradas en el blog, les traigo algo que por lo menos a mi me tenia de cabeza… ¿como se utilizan los controles data de Gambas?. Pues bien, despues de varios intentos fallidos, preguntas en foros en ingles, revisar la ayuda de gambas, etc, realice un ejemplo sobre el uso basico de estos controles. Debo confesar que prefiero el metodo antiguo, se tiene mas control de los procesos. Aqui les dejo la aplicacion.

Ejemplo de aplicacion con Reportes

jjmoncar — Sun, 21 Sep 2008 23:56:54 +0000

A continuacion coloco un ejemplo un poco mas completo de como generar reportes con html. El sistema ademas incorpora algunos topicos importantes cuando diseñamos sistemas tales como: validacion de usuarios y contraseñas, carga de una data en un control (por ejemplo, un combobox), reportes con boton de impresión, etc.

Espero les sea de utilidad. El link para descargar, aqui.

Gambas 2.8.2. Cada dia mas cerca la V. 3.0!!!

jjmoncar — Sat, 13 Sep 2008 01:32:30 +0000

Pues si, desde el pasado 30 de agosto fue lanzada la version 2.8.2 de Gambas. Basicamente el entorno sigue siendo el mismo, pero se han corregido bugs y ampliado la documentacion sobre el lenguaje, especialmente al idioma chino.

Para ver las nuevas caracteristicas de esta version presione aqui.

para descargar Gambas 2.8.2, presione aqui.

Uso de Clases en Gambas

jjmoncar — Sat, 13 Sep 2008 01:26:28 +0000

Como ya sabemos Gambas es un lenguaje de programacion orientada a objetos. Pero realmente como utilizar o poner en practica esos conceptos de herencia, clases, polimorfismo, etc. Pues bien, aqui les coloco un ejmplo que se encuentra en el Libro GAMBAS “Programación Visual con Software Libre”, el cual he mejorado un poco para su entendimiento. Para descargarlo pulse aqui.

Nota: Es un programa de consola, pero el ejemplo es valido para ser aplicado en proyectos con interfaz grafica.