Peru Fans - Blogs

Problemas en visual Basic 6.0

santiagoda2002 — Mon, 11 Jul 2011 20:03:33 GMT

Saludos amigos,

Estoy trabajando con visual basic 6.0 y se me present� un problema que espero que alguno de ustedes me pueda ayudar.

El problema es el siguiente tengo un Form en el cual creo un array de checkbox, luego de crear el array el programa sigue ejecutandose pero antes de que siga ejecutandose necesito que cunpli una condicion previa por lo que hago lo siguiente.

creo un chexkbox adicional y con el estado de este deber�a seguir o no ejecutnadose el programa.

utilizo la siguiente sentencias:

do

programa............

loop until form1.checkbox1.value=1

el problema es que al momento que el programa ejecuta el lazo no me permita realizar la selecci�n del ceckbox.

Por favor si alguien sabe la soluci�n ayudeme.

Muchas Gracias

Santiago

hola

sonia_chd — Wed, 06 Jul 2011 15:51:02 GMT

Iniciado por sonia_chd

ok gracias, pero sabes yo habia creado una cuenta aqui porque queria poner un comentario en la pagina Como Busco Personas en la Reniec | Informaci�n del Per� porque queria preguntarle a esa persona como puedo buscar los datos de una persona, pero aun no puedo :(

Lista (OL, UL) de forma horizontal

Jhonnyf — Sat, 19 Feb 2011 01:59:34 GMT

Las Listas son unos TAGS del HTML que nos permiten hacer algo como esto:

Elemento 1
Elemento 2
Elemento 3

Pero a veces deseamos mostrarlo en linea, es decir, como si fueran elementos de un DIV o SPAN, uno al lado de otro... para eso a cada LI le aplicamos en siguiente el estilo 'style="display:inline;"'
C�digo HTML:
    "display:inline;">Elemento 1
    "display:inline;">Elemento 2
    "display:inline;">Elemento 3
y obtendremos lo siguiente:
C�digo:
Elemento 1  Elemento 2  Elemento 3
Lo ideal seria usar una definicion CSS para evitar repetir codigo :D
C�digo HTML:
"http://www.w3.org/1999/xhtml">

"text/html; charset=utf-8" />
</span>Documento sin t�tulo<span style="color:#000080">








"navlist">
    Elemento 1
    Elemento 2
    Elemento 3

utf8_decode, cuando en Ajax nos devuelve caracteres raros

Jhonnyf — Sat, 19 Feb 2011 01:55:06 GMT

Algunas veces cuando hacemos una p�gina HTML, al poner una palabra acentuada

El veloz murci�lago hind� com�a feliz cardillo y kiwi

Nos devuelve

El veloz murciélago hindú com�*a feliz cardillo y kiwi

Usualmente esto pasa cuando retornamos un valor usando AJAX o imprimiendo valores de una base de datos...

esto es porque el JUEGO DE CARACTERES de la pagina web, est� en ISO-8859-1 y recibimos la cadena en UTF8 (o viceversa) una forma de solucionarlo es cambiar en la cabezara del HTML
C�digo HTML:
"text/html; charset=ISO-8859-1"  />
o UTF si usamos eso
C�digo HTML:
"text/html; charset=utf-8" />
utf8_decode y utf8_encode
Hacer lo anterior puede romper nuestro codigo que ya trabaja bien :D; lo ideal en esos casos es que cuando hagamos un proceso, al momento de enviar los datos (via AJAX por ejemplo), le apliquemos un utf8_decode (si trabajamos sobre ISO-8859-1) o utf8_encode (si trabajamos sobre UTF-8)

C�digo PHP:

$variable = utf8_decode($variable);

con eso evitaremos tener esos caracteres extra�os (basura) cuando imprimanos nuestra variable

M�s Informacion: utf8_decode
M�s Informacion: utf8_encode

Script para cambiar juego de caracteres en la base de datos MySQL

Jhonnyf — Sat, 19 Feb 2011 01:46:55 GMT

Si tienes problemas con los juegos de caracteres, ya sea porque no coincidan en todas las tablas o porque el formato que usas no es que el necesitabas. tendrias que ir de tabla en tabla y editarla para que tenga el mismo formato (Juego de caracteres).

Aqui te doy un script que puede facilitar esa tarea,

Advertencia: Antes de Ejecutar el Script, es sumamente recomendable hacer un Backup

C�digo PHP:

$juegocaracteres= "latin1"; //juego de caracteres $collate = "latin1_general_ci"; //collate $nombre_base_datos = "NOMBRE"; //nombre de la base de datos a modificar $db = mysql_connect('localhost','user','password'); //datos de conexion MySQL if(!$db) echo "Error al conectar"; mysql_select_db($nombre_base_datos); //Selecionar Base de datos mysql_query('ALTER DATABASE CHARACTER SET $juegocaracteres'); //Cambiando el Juego a Nivel Base de datos $result=mysql_query('show tables'); //Obtener todas las tablas de la base de datos while($tables = mysql_fetch_array($result)) { foreach ($tables as $key => $value) { mysql_query("ALTER TABLE $value CONVERT TO CHARACTER SET $juegocaracteres COLLATE $collate"); //cambiando el juego y el collate en cada tabla } } echo "Cambio de juego de caracteres correcto a $juegocaracteres collate $collate"; //Mensaje si todo se realiz� correctamente ?>

Este Script est� configurado para cambiar a juego de caracteres latin1 usando el collase general

Impresionesweb en un Iframe para mejorar la velocidad de carga

Jhonnyf — Sat, 19 Feb 2011 01:44:22 GMT

En algunos de mis sitios web, estoy usando la web de publicidad llamada Impresionesweb, ellos te facilitan un codigo que lo debes pegar en tu sitio web para que comienze a mostrarse publicidad

el problema que se genera es que si ese codigo est� en medio de la carga de la pagina, cargar� esa publicidad (lo que demore si el servidor de publicidad est� muy ocupado) y luego continuar� cargando nuestro sitio web, si tienes un par de esos banner al inicio y luego en medio, vas a sentir que tu pagina no se carga con la velocidad que deberia hacerlo (tiene que esperar a que carge el Ad de impresiones web)

Solucion:

Impresionesweb es un sitio que no lee tu contenido ni rastrea tus post ni nada, solo muestra anuncios y ya; asi que una forma de evitar que nos demore la carga de la web, es ponerlo en un html aparte y llamarlo con un iframe, este seria el archivo HTML que lo llamaremos impresionesweb.html para un banner de 468x60
C�digo HTML:
</span><span style="color:#000080">
 
Subimos el archivo impresionesweb.html a la raiz de nuestro servidor y luego, en la ubicacion de nuestra plantilla, pagina web o donde sea, solo lo llamaremos desde un iframe con la siguiente sintaxis (recuerden que es un banner de 468x60)
C�digo HTML:
"/impresionesweb.html" width=468 height=60 frameborder="0" scrolling="no" marginheight="0" marginwidth="0"> 
y de esa manera cargar� normalmente nuestra web y luego de eso comenzar� con la carga de esos iframe por tanto ya no afectar� nuestra velocidad aunque el servidor de publicidad est� ocupado

El uso de Implode y Explode de PHP

Jhonnyf — Sat, 19 Feb 2011 01:39:09 GMT

Para los que nos gusta manejar cadenas cuando programamos, en PHP existe 2 funciones que nos permiten convertir un arreglo en cadena definiend un delimitador y viceversa

La funcion Implode:
Sintaxis: "string implode ( string $glue , array $pieces )"

Basicamente convierte cualquier Array ($pieces) dimensional en una Cadena separado por el delimitador ($glue)

ejemplo:

C�digo PHP:

$miarreglo1 = array('el','codigo','fuente'); $miarreglo2[] = 'Programacion'; $miarreglo2[] = 'en'; $miarreglo2[] = 'php'; $salida1 = implode('-',$miarreglo1); $salida2 = implode('|',$miarreglo2); echo $salida1; echo ''; echo $salida2;

El Resultado ser� 2 cadenas con lo siguiente: :
el-codigo-fuente
Programacion|en|php

M�s informacion: PHP: implode - Manual

_________________________________________________
La funcion Explode:
Sintaxis: "array explode ( string $delimiter , string $string )"
Nota: est� funcion tiene 1 parametro m�s que lo puedes ver en la web oficial
Es lo contrario al implode, devuelve un array indicandole un delimitador y la cadena a procesar

Ejemplo

C�digo PHP:

$micadena = "el|foro|de|programacion"; $miarreglo = explode ('|'$micadena);

el resultado ser� un array de 4 elementos con los indices del 0 al 3 y en cada uno es una parte de la cadena delimitado por el | ($micadena[0]=el, $micadena[0]=foro, etc...) y ya lo podemos trabajar como tal (con el foraeach por ejemplo)

M�s Informacion: PHP: explode - Manual
______________
Un uso interesante manejar los datos como arrays y cuando quieran hacer una consulta SQL con un IN () le puedes poner el implode

C�digo PHP:

$id[]=1; $id[]=2; $id[]=3; $id[]=4; $sql = 'select * from tabla where numberid in (0'.implode(',',$id).')';

PD: pongo en el in un "0" por si la cadena me da VACIO, cosa aque asi me aseguro que el IN tenga al menos un valor

Abrir Excel y manejar libros, hojas, celdas, etc (Visual Basic 6)

Jhonnyf — Sat, 19 Feb 2011 01:32:49 GMT

Esta es una peque�a aplicacion que abre una ventana de EXCEL (la que tengas instalado en tu PC) con la puedes agregar un Libro (nuevo documento), agregar una Hoja a ese libro y agregar datos al mismo usando las coodenadas de Excel (Fila x Columna)

PD: Solo recuerda que debes abrir primero el Excel, luego agregar el libro y finalmente la hoja (si deseas, ya que el libro viene con 3 hojas iniciales) para comenzar a insertar datos.

Esto es muy util si quieres pasar datos de cualquier motos a Excel en el formato que m�s prefieras, o insertar datos y mostrar un Grafico

Archivos Adjuntados

Formulario de cualquier forma (Presentaciones, Splash, Acerca de)

Jhonnyf — Sat, 19 Feb 2011 01:29:50 GMT

Este Codigo lo tengo hace ya muchos a�os, sirve para hacer un formulario con la forma de una imagen, el unico requisito que se pide es que la imagen est� bordeada complemetamente de cualquier color y es ese color el que ser� transparente en el formulario :D

aqui una imagen para que se hagan una idea

Yo lo usaba para mis presentaciones de Splash, o en un Acerca de..., queda bastante bien

PD: no es mi codigo, lo baj� hace a�os no se de donde

Archivos Adjuntados

Ejemplo de Manejo de Sockets (Crear un mini troyano)

Jhonnyf — Sat, 19 Feb 2011 01:26:18 GMT

Este es un ejemplo del manejo de la libreria WINSOCK para comunicarnos atravez de TCPIP con un puerto Socket

Puedes probar las 2 aplicaciones abriendo en una misma PC los 2 proyectos y conectandote o en RED poniendo el IP de la otra PC

Actualmente si lo quieres probar con un amigo que est� detras de tu Router (otra conexion a Internet) tendr�s que pedirle que abra y redireciones los puertos Sockets a su PC (por el tema que ahora las PC no tiene IP Publica, sino su router e internamente se manejan las IPs)

Archivos Adjuntados

Botones para Proyectos de Base de datos (Visual Basic 6.0)

Jhonnyf — Sat, 19 Feb 2011 01:22:20 GMT

A veces a los botones hay que ponerles una imagen bonita para hacerlo m�s llamativo o facil de reconocer y ah� es cuando perdemos el tiempo buscando alguna que sea significativa para la accion que realiza

Aqui les traigo una coleccion de botones tipicos para usarlos cuando manejes datos desde un motor de base de datos :D

Est�n en un proyecto en Visual Basic 6.0 listo para abrir y copiar

Archivos Adjuntados

Ejemplo de uso de ADO y DAO en Visual Basic

Jhonnyf — Sat, 19 Feb 2011 01:17:45 GMT

Este es un Ejemplo de Uso de ADO y DAO en Visual Basic 6.0 con Clases del tipo Recordset. Hace las operaciones B�sicas de Edicion, Grabacion Nuevo sobre una base de Datos hecha en Access 2000 (db.Provider = "Microsoft.Jet.OLEDB.4.0")

Con esto puedes aprender lo b�sico para el manejo de datos conectandose a un sistema de motor de base de datos

Archivos Adjuntados

Crear Variables con Eventos (por Ejemplo un RecordSet)

Jhonnyf — Sat, 19 Feb 2011 01:13:25 GMT

Este codigo es super sencillo :D, solo recuerda que debe existir la referencia a la Libreria del ADO
C�digo:
Option Explicit
Dim WithEvents Rs As Recordset
Y tu variable Rs tendra Eventos como si fuera un control pegado en el formulario, puedes hacer esto con todas las varibles tipo objetos (y que tenga eventos)

C�digo PHP:

Private Sub rs_EndOfRecordset(fMoreData As Boolean, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) End Sub Private Sub rs_FetchComplete(ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) End Sub Private Sub rs_FetchProgress(ByVal Progress As Long, ByVal MaxProgress As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) End Sub Private Sub rs_FieldChangeComplete(ByVal cFields As Long, ByVal Fields As Variant, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) End Sub Private Sub rs_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) End Sub Private Sub rs_RecordChangeComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal cRecords As Long, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) End Sub Private Sub rs_RecordsetChangeComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) End Sub Private Sub rs_WillChangeField(ByVal cFields As Long, ByVal Fields As Variant, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) End Sub Private Sub rs_WillChangeRecord(ByVal adReason As ADODB.EventReasonEnum, ByVal cRecords As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) End Sub Private Sub rs_WillChangeRecordset(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) End Sub Private Sub rs_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) End Sub

