VB6-Ayuditaa con codigos !!

Publicado en 'Programación' por ۩ DiEgO ۩, 23 Oct 2007.





  1. ۩ DiEgO ۩

    ۩ DiEgO ۩ Miembro frecuente

    Registro:
    15 Jun 2007
    Mensajes:
    62
    Likes:
    0




    bueno tengo una duda soy un super novato en la materia :(:( si me podrian ayudar , me solicitan un frm

    si se entro ventas anuales < 500 000 es una pequeña empresa.
    si se entro un ventas anuales entre ( 500 001 a 2 000 000 ) es una Mediana empresa.
    si se entro ventas anuales más de 2 000 000 en una gran empresa.

    y a su vex se debe calcular el igv el 19 % , pero si este igv es mayor a 10 000 se manda un mensaje de igv supero los 1 000 000 ó se congela

    Trabajando con el ImputBox..lo que sucede que me sale error ..ahi mi codigo que diske yo avanzee......:uhm::uhm:

    Código:
     Private Sub Command1_Click()
    Text1.Text = InputBox("Nombre de la Empresa", "Datos")
    Text2.Text = InputBox("Ventas Anuales", "datos")
    Label5.Caption = "Pequeña Empresa"
    If Label5.Caption = True Then Val (Text2.Text < 501)
    Label6.Caption = Val(Text2.Text * 0.19)


    [​IMG]
     


  2. Snoopy

    Snoopy Suspendido

    Registro:
    5 Nov 2006
    Mensajes:
    173
    Likes:
    0
    Primero que nada, usa nombres significativos en tus controles, por ejemplo la notacion camello

    txtEmpresa
    txtVentasAnuales

    lblEmpresa
    lblIGV

    cmdIngresarDatos
    cmdLimpiar
    cmdSalir


    Segundo, al menos has el intento de programar, porque en tu codigo, ni siquiera has cerrado el IF

    Tercero, si vas a usar el InputBox, para que tienes controles de ingreso de datos como los TextBox

    Saludos
     
  3. Hadess_inf

    Hadess_inf Miembro nuevo

    Registro:
    16 Oct 2007
    Mensajes:
    11
    Likes:
    0
    Vamos hombre, que eso es sencillo....
     
  4. ۩ DiEgO ۩

    ۩ DiEgO ۩ Miembro frecuente

    Registro:
    15 Jun 2007
    Mensajes:
    62
    Likes:
    0
    pos si sorry por la demora pero si me salio ...muchas gracias nomas !!:)