Programación General > Visual Basic 6.0 e inferiores

 Ayuda Con Programa

<< < (3/3)

yessi11111:
aah si es verdad gracias por marcarme ese error tienes razon mira ahora mi codigo esta asi

txtMediana.Text = 0
    txtGrande.Text = 0
    txtMixta.Text = 0
   
Y = InputBox("CAPTURA LA DESCRIPCION A LAVAR.")


If Y = "TABLON" Or Y = "tablon" Then
Label5.Caption = Y
Text2.Text = "30"
Text3.Text = "40"
cantidad = InputBox("¿CUANTAS PIEZAS VAS A LAVAR?:", "PIEZAS", "0", 0, 0)

Do While (cantidad >= 70)
        txtGrande.Text = txtGrande.Text + 1
        txtMediana.Text = txtMediana.Text + 1
        cantidad = cantidad - 70
    Loop
    If (cantidad >= 40) Then
        txtGrande.Text = txtGrande.Text + 1
        cantidad = cantidad - 40
    ElseIf (cantidad >= 30) Then
        txtMediana.Text = txtMediana.Text + 1
        cantidad = cantidad - 30
    End If
    txtMixta = cantidad
    End If
   

End Sub


solo k ahora tengo otro problema ya k uso cajas d inputbox para insertar la cantidad al dar aceptar me da las cantidades pero por ejemplo si el usuario se ekivoca vez k aparece la caja del mensaje con los botones aceptar y cancelar si le da cancelar me marca un error en un mensaje dociendome k no coinciden los tipos tu sabes por k??? me pasa esto..

d antemano muchas gracias por sus aportaciones

saludos

F_Tanori:
http://foros.solocodigo.com/index.php?showtopic=24488

tambien deberias buscar información sobre On Error


* Es recomendable que utilices las etiquetas [CODE] para publicar código , para que pueda ser un poco mas entendible *


Saludos

Mollense:
Otro consejo es que ejecutes tu programa paso a paso ( "F8" ) y vallas viendo que valores van tomando las variables, eso puede ser muy útil para detectar errores como esos (Hubieras visto que la variable "cantidad" tomaba un valor nulo y aún así intentabas realizar operaciones con ella).

PD: Para comprobar si el usuario ha ingresado la palabra tablon sin importar como haya utilizado las mayúsculas y minúsculas (Ej: "TaBlOn") usá:
--- Código: Text ---If UCase(Y) = &#34;TABLON&#34; Then UCase convierte una cadena a mayúsculas.

Un saludo

yessi11111:
GRACIAS... ME SIRVIO DE MUCHO TU RECOMENDACION EN EL USO D UCASE.. Y YA LO EJECUTE CON F8 Y ME MARCA LA VARIABLE CANTIDAD COMO VACIA HAY ES DONDE ME PONE EL ERROR YA INTENTE CON

[CODE]
IF CANTIDAD="" THEN
MSGBOX "INSERTA CANTIDAD"
END IF


PERO ME SIGUE HACIENDO LO MISMO


Y PERDON POR NO USAR CODE PERO ES K  TODAVIA NO ENTIENDO MUY BIEN ESTA MECANICA....GRACIAS POR LA OBSERVACION

 :blink: SALUDOS

yessi11111:
OTRA PREG...¿COMO PUEDO HACER PARA REDONDEAR LAS CANTIDADES?.....POR EJEMPLO SI MI RESULTADO ES LANZADO EN UN TEXT ..SU VALOR ES 99.999999 COMO PODRIA CAMBIAR ESE NUMERO A 100 PARA QUE QUEDE RENDONDEADO....ESPERO PUEDAN AYUDARME Y GRADESCO SU ATENCION....SALUDOS :blink:

Navegación

[0] Índice de Mensajes

[*] Página Anterior