akynnus
03 de Mayo del 2004

no tengo ni idea... tengo q hacer una hoja de calculo donde el ususario me pueda introducir dos números en la base n q escoja él mismo (máx. 10 digitos) y q pueda realizar las operaciones básicas (+,-,*,/) entre ellos. tiene q expresar el resultado en la base deseada y en base10. la base deseada no puede ser mayor q 9. para operar los numeros introducidos tengo q pasarlos a base10 y no se como hacerlo. y luego, el resultado pasarlo otra vez a base n... AYUDA POR FAVOR!!!

japerlas13
03 de Mayo del 2004

Este ejemplo es para pasar de 10 a 2(sirve para todas las bases

Option Explicit
Dim PrimerNumero As Integer
Dim Base As Integer
Dim Resto1 As Integer
Dim Resto2 As Integer
Dim Cociente As Integer
Sub Cambiar102(Cociente)
For Cociente = Cociente to 0
Cociente = PrimerNumero Base
Resto1 = PrimerNumero Mod Base
Cociente = Cociente Base
Resto2 = Cociente Mod Base
Next
End Sub

Para llamar el procedimiento debes hacer

Call Cambiar 102(Numero que querés)

Tenés que hacer tantos restos como necesites

japerlas13
03 de Mayo del 2004

Para hacer las sumas ydemás operaciones tenés que poner

Resultado = Val(txtSumando1.text) + Val(txtSumando2.text)