Scribd Logo
Cargar

¡Te damos la bienvenida a Scribd!

  • 54 vistas

    Contadores y Acumuladores

    Cargado por

    Daniel Milla Allccaco

    Copyright:

    Attribution Non-Commercial (BY-NC)
    Descargue como PDF, TXT o lea en línea desde Scribd

    Contadores y Acumuladores

    Cargado por

    Daniel Milla Allccaco
    54 vistas3 páginas

    Título original

    CONTADORES Y ACUMULADORES

    Derechos de autor

    © Attribution Non-Commercial (BY-NC)

    Formatos disponibles

    PDF, TXT o lea en línea desde Scribd

    ¿Le pareció útil este documento?

    ¿Este contenido es inapropiado?

    Copyright:

    Attribution Non-Commercial (BY-NC)
    Descargue como PDF, TXT o lea en línea desde Scribd
    Descargar como pdf o txt
    54 vistas3 páginas

    Contadores y Acumuladores

    Cargado por

    Daniel Milla Allccaco

    Copyright:

    Attribution Non-Commercial (BY-NC)
    Descargue como PDF, TXT o lea en línea desde Scribd
    Descargar como pdf o txt
    Está en la página 1de 3

    CONTADORES Y ACUMULADORES

    4. Disear e implementar un formulario que permita llevar un contador de los trabajadores.

    frmtrabajador

    N Trabajadores

    Pasos para declarar una Variable contador - Acumulador: 1. Declarar variable publica 2. Asignarle un valor inicial 3. Aumentar o disminuor a la variable Public c as integer Private Sub frmtrabajador_Load(ByVal e As System.EventArgs) Handles frmtrabajador load c=0 End Sub Private Sub btngrabar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btngrabar.Click MsgBox("Datos Grabados", MsgBoxStyle.OKOnly, "Grabar") c=c+1 Me.txtnumero.text=c End Sub

    Practica
    1. Implementar una aplicacin que permita acumular las ventas de los pasajes Vendidos a los clientes de una determinada empresa.

    Ing. Oscar Ascn Valdivia

    2. Implementar una aplicacin que permita calcular el importe de llamadas Nacionales y Extranjeras y el total a pagar (PN + PE).

    3. Implementar una aplicacin que permita Calcular el sub total y contar el nmero de ventas de una determinada empresa.

    Ing. Oscar Ascn Valdivia

    Funcin: Messagebox.Show: Permite mostrar un mensaje


    Mensaje sin Valor
    Private Sub Btnsalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click MessageBox.Show("Datos grabados correctamente", "Grabar", MessageBoxButtons.OK, MessageBoxIcon.Asterisk) End Sub

    Titulo del mensaje

    Icono

    Descripcin del mensaje

    Botones del mensaje Mensaje con Valor

    Private Sub Btnsalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim rpta As Integer rpta = MessageBox.Show("Desea Salir", "Salir", MessageBoxButtons.YesNo, MessageBoxIcon.Information) If rpta = 6 Then 6 = si. End End If End Sub

    Mtodos Show y Hide Show: Permite mostrar un formulario Hide: Permite ocultar un formulario

    Ing. Oscar Ascn Valdivia

    También podría gustarte