quinta-feira, 28 de fevereiro de 2013

on


Public Class Form1

    Dim NumeroParcela As Integer = 0
    Dim NumParlas As String

    Private Sub txtparcelas_Validate(ByVal Cancel As Boolean)

        txtparcelas.Text = Format(txtparcelas.Text, "##00")

        If txtparcelas.Text > "12" Then
            MsgBox("O Numero Maximo de é de 32 Parcelas", vbInformation, "Numero de Parcelas")
            txtparcelas.Text = ""

            txtvalor.Enabled = False               
        End If
    End Sub

    Private Sub txtvalor_Validate(ByVal Cancel As Boolean)
        txtvalor.Text = Format(txtvalor.Text, "##,##0.00")
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtdata.Text = Date.Today
    End Sub

    Private Sub PParcelas()

        NumeroParcela += 1

        If NumeroParcela = 1 Then
            NumParlas = CStr("Primeira Parcela")
        End If
        If NumeroParcela = 2 Then
            NumParlas = CStr("Segunda Parcela")
        End If
        If NumeroParcela = 3 Then
            NumParlas = CStr("Terceira Parcela")
        End If
        If NumeroParcela = 4 Then
            NumParlas = CStr("Quarta Parcela")
        End If
        If NumeroParcela = 5 Then
            NumParlas = CStr("Quinta Parcela")
        End If
        If NumeroParcela = 6 Then
            NumParlas = CStr("Sexta Parcela")
        End If
        If NumeroParcela = 7 Then
            NumParlas = CStr("Sétima Parcela")
        End If
        If NumeroParcela = 8 Then
            NumParlas = CStr("Oitava Parcela")
        End If
        If NumeroParcela = 9 Then
            NumParlas = CStr("Nona Parcela")
        End If
        If NumeroParcela = 10 Then
            NumParlas = CStr("Décima Parcela")
        End If
        If NumeroParcela = 11 Then
            NumParlas = CStr("Décima Primeira Parcela")
        End If
        If NumeroParcela = 12 Then
            NumParlas = CStr("Décima Segunda Parcela")
        End If
    End Sub

    Private Sub btnGerarParcela_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGerarParcela.Click

        TextBox1.Clear()

        Dim TotalParcelas As String
        Dim Valor As Double

        Valor = (txtValorTotalDaCompra.Text / txtparcelas.Text)
        TotalParcelas = txtparcelas.Text

        Dim MyArray(32) As Date
        Dim i As Integer

        MyArray(0) = txtdata.Text

        NumeroParcela = 0

        For i = 1 To TotalParcelas

            PParcelas()

            MyArray(i) = DateAdd("m", i, txtdata.Text)

            TextBox1.Text &= Environment.NewLine
            TextBox1.Text &= ("Nome Cliente:  " & txtNomeCliente.Text) & Environment.NewLine
            TextBox1.Text &= ("Endereço:  " & txtEndereco.Text) & Environment.NewLine
            TextBox1.Text &= ("Telefone:  " & mstTelefone.Text) & Environment.NewLine
            TextBox1.Text &= ("E-mail:  " & txtEmail.Text) & Environment.NewLine
            TextBox1.Text &= ("Valor Total da Compra: " & FormatCurrency(txtValorTotalDaCompra.Text)) & Environment.NewLine
            TextBox1.Text &= (NumParlas & ":  " & FormatCurrency(Valor)) & Environment.NewLine
            TextBox1.Text &= ("Data Para Pagamento:  " & MyArray(i)) & Environment.NewLine
            TextBox1.Text &= ("------------------------------------------------------------------------")
        Next
    End Sub

    Private Sub btnAplicarDesconto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAplicarDesconto.Click

        Me.txtValorDescontoDe.Text = ""
        Me.txtValorDescontoDe.Text = FormatCurrency(Me.txtvalor.Text / 100 * Me.txtDesconto.Text)

        Me.txtValorTotalDaCompra.Text = FormatCurrency(Me.txtvalor.Text - Me.txtValorDescontoDe.Text)
    End Sub

End Class


Espero ter ajudado... Até mais. Abraços!
Pegue o projeto neste link: http://www.mediafire.com/?dfyud2osci2aq8e

0 comentários:

Postar um comentário