Foro de elhacker.net

Private Sub TextBox1_Change()
 
TextBox2.Text = 100 - Val(TextBox1.Text)
 
End Sub

Function SacaR(num1 As String, num2 As String)
Dim total As String
If num1 >= num2 Then
SacaR = num1 / num2
total = 100 - SacaR
MsgBox total
ElseIf num2 >= num1 Then
 
SacaR = num2 / num1
total = 100 - SacaR
MsgBox total
End If
End Function

Private Sub Text4_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        Text4.Text = 100 - Val(Text3.Text)
        SendKeys "{tab}"
    End If
 
    ' Ve ese convierte con la function val cualquier texto a numero)
    ' De la misma manera se puede convertir un numero a texto con la Funcion STR() qu seria la inversa a VAL() o a INT() (cabe decir que int() solo da numeros completos no decimales y es integer xp)
    If val(Text3.Text) = 0 Then ------------> aqui me da el error
        Text4.Text = 0
    Else
        If Text3.Text = "" Then
            Text4.Text = ""
        End If
    End If
End Sub
 

Function SacaR(num1 As String, num2 As String)
Dim total As String
If num1 >= num2 Then
SacaR = num1 / num2
total = 100 - SacaR
MsgBox total
ElseIf num2 >= num1 Then
 
SacaR = num2 / num1
total = 100 - SacaR
MsgBox total
End If
End Function

dim variable as long ' Si cambias el tipo de la funcion sacar de long a otro es recomendable cambiar igualmente el tipo de esta vable a la misma para evitarte errores futuros si ocurriesen.
 
Private Sub Form_Load()
variable = SacaR(10, 10)
MsgBox variable
 
variable = SacaR(val(text1.text), val(text2.text))
MsgBox variable
End Sub
 
' Fin
Function SacaR(ByVal num1 As Long, ByVal num2 As Long) As Long ' si el numero es muy grande cambia el long por double aun que no creoq ue tengas problemas con long
    Dim tmp As Long'Si hay desvordamiento o error con el tipo cambia a Double xP
    If num1 = 0 And num2 = 0 Then GoTo Error:
    If num1 >= num2 Then
        If num2 = 0 Then GoTo Error ' Esto se activa cuando hay una divición por cero
        tmp = num1 / num2
    ElseIf num2 >= num1 Then
        If num2 = 0 Then GoTo Error ' Esto se activa cuando hay una divición por cero
        tmp = num2 / num1
    Else ' no creo que esta parte se ejecute pero prevengo xP
Error:
        SacaR = -1 ' usa -1 para identificar este error, ya que una divicion siempre dara numero positivos ademas que no cumple lo que pides.
        Exit Function ' sale e ignoa el resto del codigo por debajo de esta linea pudo ser ext sub solo si fuese un proceso simple que no devuelve anda como los eventos de un boton al ser llamados y tratados de almacenar en una variable, marcara error.
    End If
    SacaR = 100 - tmp
End Function
 

dim variable as string ' Si cambias el tipo de la funcion sacar de string a otro es recomendable cambiar igualmente el tipo de esta vable a la misma para evitarte errores futuros si ocurriesen.
 
Private Sub Form_Load()
variable = SacaR(10, 10)
variable=iif (variable=-1,"",variable)
MsgBox variable
 
variable = SacaR(val(text1.text), val(text2.text))
variable=iif (variable=-1,"",variable)
MsgBox variable
End Sub
 
' Fin
Function SacaR(ByVal num1 As Long, ByVal num2 As Long) As Long ' si el numero es muy grande cambia el long por double aun que no creoq ue tengas problemas con long
    Dim tmp As Long'Si hay desvordamiento o error con el tipo cambia a Double xP
    If num1 = 0 And num2 = 0 Then GoTo Error:
    If num1 >= num2 Then
        If num2 = 0 Then GoTo Error ' Esto se activa cuando hay una divición por cero
        tmp = num1 / num2
    ElseIf num2 >= num1 Then
        If num2 = 0 Then GoTo Error ' Esto se activa cuando hay una divición por cero
        tmp = num2 / num1
    Else ' no creo que esta parte se ejecute pero prevengo xP
Error:
        SacaR = -1 ' usa -1 para identificar este error, ya que una divicion siempre dara numero positivos ademas que no cumple lo que pides.
        Exit Function ' sale e ignoa el resto del codigo por debajo de esta linea pudo ser ext sub solo si fuese un proceso simple que no devuelve anda como los eventos de un boton al ser llamados y tratados de almacenar en una variable, marcara error.
    End If
    SacaR = 100 - tmp
End Function