Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

como desactivo los negativos en un textbox

Estas en el tema de como desactivo los negativos en un textbox en el foro de Visual Basic clásico en Foros del Web. este es el problema... Codensa, desea contratar sus servicios para que elabore un programa en Visual Basic que le permita calcular el Total a Pagar ...
  #1 (permalink)  
Antiguo 15/04/2010, 23:40
 
Fecha de Ingreso: abril-2010
Mensajes: 1
Antigüedad: 14 años, 8 meses
Puntos: 0
como desactivo los negativos en un textbox

este es el problema...

Codensa, desea contratar sus servicios para que elabore un programa en Visual Basic que le permita calcular el Total a Pagar de cada cliente, por concepto de energía eléctrica. Los datos que deben ser leídos son los siguientes: Número de cuenta, Estrato socioeconómico, tipo de servicio y cantidad de kilovatios consumidos. Los cálculos que debe realizar el programa en Visual Basic, son: Valor por consumo, que depende del estrato, así: Para estrato 1 ó 2, el valor del kWh es de $255. Para estrato 3 ó 4, el valor del kWh es de $325. Para estrato 5 ó 6, el valor es de $475. El cargo fijo es de $9850, igual para todos los clientes. La empresa otorga un subsidio dependiendo del uso que se le da a la energía (Tipo de servicio). Así, si el tipo de servicio es 1 (Residencial), se otorga un descuento del 30% al total consumo (valor por consumo + cargo fijo). Si el tipo de servicio es 2 (Comercial), el descuento es del 27% del total consumo. Si el tipo de servicio es 3 (Industrial), el descuento es del 18% del total consumo. Con base en esta información, el programa en Visual Basic debe mostrar el Total a Pagar por cada cliente.

y asi me quedo la programacion...

Public Class Form1

Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter
Label1.Text = 255
Label2.Text = 325
Label3.Text = 475
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, b, c, h, total1, total As Integer
h = TextBox2.Text
If CheckBox1.Checked Then
a = Label1.Text
End If
If CheckBox2.Checked Then
b = Label2.Text
End If
If CheckBox3.Checked Then
c = Label3.Text
End If
total1 = (a * h) + 9850 Or (b * h) + 9850 Or (c * h) + 9850
If RadioButton1.Checked Then
total = total1 - (total1 * 0.3)
MsgBox("cuenta" & TextBox1.Text & "A pagar_" & total)
End If
If RadioButton2.Checked Then
total = total1 - (total1 * 0.27)
MsgBox("cuenta" & TextBox1.Text & "A pagar_" & total)
End If
If RadioButton3.Checked Then
total = total1 - (total1 * 0.18)
MsgBox("cuenta" & TextBox1.Text & "A pagar_" & total)
End If
End Sub

solo quiero saber, como hago para q en el textbox2 no admita numeros negativos solo positivos... por fis alguien q me ayude!!
  #2 (permalink)  
Antiguo 16/04/2010, 03:40
 
Fecha de Ingreso: abril-2010
Mensajes: 4
Antigüedad: 14 años, 8 meses
Puntos: 0
Respuesta: como desactivo los negativos en un textbox

Hola, no sé si es esto te puede valer

como en el text tienes que recoger le valor, haz mediante un if la comproabicón de que el valor que has recogido en el text es positivo, si es negativo que te lo vuelvan a introducir y luego ya harás las cuentas...

no se si es esto lo que quieres
  #3 (permalink)  
Antiguo 16/04/2010, 07:57
Avatar de pkj
pkj
 
Fecha de Ingreso: julio-2006
Ubicación: Órbita sincrónica
Mensajes: 899
Antigüedad: 18 años, 4 meses
Puntos: 29
Respuesta: como desactivo los negativos en un textbox

Puedes poner cualquiera de estas líneas al inicio de la sub del botón.

Esta...
If Val(TextBox2.Text) < 0 then TextBox2.Text = -Val(TextBox2.Text)

o esta
TextBox2.Text = Replace(TextBox2.Text, "-", "")

Si el valor es negativo se vuelve positivo.

He intentado con ABS pero el .NET no me lo admitia.

Hay otros modos, pero creo que esto te puede valer.

Saludos
__________________
No hay preguntas tontas, solo gente estup..., ¡No!, ¿como era? No hay gente que pregunte a tontos... ¡Nooo!... ¡Vaya cabeza!

Etiquetas: textbox
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 18:37.