Shell 23-07-2023, 23:36
Buenas!.
Si quiero convertir un número de binario a decimal, puedo hacerlo de esta forma:
El problema que me encontraba es que quería usar los operadores lógicos con números binarios. Ejemplo:
Me tuve que apoyar en la función val. Convertir una cadena a número. Realizar un AND de dos números decimales y el resultado convertirlo a binario
En este caso solo necesité obtener cuatro dígitos.
Resultado:
Saludos
Si quiero convertir un número de binario a decimal, puedo hacerlo de esta forma:
Código:
'Binario -> Decimal
'Eso no es una cadena
Print &X11
'Nos devolvería 3El problema que me encontraba es que quería usar los operadores lógicos con números binarios. Ejemplo:
Código:
Public Sub Ejemplo2()
Print OperaAND("0011", "0110")
Print
Print OperaOR("0011", "0110")
EndMe tuve que apoyar en la función val. Convertir una cadena a número. Realizar un AND de dos números decimales y el resultado convertirlo a binario
En este caso solo necesité obtener cuatro dígitos.
Código:
''Realiza un AND de dos números binarios
Public Function OperaAND(numero1 As String, numero2 As String) As String
Return Subst("&1 AND &2 = &3", numero1, numero2, Bin(Val("&X" & numero1) And Val("&X" & numero2), 4))
End
''Realiza un OR de dos números binarios
Public Function OperaOR(numero1 As String, numero2 As String) As String
Return Subst("&1 OR &2 = &3", numero1, numero2, Bin(Val("&X" & numero1) Or Val("&X" & numero2), 4))
EndResultado:
Cita:
0011 AND 0110 = 0010
0011 OR 0110 = 0111
Saludos
tercoide 21-07-2023, 16:22
LPM
Ayer se corto la energia y mi All-In-One Acer no arranca. Lleva un trafo como las laptop, pero segun el tecnico esta OK. Es posible que el micro se rompa de esa manera? no deberia haber fusible o algo intermedio????
Ayer se corto la energia y mi All-In-One Acer no arranca. Lleva un trafo como las laptop, pero segun el tecnico esta OK. Es posible que el micro se rompa de esa manera? no deberia haber fusible o algo intermedio????
Diferencias entre OPEN/READ y FILE.LOAD
Grandamakulo 21-07-2023, 12:28
Hola, compañeros:
¿Qué diferencias hay entre estos dos códigos? ¿Hay diferencias de rendimiento, memoria velocidad...? He hecho varias pruebas y no logro ver diferencias. ¿Qué forma es la más recomendable?
¿Qué diferencias hay entre estos dos códigos? ¿Hay diferencias de rendimiento, memoria velocidad...? He hecho varias pruebas y no logro ver diferencias. ¿Qué forma es la más recomendable?
Código:
Dim este As File
Dim linea As New String[]
Dim sPaso As String
este = Open Application.Path &/ "Personajes.csv" For Read
Read #este, sPaso, Lof(este)
linea = Split(sPaso, gb.Lf)Código:
Dim este As File
Dim linea As New String[]
Dim sPaso As String
sPaso = File.Load(Application.Path &/ "Personajes.csv")
linea = Split(sPaso, gb.Lf)
Bienvenido, Invitado
Últimos temas
Lanzador de máquinas virt...
Foro: Aplicaciones/Fragmentos de CódigoÚltimo mensaje por: tincho, Ayer, 11:21
Respuestas: 2 - Vistas: 164
¿Cual es la mejor IA para...
Foro: Aplicaciones/Fragmentos de CódigoÚltimo mensaje por: jguardon, 31-07-2026, 20:00
Respuestas: 3 - Vistas: 264
Programando con la IA
Foro: GeneralÚltimo mensaje por: seta43, 30-07-2026, 12:20
Respuestas: 12 - Vistas: 7,636
GauchoCAD vuelve a las pi...
Foro: Aplicaciones/Fragmentos de CódigoÚltimo mensaje por: tincho, 27-07-2026, 14:15
Respuestas: 15 - Vistas: 20,857
Meter en un grupo a contr...
Foro: Aplicaciones/Fragmentos de CódigoÚltimo mensaje por: tincho, 27-07-2026, 11:27
Respuestas: 3 - Vistas: 244