Visual Basic - No se ejecuta el proyecto pero no me tampoco error

Life is soft - evento anual de software empresarial
   
Vista:

No se ejecuta el proyecto pero no me tampoco error

Publicado por Federico (1 intervención) el 12/11/2009 15:21:22
Es un conversor de numero decimal, a binario, octal o hexadecimal, baje los codigos de la web por que ni idea de visual basic, no me da ningun tipo de error pero tampoco se ejecuta, si alguien pudiera instruirme en esto rapidamente lo agradeceria

aqui les dejo los datos!

Sub Proy1()

Const NumChars = "0123456789ABCDEF"

Rem Transforma un número en decimal
Rem S = Número (cualquier base)
Rem NumBase = Número de la Base
Rem 2=Binario, 8=Octal, 10=Decimal, 16=Hexadecimal
Rem Si hay un error, retorna -1.
End Sub
Function ToDec(ByVal S As String, ByVal NumBase As Integer) As Long
Dim R As Long, I As Integer, P As Integer
R = -1
S = UCase(S)
If (NumBase = 2) Or (NumBase = 8) Or (NumBase = 10) Or (NumBase = 16) Then
R = 0
For I = 1 To Len(S)
P = InStr(NumChars, Mid(S, I, 1))
If (P = 0) Or (P > NumBase) Then
R = -1
Exit For
End If
R = R + (P - 1) * (NumBase ^ (Len(S) - I))
Next I
End If
ToDec = R
End Function

Rem Transforma un número decimal en otras bases
Rem N = Número a convertir
Rem NumBase = Número de la Base
Rem 2=Binario, 8=Octal, 10=Decimal, 16=Hexadecimal
Rem Si hay un error, retorna una cadena vacía.
Function FromDec(ByVal N As Long, ByVal NumBase As Integer) As String
Dim S As String
S = ""
If ((NumBase = 2) Or (NumBase = 8) Or (NumBase = 10) Or (NumBase = 16)) And (N >= 0) Then
Do
S = Mid(NumChars, (N Mod NumBase) + 1, 1) + S
N = Fix(N / NumBase)
Loop Until (N = 0)
End If
FromDec = S
End Function


Rem Convierte de Cualquier base a cualquier base.
Rem N = Núero a convertir
Rem fromBase = Base de origen (2, 8, 10, 16)
Rem toBase = base destino (2, 8, 10, 16)
Function Convert(ByVal N As String, ByVal fromBase As Integer, ToBase As Integer) As String
Dim Nm As Long, S As String
Nm = ToDec(N, fromBase)
If (Nm = -1) Then
S = ""
Else
S = FromDec(Nm, ToBase)
End If
Convert = S
End Function
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:No se ejecuta el proyecto pero no me tampoco er

Publicado por Rodrigo (83 intervenciones) el 12/11/2009 18:44:47
Hola, el codigo que adjuntas son las funciones posibles de tu programa, pero en ningun lado las invocas, por lo que te falta una pantalla de ingreso de datos para que te reciba los datos del usuario y haga el calculo.
El Rem son comentarios del codigo y te indican que hace cada funcion.

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:No se ejecuta el proyecto pero no me tampoco er

Publicado por juan carlos (518 intervenciones) el 13/11/2009 03:06:52
usa las funciones, invocalas
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar