FORMULARIO DE FACTURACIÓN DE PRODUCTOS Y BASE DE DATOS EN ACCESS

Contenido de las Guías:

1. Formulario frmfactura con sus controles
2. Ejemplo de Base de Datos
3. Código Fuente

Antes de iniciar, deberán crear un módulo con el nombre: Module1.vb y dentro del módulo pondrán el siguiente código:

Imports System.Data.OleDb

__________________________________________________________________________

Module Module1

Public CN As New OleDbConnection("PROVIDER=MICROSOFT.ACE.OLEDB.12.0;DATA SOURCE=C:\Inventario.accdb")

Public VALOR As Integer = 0

End Module

Pasos para crear el módulo:

1. Project
2. Add new Item..
3. Seleccionar Module
4. Colocar en Name: Module1.vb
5. Click en Add

Diseño de Base de Datos

TALLER No. 02 FORMULARIO TRABAJADOR: DISEÑO Y EJECUCIÓN

Realizar el siguiente formulario con conexión a Base de Datos Access 2010

Los nombres (en rojo) deben ser digitados en la propiedad Name de cada control

CODIGO FUENTE: FORMULARIO TRABAJADOR

Imports System.Data.OleDb
-------------------------------------------------------------------------------------------------------------------------------------------------------------------

Este código realiza conexión directa a la base de datos creada en Access 2010

Public Class FrmTrabajador
    Dim CN As New OleDbConnection("PROVIDER=MICROSOFT.ACE.OLEDB.12.0;DATA SOURCE=C:\TRABAJADOR.accdb")
    Public VALOR As Integer = 0
    Dim CONSULTA As String
    Dim N As Integer = 0
-------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Sub MOSTRAR()
        Dim DA As New OleDbDataAdapter("SELECT * FROM TRABAJADOR", CN)
        Dim DS As New DataSet
        DA.Fill(DS, "TRABAJADOR")
        DataGridView1.DataSource = DS.Tables("TRABAJADOR")

    End Sub
-------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Sub BLOQUEAR()
        BTNBUSCAR.Enabled = True
        BTNNEW.Enabled = True
        BTNGUARDAR.Enabled = False
        BTNMODIFIC.Enabled = True
        BTNELIMIN.Enabled = True
        BTNCANCELAR.Enabled = False
    End Sub
-------------------------------------------------------------------------------------------------------------------------------------------------------------------     Sub DESBLOQUEAR()
        BTNBUSCAR.Enabled = False
        BTNNEW.Enabled = False
        BTNGUARDAR.Enabled = True
        BTNMODIFIC.Enabled = False
        BTNELIMIN.Enabled = False
        BTNCANCELAR.Enabled = True
    End Sub
-------------------------------------------------------------------------------------------------------------------------------------------------------------------     Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Call MOSTRAR()
        Call CARGAR()
        Call BLOQUEAR()
        Call CARGAR_CBO()

    End Sub
-------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Sub CARGAR()
        Dim DA As New OleDbDataAdapter("SELECT * FROM TRABAJADOR", CN)
        Dim DS As New DataSet
        DA.Fill(DS, "TRABAJADOR")
        CBOCOD.DataSource = DS.Tables("TRABAJADOR")
        CBOCOD.DisplayMember = "COD"
    End Sub
-------------------------------------------------------------------------------------------------------------------------------------------------------------------     Sub CARGAR_CBO()
        CBOCARGO.Items.Add("ADMINISTRADOR")
        CBOCARGO.Items.Add("SUPERVISOR")
        CBOCARGO.Items.Add("CONTADOR")
        CBOCARGO.Items.Add("ASISTENTE")
        CBOCARGO.Items.Add("PROGRAMADOR")

        CBOTURNO.Items.Add("MAÑANA")
        CBOTURNO.Items.Add("TARDE")
        CBOTURNO.Items.Add("NOCHE")
    End Sub
-------------------------------------------------------------------------------------------------------------------------------------------------------------------     Sub LIMPIAR()
        TXTAPE.Clear()
        TXTDNI.Clear()
        TXTNOM.Clear()
        TXTSUELDO.Clear()
        TXTTELF.Clear()
        CBOCARGO.Text = Nothing
        CBOCOD.Text = Nothing
        CBOTURNO.Text = Nothing
    End Sub
