Proyecto: Binario a Decimal en Visual Basic 6.0

dfonseca5 Commentarios
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…

Filtro múltiple (like ‘%código%’ and like ‘%fuente%’)

dfonseca1 Comentario
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)) & "%'"…