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
Convertir formatos de aud...
Foro: Aplicaciones/Fragmentos de CódigoÚltimo mensaje por: guizans, Ayer, 17:37
Respuestas: 2 - Vistas: 91
Paren...WAIT !!!
Foro: Aplicaciones/Fragmentos de CódigoÚltimo mensaje por: guizans, 25-08-2025, 14:49
Respuestas: 3 - Vistas: 442
Gambas y Wayland
Foro: GeneralÚltimo mensaje por: guizans, 20-08-2025, 13:56
Respuestas: 6 - Vistas: 580
Odio a gb.Report
Foro: GeneralÚltimo mensaje por: guizans, 19-08-2025, 10:40
Respuestas: 8 - Vistas: 935