-------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Sub BUSCAR_COD()
        Dim CMD As New OleDb.OleDbCommand("SELECT * FROM TRABAJADOR WHERE COD ='" & CBOCOD.Text & "'", CN)
        Dim DR As OleDb.OleDbDataReader
        CN.Open()
        DR = CMD.ExecuteReader
        If DR.Read Then
            TXTDNI.Text = DR(1)
            TXTNOM.Text = DR(2)
            TXTAPE.Text = DR(3)
            CBOCARGO.Text = DR(4)
            CBOTURNO.Text = DR(5)
            TXTSUELDO.Text = DR(6)
            TXTTELF.Text = DR(7)
        Else
            MsgBox("Error")
        End If
        CN.Close()

    End Sub
-------------------------------------------------------------------------------------------------------------------------------------------------------------------     Sub NUEVO()
        Dim CMD As New OleDb.OleDbCommand("INSERT INTO TRABAJADOR VALUES ('" & CBOCOD.Text & "','" & TXTDNI.Text & "','" & TXTNOM.Text & "','" & TXTAPE.Text & "','" & CBOCARGO.Text & "','" & CBOTURNO.Text & "','" & TXTSUELDO.Text & "','" & TXTTELF.Text & "')", CN)
        CN.Open()
        CMD.ExecuteNonQuery()
        CN.Close()
        MOSTRAR()
        MsgBox("REGISTRO AGREGADO")
    End Sub
-------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Sub MODIFICAR()
        Dim CMD As New OleDb.OleDbCommand("UPDATE TRABAJADOR SET COD='" & CBOCOD.Text & "' , DNI='" & TXTDNI.Text & "', NOM = '" & TXTNOM.Text & "',APE='" & TXTAPE.Text & "', CARGO ='" & CBOCARGO.Text & "', TURNO = '" & CBOTURNO.Text & "', SUELDO='" & TXTSUELDO.Text & "', TELF = '" & TXTTELF.Text & "' WHERE COD='" & CBOCOD.Text & "'", CN)
        CN.Open()
        CMD.ExecuteNonQuery()
        CN.Close()
        MOSTRAR()
        MsgBox("REGISTRO ACTUALIZADO")
    End Sub
------------------------------------------------------------------------------------------------------------------------------------------------------------------

Código para el Botón Buscar

Private Sub BTNBUSCAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNBUSCAR.Click
        BUSCAR_COD()
    End Sub
-------------------------------------------------------------------------------------------------------------------------------------------------------------------

Código para el Botón Nuevo

Private Sub BTNNEW_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNNEW.Click
        DESBLOQUEAR()
        LIMPIAR()
        N = 1
    End Sub
-------------------------------------------------------------------------------------------------------------------------------------------------------------------

Código para el Botón Modificar

Private Sub BTNMODIFIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNMODIFIC.Click
        DESBLOQUEAR()
        N = 2
    End Sub
-------------------------------------------------------------------------------------------------------------------------------------------------------------------

Código para el Botón Guardar

Private Sub BTNGUARDAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNGUARDAR.Click
        If N = 1 Then
            NUEVO()
        ElseIf N = 2 Then
            MODIFICAR()
        End If
        BLOQUEAR()
        LIMPIAR()
        CARGAR()
        N = 0
    End Sub
-------------------------------------------------------------------------------------------------------------------------------------------------------------------

Código para el Botón Cancelar

Private Sub BTNCANCELAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNCANCELAR.Click
        BLOQUEAR()
        LIMPIAR()
        N = 0
    End Sub
-------------------------------------------------------------------------------------------------------------------------------------------------------------------

Código para el Botón Eliminar

Private Sub BTNELIMIN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNELIMIN.Click

        Dim CMD As New OleDb.OleDbCommand("DELETE FROM TRABAJADOR WHERE COD='" & CBOCOD.Text & "'", CN)
        CN.Open()
        CMD.ExecuteNonQuery()
        CN.Close()
        LIMPIAR()
        CARGAR()
        MOSTRAR()
        MsgBox("EL REGISTRO SE HA ELIMINADO")
    End Sub
