elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Los 10 CVE más críticos (peligrosos) de 2020


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  duda con calculo
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: 1 [2] 3 Ir Abajo Respuesta Imprimir
Autor Tema: duda con calculo  (Leído 6,577 veces)
::: Devil :::


Desconectado Desconectado

Mensajes: 449


¡Lucha por lo que quieres y lo Obtendras!


Ver Perfil
Re: duda con calculo
« Respuesta #10 en: 16 Diciembre 2008, 16:26 pm »

seguimos con el peo del libro jejeje estoy preguntando por que e leido y no consigo como hacer ese calculo por eso pregunto aqui por que me han sacado de duda varias veces y ya han dicho leete un libro 20 veces yo creo que no es necesario que repitan post innecesarios y disculpa si te ofendes.


En línea

NI TU NI NADIEN PORDRAN CONMIGO SOY MAS FUERTE QUE LA ENVIDIA.

ESTO ESTA DEDICADO A LOS QUE ME JODEN LA VIDA
& eDu &


Desconectado Desconectado

Mensajes: 580



Ver Perfil
Re: duda con calculo
« Respuesta #11 en: 16 Diciembre 2008, 16:27 pm »

Haber, escribe tu duda aqui ahora.


En línea

Novlucker
Ninja y
Colaborador
***
Desconectado Desconectado

Mensajes: 10.683

Yo que tu lo pienso dos veces


Ver Perfil
Re: duda con calculo
« Respuesta #12 en: 16 Diciembre 2008, 16:29 pm »

Bueno, creo que no es necesario entrar en una discusión de si debes de buscar o no en un libro, pero creo que lo que ocurre es que a nadie le entra en la cabeza (me incluyo) que sabiendo programar como dices hagas ese tipo de preguntas, están en las primeras páginas de un libro de VB básico :-X

Saludos
En línea

Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD
"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein
::: Devil :::


Desconectado Desconectado

Mensajes: 449


¡Lucha por lo que quieres y lo Obtendras!


Ver Perfil
Re: duda con calculo
« Respuesta #13 en: 16 Diciembre 2008, 16:36 pm »

bueno brother si no tienes nada que opinar no opinas o si no vas a ayudar si sabes que esta en los promeros libros por que no lo pones entonces vas a colocar post innecesarios
En línea

NI TU NI NADIEN PORDRAN CONMIGO SOY MAS FUERTE QUE LA ENVIDIA.

ESTO ESTA DEDICADO A LOS QUE ME JODEN LA VIDA
& eDu &


Desconectado Desconectado

Mensajes: 580



Ver Perfil
Re: duda con calculo
« Respuesta #14 en: 16 Diciembre 2008, 16:37 pm »

Te escribí que postees tu duda ahora... segun dices hace 1 post aun no la has resuelto.
En línea

::: Devil :::


Desconectado Desconectado

Mensajes: 449


¡Lucha por lo que quieres y lo Obtendras!


Ver Perfil
Re: duda con calculo
« Respuesta #15 en: 17 Diciembre 2008, 13:41 pm »

bueno ve mi problema esta aqui

Private Sub Text44_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text44.Text = 100 - Val(Text43.Text)
SendKeys "{tab}"
End If
If Text43.Text = 0 Then
Text44.Text = 0
End If
End Sub

aqui en este pedaso dice que el valor de text44 va a ser igual a 100 cuando se introduzcan datos mayor a 0 verdad

pero si no se introducen datos es decir el textbox quedaria en blanco que tendria que agregar e tratado con esto y no me da

if text43.text = "" then
text44.text = ""
end if

mi problema no esta el metodo empleado si no en como yo haria para que cuando este en blanco el textbox no marque 100 en el otro textbox cuando no ingrese datos

lo hice asi y tampoco me furula

Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text4.Text = 100 - Val(Text3.Text)
SendKeys "{tab}"
End If
If 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

type mysmath es el error
« Última modificación: 17 Diciembre 2008, 15:52 pm por ::: Devil ::: » En línea

NI TU NI NADIEN PORDRAN CONMIGO SOY MAS FUERTE QUE LA ENVIDIA.

ESTO ESTA DEDICADO A LOS QUE ME JODEN LA VIDA
BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.158


I'Love...!¡.


Ver Perfil WWW
Re: duda con calculo
« Respuesta #16 en: 17 Diciembre 2008, 18:00 pm »

una písta que te resolvera la vida xD

dim texto as string   es lo mismo que   un campo de texto es decir un textbox
dim numero as integer (long, double, byte, u otro qu sea reprentativo de un numero) seráidentico a val(texto) o en un campo de texto es decir un textbox [val(textbox.text)]

es codigo para fixear ese error seria:

Código
  1. Private Sub Text4_KeyPress(KeyAscii As Integer)
  2.    If KeyAscii = 13 Then
  3.        Text4.Text = 100 - Val(Text3.Text)
  4.        SendKeys "{tab}"
  5.    End If
  6.  
  7.    ' Ve ese convierte con la function val cualquier texto a numero)
  8.    ' 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)
  9.    If val(Text3.Text) = 0 Then ------------> aqui me da el error
  10.        Text4.Text = 0
  11.    Else
  12.        If Text3.Text = "" Then
  13.            Text4.Text = ""
  14.        End If
  15.    End If
  16. End Sub
  17.  

Este es el codigo un tanto optimisado de la pagina anterior que posteo
Código
  1. Function SacaR(num1 As String, num2 As String)
  2. Dim total As String
  3. If num1 >= num2 Then
  4. SacaR = num1 / num2
  5. total = 100 - SacaR
  6. MsgBox total
  7. ElseIf num2 >= num1 Then
  8.  
  9. SacaR = num2 / num1
  10. total = 100 - SacaR
  11. MsgBox total
  12. End If
  13. End Function

Te sirve?
Me ABURRÍA y me comí la cabeza x'dd

El arreglado, y ojala te sirva ¬¬!

Código
  1. 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.
  2.  
  3. Private Sub Form_Load()
  4. variable = SacaR(10, 10)
  5. MsgBox variable
  6.  
  7. variable = SacaR(val(text1.text), val(text2.text))
  8. MsgBox variable
  9. End Sub
  10.  
  11. ' Fin
  12. 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
  13.    Dim tmp As Long'Si hay desvordamiento o error con el tipo cambia a Double xP
  14.    If num1 = 0 And num2 = 0 Then GoTo Error:
  15.    If num1 >= num2 Then
  16.        If num2 = 0 Then GoTo Error ' Esto se activa cuando hay una divición por cero
  17.        tmp = num1 / num2
  18.    ElseIf num2 >= num1 Then
  19.        If num2 = 0 Then GoTo Error ' Esto se activa cuando hay una divición por cero
  20.        tmp = num2 / num1
  21.    Else ' no creo que esta parte se ejecute pero prevengo xP
  22. Error:
  23.        SacaR = -1 ' usa -1 para identificar este error, ya que una divicion siempre dara numero positivos ademas que no cumple lo que pides.
  24.        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.
  25.    End If
  26.    SacaR = 100 - tmp
  27. End Function
  28.  
« Última modificación: 17 Diciembre 2008, 18:20 pm por ░▒▓BlackZeroҖ▓▒░ » En línea

The Dark Shadow is my passion.
::: Devil :::


Desconectado Desconectado

Mensajes: 449


¡Lucha por lo que quieres y lo Obtendras!


Ver Perfil
Re: duda con calculo
« Respuesta #17 en: 17 Diciembre 2008, 18:42 pm »

vamos por parte me distes el codigo y una pregunta cuando los cambos quedan vacios no me va a dar resultado

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

por que aqui me estas diciendo que cuando num 1 y num 2 sean iguales a 0

y cuando num 1 y num2 sean mayores

y cuando el campo quede vacio por eso lo explique arriba

mi unico jodido problema esta en que cuando quiero dejar los campos en blanco igual me sigue saliendo el resultado 100 y no quiero que salga quiero que se quede en blanco tambien me entiendes o si no me avisas y te lo explico mejor
« Última modificación: 17 Diciembre 2008, 18:45 pm por ::: Devil ::: » En línea

NI TU NI NADIEN PORDRAN CONMIGO SOY MAS FUERTE QUE LA ENVIDIA.

ESTO ESTA DEDICADO A LOS QUE ME JODEN LA VIDA
::: Devil :::


Desconectado Desconectado

Mensajes: 449


¡Lucha por lo que quieres y lo Obtendras!


Ver Perfil
Re: duda con calculo
« Respuesta #18 en: 17 Diciembre 2008, 19:05 pm »

ya lo arregle jejeje

Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text4.Text = 100 - Val(Text3.Text)
SendKeys "{tab}"
End If
If Text3.Text = "0" Then
Text4.Text = "0"
End If
If Text3.Text = "" Then
Text4.Text = ""
End If
End Sub

con solo colocar los 0 en comillas se me arreglo el problema
En línea

NI TU NI NADIEN PORDRAN CONMIGO SOY MAS FUERTE QUE LA ENVIDIA.

ESTO ESTA DEDICADO A LOS QUE ME JODEN LA VIDA
BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.158


I'Love...!¡.


Ver Perfil WWW
Re: duda con calculo
« Respuesta #19 en: 17 Diciembre 2008, 19:41 pm »

juega con el codigo esta perfecto si uso val(text1.text)  y que text1.text no tenga nada y como val devuelve el numero actual etonces devolvera 0 entiendes el concepto? ahora el uso de

text1.text="0" es tonto si se usa para comparar numeros  si mas en cambio
val(text1.text)=0  es correcto ya que se comparan los mismos tipos numero a numero y NO numero Texto ¬¬" mmm bueno ahora sigamos que text1.text tiene lo siguiente

12asda

esa convinacion de numeros y letras si deseas hacer alguna operación con esto si se puedo pero lo tendras que convertir a numero mmm mejor dicho extraer el valor usando val

lo cual devolveria 12 e ignorara asda

usar val es algo indispensable para hacer operacion entre valores numericos y evitar errores por lo cual mi codigo de arriba estan correctos ojala los probaras y jugaras con tu propia logica contra la mia y la de muchos que han de pensar lo mismo je.

Nota: nunca jusgues, nunca te sueltes, nunca camines con la luz apagada podrias tropesar al andar.


Usa el -1 para o que pides Xao aca te lo dejo...
Código
  1. 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.
  2.  
  3. Private Sub Form_Load()
  4. variable = SacaR(10, 10)
  5. variable=iif (variable=-1,"",variable)
  6. MsgBox variable
  7.  
  8. variable = SacaR(val(text1.text), val(text2.text))
  9. variable=iif (variable=-1,"",variable)
  10. MsgBox variable
  11. End Sub
  12.  
  13. ' Fin
  14. 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
  15.    Dim tmp As Long'Si hay desvordamiento o error con el tipo cambia a Double xP
  16.    If num1 = 0 And num2 = 0 Then GoTo Error:
  17.    If num1 >= num2 Then
  18.        If num2 = 0 Then GoTo Error ' Esto se activa cuando hay una divición por cero
  19.        tmp = num1 / num2
  20.    ElseIf num2 >= num1 Then
  21.        If num2 = 0 Then GoTo Error ' Esto se activa cuando hay una divición por cero
  22.        tmp = num2 / num1
  23.    Else ' no creo que esta parte se ejecute pero prevengo xP
  24. Error:
  25.        SacaR = -1 ' usa -1 para identificar este error, ya que una divicion siempre dara numero positivos ademas que no cumple lo que pides.
  26.        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.
  27.    End If
  28.    SacaR = 100 - tmp
  29. End Function
  30.  

Saludos.
« Última modificación: 17 Diciembre 2008, 19:48 pm por ░▒▓BlackZeroҖ▓▒░ » En línea

The Dark Shadow is my passion.
Páginas: 1 [2] 3 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[Consulta] Calculo vectorial...
Foro Libre
BlackZeroX 4 3,383 Último mensaje 21 Septiembre 2011, 10:59 am
por Darkgold9
Cálculo Arcotangente
ASM
Nop+ 2 3,607 Último mensaje 30 Noviembre 2012, 08:08 am
por Nop+
Ejercicio calculo de red
Dudas Generales
juan_1 5 2,813 Último mensaje 17 Diciembre 2017, 18:21 pm
por juan_1
Cálculo a realizar
Programación General
Meta 0 2,001 Último mensaje 28 Julio 2020, 09:58 am
por Meta
Duda con Calculo errado
Programación C/C++
M401 4 2,967 Último mensaje 21 Octubre 2020, 02:09 am
por K-YreX
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines