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
Un interprete de basic en...
Foro: HTML, CSS, JavascriptÚltimo mensaje por: guizans, 03-02-2026, 23:34
Respuestas: 5 - Vistas: 174
El ratón no hace click do...
Foro: InstalaciónÚltimo mensaje por: guizans, 30-01-2026, 20:41
Respuestas: 2 - Vistas: 182
Parámetro de clase y pará...
Foro: GeneralÚltimo mensaje por: guizans, 30-01-2026, 20:40
Respuestas: 8 - Vistas: 361
Gmao-Factory: Aplicación ...
Foro: PythonÚltimo mensaje por: jguardon, 25-01-2026, 15:53
Respuestas: 5 - Vistas: 288
SqetchDB, un proyecto re-...
Foro: GeneralÚltimo mensaje por: guizans, 21-01-2026, 19:57
Respuestas: 8 - Vistas: 429