VB .NET - Gerenciador de Parcelas

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