End Class

CODIGO FUENTE EJERCICIO PRACTICO DE PROGRAMACIÓN DE BASE DE DATOS EN VISUAL BASIC 2008 INVENTARIO

Imports System.Data.OleDb


Public Class FrmConsulta
    Dim CN As New OleDbConnection("PROVIDER=MICROSOFT.ACE.OLEDB.12.0;DATA SOURCE=C:\Users\acer\Documents\CursoVisual.Net\EjerciciosMañana\Trabajo\Trabajo\Inventario.accdb")
    Public VALOR As Integer = 0
    Dim CONSULTA As String

    Sub MOSTRAR()
        Dim DA As New OleDbDataAdapter("SELECT COD_PRO,NOM_PRO,PRE_PRO,STK_PRO,DES_PRO,NOM_MAR,NOM_CATE " & _
                                        "FROM (PRODUCTO INNER JOIN MARCA ON PRODUCTO.MAR_PRO=MARCA.COD_MAR) " & _
                                        "INNER JOIN CATEGORIA ON PRODUCTO.CAT_PRO=CATEGORIA.COD_CATE", CN)
        Dim DS As New DataSet
        DA.Fill(DS, "PRODUCTO")
        DataGridView1.DataSource = DS.Tables("PRODUCTO")
    End Sub
    Sub CARGAR()

        Dim DA As New OleDbDataAdapter("SELECT * FROM MARCA", CN)
        Dim DS As New DataSet
        DA.Fill(DS, "MARCA")
        CBOMARCA.DataSource = DS.Tables("MARCA")
        CBOMARCA.DisplayMember = "NOM_MAR"

        Dim DA_CAT As New OleDbDataAdapter("SELECT * FROM CATEGORIA", CN)
        Dim DS_CAT As New DataSet
        DA_CAT.Fill(DS_CAT, "CATEGORIA")
        CBOCATEGORIA.DataSource = DS_CAT.Tables("CATEGORIA")
        CBOCATEGORIA.DisplayMember = "NOM_CATE"

    End Sub
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Call MOSTRAR()
        Call CARGAR()
    End Sub
    Sub LIMPIAR()
        TXTLETRAPRO.Clear()
        CBOMARCA.Text = ""
        CBOCATEGORIA.Text = ""
    End Sub

    Private Sub RBLETRA_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBLETRA.CheckedChanged
        LIMPIAR()
        TXTLETRAPRO.Enabled = True
        CBOMARCA.Enabled = False
        CBOCATEGORIA.Enabled = False
        VALOR = 1
    End Sub

    Private Sub RBMARCA_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBMARCA.CheckedChanged
        LIMPIAR()
        TXTLETRAPRO.Enabled = False
        CBOMARCA.Enabled = True
        CBOCATEGORIA.Enabled = False
        VALOR = 2
    End Sub

    Private Sub RBCATEGORIA_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBCATEGORIA.CheckedChanged
        LIMPIAR()
        TXTLETRAPRO.Enabled = False
        CBOMARCA.Enabled = False
        CBOCATEGORIA.Enabled = True
        VALOR = 3
    End Sub

    Private Sub BTNCONSULTAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNCONSULTAR.Click
        If VALOR = 1 Then
            CONSULTA = "SELECT COD_PRO,NOM_PRO,PRE_PRO,STK_PRO,DES_PRO,NOM_MAR,NOM_CATE " & _
                       "FROM (PRODUCTO INNER JOIN MARCA ON PRODUCTO.MAR_PRO=MARCA.COD_MAR) " & _
                       "INNER JOIN CATEGORIA ON PRODUCTO.CAT_PRO=CATEGORIA.COD_CATE " & _
                       "WHERE NOM_PRO LIKE '" & TXTLETRAPRO.Text & "%'"
            'SELECT * FROM TABLA WHERE CAMPO LIKE 'LETRA%'
        ElseIf VALOR = 2 Then
            CONSULTA = "SELECT COD_PRO,NOM_PRO,PRE_PRO,STK_PRO,DES_PRO,NOM_MAR,NOM_CATE " & _
                     "FROM (PRODUCTO INNER JOIN MARCA ON PRODUCTO.MAR_PRO=MARCA.COD_MAR) " & _
                     "INNER JOIN CATEGORIA ON PRODUCTO.CAT_PRO=CATEGORIA.COD_CATE " & _
                     "WHERE NOM_MAR='" & CBOMARCA.Text & "'"
        ElseIf VALOR = 3 Then
            CONSULTA = "SELECT COD_PRO,NOM_PRO,PRE_PRO,STK_PRO,DES_PRO,NOM_MAR,NOM_CATE " & _
                     "FROM (PRODUCTO INNER JOIN MARCA ON PRODUCTO.MAR_PRO=MARCA.COD_MAR) " & _
                     "INNER JOIN CATEGORIA ON PRODUCTO.CAT_PRO=CATEGORIA.COD_CATE " & _
                     "WHERE NOM_CATE='" & CBOCATEGORIA.Text & "'"
        End If

        Dim DA As New OleDbDataAdapter(CONSULTA, CN)
        Dim DS As New DataSet
        DA.Fill(DS, "PRODUCTO")
        DataGridView1.DataSource = DS.Tables("PRODUCTO")

    End Sub

    Private Sub BTNVER_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNVER.Click
        MOSTRAR()
        LIMPIAR()
        RBLETRA.Checked = True
    End Sub

    
    
    Private Sub BTNGENERAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNGENERAR.Click

    End Sub
