Mini proyecto para convertir un Numero binario en decimal programado en Visual Basic 6.0, si deseas lo inverso, es decir de Decimal a Binario aquí el tema: Proyecto: Decimal a Binario en Visual Basic 6.0 y si adicionalmente necesitas más información sobre conversión de Decimal a Binario de manera manual aquí hay tema al respecto: Convertir Decimales a Binarios de forma manual. El código fuente se basa en extraer el ultimo carácter del numero binario y multiplicarlo por 1, luego el siguiente carácter y multiplicarlo por 2, y así sucesivamente multiplicándolo por una constante x 2 (1,2,4,8,16,32), es decir, comienza en 1 y se multiplica sucesivamente por…
Este es un mini proyecto que acabo de hacer para convertir un número decimal en binario programado en Visual Basic 6.0, si quieres un articulo más completo sobre conversión de Decimal a Binario de manera manual aquí hay tema al respecto: Convertir Decimales a Binarios de forma manual. adicionalmente si lo que quieres es lo inverso, es decir, el proyecto para convertir de Binario a Decimal lo puedes encontrar aquí: Proyecto: Binario a Decimal en Visual Basic 6.0 En este ejemplo lo que se hace es obtener el Residuo del numero dividido entre 2, lo que nos puede dar un 1 o un 0,…
Esta es una pequeña aplicación 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 coordenadas 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 útil si quieres pasar datos de cualquier motos a Excel en el formato que más prefieras, o insertar datos…
Este código lo tengo hace ya muchos años, sirve para hacer un formulario con la forma de una imagen, el único requisito que se pide es que la imagen esté bordeada completamente de cualquier color y es ese color el que será transparente en el formulario :D aquí 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 código, lo bajé hace años no se de donde Archivos adjuntos [download id="961"]
A veces a los botones hay que ponerles una imagen bonita para hacerlo más llamativo o fácil de reconocer y ahí es cuando perdemos el tiempo buscando alguna que sea significativa para la acción que realiza Aquí les traigo una colección de botones típicos 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 adjuntos [download id="955"]
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 edición, grabación , 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 conectándose a un sistema de motor de base de datos Archivos adjuntos [download id="951"] [download id="953"]
Este código es super sencillo :D, solo recuerda que debe existir la referencia a la librería del ADO Option Explicit Dim WithEvents Rs As Recordset Y tu variable Rs tendrá eventos como si fuera un control pegado en el formulario, puedes hacer esto con todas las variables tipo objetos (y que tenga eventos) 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…
Hola a todos Muchos programadores usan cualquiera de estos controles para mostrar una imagen, (usualmente el que esta mas cerca del puntero mouse) pero existe una gran diferencia entre ambos Si tu intensión 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…
Con este código podrás llenar una hoja de Microsoft Excel usando un Recordset, lo que se hace es abrir el EXCEL, manipular las celdas como si fuera código VBA (Visual Basic for Aplication), es decir, como una MACRO, y luego grabarlo y cerrarlo. en el siguiente código ya asumo que tienes un Recordset con datos listos para ser pasado a la hoja de calculo. Hacer referencia a Microsoft Excel Objetc 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…
Esta función les va a servir un montón cuando tengan que hacer filtros ya sea con la propiedad filter del RecordSet o haciéndolo en consulta Solo tienen que pasarle como parámetros lo que va a buscar Ejemplo: FiltroMultiple "Juan Pérez","Nombre" Y les va a crear el Filtro así: Nombre like '%Juan%' and Nombre like '%Perez%' Private Function FiltroMultiple(strCadena As String,strCampo as String) As String Dim strFiltro As String Dim Posicion As Byte While Len(strCadena) > 0 Posicion = InStr(2, Trim(strCadena), " ") If Posicion = 0 Then FiltroMultiple = strFiltro & strCampo & " like '%" & ReemplazaComilla(Trim(strCadena)) & "%'"…