lommeregner til Arbejdsplads

Her er et eksempel på hvordan man kan lave det

Public Class Form3
   

    Function Cal() 'udregner data fra de to textbox og skrive det i den trejde textbox
        Dim text1 As Double
        Dim text2 As Double
        If (Integer.TryParse(TextBox1.Text, text1) = True And Integer.TryParse(TextBox2.Text, text2) = True) Then 'Tryparse tjekker om det er muligt at konverter tallet fra string(tekst) til double(tal)
            TextBox3.Text = (text1 + text2).ToString 'i mellem "(te.. )" skal du lave dine beregninger, jeg har lavet et eksempel hvor jeg plusser de to værdier 
        Else
            TextBox3.Text = ""
        End If

    End Function

    Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged 'Koden bliver udført når man ændre på noget i textbox
        Cal()
    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        Cal()
    End Sub
End Class

Text1 er første felt
Text2 er andet felt
Text3 er resultatfeltet

Private Sub Text1_Change()
calc
End Sub
Private Sub Text2_Change()
calc
End Sub
Sub calc()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub

Text1 er første felt
Text2 er andet felt
Text3 er resultatfeltet

Kode 

Private Sub Text1_Change()
calc
End Sub
Private Sub Text2_Change()
calc
End Sub
Sub calc()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub

Det ser faktisk meget nemt ud, men "calc", hvad er det?
Og hvad hvis man f.eks vil gøre sådan her:

Textbox1
12000
Textbox2
10
Textbox3
(12000/3,14/10)
Resultat = 382



altså få den til at lave flere udregninger?

Nu har jeg delvist fået det til at virke, men har bare problemer når jeg skal have regnet flere ting ud på en gang. Har prøvet mig lidt frem, men det vil sku ikke virke..

Her er den første part som virker:

    '// UDREGN OMDREJNINGER (BOR)
    Function Calc_omdr_bor()
        Dim bor_skære1 As Double
        Dim bor_ø1 As Double

        If (Integer.TryParse(bor_skæ.Text, bor_skære1) = True And Integer.TryParse(bor_ø.Text, bor_ø1) = True) Then
            bor_omdr.Text = (bor_skære1 / 3.14 / bor_ø1).ToString

        End If
        Return vbNullString
        '// END
    End Function



    Private Sub borskæ_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bor_skæ.TextChanged
        '// SKÆREHASTIGHED (BOR)
        Calc_omdr_bor()
        '// END
    End Sub

    Private Sub bor_ø_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bor_ø.TextChanged
        '// DIAMETER (Ø) (BOR)
        Calc_omdr_bor()
        '// END
    End Sub
    Private Sub bor_omdr_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bor_omdr.TextChanged
        '// RESULTAT - TILSPÆNDING (BOR)
        bor_til.Text = Val(bor_omdr.Text) * 1 * 0.14
        '// END
    End Sub

Men så har jeg så den anden kode her, som jeg ikke lige kan fixe:

    '// UDREGN OMDREJNINGER (FRÆSER)
    Function Calc_omdr_fræ()
        Dim fræ_skære1 As Double
        Dim fræ_ø1 As Double

        If (Integer.TryParse(fræ_skæ.Text, fræ_skære1) = True And Integer.TryParse(fræ_ø.Text, fræ_ø1) = True)
            fræ_omdr.Text = (fræ_skære1 / 3.14 / fræ_ø1).ToString

        End If
        Return vbNullString
        '// END
    End Function
    '// UDREGN TILSPÆNDING (FRÆSER)
    Function Calc_tilspænd_fræ()
      
        Dim fræ_tænder1 As Double
        Dim fræ_tand1 As Double

        If (Integer.TryParse(fræ_tænder.Text, fræ_tænder1) = True And Integer.TryParse(fræ_tand.Text, fræ_tand1) = True) Then
            fræ_til.Text = Val(fræ_omdr.Text) * (fræ_tænder.Text) * (fræ_tand.Text).ToString


        End If
        Return vbNullString
        '// END
    End Function
    Private Sub fræ_skæ_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fræ_skæ.TextChanged
        '// Skærehastighed (FRÆSER)
        Calc_omdr_fræ()
        '// END
    End Sub
    Private Sub fræ_ø_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fræ_ø.TextChanged
        '// DIAMETER (Ø) (FRÆSER)
        Calc_omdr_fræ()
        '// END
    End Sub
    Private Sub fræ_omdr_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bor_omdr.TextChanged
        '// TÆNDER PÅ FRÆSER (FRÆSER)
        Calc_tilspænd_fræ()
        '// END
    End Sub
    Private Sub fræ_tand_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fræ_tand.TextChanged
        '// TILSPÆNDING PR.TAND (FRÆSER)
        Calc_tilspænd_fræ()
        '// END
    End Sub
    Private Sub fræ_til_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fræ_til.TextChanged
        '// RESULTAT - TILSPÆNDING (FRÆSER)
        fræ_til.Text = Val(fræ_omdr.Text) * (fræ_tænder.Text) * (fræ_tand.Text)
        '// END
    End Sub

Det er de nederste Felter jeg skal have til at virke, eller rettere sagt, hvis jeg skriver 0.23 ved "tilsp. pr. Tand" så kan den ikke finde ud af at regne det ud, men hvis jeg skriver 1, så kan den uden problemer regne det ud..
http://www.postimage.org/image.php?v=Pq1biO60