End Class

BASE DE DATOS E INTERFAZ GRAFICA EN ESTADO DE DISEÑO - EJECUCIÓN

BASE DE DATOS EN ACCESS

REGISTROS DE BASE DE DATOS

Código Fuente del Programa Tienda de Computadores

Formulario en Diseño

Formulario en Ejecución

Código Fuente

Se crean variables y constantes

Public Class CompraInteractiva
    Dim path As String
    Dim suma_total As Long

    Const teclado = 17000
    Const Mouse = 12000
    Const Microfono = 15000
    Const Scanner = 198000
    Const WebCam = 65000
    Const LapizOptico = 150000
    Const Monitor = 250000
    Const Impresora = 350000
    Const Parlantes = 35000
    Const DiscoDuro = 215000
    Const CD = 125000
    Const DVD = 115000
    Const Memoria = 22000
 


    Public Sub LimpiarDisp_Entrada()
        PictureBox1.Image = Nothing
        PictureBox2.Image = Nothing
        PictureBox3.Image = Nothing
        PictureBox4.Image = Nothing
        PictureBox5.Image = Nothing
        PictureBox6.Image = Nothing
        lbPrecio1.Text = Nothing
        lbPrecio2.Text = Nothing
        lbPrecio3.Text = Nothing
        lbPrecio4.Text = Nothing
        lbPrecio5.Text = Nothing
        lbPrecio6.Text = Nothing
        CheckBox1.Checked = False
        CheckBox2.Checked = False
        CheckBox3.Checked = False
        CheckBox4.Checked = False
        CheckBox5.Checked = False
        CheckBox6.Checked = False
    End Sub


    Public Sub LimpiarDisp_salida()
        PictureBox1.Image = Nothing
        PictureBox2.Image = Nothing
        PictureBox3.Image = Nothing
        lbPrecio1.Text = Nothing
        lbPrecio2.Text = Nothing
        lbPrecio3.Text = Nothing
        CheckBox7.Checked = False
        CheckBox8.Checked = False
        CheckBox9.Checked = False
    End Sub

    Public Sub LimpiarDisp_Almacenamiento()
        PictureBox1.Image = Nothing
        PictureBox2.Image = Nothing
        PictureBox3.Image = Nothing
        PictureBox4.Image = Nothing
        lbPrecio1.Text = Nothing
        lbPrecio2.Text = Nothing
        lbPrecio3.Text = Nothing
        lbPrecio4.Text = Nothing
        CheckBox10.Checked = False
        CheckBox11.Checked = False
        CheckBox12.Checked = False
        CheckBox13.Checked = False
    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

        If RadioButton1.Checked Then
            GroupBox4.Enabled = True
            GroupBox5.Enabled = False
            GroupBox2.Enabled = False
            LimpiarDisp_salida()
            LimpiarDisp_Almacenamiento()
        Else
            GroupBox4.Enabled = False
        End If
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

        If RadioButton2.Checked Then
            GroupBox5.Enabled = True
            LimpiarDisp_Entrada()
            LimpiarDisp_Almacenamiento()
        Else
            GroupBox5.Enabled = False
        End If
    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged

        If RadioButton3.Checked Then
            GroupBox2.Enabled = True
            LimpiarDisp_Entrada()
            LimpiarDisp_salida()
        Else
            GroupBox2.Enabled = False
        End If
    End Sub

    Private Sub CompraInteractiva_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        RadioButton1.Checked = Nothing
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

        If CheckBox1.Checked Then
            PictureBox1.Image = Image.FromFile("c:\Imagenes\Teclado.gif")
            lbPrecio1.Text = teclado
            suma_total = suma_total + teclado
            TextBox1.Text = FormatCurrency(suma_total)
        Else
            PictureBox1.Image = Nothing
            lbPrecio1.Text = Nothing
            TextBox1.Text = Nothing
            suma_total = suma_total - teclado
            TextBox1.Text = FormatCurrency(suma_total)
        End If
    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged

        If CheckBox2.Checked Then
            PictureBox2.Image = Image.FromFile("c:\Imagenes\Mouse.png")
            lbPrecio2.Text = Mouse
            suma_total = suma_total + Mouse
            TextBox1.Text = FormatCurrency(suma_total)
        Else
            PictureBox2.Image = Nothing
            lbPrecio2.Text = Nothing
            suma_total = suma_total - Mouse
            TextBox1.Text = FormatCurrency(suma_total)
        End If
    End Sub

    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged

        If CheckBox3.Checked Then
            PictureBox3.Image = Image.FromFile("c:\Imagenes\Microfono.jpg")
            lbPrecio3.Text = Microfono
            suma_total = suma_total + Microfono
            TextBox1.Text = FormatCurrency(suma_total)
        Else
            PictureBox3.Image = Nothing
            lbPrecio3.Text = Nothing
            suma_total = suma_total - Microfono
            TextBox1.Text = FormatCurrency(suma_total)
        End If
    End Sub

    Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged

        If CheckBox4.Checked Then
            PictureBox4.Image = Image.FromFile("c:\Imagenes\Scanner.jpg")
            lbPrecio4.Text = Scanner
            suma_total = suma_total + Scanner
            TextBox1.Text = FormatCurrency(suma_total)
        Else
            PictureBox4.Image = Nothing
            lbPrecio4.Text = Nothing
            suma_total = suma_total - Scanner
            TextBox1.Text = FormatCurrency(suma_total)
        End If
    End Sub

    Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged

        If CheckBox5.Checked Then
            PictureBox5.Image = Image.FromFile("c:\Imagenes\WebCam.png")
            lbPrecio5.Text = WebCam
            suma_total = suma_total + WebCam
            TextBox1.Text = FormatCurrency(suma_total)
        Else
            PictureBox5.Image = Nothing
            lbPrecio5.Text = Nothing
            suma_total = suma_total - WebCam
            TextBox1.Text = FormatCurrency(suma_total)
        End If
    End Sub

    Private Sub CheckBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox6.CheckedChanged

        If CheckBox6.Checked Then
            PictureBox6.Image = Image.FromFile("c:\Imagenes\LapizOptico.jpg")
            lbPrecio6.Text = 150000
            suma_total = suma_total + LapizOptico
            TextBox1.Text = FormatCurrency(suma_total)
        Else
            PictureBox6.Image = Nothing
            lbPrecio6.Text = Nothing
            suma_total = suma_total - LapizOptico
            TextBox1.Text = FormatCurrency(suma_total)
        End If
    End Sub

    Private Sub CheckBox7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox7.CheckedChanged
        If CheckBox7.Checked Then
            PictureBox1.Image = Image.FromFile("c:\Imagenes\Monitor.png")
            lbPrecio1.Text = Monitor
            suma_total = suma_total + Monitor
            TextBox1.Text = FormatCurrency(suma_total)
        Else
            PictureBox1.Image = Nothing
            lbPrecio1.Text = Nothing
            suma_total = suma_total - Monitor
            TextBox1.Text = FormatCurrency(suma_total)
        End If
    End Sub

    Private Sub CheckBox8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox8.CheckedChanged

        If CheckBox8.Checked Then
            PictureBox2.Image = Image.FromFile("c:\Imagenes\Impresora.png")
            lbPrecio2.Text = Impresora
            suma_total = suma_total + Impresora
            TextBox1.Text = FormatCurrency(suma_total)
        Else
            PictureBox2.Image = Nothing
            lbPrecio2.Text = Nothing
            suma_total = suma_total - Impresora
            TextBox1.Text = FormatCurrency(suma_total)
        End If
    End Sub

    Private Sub CheckBox9_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox9.CheckedChanged

        If CheckBox9.Checked Then
            PictureBox3.Image = Image.FromFile("c:\Imagenes\Parlantes.jpg")
            lbPrecio3.Text = Parlantes
            suma_total = suma_total + Parlantes
            TextBox1.Text = FormatCurrency(suma_total)
        Else
            PictureBox3.Image = Nothing
            lbPrecio3.Text = Nothing
            suma_total = suma_total - Parlantes
            TextBox1.Text = FormatCurrency(suma_total)
        End If
    End Sub

    Private Sub CheckBox10_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox10.CheckedChanged

        If CheckBox10.Checked Then
            PictureBox1.Image = Image.FromFile("c:\Imagenes\DiscoDuro.jpg")
            lbPrecio1.Text = DiscoDuro
            suma_total = suma_total + DiscoDuro
            TextBox1.Text = FormatCurrency(suma_total)
        Else
            PictureBox1.Image = Nothing
            lbPrecio1.Text = Nothing
            suma_total = suma_total - DiscoDuro
            TextBox1.Text = FormatCurrency(suma_total)
        End If
    End Sub

    Private Sub CheckBox11_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox11.CheckedChanged

        If CheckBox11.Checked Then
            PictureBox2.Image = Image.FromFile("c:\Imagenes\UnidadCD.jpg")
            lbPrecio2.Text = CD
            suma_total = suma_total + CD
            TextBox1.Text = FormatCurrency(suma_total)
        Else
            PictureBox2.Image = Nothing
            lbPrecio2.Text = Nothing
            suma_total = suma_total - CD
            TextBox1.Text = FormatCurrency(suma_total)
        End If
    End Sub

    Private Sub CheckBox12_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox12.CheckedChanged

        If CheckBox12.Checked Then
            PictureBox3.Image = Image.FromFile("c:\Imagenes\UnidadDVD.png")
            lbPrecio3.Text = DVD
            suma_total = suma_total + DVD
            TextBox1.Text = FormatCurrency(suma_total)
        Else
            PictureBox3.Image = Nothing
            lbPrecio3.Text = Nothing
            suma_total = suma_total - DVD
            TextBox1.Text = FormatCurrency(suma_total)
        End If
    End Sub

    Private Sub CheckBox13_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox13.CheckedChanged

        If CheckBox13.Checked Then
            PictureBox4.Image = Image.FromFile("c:\Imagenes\Memoria.png")
            lbPrecio4.Text = Memoria
            suma_total = suma_total + Memoria
            TextBox1.Text = FormatCurrency(suma_total)
        Else
            PictureBox4.Image = Nothing
            lbPrecio4.Text = Nothing
            suma_total = suma_total - Memoria
            TextBox1.Text = FormatCurrency(suma_total)
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonPrintForm.Click

        With Me.PrintForm1
            .PrintAction = Printing.PrintAction.PrintToPreview
            Dim bLandscapeOriginal As Boolean = .PrinterSettings.DefaultPageSettings.Landscape
            .PrinterSettings.DefaultPageSettings.Landscape = True
            .PrinterSettings.DefaultPageSettings.Landscape = bLandscapeOriginal
            .Print(Me, PowerPacks.Printing.PrintForm.PrintOption.CompatibleModeClientAreaOnly)
        End With
    End Sub
