domingo, 19 de junio de 2011

CUENTA DINERO


BOTON ENTER: 
        TextBox2.Text = Val(TextBox1.Text) * 200
        TextBox4.Text = Val(TextBox3.Text) * 100
        TextBox6.Text = Val(TextBox5.Text) * 50
        TextBox8.Text = Val(TextBox7.Text) * 20
        TextBox10.Text = Val(TextBox9.Text) * 10
        TextBox12.Text = Val(TextBox11.Text) * 5
        TextBox14.Text = Val(TextBox13.Text) * 1
        TextBox16.Text = Val(TextBox15.Text) * 0.5
        TextBox18.Text = Val(TextBox17.Text) * 0.25
        TextBox20.Text = Val(TextBox19.Text) * 0.1
        TextBox22.Text = Val(TextBox21.Text) * 0.05

LO SIGUIENTE VA EN UNA SOLO LINEA EN EL MISMO BOTON CALCULAR (TODA LA SUMA)
TextBox23.Text = TextBox2.Text + TextBox4.Text + TextBox6.Text + TextBox8.Text + TextBox10.Text + TextBox12.Text + TextBox14.Text + TextBox16.Text + TextBox18.Text + TextBox20.Text + TextBox22.Text



BOTON LIMPIAR:
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        TextBox7.Text = ""
        TextBox8.Text = ""
        TextBox9.Text = ""
        TextBox10.Text = ""
        TextBox11.Text = ""
        TextBox12.Text = ""
        TextBox13.Text = ""
        TextBox14.Text = ""
        TextBox15.Text = ""
        TextBox16.Text = ""
        TextBox17.Text = ""
        TextBox18.Text = ""
        TextBox19.Text = ""
        TextBox20.Text = ""
        TextBox21.Text = ""
        TextBox22.Text = ""
        TextBox23.Text = ""
        TextBox1.Focus()

jueves, 16 de junio de 2011

boton calcular_ PROMEDIOS

  TextBox5.Text = (Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text) + Val(TextBox4.Text)) / 4

        If TextBox5.Text >= 60 Then
            TextBox6.Text = "PROMOVIDO"
        Else
            TextBox6.Text = "NO PROMOVIDO"



BOTON LIMPIAR:
   TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        TextBox1.Focus()

miércoles, 8 de junio de 2011

PROGRAMAS YA DISEÑADOS SOLO PARA COMPILAR

Aqui les dejo un paquete de programas ya diseñados solo para compilarlos hay en forma visual y no visual
descargar el archivo de aqui:    PROGRAMAS LISTOS_PAQUETON