Jump to content

[Open Source] Programa de contabilidade!


elementsky
 Share

Recommended Posts

Criei um programa muito básico de contabilidade.

O meu nível era mais avançado do que este em VB6 so que agora mudei para VB.NET e notei claramente que há muitas diferenças especialmente a nível de sintaxe.

Aqui Fica o Código: está muito fraquinho

Public Class Form1
    Dim d1, d2 As Decimal
    Dim d3, d4, d5, d6 As Decimal

    Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        d1 = CSng(TextBox1.Text)
        d2 = d1 * 4
        TextBox2.Text = d2
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        d3 = CSng(TextBox3.Text)
        d4 = CSng(TextBox4.Text)
        d6 = CSng(TextBox6.Text)
        d5 = (d3 + d6 + d4) * 4
        TextBox5.Text = d5
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox7.Text = d2 - d5
        TextBox8.Text = d5 * 12
        TextBox9.Text = d2 * 12
        TextBox10.Text = (d2 * 12) - (d5 * 12)
    End Sub
End Class

Download aqui

Link to comment
Share on other sites

Bem, em primeiro lugar devo dizer que o link não está correcto e que a melhor forma de armazenares o executável poderá ser através do Rapidshare.

Tens aí um programa básico, mas penso que podes ir aperfeiçoando o código á medida que aumentam os teus conhecimentos na linguagem. De um programa simplíssimo podes criar algo inovador e grandioso. Lembra-te disso.

Link to comment
Share on other sites

Guest
This topic is now closed to further replies.
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.