End Class

Imágenes para la Tienda de Computadores

Kardex - Método Promedio Ponderado

 

 

Movimiento Bancario

Simulador de Crédito

 

 

Caricaturas

 



Liquidación de Nómina

 

 

Venta de Llantas

1. Diseñar un formulario que permita liquidar el total a pagar (Llantas), teniendo en cuenta que si lleva mayor o igual a 5, el precio de estas serían de $7000 de lo contrario el precio sería de $8000, usando los siguientes controles:

 

Cinco (5) textbox

Un (1) Label para título

Un (1) Combobox para seleccionar el porcentaje de IVA, para ello deberá seleccionar la propiedad Items del Combobox

Tres (3) Button

 

Public Class Llantera
Pivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If Me.TextBox1.Text >= 5 Then

Me.TextBox2.Text = 7000
Else

Me.TextBox2.Text = 8000

End If

Me.TextBox3.Text = Val(Me.TextBox1.Text) * Val(Me.TextBox2.Text)

Me.TextBox5.Text = Val(Me.TextBox3.Text) * Val((Me.ComboBox1.Text) / 100)
Me.TextBox6.Text = Val(Me.TextBox3.Text) + Val(Me.TextBox5.Text)

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

End End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Me.TextBox1.Text = ""
Me.TextBox2.Text = ""
Me.TextBox3.Text = ""
Me.ComboBox1.Text = ""
Me.TextBox5.Text = ""
Me.TextBox6.Text = ""
With Me.TextBox1.Focus()
End With

