Sistema de Ventas Visual Basic.net 2010

lunes, 11 de abril de 2011 6 comentarios


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

6 comentarios:

  • Reycito dijo...

    Hola Arnold primeramente agradecerte por visitar mi Blog, el tmrHora es el nombre que le di al Timer no se si te has dado cuenta cuando arrastramos el componente Timer no se muestra visualmente si no que solo lo puedes ver el la parte de abajo del formulario ya que no es un componente visual y solo nos permite manejar el Tiempo ya sea la Hora ect. si te das cuenta el evento que manejamos es el TimerTick para pasarle la hora actual con esta linea de codigo Me.lblHora.Text = Format(Now, "hh:mm:ss:tt"). Esta linea nos muestra la hora actual del sistema. tienes que agregar todos los componentes que se muestran en el formulario y un Timer que se encuentra en la barra de herramienta con la forma de un Reloj o Cronometro y darle el nombre de tmrHora revisa el codigo fuente y te dras cuenta cualquier duda que tengas no duedes en enviarme tu comentario que yo con gusto tratare de ayudarte saludos Gracias.

Publicar un comentario

Deja tu Comentario.

 

©Copyright 2011 trinisoft | TNB