Incluso puedes crear una Clase que tenga Eventos (usando RaiseEvent) y declararlo de esa manera para poder usarlos

Saludos

PictureBox vs Image en Visual Basic 6.0

Jhonnyf — Sat, 19 Feb 2011 01:07:38 GMT

Hola a todos

Muchos programadores usan cualquiera de estos controles para mostrar una imagen, (usualemente el que esta mas cerca del puntero mouse) pero existe una gran diferencia entre ambos

Si tu Intension es solo mostrar una Imagen y nada mas, usa el control Imagen que es muy ligero, no tiene muchos eventos y para eso fue creado, para mostrar imagen, incluso tiene una propiedad que no tiene el PictureBox, la de Stretch que es obligar a la imagen a tener el tama�o de nuestro control

El PictureBox es un contenedor (como el Frame) y es m�s para dibujar que para mostrar, tiene metodos de dibujo, creacion de lineas, circulos, etc, e incluso un metodo para guardar lo que haz hecho en un archivo bmp.

Ahora que sabes la diferencia usa el que creas conveniente

Llamar a Excel y llenarlo con datos de un RecordSet

Jhonnyf — Sat, 19 Feb 2011 00:59:19 GMT

Hacer Referencia a Microsoft Excel Objetc

C�digo PHP:

Private Sub LlenaExcel() Dim prgExcel As Excel.Application Set prgExcel = New Application prgExcel.Workbooks.Add prgExcel.Sheets(1).Name = "Prueba" Dim i As Integer Dim j As Integer j = 1 Do While Not Rs.EOF For i = 0 To Rs.Fields.Count - 1 prgExcel.Cells(j + 1, i + 1) = Rs.Fields(i).Value Next Rs.MoveNext j = j + 1 Loop For i = 1 To Rs.Fields.Count prgExcel.Cells(1, i) = Rs.Fields(i - 1).Name prgExcel.Cells(1, i).EntireColumn.AutoFit Next prgExcel.Cells(1, 1).Select prgExcel.Selection.EntireRow.Insert prgExcel.Visible = True Rs.MoveFirst 'prgExcel.Quit End Sub

Cuando haces la Referencia puedes encontrar lo Siguiente
Microsoft 8.00 Excel Objetc
Microsoft 11.00 Excel Objetc

Eso es segun la version que tienes Instalado en tu PC

Ahora que si no quieres Hacer Referencias, puedes Crear el Objeto con el CreateObject, pero cuando codifique al poner el "." no te va a mostrar sus propiedades

C�digo PHP:

Dim prgExcel as variant Private Sub LlenaExcel() Set prgExcel = CreateObject("Excel.Application") prgExcel.Workbooks.Add prgExcel.Sheets(1).Name = "Prueba" .............. .............. end sub

En lo personal yo hago referencia al Objeto, hago el programa, luego le quito la referencia y creo el Objeto con CreateObject