Sistema de Ventas Visual Basic.net 2010

Sistemas de Ventas Una Aproximacion

Esta es una aplicacion demasiado sencilla, la intencion es ver de que manera podemos utilizar y asociar algunos controles para darnos cuenta que controles podemos usar en nuestros formularios y no pensemos que programar es una cosa dificil de hacer todo es dificil pero si le pones empeno de seguro que lograran todas sus metas. este pequeno programilla esta hecho con visual basic.net 2010 osea que necesitan tener instalado el net framework 4.0 con el visual studio 2010 de donde lo consiguen eso de pende de ustedes les recomiendo TARINGA , o de PROGRAMASGRATIS.COM .

Como ya habeis visto la imagen esa es la forma que deve tener nuestro formulario, en cuanto a la apriencia no  se preocupen existen muchos software que nos permiten mediante skin darle ese toque de profesionalismo a nuestros formulario bueno basta de bla....bla.....bla bamos al codigo a les dejo el codigo fuente para que lo prueben y si les gusta que sea de gran utilidad y si no igual trate de ayudar saludos..

Codigo Fuente del Proyecto

Public Class frmVentas
    Private Sub frmVentas_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim resp As MsgBoxResult
        resp = MsgBox("Desea salir de la Aplicacion", MsgBoxStyle.YesNo, "Cuidado")
        If resp = MsgBoxResult.No Then
            e.Cancel = True
        End If
    End Sub
    Private Sub frmVentas_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        txtIgv.Enabled = False
        txtTotal.Enabled = False
        txtSubTotal.Enabled = False
        Me.tmrHora.Enabled = True
        Me.lblFecha.Text = Format(Now, "dd-MMMM-yyyy")
        Me.lblHora.Text = Format(Now, "hh:mm:ss:tt")
        Me.Text = Space(10) + "Ventas"
    End Sub
    Private Sub tmrHora_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tmrHora.Tick
        Me.lblHora.Text = Format(Now, "hh:mm:ss:tt")
    End Sub
    Private Sub btnsalir_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnsalir.Click
        Me.Close()
    End Sub
    Private Sub btnnuevo_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnnuevo.Click
        Me.txtNombreProducto.Text = ""
        Me.txtPrecioUnitario.Text = ""
        Me.txtCantidad.Text = ""
        Me.txtSubTotal.Text = ""
        Me.txtIgv.Text = ""
        Me.txtTotal.Text = ""
        Me.txtNombreProducto.Focus()
    End Sub
    Private Sub btnresultado_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnresultado.Click
        Dim subtotal, igv, total As Single
        subtotal = CStr(Val(Me.txtCantidad.Text) * Val(Me.txtPrecioUnitario.Text))
        igv = subtotal * 0.19
        total = igv + subtotal
        Me.txtSubTotal.Text = Format(subtotal, "###,##0.00")
        Me.txtIgv.Text = Format(igv, "###,##0.00")
        Me.txtTotal.Text = Format(total, "###, ##0.00")
    End Sub
    Private Sub SalirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalirToolStripMenuItem.Click
        Me.Close()
    End Sub
    Private Sub NuevoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NuevoToolStripMenuItem.Click
        Me.txtNombreProducto.Text = ""
        Me.txtPrecioUnitario.Text = ""
        Me.txtCantidad.Text = ""
        Me.txtSubTotal.Text = ""
        Me.txtIgv.Text = ""
        Me.txtTotal.Text = ""
        Me.txtNombreProducto.Focus()
    End Sub
    Private Sub LimpiarControlesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LimpiarControlesToolStripMenuItem.Click
        Me.txtNombreProducto.Text = ""
        Me.txtPrecioUnitario.Text = ""
        Me.txtCantidad.Text = ""
        Me.txtSubTotal.Text = ""
        Me.txtIgv.Text = ""
        Me.txtTotal.Text = ""
        Me.txtNombreProducto.Focus()
    End Sub
    Private Sub AcercaDeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AcercaDeToolStripMenuItem.Click
        Dim frm As New frmAcerca
        frm.Show()
    End Sub

 Bueno este es el link de descargar del codigo fuente Sistema de Ventas con Visual Basic.net 2010

http://www.mediafire.com/?q57rdilzokfmczd