Löneprogram hjälp

Håller på ska börja med ett litet projekt för räkning av löner, tänkte använda mig av Visual Basic samt så småningom Access.
Är inte så inne på programmering överhuvudtaget, men tänkte lära mig lite under projektets gång..
Just nu har jag bara gjort det visuella klart i en windows form, med diverse labels och textboxar mestadels, men behöver lite vägledning för koden!

En enkel fråga till att börja med. Har 2st textboxar som man fyller i antal timmar och timpenning, sedan ska den tredje textboxen (read-only) visa summan av det. Alltså txtbox1 * txtbox2 = txtbox 3. Vad blir koden?

Jag gjorde en excelmall som använts flitig några år där den räknar ut allt själv efter man skrivit in datan, men tänkte utveckla detta lite mera.
Tanken är att när jag är klar så ska alla uppgifter lagras automatiskt i en databas, personaluppgifter, alla löneutbetalningar, timlistor m.m och sedan ska man i programmet enkelt kunna lägga till anställda, sedan välja vilken anställd lönen ska vara till (och då skall dennes information automatiskt fyllas i), fylla i timmar m.m och sedan räknar programmet ut lönen och sparar den i databasen. (alternativ för utskrift m.m skall givetvis finnas)
Har massa ideer men svårt att förverkliga dom just nu bara, gått några programmeringskurser i VB men glömt bort allt. :\

Edit: Här finns den: http://uploading.com/files/6ad47f41/L%25C3%25B6nemall.xlsx/

Ok, om jag skapar en button fungerar det med följande kod:

Men hur får jag den att automatiskt generera värdet utan att behöva klicka?

Tack! Dock får jag det inte att fungera.. Hmm

Grejen är att jag har mycket tid just nu och tänkte lära mig lite programmering, och bästa sättet att lära sig är väl att helt enkelt börja med något projekt och se vart det leder.

Inget alls, men det kommer inte fram något tal i maskedtextboxen.
Nu copy pasta jag in det bara, kanske jag behöver ändra något mera?

Vad innebär det i kodväg?

Ok, det fungerar lite nu iaf. Allt går bra sålänge man skriver i först box1 och sedan box2, men ändrar man box1 efteråt så ändras inte resultatet i box3.
Det går framåt, om än väldigt sakta.

Bra jobbat!
Det gäller att vara lite kreativ bara så kan man spara många arbetstimmar i onödan!

Nu kan man bara skriva in nummer.. Bara det problemet att jag måste ordna så box3 uppdateras om man ändrar box1 kvar nu.

Ska kolla in det, tror dock att jag fortsätter med VB då det är ganska intressant att lära sig. Tack för förslaget dock.
Verkar betydligt enklare om man gör en button som räknar ut allt på samma gång, håller på testar det lite nu.

Har 3 rader; Timmar, Övertidstimmar 50% och Övertidstimmar 100% med 3 kolumner; antal timmar, euro per timme, totalt i euro.
Såhär ser koden ut nu.

    Private Sub timmar1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles timmar1.KeyPress

        Dim allowedChars As String = "0123456789,"

        If e.KeyChar <> ControlChars.Back Then

            If allowedChars.IndexOf(e.KeyChar) = -1 Then

                MsgBox("endast siffror")

                e.Handled = True


            End If
        End If

    End Sub

    Private Sub timmar2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles timmar2.KeyPress

        Dim allowedChars As String = "0123456789,"

        If e.KeyChar <> ControlChars.Back Then

            If allowedChars.IndexOf(e.KeyChar) = -1 Then

                MsgBox("endast siffror")

                e.Handled = True


            End If
        End If

    End Sub

    Private Sub timmar501_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles timmar501.KeyPress

        Dim allowedChars As String = "0123456789,"

        If e.KeyChar <> ControlChars.Back Then

            If allowedChars.IndexOf(e.KeyChar) = -1 Then

                MsgBox("endast siffror")

                e.Handled = True


            End If
        End If

    End Sub

    Private Sub timmar1001_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles timmar1001.KeyPress

        Dim allowedChars As String = "0123456789,"

        If e.KeyChar <> ControlChars.Back Then

            If allowedChars.IndexOf(e.KeyChar) = -1 Then

                MsgBox("endast siffror")

                e.Handled = True


            End If
        End If

    End Sub


    Private Sub btncalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncalc.Click

        timmar3.Text = timmar2.Text * timmar1.Text
        timmar502.Text = timmar2.Text * 1.5
        timmar1002.Text = timmar2.Text * 2
        timmar503.Text = timmar501.Text * timmar502.Text
        timmar1003.Text = timmar1001.Text * timmar1002.Text



    End Sub

Verkar fungera bra.. Fortsätter arbetet...

Lade till nettolön, semesterersättning och brutto.

        netto.Text = timmar3.Text + +timmar503.Text + +timmar1003.Text
        semester.Text = netto.Text * 0.125
        brutto.Text = netto.Text + +semester.Text

Nu kommer dock en lite svårare uträkning, "withholding tax". Återkommer om (när?) jag får problem.

Har nu ordnat "witholding tax" också. Måsta skapa 3 textboxar till; grundprocent, tillägsprocent och inkomstgräns.
Uträkningen är som följer:

If (brutto.Text > inkomst.Text) Then skatt.Text = Val(inkomst.Text * grund1.Text) + (brutto.Text - inkomst.Text) * tillag1.Text
If (brutto.Text <= inkomst.Text) Then skatt.Text = brutto.Text * grund1.Text

Problemet är bara att grund- och tillägsprocenten så måste man fylla i t.ex 0,3 istället för 30, tips på hur man åtgärdar det?

Jepp, kom på en liknande lösning ganska snabbt. Tack Lade dock till "* 0.01" i raderna.
Fixat pensionsavgift och arbetslöshetspremie också..

If (brutto.Text > inkomst.Text) Then skatt.Text = Val(inkomst.Text * grund1.Text * 0.01) + (brutto.Text - inkomst.Text) * tillag1.Text * 0.01
If (brutto.Text <= inkomst.Text) Then skatt.Text = brutto.Text * grund1.Text * 0.01

        txtpension.Text = numpension.Value * 0.01 * brutto.Text
        txtpremie.Text = numpremie.Value * 0.01 * brutto.Text

En fråga!

Boxen "Utbetalas" ska ta Bruttolönen minus diverse saker, men om vissa fält är tomma så buggar den ur så jag måste få den att ignorera dom isåfall.

Ex:

utbetalas.Text = brutto.Text - skatt.Text - txtpension.Text - txtpremie.Text - forskott.Text - hyra.Text

forskott och hyra kan vara tomma. Förslag?

Okej, nu fungerar alla uträkningar iallafall. Lite småjusteringar kvar (som förra frågan t.ex).

Liten demonstration
http://www.youtube.com/watch?v=uETRYuwzXOw&feature=youtu.be

Koden:

    Private Sub btncalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncalc.Click

        timmar3.Text = timmar2.Text * timmar1.Text
        timmar502.Text = timmar2.Text * 1.5
        timmar1002.Text = timmar2.Text * 2
        timmar503.Text = timmar501.Text * timmar502.Text
        timmar1003.Text = timmar1001.Text * timmar1002.Text
        netto.Text = timmar3.Text + +timmar503.Text + +timmar1003.Text
        semester.Text = netto.Text * 0.125
        brutto.Text = netto.Text + +semester.Text

        If (brutto.Text > inkomst.Text) Then skatt.Text = Val(inkomst.Text * grund1.Text * 0.01) + (brutto.Text - inkomst.Text) * tillag1.Text * 0.01

        If (brutto.Text <= inkomst.Text) Then skatt.Text = brutto.Text * grund1.Text * 0.01

        txtpension.Text = numpension.Value * 0.01 * brutto.Text
        txtpremie.Text = numpremie.Value * 0.01 * brutto.Text

        utbetalas.Text = brutto.Text - skatt.Text - txtpension.Text - txtpremie.Text - forskott.Text - hyra.Text

        txtsocial.Text = numsocial.Value * 0.01 * brutto.Text

    End Sub

Tack för förslagen, ska se om jag lyckas få ihop något.
Programmet är till familjeföretaget och vinsten utdelas endast i mindre arbetstimmar när någon (jag?) ska räkna lönerna.
Fast främst är det för att jag vill lära mig att programmera och detta verkade vara ett lämpligt sätt att göra det på.

Edit: Enkel IF sats fungerade bra.

If hyra.Text = "" Then hyra.Text = "0"

Någon som har förslag på hur man får textboxarna (eller masked textbox) att bara visa 2 decimaler?

Access ska jag definitivt kolla närmare på, jag har nog tänkt ha all information i en databas i access och kopplat till VB men har inte kommit mig för att börja kolla på det ännu bara. Måste börja leka lite i access imorn så jag kommer igång, gått kurs i det med men minns inte mycket..
För helt klart att det är det bästa alternativet för all information skall endå sparas nånstans, och jag har bra mycket mera funderingar på själva programmet också än vad jag gjort hittills men har inte kunskapen att förverkliga det ännu bara.
Eller menade du att göra allt i access?

Angående formateringen så har jag testat att lägga lite olika saker i "Mask" fältet i MaskedTextBox egenskaperna men det har inte fungerat riktigt.
Försökt googla också men hittar inte riktigt någon lösning.. Att bara använda formatering blir ju inte heller optimalt då 1,229 skulle bli 1,2 istället för att avrunda om jag inte missförstått.

Nu ska jag ha lite filmkväll med Lynda.com Access essential training..

Håller på testar föra över data från textbox till Excel, men har lite problem med att få det att spara efteråt.
Någon som vet hur jag ska få den att spara en kopia till en mapp och avsluta excel när jag klickar på button2?

Imports Excel = Microsoft.Office.Interop.Excel


Class form1

    Dim MsExcel As Excel.Application


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MsExcel = CreateObject("Excel.Application")


    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsExcel.Workbooks.Add()
        MsExcel.Range("A1").Value = TextBox1.Text

        MsExcel.Visible = True


    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click


    End Sub
End Class