End Sub

End Class

Material bibliográfico para ampliar conocimientos en Visual Basic 2008

https://docs.google.com/file/d/0Bxq7aoY4YhLJcEZ5d0E4cURoWUk/edit

Ejercicios para desarrollar en Visual Basic 2008 Express Edition

1. Diseñar un formulario que permita calcular la edad de una persona, usando los siguientes controles:

Un (1) Label para Titulo: Calcular Edad
Un (1) Label para Año Actual
Un (1) Label Año de Nacimiento
Un (1) textbox para entrada de Año actual
Un (1) textbox para entrada de Año Nacimiento
Un (1) textbox para visualizar la edad
Un (1) Button Calcular la edad
Un (1) Button para limpiar los textbox 1,2 y 3.
Un (1) Button para Salir de la aplicación

El formulario debe quedar de la siguiente forma:

El código para el botón Nuevo se debe programar de la siguiente forma:

Me.TextBox1.Text =""
Me.TextBox2.Text = ""
Me.TextBox3.Text = ""
With Me.TextBox1.Focus()
End With

Botón Salir:

End

2. Diseñar y programar el siguiente formulario para calcular el área de un circulo, el área de un triangulo, área de un cuadradro y finalmente la conversión de Dólares a pesos (Para la conversión se debe tener en cuenta el ingreso de datos como la cantidad y el valor del dólar actual)

3. Se desea realizar un programa para un supermercado que permita calcular valor y porcentaje de descuento sobre una compra, de acuerdo al número de la balota escogida por el cliente; las cuales debe cumplir con la siguiente condición:

 

Si el número de la balota escogida está entre el 1 y 7, se calculará el valor del descuento sobre la compra en un 10%, y entre el 8 y el 9, se calculará el 30% y finalmente se generará un mensaje de Felicitaciones al cliente.

 

El formulario deberá quedar con los siguientes controles:

 

 

4. Se desea realizar un programa para un supermercado que permita facturar la (n) cantidad artículos con su respectivo nombre, precio, cantidad y finalmente me lo imprima en un control ListBox y nos informe la cantidad de artículos comprados y el valor total a pagar.

 

 

 

Así es como debe ver la ejecución del programa