Gegevens opslaan met streamreaders en streamwriters

[najreteip]

Ik ben nu al een tijdje bezig met een rekenmachine, die is ondertussen al af (op al mijn accesoires na). Maar ik zou graag al mijn gegevens in een streamwriter plaatsen wanneer ik mijn formulier sluit. Dat is geen probleem. Het probleem is echter dat ik deze gegevens niet kan inlezen. Ik werk dus met een Procedure/Subroutine. Bij de subroutine opslaanalstekst is er geen enkel probleem.Ik heb er een handboek over maar daarin staat enkel hoe ik moet "Writen." De labels die beginnen met C zijn de cijfers van mijn getallen. De belangrijkste code ziet er dus als volgt uit:

Sub opslaanalstekst(ByVal strtekst As String, _
                ByVal strbestandsnaam As String)

        Dim objStreamWriter As System.IO.StreamWriter
        objStreamWriter = New System.IO.StreamWriter(strbestandsnaam)

        objStreamWriter.Write(strtekst)
        objStreamWriter.Close()

        objStreamWriter = Nothing
    End Sub

    [B]Sub leestekst(ByVal strtekst As String, _
                  ByVal strbestandsnaam As String)

        Dim objStreamreader As System.IO.StreamReader
        objStreamreader = New System.IO.StreamReader(strbestandsnaam)

        objStreamReader = New System.IO.StreamReader(strbestandsnaam)

        objStreamreader.Read()
        objStreamreader.Close()

        objStreamreader = Nothing
    End Sub[/B]
Private Sub form1_formclosed(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.FormClosed
        opslaanalstekst(Teken1.Text, "C:\Rekenmachine\Teken1")
        opslaanalstekst(C1001.Text, "C:\Rekenmachine\C1001")
        opslaanalstekst(C1002.Text, "C:\Rekenmachine\C1002")
        opslaanalstekst(C1003.Text, "C:\Rekenmachine\C1003")
        opslaanalstekst(C1004.Text, "C:\Rekenmachine\C1004")
        opslaanalstekst(C1005.Text, "C:\Rekenmachine\C1005")
        opslaanalstekst(C1006.Text, "C:\Rekenmachine\C1006")
        opslaanalstekst(C1007.Text, "C:\Rekenmachine\C1007")
        opslaanalstekst(C1008.Text, "C:\Rekenmachine\C1008")
        opslaanalstekst(C1009.Text, "C:\Rekenmachine\C1009")
        opslaanalstekst(C1010.Text, "C:\Rekenmachine\C1010")
        opslaanalstekst(C1011.Text, "C:\Rekenmachine\C1011")
        opslaanalstekst(C1012.Text, "C:\Rekenmachine\C1012")
        opslaanalstekst(C1013.Text, "C:\Rekenmachine\C1013")
        opslaanalstekst(C1014.Text, "C:\Rekenmachine\C1014")
        opslaanalstekst(C1015.Text, "C:\Rekenmachine\C1015")
        opslaanalstekst(C1016.Text, "C:\Rekenmachine\C1016")
        opslaanalstekst(C1017.Text, "C:\Rekenmachine\C1017")
        opslaanalstekst(C1018.Text, "C:\Rekenmachine\C1018")
        opslaanalstekst(C1019.Text, "C:\Rekenmachine\C1019")
        opslaanalstekst(C1020.Text, "C:\Rekenmachine\C1020")
        opslaanalstekst(C1021.Text, "C:\Rekenmachine\C1021")
        opslaanalstekst(C1022.Text, "C:\Rekenmachine\C1022")
        opslaanalstekst(C1023.Text, "C:\Rekenmachine\C1023")
        opslaanalstekst(C1024.Text, "C:\Rekenmachine\C1024")
        opslaanalstekst(C1025.Text, "C:\Rekenmachine\C1025")
        opslaanalstekst(Teken.Text, "C:\Rekenmachine\Teken")
        opslaanalstekst(Teken2.Text, "C:\Rekenmachine\Teken2")
        opslaanalstekst(C2001.Text, "C:\Rekenmachine\C2001")
        opslaanalstekst(C2002.Text, "C:\Rekenmachine\C2002")
        opslaanalstekst(C2003.Text, "C:\Rekenmachine\C2003")
        opslaanalstekst(C2004.Text, "C:\Rekenmachine\C2004")
        opslaanalstekst(C2005.Text, "C:\Rekenmachine\C2005")
        opslaanalstekst(C2006.Text, "C:\Rekenmachine\C2006")
        opslaanalstekst(C2007.Text, "C:\Rekenmachine\C2007")
        opslaanalstekst(C2008.Text, "C:\Rekenmachine\C2008")
        opslaanalstekst(C2009.Text, "C:\Rekenmachine\C2009")
        opslaanalstekst(C2010.Text, "C:\Rekenmachine\C2010")
        opslaanalstekst(C2011.Text, "C:\Rekenmachine\C2011")
        opslaanalstekst(C2012.Text, "C:\Rekenmachine\C2012")
        opslaanalstekst(C2013.Text, "C:\Rekenmachine\C2013")
        opslaanalstekst(C2014.Text, "C:\Rekenmachine\C2014")
        opslaanalstekst(C2015.Text, "C:\Rekenmachine\C2015")
        opslaanalstekst(C2016.Text, "C:\Rekenmachine\C2016")
        opslaanalstekst(C2017.Text, "C:\Rekenmachine\C2017")
        opslaanalstekst(C2018.Text, "C:\Rekenmachine\C2018")
        opslaanalstekst(C2019.Text, "C:\Rekenmachine\C2019")
        opslaanalstekst(C2020.Text, "C:\Rekenmachine\C2020")
        opslaanalstekst(C2021.Text, "C:\Rekenmachine\C2021")
        opslaanalstekst(C2022.Text, "C:\Rekenmachine\C2022")
        opslaanalstekst(C2023.Text, "C:\Rekenmachine\C2023")
        opslaanalstekst(C2024.Text, "C:\Rekenmachine\C2024")
        opslaanalstekst(C2025.Text, "C:\Rekenmachine\C2025")
        opslaanalstekst(Uitkomst.Text, "C:\Rekenmachine\Uitkomst")
        opslaanalstekst(Geheugen.Text, "C:\Rekenmachine\Geheugen")
    End Sub

[B]    Private Sub Form1_activated(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Activated
        leestekst(Teken1.Text, "C:\Rekenmachine\Teken1")
        leestekst(C1001.Text, "C:\Rekenmachine\C1001")
        leestekst(C1002.Text, "C:\Rekenmachine\C1002")
        leestekst(C1003.Text, "C:\Rekenmachine\C1003")
        leestekst(C1004.Text, "C:\Rekenmachine\C1004")
        leestekst(C1005.Text, "C:\Rekenmachine\C1005")
        leestekst(C1006.Text, "C:\Rekenmachine\C1006")
        leestekst(C1007.Text, "C:\Rekenmachine\C1007")
        leestekst(C1008.Text, "C:\Rekenmachine\C1008")
        leestekst(C1009.Text, "C:\Rekenmachine\C1009")
        leestekst(C1010.Text, "C:\Rekenmachine\C1010")
        leestekst(C1011.Text, "C:\Rekenmachine\C1011")
        leestekst(C1012.Text, "C:\Rekenmachine\C1012")
        leestekst(C1013.Text, "C:\Rekenmachine\C1013")
        leestekst(C1014.Text, "C:\Rekenmachine\C1014")
        leestekst(C1015.Text, "C:\Rekenmachine\C1015")
        leestekst(C1016.Text, "C:\Rekenmachine\C1016")
        leestekst(C1017.Text, "C:\Rekenmachine\C1017")
        leestekst(C1018.Text, "C:\Rekenmachine\C1018")
        leestekst(C1019.Text, "C:\Rekenmachine\C1019")
        leestekst(C1020.Text, "C:\Rekenmachine\C1020")
        leestekst(C1021.Text, "C:\Rekenmachine\C1021")
        leestekst(C1022.Text, "C:\Rekenmachine\C1022")
        leestekst(C1023.Text, "C:\Rekenmachine\C1023")
        leestekst(C1024.Text, "C:\Rekenmachine\C1024")
        leestekst(C1025.Text, "C:\Rekenmachine\C1025")
        leestekst(Teken.Text, "C:\Rekenmachine\Teken")
        leestekst(Teken2.Text, "C:\Rekenmachine\Teken2")
        leestekst(C2001.Text, "C:\Rekenmachine\C2001")
        leestekst(C2002.Text, "C:\Rekenmachine\C2002")
        leestekst(C2003.Text, "C:\Rekenmachine\C2003")
        leestekst(C2004.Text, "C:\Rekenmachine\C2004")
        leestekst(C2005.Text, "C:\Rekenmachine\C2005")
        leestekst(C2006.Text, "C:\Rekenmachine\C2006")
        leestekst(C2007.Text, "C:\Rekenmachine\C2007")
        leestekst(C2008.Text, "C:\Rekenmachine\C2008")
        leestekst(C2009.Text, "C:\Rekenmachine\C2009")
        leestekst(C2010.Text, "C:\Rekenmachine\C2010")
        leestekst(C2011.Text, "C:\Rekenmachine\C2011")
        leestekst(C2012.Text, "C:\Rekenmachine\C2012")
        leestekst(C2013.Text, "C:\Rekenmachine\C2013")
        leestekst(C2014.Text, "C:\Rekenmachine\C2014")
        leestekst(C2015.Text, "C:\Rekenmachine\C2015")
        leestekst(C2016.Text, "C:\Rekenmachine\C2016")
        leestekst(C2017.Text, "C:\Rekenmachine\C2017")
        leestekst(C2018.Text, "C:\Rekenmachine\C2018")
        leestekst(C2019.Text, "C:\Rekenmachine\C2019")
        leestekst(C2020.Text, "C:\Rekenmachine\C2020")
        leestekst(C2021.Text, "C:\Rekenmachine\C2021")
        leestekst(C2022.Text, "C:\Rekenmachine\C2022")
        leestekst(C2023.Text, "C:\Rekenmachine\C2023")
        leestekst(C2024.Text, "C:\Rekenmachine\C2024")
        leestekst(C2025.Text, "C:\Rekenmachine\C2025")
        leestekst(Uitkomst.Text, "C:\Rekenmachine\Uitkomst")
        leestekst(Geheugen.Text, "C:\Rekenmachine\Geheugen")
    End Sub[/B]

ik hoop dat jullie kunnen helpen

 

[najreteip]

1/6 code

Imports System.IO

Public Class Form1


    Private Sub G1_textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles G1.TextChanged
        Bewerking.Text = G1.Text & Teken.Text & G2.Text
    End Sub

    Private Sub Teken_textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Teken.TextChanged
        Bewerking.Text = G1.Text & Teken.Text & G2.Text
        If Teken.Text = "" Then
            If TControle1.Text = "1" Then
                Button11.Enabled = False
            End If
            If TControle1.Text = "0" Then
                Button11.Enabled = True
            End If
            If Komma1.Text = "1" Then
                Button12.Enabled = False
            End If
            If Komma1.Text = "0" Then
                Button12.Enabled = True
            End If
        End If
    End Sub

    Private Sub G2_textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles G2.TextChanged
        Bewerking.Text = G1.Text & Teken.Text & G2.Text
    End Sub

    Private Sub C1001_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C1001.TextChanged
        G1.Text = Teken1.Text & C1001.Text & C1002.Text & C1003.Text & C1004.Text & C1005.Text & C1006.Text & C1007.Text & C1008.Text & C1009.Text & C1010.Text & C1011.Text & C1012.Text & C1013.Text & C1014.Text & C1015.Text & C1016.Text & C1017.Text & C1018.Text & C1019.Text & C1020.Text & C1021.Text & C1022.Text & C1023.Text & C1024.Text & C1025.Text
    End Sub

    Private Sub Teken2_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Teken2.TextChanged
        G2.Text = Teken2.Text & C2001.Text & C2002.Text & C2003.Text & C2004.Text & C2005.Text & C2006.Text & C2007.Text & C2008.Text & C2009.Text & C2010.Text & C2011.Text & C2012.Text & C2013.Text & C2014.Text & C2015.Text & C2016.Text & C2017.Text & C2018.Text & C2019.Text & C2020.Text & C2021.Text & C2022.Text & C2023.Text & C2024.Text & C2025.Text
    End Sub

    Private Sub Teken1_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Teken1.TextChanged
        G1.Text = Teken1.Text & C1001.Text & C1002.Text & C1003.Text & C1004.Text & C1005.Text & C1006.Text & C1007.Text & C1008.Text & C1009.Text & C1010.Text & C1011.Text & C1012.Text & C1013.Text & C1014.Text & C1015.Text & C1016.Text & C1017.Text & C1018.Text & C1019.Text & C1020.Text & C1021.Text & C1022.Text & C1023.Text & C1024.Text & C1025.Text
    End Sub

    Private Sub C1002_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C1002.TextChanged
        G1.Text = Teken1.Text & C1001.Text & C1002.Text & C1003.Text & C1004.Text & C1005.Text & C1006.Text & C1007.Text & C1008.Text & C1009.Text & C1010.Text & C1011.Text & C1012.Text & C1013.Text & C1014.Text & C1015.Text & C1016.Text & C1017.Text & C1018.Text & C1019.Text & C1020.Text & C1021.Text & C1022.Text & C1023.Text & C1024.Text & C1025.Text
    End Sub

    Private Sub C1003_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C1003.TextChanged
        G1.Text = Teken1.Text & C1001.Text & C1002.Text & C1003.Text & C1004.Text & C1005.Text & C1006.Text & C1007.Text & C1008.Text & C1009.Text & C1010.Text & C1011.Text & C1012.Text & C1013.Text & C1014.Text & C1015.Text & C1016.Text & C1017.Text & C1018.Text & C1019.Text & C1020.Text & C1021.Text & C1022.Text & C1023.Text & C1024.Text & C1025.Text
    End Sub

    Private Sub C1004_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C1004.TextChanged
        G1.Text = Teken1.Text & C1001.Text & C1002.Text & C1003.Text & C1004.Text & C1005.Text & C1006.Text & C1007.Text & C1008.Text & C1009.Text & C1010.Text & C1011.Text & C1012.Text & C1013.Text & C1014.Text & C1015.Text & C1016.Text & C1017.Text & C1018.Text & C1019.Text & C1020.Text & C1021.Text & C1022.Text & C1023.Text & C1024.Text & C1025.Text
    End Sub

    Private Sub C1005_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C1005.TextChanged
        G1.Text = Teken1.Text & C1001.Text & C1002.Text & C1003.Text & C1004.Text & C1005.Text & C1006.Text & C1007.Text & C1008.Text & C1009.Text & C1010.Text & C1011.Text & C1012.Text & C1013.Text & C1014.Text & C1015.Text & C1016.Text & C1017.Text & C1018.Text & C1019.Text & C1020.Text & C1021.Text & C1022.Text & C1023.Text & C1024.Text & C1025.Text
    End Sub

    Private Sub C1006_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C1006.TextChanged
        G1.Text = Teken1.Text & C1001.Text & C1002.Text & C1003.Text & C1004.Text & C1005.Text & C1006.Text & C1007.Text & C1008.Text & C1009.Text & C1010.Text & C1011.Text & C1012.Text & C1013.Text & C1014.Text & C1015.Text & C1016.Text & C1017.Text & C1018.Text & C1019.Text & C1020.Text & C1021.Text & C1022.Text & C1023.Text & C1024.Text & C1025.Text
    End Sub

    Private Sub C1007_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C1007.TextChanged
        G1.Text = Teken1.Text & C1001.Text & C1002.Text & C1003.Text & C1004.Text & C1005.Text & C1006.Text & C1007.Text & C1008.Text & C1009.Text & C1010.Text & C1011.Text & C1012.Text & C1013.Text & C1014.Text & C1015.Text & C1016.Text & C1017.Text & C1018.Text & C1019.Text & C1020.Text & C1021.Text & C1022.Text & C1023.Text & C1024.Text & C1025.Text
    End Sub

    Private Sub C1008_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C1008.TextChanged
        G1.Text = Teken1.Text & C1001.Text & C1002.Text & C1003.Text & C1004.Text & C1005.Text & C1006.Text & C1007.Text & C1008.Text & C1009.Text & C1010.Text & C1011.Text & C1012.Text & C1013.Text & C1014.Text & C1015.Text & C1016.Text & C1017.Text & C1018.Text & C1019.Text & C1020.Text & C1021.Text & C1022.Text & C1023.Text & C1024.Text & C1025.Text
    End Sub

    Private Sub C1009_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C1009.TextChanged
        G1.Text = Teken1.Text & C1001.Text & C1002.Text & C1003.Text & C1004.Text & C1005.Text & C1006.Text & C1007.Text & C1008.Text & C1009.Text & C1010.Text & C1011.Text & C1012.Text & C1013.Text & C1014.Text & C1015.Text & C1016.Text & C1017.Text & C1018.Text & C1019.Text & C1020.Text & C1021.Text & C1022.Text & C1023.Text & C1024.Text & C1025.Text
    End Sub

    Private Sub C1010_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C1010.TextChanged
        G1.Text = Teken1.Text & C1001.Text & C1002.Text & C1003.Text & C1004.Text & C1005.Text & C1006.Text & C1007.Text & C1008.Text & C1009.Text & C1010.Text & C1011.Text & C1012.Text & C1013.Text & C1014.Text & C1015.Text & C1016.Text & C1017.Text & C1018.Text & C1019.Text & C1020.Text & C1021.Text & C1022.Text & C1023.Text & C1024.Text & C1025.Text
    End Sub

    Private Sub C1011_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C1011.TextChanged
        G1.Text = Teken1.Text & C1001.Text & C1002.Text & C1003.Text & C1004.Text & C1005.Text & C1006.Text & C1007.Text & C1008.Text & C1009.Text & C1010.Text & C1011.Text & C1012.Text & C1013.Text & C1014.Text & C1015.Text & C1016.Text & C1017.Text & C1018.Text & C1019.Text & C1020.Text & C1021.Text & C1022.Text & C1023.Text & C1024.Text & C1025.Text
    End Sub

    Private Sub C1012_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C1012.TextChanged
        G1.Text = Teken1.Text & C1001.Text & C1002.Text & C1003.Text & C1004.Text & C1005.Text & C1006.Text & C1007.Text & C1008.Text & C1009.Text & C1010.Text & C1011.Text & C1012.Text & C1013.Text & C1014.Text & C1015.Text & C1016.Text & C1017.Text & C1018.Text & C1019.Text & C1020.Text & C1021.Text & C1022.Text & C1023.Text & C1024.Text & C1025.Text
    End Sub

    Private Sub C1013_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C1013.TextChanged
        G1.Text = Teken1.Text & C1001.Text & C1002.Text & C1003.Text & C1004.Text & C1005.Text & C1006.Text & C1007.Text & C1008.Text & C1009.Text & C1010.Text & C1011.Text & C1012.Text & C1013.Text & C1014.Text & C1015.Text & C1016.Text & C1017.Text & C1018.Text & C1019.Text & C1020.Text & C1021.Text & C1022.Text & C1023.Text & C1024.Text & C1025.Text
    End Sub

    Private Sub C1014_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C1014.TextChanged
        G1.Text = Teken1.Text & C1001.Text & C1002.Text & C1003.Text & C1004.Text & C1005.Text & C1006.Text & C1007.Text & C1008.Text & C1009.Text & C1010.Text & C1011.Text & C1012.Text & C1013.Text & C1014.Text & C1015.Text & C1016.Text & C1017.Text & C1018.Text & C1019.Text & C1020.Text & C1021.Text & C1022.Text & C1023.Text & C1024.Text & C1025.Text
    End Sub

    Private Sub C1015_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C1015.TextChanged
        G1.Text = Teken1.Text & C1001.Text & C1002.Text & C1003.Text & C1004.Text & C1005.Text & C1006.Text & C1007.Text & C1008.Text & C1009.Text & C1010.Text & C1011.Text & C1012.Text & C1013.Text & C1014.Text & C1015.Text & C1016.Text & C1017.Text & C1018.Text & C1019.Text & C1020.Text & C1021.Text & C1022.Text & C1023.Text & C1024.Text & C1025.Text
    End Sub

    Private Sub C1016_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C1016.TextChanged
        G1.Text = Teken1.Text & C1001.Text & C1002.Text & C1003.Text & C1004.Text & C1005.Text & C1006.Text & C1007.Text & C1008.Text & C1009.Text & C1010.Text & C1011.Text & C1012.Text & C1013.Text & C1014.Text & C1015.Text & C1016.Text & C1017.Text & C1018.Text & C1019.Text & C1020.Text & C1021.Text & C1022.Text & C1023.Text & C1024.Text & C1025.Text
    End Sub

    Private Sub C1017_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C1017.TextChanged
        G1.Text = Teken1.Text & C1001.Text & C1002.Text & C1003.Text & C1004.Text & C1005.Text & C1006.Text & C1007.Text & C1008.Text & C1009.Text & C1010.Text & C1011.Text & C1012.Text & C1013.Text & C1014.Text & C1015.Text & C1016.Text & C1017.Text & C1018.Text & C1019.Text & C1020.Text & C1021.Text & C1022.Text & C1023.Text & C1024.Text & C1025.Text
    End Sub

    Private Sub C1018_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C1018.TextChanged
        G1.Text = Teken1.Text & C1001.Text & C1002.Text & C1003.Text & C1004.Text & C1005.Text & C1006.Text & C1007.Text & C1008.Text & C1009.Text & C1010.Text & C1011.Text & C1012.Text & C1013.Text & C1014.Text & C1015.Text & C1016.Text & C1017.Text & C1018.Text & C1019.Text & C1020.Text & C1021.Text & C1022.Text & C1023.Text & C1024.Text & C1025.Text
    End Sub

    Private Sub C1019_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C1019.TextChanged
        G1.Text = Teken1.Text & C1001.Text & C1002.Text & C1003.Text & C1004.Text & C1005.Text & C1006.Text & C1007.Text & C1008.Text & C1009.Text & C1010.Text & C1011.Text & C1012.Text & C1013.Text & C1014.Text & C1015.Text & C1016.Text & C1017.Text & C1018.Text & C1019.Text & C1020.Text & C1021.Text & C1022.Text & C1023.Text & C1024.Text & C1025.Text
    End Sub

    Private Sub C1020_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C1020.TextChanged
        G1.Text = Teken1.Text & C1001.Text & C1002.Text & C1003.Text & C1004.Text & C1005.Text & C1006.Text & C1007.Text & C1008.Text & C1009.Text & C1010.Text & C1011.Text & C1012.Text & C1013.Text & C1014.Text & C1015.Text & C1016.Text & C1017.Text & C1018.Text & C1019.Text & C1020.Text & C1021.Text & C1022.Text & C1023.Text & C1024.Text & C1025.Text
    End Sub

    Private Sub C1021_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C1021.TextChanged
        G1.Text = Teken1.Text & C1001.Text & C1002.Text & C1003.Text & C1004.Text & C1005.Text & C1006.Text & C1007.Text & C1008.Text & C1009.Text & C1010.Text & C1011.Text & C1012.Text & C1013.Text & C1014.Text & C1015.Text & C1016.Text & C1017.Text & C1018.Text & C1019.Text & C1020.Text & C1021.Text & C1022.Text & C1023.Text & C1024.Text & C1025.Text
    End Sub

    Private Sub C1022_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C1022.TextChanged
        G1.Text = Teken1.Text & C1001.Text & C1002.Text & C1003.Text & C1004.Text & C1005.Text & C1006.Text & C1007.Text & C1008.Text & C1009.Text & C1010.Text & C1011.Text & C1012.Text & C1013.Text & C1014.Text & C1015.Text & C1016.Text & C1017.Text & C1018.Text & C1019.Text & C1020.Text & C1021.Text & C1022.Text & C1023.Text & C1024.Text & C1025.Text
    End Sub

    Private Sub C1023_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C1023.TextChanged
        G1.Text = Teken1.Text & C1001.Text & C1002.Text & C1003.Text & C1004.Text & C1005.Text & C1006.Text & C1007.Text & C1008.Text & C1009.Text & C1010.Text & C1011.Text & C1012.Text & C1013.Text & C1014.Text & C1015.Text & C1016.Text & C1017.Text & C1018.Text & C1019.Text & C1020.Text & C1021.Text & C1022.Text & C1023.Text & C1024.Text & C1025.Text
    End Sub

    Private Sub C1024_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C1024.TextChanged
        G1.Text = Teken1.Text & C1001.Text & C1002.Text & C1003.Text & C1004.Text & C1005.Text & C1006.Text & C1007.Text & C1008.Text & C1009.Text & C1010.Text & C1011.Text & C1012.Text & C1013.Text & C1014.Text & C1015.Text & C1016.Text & C1017.Text & C1018.Text & C1019.Text & C1020.Text & C1021.Text & C1022.Text & C1023.Text & C1024.Text & C1025.Text
    End Sub

    Private Sub C1025_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C1025.TextChanged
        G1.Text = Teken1.Text & C1001.Text & C1002.Text & C1003.Text & C1004.Text & C1005.Text & C1006.Text & C1007.Text & C1008.Text & C1009.Text & C1010.Text & C1011.Text & C1012.Text & C1013.Text & C1014.Text & C1015.Text & C1016.Text & C1017.Text & C1018.Text & C1019.Text & C1020.Text & C1021.Text & C1022.Text & C1023.Text & C1024.Text & C1025.Text
    End Sub

    Private Sub C2001_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C2001.TextChanged
        G2.Text = Teken2.Text & C2001.Text & C2002.Text & C2003.Text & C2004.Text & C2005.Text & C2006.Text & C2007.Text & C2008.Text & C2009.Text & C2010.Text & C2011.Text & C2012.Text & C2013.Text & C2014.Text & C2015.Text & C2016.Text & C2017.Text & C2018.Text & C2019.Text & C2020.Text & C2021.Text & C2022.Text & C2023.Text & C2024.Text & C2025.Text
    End Sub

    Private Sub C2002_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C2002.TextChanged
        G2.Text = Teken2.Text & C2001.Text & C2002.Text & C2003.Text & C2004.Text & C2005.Text & C2006.Text & C2007.Text & C2008.Text & C2009.Text & C2010.Text & C2011.Text & C2012.Text & C2013.Text & C2014.Text & C2015.Text & C2016.Text & C2017.Text & C2018.Text & C2019.Text & C2020.Text & C2021.Text & C2022.Text & C2023.Text & C2024.Text & C2025.Text
    End Sub

    Private Sub C2003_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C2003.TextChanged
        G2.Text = Teken2.Text & C2001.Text & C2002.Text & C2003.Text & C2004.Text & C2005.Text & C2006.Text & C2007.Text & C2008.Text & C2009.Text & C2010.Text & C2011.Text & C2012.Text & C2013.Text & C2014.Text & C2015.Text & C2016.Text & C2017.Text & C2018.Text & C2019.Text & C2020.Text & C2021.Text & C2022.Text & C2023.Text & C2024.Text & C2025.Text
    End Sub

    Private Sub C2004_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C2004.TextChanged
        G2.Text = Teken2.Text & C2001.Text & C2002.Text & C2003.Text & C2004.Text & C2005.Text & C2006.Text & C2007.Text & C2008.Text & C2009.Text & C2010.Text & C2011.Text & C2012.Text & C2013.Text & C2014.Text & C2015.Text & C2016.Text & C2017.Text & C2018.Text & C2019.Text & C2020.Text & C2021.Text & C2022.Text & C2023.Text & C2024.Text & C2025.Text
    End Sub

    Private Sub C2005_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C2005.TextChanged
        G2.Text = Teken2.Text & C2001.Text & C2002.Text & C2003.Text & C2004.Text & C2005.Text & C2006.Text & C2007.Text & C2008.Text & C2009.Text & C2010.Text & C2011.Text & C2012.Text & C2013.Text & C2014.Text & C2015.Text & C2016.Text & C2017.Text & C2018.Text & C2019.Text & C2020.Text & C2021.Text & C2022.Text & C2023.Text & C2024.Text & C2025.Text
    End Sub

    Private Sub C2006_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C2006.TextChanged
        G2.Text = Teken2.Text & C2001.Text & C2002.Text & C2003.Text & C2004.Text & C2005.Text & C2006.Text & C2007.Text & C2008.Text & C2009.Text & C2010.Text & C2011.Text & C2012.Text & C2013.Text & C2014.Text & C2015.Text & C2016.Text & C2017.Text & C2018.Text & C2019.Text & C2020.Text & C2021.Text & C2022.Text & C2023.Text & C2024.Text & C2025.Text
    End Sub

    Private Sub C2007_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C2007.TextChanged
        G2.Text = Teken2.Text & C2001.Text & C2002.Text & C2003.Text & C2004.Text & C2005.Text & C2006.Text & C2007.Text & C2008.Text & C2009.Text & C2010.Text & C2011.Text & C2012.Text & C2013.Text & C2014.Text & C2015.Text & C2016.Text & C2017.Text & C2018.Text & C2019.Text & C2020.Text & C2021.Text & C2022.Text & C2023.Text & C2024.Text & C2025.Text
    End Sub

    Private Sub C2008_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C2008.TextChanged
        G2.Text = Teken2.Text & C2001.Text & C2002.Text & C2003.Text & C2004.Text & C2005.Text & C2006.Text & C2007.Text & C2008.Text & C2009.Text & C2010.Text & C2011.Text & C2012.Text & C2013.Text & C2014.Text & C2015.Text & C2016.Text & C2017.Text & C2018.Text & C2019.Text & C2020.Text & C2021.Text & C2022.Text & C2023.Text & C2024.Text & C2025.Text
    End Sub

    Private Sub C2009_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C2009.TextChanged
        G2.Text = Teken2.Text & C2001.Text & C2002.Text & C2003.Text & C2004.Text & C2005.Text & C2006.Text & C2007.Text & C2008.Text & C2009.Text & C2010.Text & C2011.Text & C2012.Text & C2013.Text & C2014.Text & C2015.Text & C2016.Text & C2017.Text & C2018.Text & C2019.Text & C2020.Text & C2021.Text & C2022.Text & C2023.Text & C2024.Text & C2025.Text
    End Sub

    Private Sub C2010_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C2010.TextChanged
        G2.Text = Teken2.Text & C2001.Text & C2002.Text & C2003.Text & C2004.Text & C2005.Text & C2006.Text & C2007.Text & C2008.Text & C2009.Text & C2010.Text & C2011.Text & C2012.Text & C2013.Text & C2014.Text & C2015.Text & C2016.Text & C2017.Text & C2018.Text & C2019.Text & C2020.Text & C2021.Text & C2022.Text & C2023.Text & C2024.Text & C2025.Text
    End Sub

    Private Sub C2011_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C2011.TextChanged
        G2.Text = Teken2.Text & C2001.Text & C2002.Text & C2003.Text & C2004.Text & C2005.Text & C2006.Text & C2007.Text & C2008.Text & C2009.Text & C2010.Text & C2011.Text & C2012.Text & C2013.Text & C2014.Text & C2015.Text & C2016.Text & C2017.Text & C2018.Text & C2019.Text & C2020.Text & C2021.Text & C2022.Text & C2023.Text & C2024.Text & C2025.Text
    End Sub

    Private Sub C2012_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C2012.TextChanged
        G2.Text = Teken2.Text & C2001.Text & C2002.Text & C2003.Text & C2004.Text & C2005.Text & C2006.Text & C2007.Text & C2008.Text & C2009.Text & C2010.Text & C2011.Text & C2012.Text & C2013.Text & C2014.Text & C2015.Text & C2016.Text & C2017.Text & C2018.Text & C2019.Text & C2020.Text & C2021.Text & C2022.Text & C2023.Text & C2024.Text & C2025.Text
    End Sub

    Private Sub C2013_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C2013.TextChanged
        G2.Text = Teken2.Text & C2001.Text & C2002.Text & C2003.Text & C2004.Text & C2005.Text & C2006.Text & C2007.Text & C2008.Text & C2009.Text & C2010.Text & C2011.Text & C2012.Text & C2013.Text & C2014.Text & C2015.Text & C2016.Text & C2017.Text & C2018.Text & C2019.Text & C2020.Text & C2021.Text & C2022.Text & C2023.Text & C2024.Text & C2025.Text
    End Sub

    Private Sub C2014_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C2014.TextChanged
        G2.Text = Teken2.Text & C2001.Text & C2002.Text & C2003.Text & C2004.Text & C2005.Text & C2006.Text & C2007.Text & C2008.Text & C2009.Text & C2010.Text & C2011.Text & C2012.Text & C2013.Text & C2014.Text & C2015.Text & C2016.Text & C2017.Text & C2018.Text & C2019.Text & C2020.Text & C2021.Text & C2022.Text & C2023.Text & C2024.Text & C2025.Text
    End Sub

    Private Sub C2015_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C2015.TextChanged
        G2.Text = Teken2.Text & C2001.Text & C2002.Text & C2003.Text & C2004.Text & C2005.Text & C2006.Text & C2007.Text & C2008.Text & C2009.Text & C2010.Text & C2011.Text & C2012.Text & C2013.Text & C2014.Text & C2015.Text & C2016.Text & C2017.Text & C2018.Text & C2019.Text & C2020.Text & C2021.Text & C2022.Text & C2023.Text & C2024.Text & C2025.Text
    End Sub

    Private Sub C2016_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C2016.TextChanged
        G2.Text = Teken2.Text & C2001.Text & C2002.Text & C2003.Text & C2004.Text & C2005.Text & C2006.Text & C2007.Text & C2008.Text & C2009.Text & C2010.Text & C2011.Text & C2012.Text & C2013.Text & C2014.Text & C2015.Text & C2016.Text & C2017.Text & C2018.Text & C2019.Text & C2020.Text & C2021.Text & C2022.Text & C2023.Text & C2024.Text & C2025.Text
    End Sub

    Private Sub C2017_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C2017.TextChanged
        G2.Text = Teken2.Text & C2001.Text & C2002.Text & C2003.Text & C2004.Text & C2005.Text & C2006.Text & C2007.Text & C2008.Text & C2009.Text & C2010.Text & C2011.Text & C2012.Text & C2013.Text & C2014.Text & C2015.Text & C2016.Text & C2017.Text & C2018.Text & C2019.Text & C2020.Text & C2021.Text & C2022.Text & C2023.Text & C2024.Text & C2025.Text
    End Sub

    Private Sub C2018_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C2018.TextChanged
        G2.Text = Teken2.Text & C2001.Text & C2002.Text & C2003.Text & C2004.Text & C2005.Text & C2006.Text & C2007.Text & C2008.Text & C2009.Text & C2010.Text & C2011.Text & C2012.Text & C2013.Text & C2014.Text & C2015.Text & C2016.Text & C2017.Text & C2018.Text & C2019.Text & C2020.Text & C2021.Text & C2022.Text & C2023.Text & C2024.Text & C2025.Text
    End Sub

    Private Sub C2019_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C2019.TextChanged
        G2.Text = Teken2.Text & C2001.Text & C2002.Text & C2003.Text & C2004.Text & C2005.Text & C2006.Text & C2007.Text & C2008.Text & C2009.Text & C2010.Text & C2011.Text & C2012.Text & C2013.Text & C2014.Text & C2015.Text & C2016.Text & C2017.Text & C2018.Text & C2019.Text & C2020.Text & C2021.Text & C2022.Text & C2023.Text & C2024.Text & C2025.Text
    End Sub

    Private Sub C2020_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C2020.TextChanged
        G2.Text = Teken2.Text & C2001.Text & C2002.Text & C2003.Text & C2004.Text & C2005.Text & C2006.Text & C2007.Text & C2008.Text & C2009.Text & C2010.Text & C2011.Text & C2012.Text & C2013.Text & C2014.Text & C2015.Text & C2016.Text & C2017.Text & C2018.Text & C2019.Text & C2020.Text & C2021.Text & C2022.Text & C2023.Text & C2024.Text & C2025.Text
    End Sub

    Private Sub C2021_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C2021.TextChanged
        G2.Text = Teken2.Text & C2001.Text & C2002.Text & C2003.Text & C2004.Text & C2005.Text & C2006.Text & C2007.Text & C2008.Text & C2009.Text & C2010.Text & C2011.Text & C2012.Text & C2013.Text & C2014.Text & C2015.Text & C2016.Text & C2017.Text & C2018.Text & C2019.Text & C2020.Text & C2021.Text & C2022.Text & C2023.Text & C2024.Text & C2025.Text
    End Sub

    Private Sub C2022_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C2022.TextChanged
        G2.Text = Teken2.Text & C2001.Text & C2002.Text & C2003.Text & C2004.Text & C2005.Text & C2006.Text & C2007.Text & C2008.Text & C2009.Text & C2010.Text & C2011.Text & C2012.Text & C2013.Text & C2014.Text & C2015.Text & C2016.Text & C2017.Text & C2018.Text & C2019.Text & C2020.Text & C2021.Text & C2022.Text & C2023.Text & C2024.Text & C2025.Text
    End Sub

    Private Sub C2023_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C2023.TextChanged
        G2.Text = Teken2.Text & C2001.Text & C2002.Text & C2003.Text & C2004.Text & C2005.Text & C2006.Text & C2007.Text & C2008.Text & C2009.Text & C2010.Text & C2011.Text & C2012.Text & C2013.Text & C2014.Text & C2015.Text & C2016.Text & C2017.Text & C2018.Text & C2019.Text & C2020.Text & C2021.Text & C2022.Text & C2023.Text & C2024.Text & C2025.Text
    End Sub

    Private Sub C2024_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C2024.TextChanged
        G2.Text = Teken2.Text & C2001.Text & C2002.Text & C2003.Text & C2004.Text & C2005.Text & C2006.Text & C2007.Text & C2008.Text & C2009.Text & C2010.Text & C2011.Text & C2012.Text & C2013.Text & C2014.Text & C2015.Text & C2016.Text & C2017.Text & C2018.Text & C2019.Text & C2020.Text & C2021.Text & C2022.Text & C2023.Text & C2024.Text & C2025.Text
    End Sub

    Private Sub C2025_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C2025.TextChanged
        G2.Text = Teken2.Text & C2001.Text & C2002.Text & C2003.Text & C2004.Text & C2005.Text & C2006.Text & C2007.Text & C2008.Text & C2009.Text & C2010.Text & C2011.Text & C2012.Text & C2013.Text & C2014.Text & C2015.Text & C2016.Text & C2017.Text & C2018.Text & C2019.Text & C2020.Text & C2021.Text & C2022.Text & C2023.Text & C2024.Text & C2025.Text
    End Sub



    Private Sub Button37_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button37.Click
        C1001.Text = ""
        C1002.Text = ""
        C1003.Text = ""
        C1004.Text = ""
        C1005.Text = ""
        C1006.Text = ""
        C1007.Text = ""
        C1008.Text = ""
        C1009.Text = ""
        C1010.Text = ""
        C1011.Text = ""
        C1012.Text = ""
        C1013.Text = ""
        C1014.Text = ""
        C1015.Text = ""
        C1016.Text = ""
        C1017.Text = ""
        C1018.Text = ""
        C1019.Text = ""
        C1020.Text = ""
        C1021.Text = ""
        C1022.Text = ""
        C1023.Text = ""
        C1024.Text = ""
        C1025.Text = ""
        C2001.Text = ""
        C2002.Text = ""
        C2003.Text = ""
        C2004.Text = ""
        C2005.Text = ""
        C2006.Text = ""
        C2007.Text = ""
        C2008.Text = ""
        C2009.Text = ""
        C2010.Text = ""
        C2011.Text = ""
        C2012.Text = ""
        C2013.Text = ""
        C2014.Text = ""
        C2015.Text = ""
        C2016.Text = ""
        C2017.Text = ""
        C2018.Text = ""
        C2019.Text = ""
        C2020.Text = ""
        C2021.Text = ""
        C2022.Text = ""
        C2023.Text = ""
        C2024.Text = ""
        C2025.Text = ""
        Teken.Text = ""
        Teken1.Text = ""
        Teken2.Text = ""
        TControle1.Text = "0"
        TControle2.Text = "0"
        Komma1.Text = "0"
        Komma2.Text = "0"
        G1.Text = ""
        G2.Text = ""
        Uitkomst.Text = ""
    End Sub

    Private Sub Button36_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button36.Click
        If Uitkomst.Text = "" Then
            If Teken.Text = "" Then
                If G1.Text = Teken1.Text & C1001.Text & C1002.Text & C1003.Text & C1004.Text & C1005.Text & C1006.Text & C1007.Text & C1008.Text & C1009.Text & C1010.Text & C1011.Text & C1012.Text & C1013.Text & C1014.Text & C1015.Text & C1016.Text & C1017.Text & C1018.Text & C1019.Text & C1020.Text & C1021.Text & C1022.Text & C1023.Text & C1024.Text & C1025.Text Then
                    If Not Teken1.Text = "" Then
                        If C1001.Text = "" Then
                            Teken1.Text = ""
                            TControle1.Text = "0"
                        End If
                    End If
                    If Not C1001.Text = "" Then
                        If C1002.Text = "" Then
                            If C1001.Text = "," Then
                                Komma1.Text = "0"
                            End If
                            C1001.Text = ""
                        End If
                        If Not C1002.Text = "" Then
                            If C1003.Text = "" Then
                                If C1002.Text = "," Then
                                    Komma1.Text = "0"
                                End If
                                C1002.Text = ""
                            End If
                            If Not C1003.Text = "" Then
                                If C1004.Text = "" Then
                                    If C1003.Text = "," Then
                                        Komma1.Text = "0"
                                    End If
                                    C1003.Text = ""
                                End If
                                If Not C1004.Text = "" Then
                                    If C1005.Text = "" Then
                                        If C1004.Text = "," Then
                                            Komma1.Text = "0"
                                        End If
                                        C1004.Text = ""
                                    End If
                                    If Not C1005.Text = "" Then
                                        If C1006.Text = "" Then
                                            If C1005.Text = "," Then
                                                Komma1.Text = "0"
                                            End If
                                            C1005.Text = ""
                                        End If
                                        If Not C1006.Text = "" Then
                                            If C1007.Text = "" Then
                                                If C1006.Text = "," Then
                                                    Komma1.Text = "0"
                                                End If
                                                C1006.Text = ""
                                            End If
                                            If Not C1007.Text = "" Then
                                                If C1008.Text = "" Then
                                                    If C1007.Text = "," Then
                                                        Komma1.Text = "0"
                                                    End If
                                                    C1007.Text = ""
                                                End If
                                                If Not C1008.Text = "" Then
                                                    If C1009.Text = "" Then
                                                        If C1008.Text = "," Then
                                                            Komma1.Text = "0"
                                                        End If
                                                        C1008.Text = ""
                                                    End If
                                                    If Not C1009.Text = "" Then
                                                        If C1010.Text = "" Then
                                                            If C1009.Text = "," Then
                                                                Komma1.Text = "0"
                                                            End If
                                                            C1009.Text = ""
                                                        End If
                                                        If Not C1010.Text = "" Then
                                                            If C1011.Text = "" Then
                                                                If C1010.Text = "," Then
                                                                    Komma1.Text = "0"
                                                                End If
                                                                C1010.Text = ""
                                                            End If
                                                            If Not C1011.Text = "" Then
                                                                If C1012.Text = "" Then
                                                                    If C1011.Text = "," Then
                                                                        Komma1.Text = "0"
                                                                    End If
                                                                    C1011.Text = ""
                                                                End If
                                                                If Not C1012.Text = "" Then
                                                                    If C1013.Text = "" Then
                                                                        If C1012.Text = "," Then
                                                                            Komma1.Text = "0"
                                                                        End If
                                                                        C1012.Text = ""
                                                                    End If
                                                                    If Not C1013.Text = "" Then
                                                                        If C1014.Text = "" Then
                                                                            If C1013.Text = "," Then
                                                                                Komma1.Text = "0"
                                                                            End If
                                                                            C1013.Text = ""
                                                                        End If
                                                                        If Not C1014.Text = "" Then
                                                                            If C1015.Text = "" Then
                                                                                If C1014.Text = "," Then
                                                                                    Komma1.Text = "0"
                                                                                End If
                                                                                C1014.Text = ""
                                                                            End If
                                                                            If Not C1015.Text = "" Then
                                                                                If C1016.Text = "" Then
                                                                                    If C1015.Text = "," Then
                                                                                        Komma1.Text = "0"
                                                                                    End If
                                                                                    C1015.Text = ""
                                                                                End If
                                                                                If Not C1016.Text = "" Then
                                                                                    If C1017.Text = "" Then
                                                                                        If C1016.Text = "," Then
                                                                                            Komma1.Text = "0"
                                                                                        End If
                                                                                        C1016.Text = ""
                                                                                    End If
                                                                                    If Not C1017.Text = "" Then
                                                                                        If C1018.Text = "" Then
                                                                                            If C1017.Text = "," Then
                                                                                                Komma1.Text = "0"
                                                                                            End If
                                                                                            C1017.Text = ""
                                                                                        End If
                                                                                        If Not C1018.Text = "" Then
                                                                                            If C1019.Text = "" Then
                                                                                                If C1018.Text = "," Then
                                                                                                    Komma1.Text = "0"
                                                                                                End If
                                                                                                C1018.Text = ""
                                                                                            End If
                                                                                            If Not C1019.Text = "" Then
                                                                                                If C1020.Text = "" Then
                                                                                                    If C1019.Text = "," Then
                                                                                                        Komma1.Text = "0"
                                                                                                    End If
                                                                                                    C1019.Text = ""
                                                                                                End If
                                                                                                If Not C1020.Text = "" Then
                                                                                                    If C1021.Text = "" Then
                                                                                                        If C1020.Text = "," Then
                                                                                                            Komma1.Text = "0"
                                                                                                        End If
                                                                                                        C1020.Text = ""
                                                                                                    End If
                                                                                                    If Not C1021.Text = "" Then
                                                                                                        If C1022.Text = "" Then
                                                                                                            If C1021.Text = "," Then
                                                                                                                Komma1.Text = "0"
                                                                                                            End If
                                                                                                            C1021.Text = ""
                                                                                                        End If
                                                                                                        If Not C1022.Text = "" Then
                                                                                                            If C1023.Text = "" Then
                                                                                                                If C1022.Text = "," Then
                                                                                                                    Komma1.Text = "0"
                                                                                                                End If
                                                                                                                C1022.Text = ""
                                                                                                            End If
                                                                                                            If Not C1023.Text = "" Then
                                                                                                                If C1024.Text = "" Then
                                                                                                                    If C1023.Text = "," Then
                                                                                                                        Komma1.Text = "0"
                                                                                                                    End If
                                                                                                                    C1023.Text = ""
                                                                                                                End If
                                                                                                                If Not C1024.Text = "" Then
                                                                                                                    If C1025.Text = "" Then
                                                                                                                        If C1024.Text = "," Then
                                                                                                                            Komma1.Text = "0"
                                                                                                                        End If
                                                                                                                        C1024.Text = ""
                                                                                                                    End If
                                                                                                                    If Not C1025.Text = "" Then
                                                                                                                        If C1025.Text = "," Then
                                                                                                                            Komma1.Text = "0"
                                                                                                                        End If
                                                                                                                        C1025.Text = ""
                                                                                                                    End If
                                                                                                                End If
                                                                                                            End If
                                                                                                        End If
                                                                                                    End If
                                                                                                End If
                                                                                            End If
                                                                                        End If
                                                                                    End If
                                                                                End If
                                                                            End If
                                                                        End If
                                                                    End If
                                                                End If
                                                            End If
                                                        End If
                                                    End If
                                                End If
                                            End If
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
            If Not Teken.Text = "" Then
                If G2.Text = Teken2.Text & C2001.Text & C2002.Text & C2003.Text & C2004.Text & C2005.Text & C2006.Text & C2007.Text & C2008.Text & C2009.Text & C2010.Text & C2011.Text & C2012.Text & C2013.Text & C2014.Text & C2015.Text & C2016.Text & C2017.Text & C2018.Text & C2019.Text & C2020.Text & C2021.Text & C2022.Text & C2023.Text & C2024.Text & C2025.Text Then
                    If Teken2.Text = "" Then
                        If C2001.Text = "" Then
                            Teken.Text = ""
                        End If
                    End If
                    If Not Teken2.Text = "" Then
                        If C2001.Text = "" Then
                            Teken2.Text = ""
                            TControle2.Text = "0"
                        End If
                    End If
                    If Not C2001.Text = "" Then
                        If C2002.Text = "" Then
                            If C2001.Text = "," Then
                                Komma2.Text = "0"
                            End If
                            C2001.Text = ""
                        End If
                        If Not C2002.Text = "" Then
                            If C2003.Text = "" Then
                                If C2002.Text = "," Then
                                    Komma2.Text = "0"
                                End If
                                C2002.Text = ""
                            End If
                            If Not C2003.Text = "" Then
                                If C2004.Text = "" Then
                                    If C2003.Text = "," Then
                                        Komma2.Text = "0"
                                    End If
                                    C2003.Text = ""
                                End If
                                If Not C2004.Text = "" Then
                                    If C2005.Text = "" Then
                                        If C2004.Text = "," Then
                                            Komma2.Text = "0"
                                        End If
                                        C2004.Text = ""
                                    End If
                                    If Not C2005.Text = "" Then
                                        If C2006.Text = "" Then
                                            If C2005.Text = "," Then
                                                Komma2.Text = "0"
                                            End If
                                            C2005.Text = ""
                                        End If
                                        If Not C2006.Text = "" Then
                                            If C2007.Text = "" Then
                                                If C2006.Text = "," Then
                                                    Komma2.Text = "0"
                                                End If
                                                C2006.Text = ""
                                            End If
                                            If Not C2007.Text = "" Then
                                                If C2008.Text = "" Then
                                                    If C2007.Text = "," Then
                                                        Komma2.Text = "0"
                                                    End If
                                                    C2007.Text = ""
                                                End If
                                                If Not C2008.Text = "" Then
                                                    If C2009.Text = "" Then
                                                        If C2008.Text = "," Then
                                                            Komma2.Text = "0"
                                                        End If
                                                        C2008.Text = ""
                                                    End If
                                                    If Not C2009.Text = "" Then
                                                        If C2010.Text = "" Then
                                                            If C2009.Text = "," Then
                                                                Komma2.Text = "0"
                                                            End If
                                                            C2009.Text = ""
                                                        End If
                                                        If Not C2010.Text = "" Then
                                                            If C2011.Text = "" Then
                                                                If C2010.Text = "," Then
                                                                    Komma2.Text = "0"
                                                                End If
                                                                C2010.Text = ""
                                                            End If
                                                            If Not C2011.Text = "" Then
                                                                If C2012.Text = "" Then
                                                                    If C2011.Text = "," Then
                                                                        Komma2.Text = "0"
                                                                    End If
                                                                    C2011.Text = ""
                                                                End If
                                                                If Not C2012.Text = "" Then
                                                                    If C2013.Text = "" Then
                                                                        If C2012.Text = "," Then
                                                                            Komma2.Text = "0"
                                                                        End If
                                                                        C2012.Text = ""
                                                                    End If
                                                                    If Not C2013.Text = "" Then
                                                                        If C2014.Text = "" Then
                                                                            If C2013.Text = "," Then
                                                                                Komma2.Text = "0"
                                                                            End If
                                                                            C2013.Text = ""
                                                                        End If
                                                                        If Not C2014.Text = "" Then
                                                                            If C2015.Text = "" Then
                                                                                If C2014.Text = "," Then
                                                                                    Komma2.Text = "0"
                                                                                End If
                                                                                C2014.Text = ""
                                                                            End If
                                                                            If Not C2015.Text = "" Then
                                                                                If C2016.Text = "" Then
                                                                                    If C2015.Text = "," Then
                                                                                        Komma2.Text = "0"
                                                                                    End If
                                                                                    C2015.Text = ""
                                                                                End If
                                                                                If Not C2016.Text = "" Then
                                                                                    If C2017.Text = "" Then
                                                                                        If C2016.Text = "," Then
                                                                                            Komma2.Text = "0"
                                                                                        End If
                                                                                        C2016.Text = ""
                                                                                    End If
                                                                                    If Not C2017.Text = "" Then
                                                                                        If C2018.Text = "" Then
                                                                                            If C2017.Text = "," Then
                                                                                                Komma2.Text = "0"
                                                                                            End If
                                                                                            C2017.Text = ""
                                                                                        End If
                                                                                        If Not C2018.Text = "" Then
                                                                                            If C2019.Text = "" Then
                                                                                                If C2018.Text = "," Then
                                                                                                    Komma2.Text = "0"
                                                                                                End If
                                                                                                C2018.Text = ""
                                                                                            End If
                                                                                            If Not C2019.Text = "" Then
                                                                                                If C2020.Text = "" Then
                                                                                                    If C2019.Text = "," Then
                                                                                                        Komma2.Text = "0"
                                                                                                    End If
                                                                                                    C2019.Text = ""
                                                                                                End If
                                                                                                If Not C2020.Text = "" Then
                                                                                                    If C2021.Text = "" Then
                                                                                                        If C2020.Text = "," Then
                                                                                                            Komma2.Text = "0"
                                                                                                        End If
                                                                                                        C2020.Text = ""
                                                                                                    End If
                                                                                                    If Not C2021.Text = "" Then
                                                                                                        If C2022.Text = "" Then
                                                                                                            If C2021.Text = "," Then
                                                                                                                Komma2.Text = "0"
                                                                                                            End If
                                                                                                            C2021.Text = ""
                                                                                                        End If
                                                                                                        If Not C2022.Text = "" Then
                                                                                                            If C2023.Text = "" Then
                                                                                                                If C2022.Text = "," Then
                                                                                                                    Komma2.Text = "0"
                                                                                                                End If
                                                                                                                C2022.Text = ""
                                                                                                            End If
                                                                                                            If Not C2023.Text = "" Then
                                                                                                                If C2024.Text = "" Then
                                                                                                                    If C2023.Text = "," Then
                                                                                                                        Komma2.Text = "0"
                                                                                                                    End If
                                                                                                                    C2023.Text = ""
                                                                                                                End If
                                                                                                                If Not C2024.Text = "" Then
                                                                                                                    If C2025.Text = "" Then
                                                                                                                        If C2024.Text = "," Then
                                                                                                                            Komma2.Text = "0"
                                                                                                                        End If
                                                                                                                        C2024.Text = ""
                                                                                                                    End If
                                                                                                                    If Not C2025.Text = "" Then
                                                                                                                        If C2025.Text = "," Then
                                                                                                                            Komma2.Text = "0"
                                                                                                                        End If
                                                                                                                        C2025.Text = ""
                                                                                                                    End If
                                                                                                                End If
                                                                                                            End If
                                                                                                        End If
                                                                                                    End If
                                                                                                End If
                                                                                            End If
                                                                                        End If
                                                                                    End If
                                                                                End If
                                                                            End If
                                                                        End If
                                                                    End If
                                                                End If
                                                            End If
                                                        End If
                                                    End If
                                                End If
                                            End If
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If
        If Not Uitkomst.Text = "" Then
            Uitkomst.Text = ""
        End If
    End Sub

 

[najreteip]

2/6 code

Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
        If G2.Text = "" Then
            If Teken.Text = "²" Then
                G1.Text = G1.Text ^ 2
                Uitkomst.Text = ""
                C2001.Text = ""
                C2002.Text = ""
                C2003.Text = ""
                C2004.Text = ""
                C2005.Text = ""
                C2006.Text = ""
                C2007.Text = ""
                C2008.Text = ""
                C2009.Text = ""
                C2010.Text = ""
                C2011.Text = ""
                C2012.Text = ""
                C2013.Text = ""
                C2014.Text = ""
                C2015.Text = ""
                C2016.Text = ""
                C2017.Text = ""
                C2018.Text = ""
                C2019.Text = ""
                C2020.Text = ""
                C2021.Text = ""
                C2022.Text = ""
                C2023.Text = ""
                C2024.Text = ""
                C2025.Text = ""
                Teken2.Text = "0"
                Komma2.Text = "0"
            End If
        End If
        If Not G2.Text = "" Then
            If Teken.Text = " + " Then
                G1.Text = G1.Text - -G2.Text
            End If
            If Teken.Text = " - " Then
                G1.Text = G1.Text - G2.Text
            End If
            If Teken.Text = " * " Then
                G1.Text = G1.Text * G2.Text
            End If
            If Teken.Text = " / " Then
                G1.Text = G1.Text / G2.Text
            End If
            If Teken.Text = " ^ " Then
                G1.Text = G1.Text ^ G2.Text
            End If
            If Teken.Text = "√" Then
                G1.Text = Math.Sqrt(G2.Text)
            End If
            If Teken.Text = " n√ " Then
                G1.Text = G2.Text ^ (1 / G1.Text)
            End If
            If Teken.Text = " √n " Then
                G1.Text = G1.Text ^ (1 / G2.Text)
            End If
            If Teken.Text = "sin(" Then
                G1.Text = Math.Sin(G2.Text)
            End If
            If Teken.Text = "cos(" Then
                G1.Text = Math.Cos(G2.Text)
            End If
            If Teken.Text = "tan(" Then
                G1.Text = Math.Tan(G2.Text)
            End If
            Uitkomst.Text = ""
            TControle2.Text = "0"
            Komma2.Text = "0"
        End If
        If Teken.Text = "" Then
            If Komma1.Text = "0" Then
                Button12.Enabled = True
            End If
            If Komma1.Text = "1" Then
                Button12.Enabled = False
            End If
        End If
        If Not Teken.Text = "" Then
            If Komma2.Text = "0" Then
                Button12.Enabled = True
            End If
            If Komma2.Text = "1" Then
                Button12.Enabled = False
            End If
        End If
        C2001.Text = ""
        C2002.Text = ""
        C2003.Text = ""
        C2004.Text = ""
        C2005.Text = ""
        C2006.Text = ""
        C2007.Text = ""
        C2008.Text = ""
        C2009.Text = ""
        C2010.Text = ""
        C2011.Text = ""
        C2012.Text = ""
        C2013.Text = ""
        C2014.Text = ""
        C2015.Text = ""
        C2016.Text = ""
        C2017.Text = ""
        C2018.Text = ""
        C2019.Text = ""
        C2020.Text = ""
        C2021.Text = ""
        C2022.Text = ""
        C2023.Text = ""
        C2024.Text = ""
        C2025.Text = ""
        Teken2.Text = ""
        G2.Text = ""
        Teken.Text = " + "
        Button12.Enabled = True
        Button11.Enabled = True
    End Sub

    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
        If G2.Text = "" Then
            If Teken.Text = "²" Then
                G1.Text = G1.Text ^ 2
                Uitkomst.Text = ""
            End If
        End If
        If Not G2.Text = "" Then
            If Teken.Text = " + " Then
                G1.Text = G1.Text - -G2.Text
            End If
            If Teken.Text = " - " Then
                G1.Text = G1.Text - G2.Text
            End If
            If Teken.Text = " * " Then
                G1.Text = G1.Text * G2.Text
            End If
            If Teken.Text = " / " Then
                G1.Text = G1.Text / G2.Text
            End If
            If Teken.Text = " ^ " Then
                G1.Text = G1.Text ^ G2.Text
            End If
            If Teken.Text = "√" Then
                G1.Text = Math.Sqrt(G2.Text)
            End If
            If Teken.Text = " n√ " Then
                G1.Text = G2.Text ^ (1 / G1.Text)
            End If
            If Teken.Text = " √n " Then
                G1.Text = G1.Text ^ (1 / G2.Text)
            End If
            If Teken.Text = "sin(" Then
                G1.Text = Math.Sin(G2.Text)
            End If
            If Teken.Text = "cos(" Then
                G1.Text = Math.Cos(G2.Text)
            End If
            If Teken.Text = "tan(" Then
                G1.Text = Math.Tan(G2.Text)
            End If
            Uitkomst.Text = ""
            TControle2.Text = "0"
            Komma2.Text = "0"
        End If
        If Teken.Text = "" Then
            If Komma1.Text = "0" Then
                Button12.Enabled = True
            End If
            If Komma1.Text = "1" Then
                Button12.Enabled = False
            End If
        End If
        If Not Teken.Text = "" Then
            If Komma2.Text = "0" Then
                Button12.Enabled = True
            End If
            If Komma2.Text = "1" Then
                Button12.Enabled = False
            End If
        End If
        C2001.Text = ""
        C2002.Text = ""
        C2003.Text = ""
        C2004.Text = ""
        C2005.Text = ""
        C2006.Text = ""
        C2007.Text = ""
        C2008.Text = ""
        C2009.Text = ""
        C2010.Text = ""
        C2011.Text = ""
        C2012.Text = ""
        C2013.Text = ""
        C2014.Text = ""
        C2015.Text = ""
        C2016.Text = ""
        C2017.Text = ""
        C2018.Text = ""
        C2019.Text = ""
        C2020.Text = ""
        C2021.Text = ""
        C2022.Text = ""
        C2023.Text = ""
        C2024.Text = ""
        C2025.Text = ""
        Teken2.Text = ""
        G2.Text = ""
        Teken.Text = " - "
        Button12.Enabled = True
        Button11.Enabled = True
    End Sub

    Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
        If G2.Text = "" Then
            If Teken.Text = "²" Then
                G1.Text = G1.Text ^ 2
                Uitkomst.Text = ""
            End If
        End If
        If Not G2.Text = "" Then
            If Teken.Text = " + " Then
                G1.Text = G1.Text - -G2.Text
            End If
            If Teken.Text = " - " Then
                G1.Text = G1.Text - G2.Text
            End If
            If Teken.Text = " * " Then
                G1.Text = G1.Text * G2.Text
            End If
            If Teken.Text = " / " Then
                G1.Text = G1.Text / G2.Text
            End If
            If Teken.Text = " ^ " Then
                G1.Text = G1.Text ^ G2.Text
            End If
            If Teken.Text = "√" Then
                G1.Text = Math.Sqrt(G2.Text)
            End If
            If Teken.Text = " n√ " Then
                G1.Text = G2.Text ^ (1 / G1.Text)
            End If
            If Teken.Text = " √n " Then
                G1.Text = G1.Text ^ (1 / G2.Text)
            End If
            If Teken.Text = "sin(" Then
                G1.Text = Math.Sin(G2.Text)
            End If
            If Teken.Text = "cos(" Then
                G1.Text = Math.Cos(G2.Text)
            End If
            If Teken.Text = "tan(" Then
                G1.Text = Math.Tan(G2.Text)
            End If
            Uitkomst.Text = ""
            TControle2.Text = "0"
            Komma2.Text = "0"
        End If
        If Teken.Text = "" Then
            If Komma1.Text = "0" Then
                Button12.Enabled = True
            End If
            If Komma1.Text = "1" Then
                Button12.Enabled = False
            End If
        End If
        If Not Teken.Text = "" Then
            If Komma2.Text = "0" Then
                Button12.Enabled = True
            End If
            If Komma2.Text = "1" Then
                Button12.Enabled = False
            End If
        End If
        C2001.Text = ""
        C2002.Text = ""
        C2003.Text = ""
        C2004.Text = ""
        C2005.Text = ""
        C2006.Text = ""
        C2007.Text = ""
        C2008.Text = ""
        C2009.Text = ""
        C2010.Text = ""
        C2011.Text = ""
        C2012.Text = ""
        C2013.Text = ""
        C2014.Text = ""
        C2015.Text = ""
        C2016.Text = ""
        C2017.Text = ""
        C2018.Text = ""
        C2019.Text = ""
        C2020.Text = ""
        C2021.Text = ""
        C2022.Text = ""
        C2023.Text = ""
        C2024.Text = ""
        C2025.Text = ""
        Teken2.Text = ""
        Teken.Text = " * "
        G2.Text = ""
        Button12.Enabled = True
        Button11.Enabled = True
    End Sub

    Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
        If G2.Text = "" Then
            If Teken.Text = "²" Then
                G1.Text = G1.Text ^ 2
                Uitkomst.Text = ""
            End If
        End If
        If Not G2.Text = "" Then
            If Teken.Text = " + " Then
                G1.Text = G1.Text - -G2.Text
            End If
            If Teken.Text = " - " Then
                G1.Text = G1.Text - G2.Text
            End If
            If Teken.Text = " * " Then
                G1.Text = G1.Text * G2.Text
            End If
            If Teken.Text = " / " Then
                G1.Text = G1.Text / G2.Text
            End If
            If Teken.Text = " ^ " Then
                G1.Text = G1.Text ^ G2.Text
            End If
            If Teken.Text = "√" Then
                G1.Text = Math.Sqrt(G2.Text)
            End If
            If Teken.Text = " n√ " Then
                G1.Text = G2.Text ^ (1 / G1.Text)
            End If
            If Teken.Text = " √n " Then
                G1.Text = G1.Text ^ (1 / G2.Text)
            End If
            If Teken.Text = "sin(" Then
                G1.Text = Math.Sin(G2.Text)
            End If
            If Teken.Text = "cos(" Then
                G1.Text = Math.Cos(G2.Text)
            End If
            If Teken.Text = "tan(" Then
                G1.Text = Math.Tan(G2.Text)
            End If
            Uitkomst.Text = ""
            TControle2.Text = "0"
            Komma2.Text = "0"
        End If
        If Teken.Text = "" Then
            If Komma1.Text = "0" Then
                Button12.Enabled = True
            End If
            If Komma1.Text = "1" Then
                Button12.Enabled = False
            End If
        End If
        If Not Teken.Text = "" Then
            If Komma2.Text = "0" Then
                Button12.Enabled = True
            End If
            If Komma2.Text = "1" Then
                Button12.Enabled = False
            End If
        End If
        C2001.Text = ""
        C2002.Text = ""
        C2003.Text = ""
        C2004.Text = ""
        C2005.Text = ""
        C2006.Text = ""
        C2007.Text = ""
        C2008.Text = ""
        C2009.Text = ""
        C2010.Text = ""
        C2011.Text = ""
        C2012.Text = ""
        C2013.Text = ""
        C2014.Text = ""
        C2015.Text = ""
        C2016.Text = ""
        C2017.Text = ""
        C2018.Text = ""
        C2019.Text = ""
        C2020.Text = ""
        C2021.Text = ""
        C2022.Text = ""
        C2023.Text = ""
        C2024.Text = ""
        C2025.Text = ""
        Teken2.Text = ""
        Teken.Text = " / "
        G2.Text = ""
        Button12.Enabled = True
        Button11.Enabled = True
    End Sub

    Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
        If G2.Text = "" Then
            If Teken.Text = "²" Then
                G1.Text = G1.Text ^ 2
                Uitkomst.Text = ""
            End If
        End If
        If Not G2.Text = "" Then
            If Teken.Text = " + " Then
                G1.Text = G1.Text - -G2.Text
            End If
            If Teken.Text = " - " Then
                G1.Text = G1.Text - G2.Text
            End If
            If Teken.Text = " * " Then
                G1.Text = G1.Text * G2.Text
            End If
            If Teken.Text = " / " Then
                G1.Text = G1.Text / G2.Text
            End If
            If Teken.Text = " ^ " Then
                G1.Text = G1.Text ^ G2.Text
            End If
            If Teken.Text = "√" Then
                G1.Text = Math.Sqrt(G2.Text)
            End If
            If Teken.Text = " n√ " Then
                G1.Text = G2.Text ^ (1 / G1.Text)
            End If
            If Teken.Text = " √n " Then
                G1.Text = G1.Text ^ (1 / G2.Text)
            End If
            If Teken.Text = "sin(" Then
                G1.Text = Math.Sin(G2.Text)
            End If
            If Teken.Text = "cos(" Then
                G1.Text = Math.Cos(G2.Text)
            End If
            If Teken.Text = "tan(" Then
                G1.Text = Math.Tan(G2.Text)
            End If
            Uitkomst.Text = ""
            TControle2.Text = "0"
            Komma2.Text = "0"
        End If
        If Teken.Text = "" Then
            If Komma1.Text = "0" Then
                Button12.Enabled = True
            End If
            If Komma1.Text = "1" Then
                Button12.Enabled = False
            End If
        End If
        If Not Teken.Text = "" Then
            If Komma2.Text = "0" Then
                Button12.Enabled = True
            End If
            If Komma2.Text = "1" Then
                Button12.Enabled = False
            End If
        End If
        G2.Text = ""
        C2001.Text = ""
        C2002.Text = ""
        C2003.Text = ""
        C2004.Text = ""
        C2005.Text = ""
        C2006.Text = ""
        C2007.Text = ""
        C2008.Text = ""
        C2009.Text = ""
        C2010.Text = ""
        C2011.Text = ""
        C2012.Text = ""
        C2013.Text = ""
        C2014.Text = ""
        C2015.Text = ""
        C2016.Text = ""
        C2017.Text = ""
        C2018.Text = ""
        C2019.Text = ""
        C2020.Text = ""
        C2021.Text = ""
        C2022.Text = ""
        C2023.Text = ""
        C2024.Text = ""
        C2025.Text = ""
        Teken2.Text = ""
        Teken.Text = "²"
        G2.Text = ""
        Button12.Enabled = True
        Button11.Enabled = True
    End Sub

    Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click
        If G2.Text = "" Then
            If Teken.Text = "²" Then
                G2.Text = G1.Text ^ 2
                Uitkomst.Text = ""
            End If
        End If
        If Not G2.Text = "" Then
            If Teken.Text = " + " Then
                G2.Text = G1.Text - -G2.Text
            End If
            If Teken.Text = " - " Then
                G2.Text = G1.Text - G2.Text
            End If
            If Teken.Text = " * " Then
                G2.Text = G1.Text * G2.Text
            End If
            If Teken.Text = " / " Then
                G2.Text = G1.Text / G2.Text
            End If
            If Teken.Text = " ^ " Then
                G2.Text = G1.Text ^ G2.Text
            End If
            If Teken.Text = "√" Then
                G2.Text = Math.Sqrt(G2.Text)
            End If
            If Teken.Text = " n√ " Then
                G2.Text = G2.Text ^ (1 / G1.Text)
            End If
            If Teken.Text = " √n " Then
                G2.Text = G1.Text ^ (1 / G2.Text)
            End If
            If Teken.Text = "sin(" Then
                G2.Text = Math.Sin(G2.Text)
            End If
            If Teken.Text = "cos(" Then
                G2.Text = Math.Cos(G2.Text)
            End If
            If Teken.Text = "tan(" Then
                G2.Text = Math.Tan(G2.Text)
            End If
            Uitkomst.Text = ""
            TControle2.Text = "0"
            Komma2.Text = "0"
        End If
        If Teken.Text = "" Then
            If Komma1.Text = "0" Then
                Button12.Enabled = True
            End If
            If Komma1.Text = "1" Then
                Button12.Enabled = False
            End If
        End If
        If Not Teken.Text = "" Then
            If Komma2.Text = "0" Then
                Button12.Enabled = True
            End If
            If Komma2.Text = "1" Then
                Button12.Enabled = False
            End If
        End If
        C1001.Text = ""
        C1002.Text = ""
        C1003.Text = ""
        C1004.Text = ""
        C1005.Text = ""
        C1006.Text = ""
        C1007.Text = ""
        C1008.Text = ""
        C1009.Text = ""
        C1010.Text = ""
        C1011.Text = ""
        C1012.Text = ""
        C1013.Text = ""
        C1014.Text = ""
        C1015.Text = ""
        C1016.Text = ""
        C1017.Text = ""
        C1018.Text = ""
        C1019.Text = ""
        C1020.Text = ""
        C1021.Text = ""
        C1022.Text = ""
        C1023.Text = ""
        C1024.Text = ""
        C1025.Text = ""
        G1.Text = ""
        Teken.Text = "√"
        Button12.Enabled = True
        Button11.Enabled = True
    End Sub

    Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click
        If G2.Text = "" Then
            If Teken.Text = "²" Then
                G1.Text = G1.Text ^ 2
                Uitkomst.Text = ""
            End If
        End If
        If Not G2.Text = "" Then
            If Teken.Text = " + " Then
                G1.Text = G1.Text - -G2.Text
            End If
            If Teken.Text = " - " Then
                G1.Text = G1.Text - G2.Text
            End If
            If Teken.Text = " * " Then
                G1.Text = G1.Text * G2.Text
            End If
            If Teken.Text = " / " Then
                G1.Text = G1.Text / G2.Text
            End If
            If Teken.Text = " ^ " Then
                G1.Text = G1.Text ^ G2.Text
            End If
            If Teken.Text = "√" Then
                G1.Text = Math.Sqrt(G2.Text)
            End If
            If Teken.Text = " n√ " Then
                G1.Text = G2.Text ^ (1 / G1.Text)
            End If
            If Teken.Text = " √n " Then
                G1.Text = G1.Text ^ (1 / G2.Text)
            End If
            If Teken.Text = "sin(" Then
                G1.Text = Math.Sin(G2.Text)
            End If
            If Teken.Text = "cos(" Then
                G1.Text = Math.Cos(G2.Text)
            End If
            If Teken.Text = "tan(" Then
                G1.Text = Math.Tan(G2.Text)
            End If
            Uitkomst.Text = ""
            TControle2.Text = "0"
            Komma2.Text = "0"
        End If
        If Teken.Text = "" Then
            If Komma1.Text = "0" Then
                Button12.Enabled = True
            End If
            If Komma1.Text = "1" Then
                Button12.Enabled = False
            End If
        End If
        If Not Teken.Text = "" Then
            If Komma2.Text = "0" Then
                Button12.Enabled = True
            End If
            If Komma2.Text = "1" Then
                Button12.Enabled = False
            End If
        End If
        C2001.Text = ""
        C2002.Text = ""
        C2003.Text = ""
        C2004.Text = ""
        C2005.Text = ""
        C2006.Text = ""
        C2007.Text = ""
        C2008.Text = ""
        C2009.Text = ""
        C2010.Text = ""
        C2011.Text = ""
        C2012.Text = ""
        C2013.Text = ""
        C2014.Text = ""
        C2015.Text = ""
        C2016.Text = ""
        C2017.Text = ""
        C2018.Text = ""
        C2019.Text = ""
        C2020.Text = ""
        C2021.Text = ""
        C2022.Text = ""
        C2023.Text = ""
        C2024.Text = ""
        C2025.Text = ""
        Teken2.Text = ""
        Teken.Text = " ^ "
        G2.Text = ""
        Button12.Enabled = True
        Button11.Enabled = True
    End Sub

    Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click
        If G2.Text = "" Then
            If Teken.Text = "²" Then
                G1.Text = G1.Text ^ 2
                Uitkomst.Text = ""
            End If
        End If
        If Not G2.Text = "" Then
            If Teken.Text = " + " Then
                G1.Text = G1.Text - -G2.Text
            End If
            If Teken.Text = " - " Then
                G1.Text = G1.Text - G2.Text
            End If
            If Teken.Text = " * " Then
                G1.Text = G1.Text * G2.Text
            End If
            If Teken.Text = " / " Then
                G1.Text = G1.Text / G2.Text
            End If
            If Teken.Text = " ^ " Then
                G1.Text = G1.Text ^ G2.Text
            End If
            If Teken.Text = "√" Then
                G1.Text = Math.Sqrt(G2.Text)
            End If
            If Teken.Text = " n√ " Then
                G1.Text = G2.Text ^ (1 / G1.Text)
            End If
            If Teken.Text = " √n " Then
                G1.Text = G1.Text ^ (1 / G2.Text)
            End If
            If Teken.Text = "sin(" Then
                G1.Text = Math.Sin(G2.Text)
            End If
            If Teken.Text = "cos(" Then
                G1.Text = Math.Cos(G2.Text)
            End If
            If Teken.Text = "tan(" Then
                G1.Text = Math.Tan(G2.Text)
            End If
            Uitkomst.Text = ""
            TControle2.Text = "0"
            Komma2.Text = "0"
        End If
        If Teken.Text = "" Then
            If Komma1.Text = "0" Then
                Button12.Enabled = True
            End If
            If Komma1.Text = "1" Then
                Button12.Enabled = False
            End If
        End If
        If Not Teken.Text = "" Then
            If Komma2.Text = "0" Then
                Button12.Enabled = True
            End If
            If Komma2.Text = "1" Then
                Button12.Enabled = False
            End If
        End If
        C2001.Text = ""
        C2002.Text = ""
        C2003.Text = ""
        C2004.Text = ""
        C2005.Text = ""
        C2006.Text = ""
        C2007.Text = ""
        C2008.Text = ""
        C2009.Text = ""
        C2010.Text = ""
        C2011.Text = ""
        C2012.Text = ""
        C2013.Text = ""
        C2014.Text = ""
        C2015.Text = ""
        C2016.Text = ""
        C2017.Text = ""
        C2018.Text = ""
        C2019.Text = ""
        C2020.Text = ""
        C2021.Text = ""
        C2022.Text = ""
        C2023.Text = ""
        C2024.Text = ""
        C2025.Text = ""
        Teken2.Text = ""
        G2.Text = ""
        Teken.Text = " n√ "
        Button11.Enabled = True
        Button12.Enabled = True
    End Sub

    Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click
        If G2.Text = "" Then
            If Teken.Text = "²" Then
                G1.Text = G1.Text ^ 2
                Uitkomst.Text = ""
            End If
        End If
        If Not G2.Text = "" Then
            If Teken.Text = " + " Then
                G1.Text = G1.Text - -G2.Text
            End If
            If Teken.Text = " - " Then
                G1.Text = G1.Text - G2.Text
            End If
            If Teken.Text = " * " Then
                G1.Text = G1.Text * G2.Text
            End If
            If Teken.Text = " / " Then
                G1.Text = G1.Text / G2.Text
            End If
            If Teken.Text = " ^ " Then
                G1.Text = G1.Text ^ G2.Text
            End If
            If Teken.Text = "√" Then
                G1.Text = Math.Sqrt(G2.Text)
            End If
            If Teken.Text = " n√ " Then
                G1.Text = G2.Text ^ (1 / G1.Text)
            End If
            If Teken.Text = " √n " Then
                G1.Text = G1.Text ^ (1 / G2.Text)
            End If
            If Teken.Text = "sin(" Then
                G1.Text = Math.Sin(G2.Text)
            End If
            If Teken.Text = "cos(" Then
                G1.Text = Math.Cos(G2.Text)
            End If
            If Teken.Text = "tan(" Then
                G1.Text = Math.Tan(G2.Text)
            End If
            Uitkomst.Text = ""
            TControle2.Text = "0"
            Komma2.Text = "0"
        End If
        If Teken.Text = "" Then
            If Komma1.Text = "0" Then
                Button12.Enabled = True
            End If
            If Komma1.Text = "1" Then
                Button12.Enabled = False
            End If
        End If
        If Not Teken.Text = "" Then
            If Komma2.Text = "0" Then
                Button12.Enabled = True
            End If
            If Komma2.Text = "1" Then
                Button12.Enabled = False
            End If
        End If
        C2001.Text = ""
        C2002.Text = ""
        C2003.Text = ""
        C2004.Text = ""
        C2005.Text = ""
        C2006.Text = ""
        C2007.Text = ""
        C2008.Text = ""
        C2009.Text = ""
        C2010.Text = ""
        C2011.Text = ""
        C2012.Text = ""
        C2013.Text = ""
        C2014.Text = ""
        C2015.Text = ""
        C2016.Text = ""
        C2017.Text = ""
        C2018.Text = ""
        C2019.Text = ""
        C2020.Text = ""
        C2021.Text = ""
        C2022.Text = ""
        C2023.Text = ""
        C2024.Text = ""
        C2025.Text = ""
        Teken2.Text = ""
        G2.Text = ""
        Teken.Text = " √n "
        Button11.Enabled = True
        Button12.Enabled = True
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        If Uitkomst.Text = "" Then
            If Teken.Text = "" Then
                Komma1.Text = "1"
                If Not C1001.Text = "" Then
                    If Not C1002.Text = "" Then
                        If Not C1003.Text = "" Then
                            If Not C1004.Text = "" Then
                                If Not C1005.Text = "" Then
                                    If Not C1006.Text = "" Then
                                        If Not C1007.Text = "" Then
                                            If Not C1008.Text = "" Then
                                                If Not C1009.Text = "" Then
                                                    If Not C1010.Text = "" Then
                                                        If Not C1011.Text = "" Then
                                                            If Not C1012.Text = "" Then
                                                                If Not C1013.Text = "" Then
                                                                    If Not C1014.Text = "" Then
                                                                        If Not C1015.Text = "" Then
                                                                            If Not C1016.Text = "" Then
                                                                                If Not C1017.Text = "" Then
                                                                                    If Not C1018.Text = "" Then
                                                                                        If Not C1019.Text = "" Then
                                                                                            If Not C1020.Text = "" Then
                                                                                                If Not C1021.Text = "" Then
                                                                                                    If Not C1022.Text = "" Then
                                                                                                        If Not C1023.Text = "" Then
                                                                                                            If Not C1024.Text = "" Then
                                                                                                                If C1025.Text = "" Then
                                                                                                                    C1025.Text = ","
                                                                                                                End If
                                                                                                            End If
                                                                                                            If C1024.Text = "" Then
                                                                                                                C1024.Text = ","
                                                                                                            End If
                                                                                                        End If
                                                                                                        If C1023.Text = "" Then
                                                                                                            C1023.Text = ","
                                                                                                        End If
                                                                                                    End If
                                                                                                    If C1022.Text = "" Then
                                                                                                        C1022.Text = ","
                                                                                                    End If
                                                                                                End If
                                                                                                If C1021.Text = "" Then
                                                                                                    C1021.Text = ","
                                                                                                End If
                                                                                            End If
                                                                                            If C1020.Text = "" Then
                                                                                                C1020.Text = ","
                                                                                            End If
                                                                                        End If
                                                                                        If C1019.Text = "" Then
                                                                                            C1019.Text = ","
                                                                                        End If
                                                                                    End If
                                                                                    If C1018.Text = "" Then
                                                                                        C1018.Text = ","
                                                                                    End If
                                                                                End If
                                                                                If C1017.Text = "" Then
                                                                                    C1017.Text = ","
                                                                                End If
                                                                            End If
                                                                            If C1016.Text = "" Then
                                                                                C1016.Text = ","
                                                                            End If
                                                                        End If
                                                                        If C1015.Text = "" Then
                                                                            C1015.Text = ","
                                                                        End If
                                                                    End If
                                                                    If C1014.Text = "" Then
                                                                        C1014.Text = ","
                                                                    End If
                                                                End If
                                                                If C1013.Text = "" Then
                                                                    C1013.Text = ","
                                                                End If
                                                            End If
                                                            If C1012.Text = "" Then
                                                                C1012.Text = ","
                                                            End If
                                                        End If
                                                        If C1011.Text = "" Then
                                                            C1011.Text = ","
                                                        End If
                                                    End If
                                                    If C1010.Text = "" Then
                                                        C1010.Text = ","
                                                    End If
                                                End If
                                                If C1009.Text = "" Then
                                                    C1009.Text = ","
                                                End If
                                            End If
                                            If C1008.Text = "" Then
                                                C1008.Text = ","
                                            End If
                                        End If
                                        If C1007.Text = "" Then
                                            C1007.Text = ","
                                        End If
                                    End If
                                    If C1006.Text = "" Then
                                        C1006.Text = ","
                                    End If
                                End If
                                If C1005.Text = "" Then
                                    C1005.Text = ","
                                End If
                            End If
                            If C1004.Text = "" Then
                                C1004.Text = ","
                            End If
                        End If
                        If C1003.Text = "" Then
                            C1003.Text = ","
                        End If
                    End If
                    If C1002.Text = "" Then
                        C1002.Text = ","
                    End If
                End If
                If C1001.Text = "" Then
                    C1001.Text = "0"
                    C1002.Text = ","
                End If
            End If
            If Not Teken.Text = "" Then
                Komma2.Text = "1"
                If Not C2001.Text = "" Then
                    If Not C2002.Text = "" Then
                        If Not C2003.Text = "" Then
                            If Not C2004.Text = "" Then
                                If Not C2005.Text = "" Then
                                    If Not C2006.Text = "" Then
                                        If Not C2007.Text = "" Then
                                            If Not C2008.Text = "" Then
                                                If Not C2009.Text = "" Then
                                                    If Not C2010.Text = "" Then
                                                        If Not C2011.Text = "" Then
                                                            If Not C2012.Text = "" Then
                                                                If Not C2013.Text = "" Then
                                                                    If Not C2014.Text = "" Then
                                                                        If Not C2015.Text = "" Then
                                                                            If Not C2016.Text = "" Then
                                                                                If Not C2017.Text = "" Then
                                                                                    If Not C2018.Text = "" Then
                                                                                        If Not C2019.Text = "" Then
                                                                                            If Not C2020.Text = "" Then
                                                                                                If Not C2021.Text = "" Then
                                                                                                    If Not C2022.Text = "" Then
                                                                                                        If Not C2023.Text = "" Then
                                                                                                            If Not C2024.Text = "" Then
                                                                                                                If C2025.Text = "" Then
                                                                                                                    C2025.Text = ","
                                                                                                                End If
                                                                                                            End If
                                                                                                            If C2024.Text = "" Then
                                                                                                                C2024.Text = ","
                                                                                                            End If
                                                                                                        End If
                                                                                                        If C2023.Text = "" Then
                                                                                                            C2023.Text = ","
                                                                                                        End If
                                                                                                    End If
                                                                                                    If C2022.Text = "" Then
                                                                                                        C2022.Text = ","
                                                                                                    End If
                                                                                                End If
                                                                                                If C2021.Text = "" Then
                                                                                                    C2021.Text = ","
                                                                                                End If
                                                                                            End If
                                                                                            If C2020.Text = "" Then
                                                                                                C2020.Text = ","
                                                                                            End If
                                                                                        End If
                                                                                        If C2019.Text = "" Then
                                                                                            C2019.Text = ","
                                                                                        End If
                                                                                    End If
                                                                                    If C2018.Text = "" Then
                                                                                        C2018.Text = ","
                                                                                    End If
                                                                                End If
                                                                                If C2017.Text = "" Then
                                                                                    C2017.Text = ","
                                                                                End If
                                                                            End If
                                                                            If C2016.Text = "" Then
                                                                                C2016.Text = ","
                                                                            End If
                                                                        End If
                                                                        If C2015.Text = "" Then
                                                                            C2015.Text = ","
                                                                        End If
                                                                    End If
                                                                    If C2014.Text = "" Then
                                                                        C2014.Text = ","
                                                                    End If
                                                                End If
                                                                If C2013.Text = "" Then
                                                                    C2013.Text = ","
                                                                End If
                                                            End If
                                                            If C2012.Text = "" Then
                                                                C2012.Text = ","
                                                            End If
                                                        End If
                                                        If C2011.Text = "" Then
                                                            C2011.Text = ","
                                                        End If
                                                    End If
                                                    If C2010.Text = "" Then
                                                        C2010.Text = ","
                                                    End If
                                                End If
                                                If C2009.Text = "" Then
                                                    C2009.Text = ","
                                                End If
                                            End If
                                            If C2008.Text = "" Then
                                                C2008.Text = ","
                                            End If
                                        End If
                                        If C2007.Text = "" Then
                                            C2007.Text = ","
                                        End If
                                    End If
                                    If C2006.Text = "" Then
                                        C2006.Text = ","
                                    End If
                                End If
                                If C2005.Text = "" Then
                                    C2005.Text = ","
                                End If
                            End If
                            If C2004.Text = "" Then
                                C2004.Text = ","
                            End If
                        End If
                        If C2003.Text = "" Then
                            C2003.Text = ","
                        End If
                    End If
                    If Not C2001.Text = "0" Then
                        If C2002.Text = "" Then
                            C2002.Text = ","
                        End If
                    End If
                    If C2001.Text = "0" Then
                        If C2002.Text = "" Then
                            C2002.Text = ","
                        End If
                    End If
                End If
                If C2001.Text = "" Then
                    C2001.Text = "0"
                    C2002.Text = ","
                End If
            End If
        End If
        If Not Uitkomst.Text = "" Then
            C1001.Text = "0,"
            C1002.Text = ""
            C1003.Text = ""
            C1004.Text = ""
            C1005.Text = ""
            C1006.Text = ""
            C1007.Text = ""
            C1008.Text = ""
            C1009.Text = ""
            C1010.Text = ""
            C1011.Text = ""
            C1012.Text = ""
            C1013.Text = ""
            C1014.Text = ""
            C1015.Text = ""
            C1016.Text = ""
            C1017.Text = ""
            C1018.Text = ""
            C1019.Text = ""
            C1020.Text = ""
            C1021.Text = ""
            C1022.Text = ""
            C1023.Text = ""
            C1024.Text = ""
            C1025.Text = ""
            C2001.Text = ""
            C2002.Text = ""
            C2003.Text = ""
            C2004.Text = ""
            C2005.Text = ""
            C2006.Text = ""
            C2007.Text = ""
            C2008.Text = ""
            C2009.Text = ""
            C2010.Text = ""
            C2011.Text = ""
            C2012.Text = ""
            C2013.Text = ""
            C2014.Text = ""
            C2015.Text = ""
            C2016.Text = ""
            C2017.Text = ""
            C2018.Text = ""
            C2019.Text = ""
            C2020.Text = ""
            C2021.Text = ""
            C2022.Text = ""
            C2023.Text = ""
            C2024.Text = ""
            C2025.Text = ""
            Teken1.Text = ""
            Teken2.Text = ""
            Teken.Text = ""
            Uitkomst.Text = ""
        End If
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        If Not Uitkomst.Text = "" Then
            Uitkomst.Text = ""
            C1001.Text = ""
            C1002.Text = ""
            C1003.Text = ""
            C1004.Text = ""
            C1005.Text = ""
            C1006.Text = ""
            C1007.Text = ""
            C1008.Text = ""
            C1009.Text = ""
            C1010.Text = ""
            C1011.Text = ""
            C1012.Text = ""
            C1013.Text = ""
            C1014.Text = ""
            C1015.Text = ""
            C1016.Text = ""
            C1017.Text = ""
            C1018.Text = ""
            C1019.Text = ""
            C1020.Text = ""
            C1021.Text = ""
            C1022.Text = ""
            C1023.Text = ""
            C1024.Text = ""
            C1025.Text = ""
            C2001.Text = ""
            C2002.Text = ""
            C2003.Text = ""
            C2004.Text = ""
            C2005.Text = ""
            C2006.Text = ""
            C2007.Text = ""
            C2008.Text = ""
            C2009.Text = ""
            C2010.Text = ""
            C2011.Text = ""
            C2012.Text = ""
            C2013.Text = ""
            C2014.Text = ""
            C2015.Text = ""
            C2016.Text = ""
            C2017.Text = ""
            C2018.Text = ""
            C2019.Text = ""
            C2020.Text = ""
            C2021.Text = ""
            C2022.Text = ""
            C2023.Text = ""
            C2024.Text = ""
            C2025.Text = ""
            Teken1.Text = ""
            Teken2.Text = ""
            Teken.Text = ""
            Uitkomst.Text = ""
        End If
        If Uitkomst.Text = "" Then
            If Teken.Text = "" Then
                Teken1.Text = "-"
                TControle1.Text = "1"
            End If
            If Not Teken.Text = "" Then
                Teken2.Text = "-"
                TControle2.Text = "1"
            End If
        End If
    End Sub

 

[najreteip]

Deel 4/6

Private Sub Button30_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button30.MouseLeave
    Label18.Visible = False
End Sub

Private Sub Button30_mousehover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button30.MouseHover
    Label18.Visible = True
End Sub

Private Sub Button29_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button29.MouseLeave
    Label17.Visible = False
End Sub

Private Sub Button29_mousehover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button29.MouseHover
    Label17.Visible = True
End Sub

Private Sub Button28_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button28.MouseLeave
    Label16.Visible = False
End Sub

Private Sub Button28_mousehover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button28.MouseHover
    Label16.Visible = True
End Sub

Private Sub Button27_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.MouseLeave
    Label14.Visible = False
End Sub

Private Sub Button27_mousehover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.MouseHover
    Label14.Visible = True
End Sub

Private Sub Button26_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.MouseLeave
    Label15.Visible = False
End Sub

Private Sub Button26_mousehover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.MouseHover
    Label15.Visible = True
End Sub

Private Sub Button25_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.MouseLeave
    Label13.Visible = False
End Sub

Private Sub Button25_mousehover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.MouseHover
    Label13.Visible = True
End Sub

Private Sub Button24_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.MouseLeave
    Label11.Visible = False
End Sub

Private Sub Button24_mousehover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.MouseHover
    Label11.Visible = True
End Sub

Private Sub Button23_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.MouseLeave
    Label9.Visible = False
End Sub

Private Sub Button23_mousehover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.MouseHover
    Label9.Visible = True
End Sub

Private Sub Button22_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.MouseLeave
    Label7.Visible = False
End Sub

Private Sub Button22_mousehover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.MouseHover
    Label7.Visible = True
End Sub

Private Sub Button21_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.MouseLeave
    Label12.Visible = False
End Sub

Private Sub Button21_mousehover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.MouseHover
    Label12.Visible = True
End Sub

Private Sub Button20_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.MouseLeave
    Label10.Visible = False
End Sub

Private Sub Button20_mousehover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.MouseHover
    Label10.Visible = True
End Sub

Private Sub Button19_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.MouseLeave
    Label8.Visible = False
End Sub

Private Sub Button19_mousehover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.MouseHover
    Label8.Visible = True
End Sub

Private Sub Button18_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.MouseLeave
    Label6.Visible = False
End Sub

Private Sub Button18_mousehover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.MouseHover
    Label6.Visible = True
End Sub

Private Sub Button17_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.MouseLeave
    Label1.Visible = False
End Sub

Private Sub Button17_mousehover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.MouseHover
    Label1.Visible = True
End Sub

Private Sub Button16_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.MouseLeave
    Label2.Visible = False
End Sub

Private Sub Button16_mousehover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.MouseHover
    Label2.Visible = True
End Sub

Private Sub Button15_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.MouseLeave
    Label3.Visible = False
End Sub

Private Sub Button15_mousehover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.MouseHover
    Label3.Visible = True
End Sub

Private Sub Button14_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.MouseLeave
    Label4.Visible = False
End Sub

Private Sub Button14_mousehover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.MouseHover
    Label4.Visible = True
End Sub

Private Sub Button13_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.MouseLeave
    Label5.Visible = False
End Sub

Private Sub Button13_mousehover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.MouseHover
    Label5.Visible = True
End Sub

Private Sub Button29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button29.Click
    If G2.Text = "" Then
        If Teken.Text = "²" Then
            G2.Text = G1.Text ^ 2
            Uitkomst.Text = ""
        End If
        If Not Teken.Text = "²" Then
            If G1.Text = Teken1.Text & C1001.Text & C1002.Text & C1003.Text & C1004.Text & C1005.Text & C1006.Text & C1007.Text & C1008.Text & C1009.Text & C1010.Text & C1011.Text & C1012.Text & C1013.Text & C1014.Text & C1015.Text & C1016.Text & C1017.Text & C1018.Text & C1019.Text & C1020.Text & C1021.Text & C1022.Text & C1023.Text & C1024.Text & C1025.Text Then
                C2001.Text = C1001.Text
                C2002.Text = C1002.Text
                C2003.Text = C1003.Text
                C2004.Text = C1004.Text
                C2005.Text = C1005.Text
                C2006.Text = C1006.Text
                C2007.Text = C1007.Text
                C2008.Text = C1008.Text
                C2009.Text = C1009.Text
                C2010.Text = C1010.Text
                C2011.Text = C1011.Text
                C2012.Text = C1012.Text
                C2013.Text = C1013.Text
                C2014.Text = C1014.Text
                C2015.Text = C1015.Text
                C2016.Text = C1006.Text
                C2017.Text = C1007.Text
                C2018.Text = C1008.Text
                C2019.Text = C1009.Text
                C2020.Text = C1010.Text
                C2021.Text = C1011.Text
                C2022.Text = C1012.Text
                C2023.Text = C1013.Text
                C2024.Text = C1014.Text
                C2025.Text = C1015.Text
            End If
        End If
    End If
    If Not G2.Text = "" Then
        If Teken.Text = " + " Then
            G2.Text = G1.Text - -G2.Text
        End If
        If Teken.Text = " - " Then
            G2.Text = G1.Text - G2.Text
        End If
        If Teken.Text = " * " Then
            G2.Text = G1.Text * G2.Text
        End If
        If Teken.Text = " / " Then
            G2.Text = G1.Text / G2.Text
        End If
        If Teken.Text = " ^ " Then
            G2.Text = G1.Text ^ G2.Text
        End If
        If Teken.Text = "√" Then
            G2.Text = Math.Sqrt(G2.Text)
        End If
        If Teken.Text = " n√ " Then
            G2.Text = G2.Text ^ (1 / G1.Text)
        End If
        If Teken.Text = " √n " Then
            G2.Text = G1.Text ^ (1 / G2.Text)
        End If
        If Teken.Text = "sin(" Then
            G2.Text = Math.Sin(G2.Text)
        End If
        If Teken.Text = "cos(" Then
            G2.Text = Math.Cos(G2.Text)
        End If
        If Teken.Text = "tan(" Then
            G2.Text = Math.Tan(G2.Text)
        End If
        Uitkomst.Text = ""
    End If
    C1001.Text = ""
    C1002.Text = ""
    C1003.Text = ""
    C1004.Text = ""
    C1005.Text = ""
    C1006.Text = ""
    C1007.Text = ""
    C1008.Text = ""
    C1009.Text = ""
    C1010.Text = ""
    C1011.Text = ""
    C1012.Text = ""
    C1013.Text = ""
    C1014.Text = ""
    C1015.Text = ""
    C1016.Text = ""
    C1017.Text = ""
    C1018.Text = ""
    C1019.Text = ""
    C1020.Text = ""
    C1021.Text = ""
    C1022.Text = ""
    C1023.Text = ""
    C1024.Text = ""
    C1025.Text = ""
    G1.Text = ""
    Teken.Text = "cos("
    Button12.Enabled = True
    Button13.Enabled = True
End Sub

Private Sub Button30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button30.Click
    If G2.Text = "" Then
        If Teken.Text = "²" Then
            G2.Text = G1.Text ^ 2
            Uitkomst.Text = ""
        End If
        If Not Teken.Text = "²" Then
            If G1.Text = Teken1.Text & C1001.Text & C1002.Text & C1003.Text & C1004.Text & C1005.Text & C1006.Text & C1007.Text & C1008.Text & C1009.Text & C1010.Text & C1011.Text & C1012.Text & C1013.Text & C1014.Text & C1015.Text & C1016.Text & C1017.Text & C1018.Text & C1019.Text & C1020.Text & C1021.Text & C1022.Text & C1023.Text & C1024.Text & C1025.Text Then
                C2001.Text = C1001.Text
                C2002.Text = C1002.Text
                C2003.Text = C1003.Text
                C2004.Text = C1004.Text
                C2005.Text = C1005.Text
                C2006.Text = C1006.Text
                C2007.Text = C1007.Text
                C2008.Text = C1008.Text
                C2009.Text = C1009.Text
                C2010.Text = C1010.Text
                C2011.Text = C1011.Text
                C2012.Text = C1012.Text
                C2013.Text = C1013.Text
                C2014.Text = C1014.Text
                C2015.Text = C1015.Text
                C2016.Text = C1006.Text
                C2017.Text = C1007.Text
                C2018.Text = C1008.Text
                C2019.Text = C1009.Text
                C2020.Text = C1010.Text
                C2021.Text = C1011.Text
                C2022.Text = C1012.Text
                C2023.Text = C1013.Text
                C2024.Text = C1014.Text
                C2025.Text = C1015.Text
            End If
        End If
    End If
    If Not G2.Text = "" Then
        If Teken.Text = " + " Then
            G2.Text = G1.Text - -G2.Text
        End If
        If Teken.Text = " - " Then
            G2.Text = G1.Text - G2.Text
        End If
        If Teken.Text = " * " Then
            G2.Text = G1.Text * G2.Text
        End If
        If Teken.Text = " / " Then
            G2.Text = G1.Text / G2.Text
        End If
        If Teken.Text = " ^ " Then
            G2.Text = G1.Text ^ G2.Text
        End If
        If Teken.Text = "√" Then
            G2.Text = Math.Sqrt(G2.Text)
        End If
        If Teken.Text = " n√ " Then
            G2.Text = G2.Text ^ (1 / G1.Text)
        End If
        If Teken.Text = " √n " Then
            G2.Text = G1.Text ^ (1 / G2.Text)
        End If
        If Teken.Text = "sin(" Then
            G2.Text = Math.Sin(G2.Text)
        End If
        If Teken.Text = "cos(" Then
            G2.Text = Math.Cos(G2.Text)
        End If
        If Teken.Text = "tan(" Then
            G2.Text = Math.Tan(G2.Text)
        End If
        Uitkomst.Text = ""
    End If
    C1001.Text = ""
    C1002.Text = ""
    C1003.Text = ""
    C1004.Text = ""
    C1005.Text = ""
    C1006.Text = ""
    C1007.Text = ""
    C1008.Text = ""
    C1009.Text = ""
    C1010.Text = ""
    C1011.Text = ""
    C1012.Text = ""
    C1013.Text = ""
    C1014.Text = ""
    C1015.Text = ""
    C1016.Text = ""
    C1017.Text = ""
    C1018.Text = ""
    C1019.Text = ""
    C1020.Text = ""
    C1021.Text = ""
    C1022.Text = ""
    C1023.Text = ""
    C1024.Text = ""
    C1025.Text = ""
    G1.Text = ""
    Teken.Text = "tan("
    Button12.Enabled = True
    Button13.Enabled = True
End Sub

Private Sub Button32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button32.Click
    Form2.Visible = True
End Sub

Private Sub Button31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button31.Click
    Form3.Visible = True
End Sub

Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click
    If G2.Text = "" Then
        If Teken.Text = "²" Then
            Uitkomst.Text = G1.Text ^ 2
        End If
    End If
    If Not G2.Text = "" Then
        If Not G1.Text = "" Then
            If Teken.Text = " + " Then
                Uitkomst.Text = G1.Text - -G2.Text
            End If
            If Teken.Text = " - " Then
                Uitkomst.Text = G1.Text - G2.Text
            End If
            If Teken.Text = " * " Then
                Uitkomst.Text = G1.Text * G2.Text
            End If
            If Teken.Text = " / " Then
                Uitkomst.Text = G1.Text / G2.Text
            End If
            If Teken.Text = " ^ " Then
                Uitkomst.Text = G1.Text ^ G2.Text
            End If
            If Teken.Text = " n√ " Then
                Uitkomst.Text = G2.Text ^ (1 / G1.Text)
            End If
            If Teken.Text = " √n " Then
                Uitkomst.Text = G1.Text ^ (1 / G2.Text)
            End If
        End If
        If Teken.Text = "√" Then
            Uitkomst.Text = Math.Sqrt(G2.Text)
        End If
        If Teken.Text = "sin(" Then
            Uitkomst.Text = Math.Sin(G2.Text)
        End If
        If Teken.Text = "cos(" Then
            Uitkomst.Text = Math.Cos(G2.Text)
        End If
        If Teken.Text = "tan(" Then
            Uitkomst.Text = Math.Tan(G2.Text)
        End If
    End If
End Sub

Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
    If Uitkomst.Text = "" Then
        If Teken.Text = "" Then
            G1.Text = Geheugen.Text
        End If
        If Not Teken.Text = "" Then
            G2.Text = Geheugen.Text
        End If
    End If
    If Not Uitkomst.Text = "" Then
        G1.Text = Geheugen.Text
        Teken.Text = ""
        G2.Text = ""
        Uitkomst.Text = ""
    End If
End Sub

Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
    If Uitkomst.Text = "" Then
        If Not G1.Text = "" Then
            Geheugen.Text = Geheugen.Text - G1.Text
        End If
    End If
    If Not Uitkomst.Text = "" Then
        Geheugen.Text = Geheugen.Text - Uitkomst.Text
    End If
End Sub

Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
    If Uitkomst.Text = "" Then
        If Not G1.Text = "" Then
            Geheugen.Text = Geheugen.Text - -G1.Text
        End If
    End If
    If Not Uitkomst.Text = "" Then
        Geheugen.Text = Geheugen.Text - -Uitkomst.Text
    End If
End Sub

Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
    Uitkomst.Text = Geheugen.Text
    G1.Text = ""
    Teken.Text = ""
    G2.Text = ""
End Sub

Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
    Geheugen.Text = "0"
End Sub

Private Sub Komma1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Komma1.TextChanged
    If Teken.Text = "" Then
        If Komma1.Text = "0" Then
            Button12.Enabled = True
        End If
        If Komma1.Text = "1" Then
            Button12.Enabled = False
        End If
    End If
    If Not Teken.Text = "" Then
        If Komma2.Text = "0" Then
            Button12.Enabled = True
        End If
        If Komma2.Text = "1" Then
            Button12.Enabled = False
        End If
    End If
End Sub

Private Sub Komma2_textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Komma2.TextChanged
    If Teken.Text = "" Then
        If Komma1.Text = "0" Then
            Button12.Enabled = True
        End If
        If Komma1.Text = "1" Then
            Button12.Enabled = False
        End If
    End If
    If Not Teken.Text = "" Then
        If Komma2.Text = "0" Then
            Button12.Enabled = True
        End If
        If Komma2.Text = "1" Then
            Button12.Enabled = False
        End If
    End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If Not Uitkomst.Text = "" Then
        Uitkomst.Text = ""
        Teken1.Text = ""
        C1001.Text = ""
        C1002.Text = ""
        C1003.Text = ""
        C1004.Text = ""
        C1005.Text = ""
        C1006.Text = ""
        C1007.Text = ""
        C1008.Text = ""
        C1009.Text = ""
        C1010.Text = ""
        C1011.Text = ""
        C1012.Text = ""
        C1013.Text = ""
        C1014.Text = ""
        C1015.Text = ""
        C1016.Text = ""
        C1017.Text = ""
        C1018.Text = ""
        C1019.Text = ""
        C1020.Text = ""
        C1021.Text = ""
        C1022.Text = ""
        C1023.Text = ""
        C1024.Text = ""
        C1025.Text = ""
        Teken.Text = ""
        Teken2.Text = ""
        C2001.Text = ""
        C2002.Text = ""
        C2003.Text = ""
        C2004.Text = ""
        C2005.Text = ""
        C2006.Text = ""
        C2007.Text = ""
        C2008.Text = ""
        C2009.Text = ""
        C2010.Text = ""
        C2011.Text = ""
        C2012.Text = ""
        C2013.Text = ""
        C2014.Text = ""
        C2015.Text = ""
        C2016.Text = ""
        C2017.Text = ""
        C2018.Text = ""
        C2019.Text = ""
        C2020.Text = ""
        C2021.Text = ""
        C2022.Text = ""
        C2023.Text = ""
        C2024.Text = ""
        C2025.Text = ""
    End If
    If Uitkomst.Text = "" Then
        If Teken.Text = "" Then
            If Not C1001.Text = "" Then
                If Not C1001.Text = "0" Then
                    If Not C1002.Text = "" Then
                        If Not C1003.Text = "" Then
                            If Not C1004.Text = "" Then
                                If Not C1005.Text = "" Then
                                    If Not C1006.Text = "" Then
                                        If Not C1007.Text = "" Then
                                            If Not C1008.Text = "" Then
                                                If Not C1009.Text = "" Then
                                                    If Not C1010.Text = "" Then
                                                        If Not C1011.Text = "" Then
                                                            If Not C1012.Text = "" Then
                                                                If Not C1013.Text = "" Then
                                                                    If Not C1014.Text = "" Then
                                                                        If Not C1015.Text = "" Then
                                                                            If Not C1016.Text = "" Then
                                                                                If Not C1017.Text = "" Then
                                                                                    If Not C1018.Text = "" Then
                                                                                        If Not C1019.Text = "" Then
                                                                                            If Not C1020.Text = "" Then
                                                                                                If Not C1021.Text = "" Then
                                                                                                    If Not C1022.Text = "" Then
                                                                                                        If Not C1023.Text = "" Then
                                                                                                            If Not C1024.Text = "" Then
                                                                                                                If C1025.Text = "" Then
                                                                                                                    C1025.Text = "1"
                                                                                                                End If
                                                                                                            End If
                                                                                                            If C1024.Text = "" Then
                                                                                                                C1024.Text = "1"
                                                                                                            End If
                                                                                                        End If
                                                                                                        If C1023.Text = "" Then
                                                                                                            C1023.Text = "1"
                                                                                                        End If
                                                                                                    End If
                                                                                                    If C1022.Text = "" Then
                                                                                                        C1022.Text = "1"
                                                                                                    End If
                                                                                                End If
                                                                                                If C1021.Text = "" Then
                                                                                                    C1021.Text = "1"
                                                                                                End If
                                                                                            End If
                                                                                            If C1020.Text = "" Then
                                                                                                C1020.Text = "1"
                                                                                            End If
                                                                                        End If
                                                                                        If C1019.Text = "" Then
                                                                                            C1019.Text = "1"
                                                                                        End If
                                                                                    End If
                                                                                    If C1018.Text = "" Then
                                                                                        C1018.Text = "1"
                                                                                    End If
                                                                                End If
                                                                                If C1017.Text = "" Then
                                                                                    C1017.Text = "1"
                                                                                End If
                                                                            End If
                                                                            If C1016.Text = "" Then
                                                                                C1016.Text = "1"
                                                                            End If
                                                                        End If
                                                                        If C1015.Text = "" Then
                                                                            C1015.Text = "1"
                                                                        End If
                                                                    End If
                                                                    If C1014.Text = "" Then
                                                                        C1014.Text = "1"
                                                                    End If
                                                                End If
                                                                If C1013.Text = "" Then
                                                                    C1013.Text = "1"
                                                                End If
                                                            End If
                                                            If C1012.Text = "" Then
                                                                C1012.Text = "1"
                                                            End If
                                                        End If
                                                        If C1011.Text = "" Then
                                                            C1011.Text = "1"
                                                        End If
                                                    End If
                                                    If C1010.Text = "" Then
                                                        C1010.Text = "1"
                                                    End If
                                                End If
                                                If C1009.Text = "" Then
                                                    C1009.Text = "1"
                                                End If
                                            End If
                                            If C1008.Text = "" Then
                                                C1008.Text = "1"
                                            End If
                                        End If
                                        If C1007.Text = "" Then
                                            C1007.Text = "1"
                                        End If
                                    End If
                                    If C1006.Text = "" Then
                                        C1006.Text = "1"
                                    End If
                                End If
                                If C1005.Text = "" Then
                                    C1005.Text = "1"
                                End If
                            End If
                            If C1004.Text = "" Then
                                C1004.Text = "1"
                            End If
                        End If
                        If C1003.Text = "" Then
                            C1003.Text = "1"
                        End If
                    End If
                    If C1002.Text = "" Then
                        C1002.Text = "1"
                    End If
                End If
                If C1001.Text = "0" Then
                    If C1002.Text = "" Then
                        C1001.Text = "1"
                    End If
                    If C1002.Text = "," Then
                        If Not C1003.Text = "" Then
                            If Not C1004.Text = "" Then
                                If Not C1005.Text = "" Then
                                    If Not C1006.Text = "" Then
                                        If Not C1007.Text = "" Then
                                            If Not C1008.Text = "" Then
                                                If Not C1009.Text = "" Then
                                                    If Not C1010.Text = "" Then
                                                        If Not C1011.Text = "" Then
                                                            If Not C1012.Text = "" Then
                                                                If Not C1013.Text = "" Then
                                                                    If Not C1014.Text = "" Then
                                                                        If Not C1015.Text = "" Then
                                                                            If Not C1016.Text = "" Then
                                                                                If Not C1017.Text = "" Then
                                                                                    If Not C1018.Text = "" Then
                                                                                        If Not C1019.Text = "" Then
                                                                                            If Not C1020.Text = "" Then
                                                                                                If Not C1021.Text = "" Then
                                                                                                    If Not C1022.Text = "" Then
                                                                                                        If Not C1023.Text = "" Then
                                                                                                            If Not C1024.Text = "" Then
                                                                                                                If C1025.Text = "" Then
                                                                                                                    C1025.Text = "1"
                                                                                                                End If
                                                                                                            End If
                                                                                                            If C1024.Text = "" Then
                                                                                                                C1024.Text = "1"
                                                                                                            End If
                                                                                                        End If
                                                                                                        If C1023.Text = "" Then
                                                                                                            C1023.Text = "1"
                                                                                                        End If
                                                                                                    End If
                                                                                                    If C1022.Text = "" Then
                                                                                                        C1022.Text = "1"
                                                                                                    End If
                                                                                                End If
                                                                                                If C1021.Text = "" Then
                                                                                                    C1021.Text = "1"
                                                                                                End If
                                                                                            End If
                                                                                            If C1020.Text = "" Then
                                                                                                C1020.Text = "1"
                                                                                            End If
                                                                                        End If
                                                                                        If C1019.Text = "" Then
                                                                                            C1019.Text = "1"
                                                                                        End If
                                                                                    End If
                                                                                    If C1018.Text = "" Then
                                                                                        C1018.Text = "1"
                                                                                    End If
                                                                                End If
                                                                                If C1017.Text = "" Then
                                                                                    C1017.Text = "1"
                                                                                End If
                                                                            End If
                                                                            If C1016.Text = "" Then
                                                                                C1016.Text = "1"
                                                                            End If
                                                                        End If
                                                                        If C1015.Text = "" Then
                                                                            C1015.Text = "1"
                                                                        End If
                                                                    End If
                                                                    If C1014.Text = "" Then
                                                                        C1014.Text = "1"
                                                                    End If
                                                                End If
                                                                If C1013.Text = "" Then
                                                                    C1013.Text = "1"
                                                                End If
                                                            End If
                                                            If C1012.Text = "" Then
                                                                C1012.Text = "1"
                                                            End If
                                                        End If
                                                        If C1011.Text = "" Then
                                                            C1011.Text = "1"
                                                        End If
                                                    End If
                                                    If C1010.Text = "" Then
                                                        C1010.Text = "1"
                                                    End If
                                                End If
                                                If C1009.Text = "" Then
                                                    C1009.Text = "1"
                                                End If
                                            End If
                                            If C1008.Text = "" Then
                                                C1008.Text = "1"
                                            End If
                                        End If
                                        If C1007.Text = "" Then
                                            C1007.Text = "1"
                                        End If
                                    End If
                                    If C1006.Text = "" Then
                                        C1006.Text = "1"
                                    End If
                                End If
                                If C1005.Text = "" Then
                                    C1005.Text = "1"
                                End If
                            End If
                            If C1004.Text = "" Then
                                C1004.Text = "1"
                            End If
                        End If
                        If C1003.Text = "" Then
                            C1003.Text = "1"
                        End If
                    End If
                End If
            End If
            If C1001.Text = "" Then
                C1001.Text = "1"
            End If
        End If
        If Not Teken.Text = "" Then
            If Not C2001.Text = "" Then
                If Not C2001.Text = "0" Then
                    If Not C2002.Text = "" Then
                        If Not C2003.Text = "" Then
                            If Not C2004.Text = "" Then
                                If Not C2005.Text = "" Then
                                    If Not C2006.Text = "" Then
                                        If Not C2007.Text = "" Then
                                            If Not C2008.Text = "" Then
                                                If Not C2009.Text = "" Then
                                                    If Not C2010.Text = "" Then
                                                        If Not C2011.Text = "" Then
                                                            If Not C2012.Text = "" Then
                                                                If Not C2013.Text = "" Then
                                                                    If Not C2014.Text = "" Then
                                                                        If Not C2015.Text = "" Then
                                                                            If Not C2016.Text = "" Then
                                                                                If Not C2017.Text = "" Then
                                                                                    If Not C2018.Text = "" Then
                                                                                        If Not C2019.Text = "" Then
                                                                                            If Not C2020.Text = "" Then
                                                                                                If Not C2021.Text = "" Then
                                                                                                    If Not C2022.Text = "" Then
                                                                                                        If Not C2023.Text = "" Then
                                                                                                            If Not C2024.Text = "" Then
                                                                                                                If C2025.Text = "" Then
                                                                                                                    C2025.Text = "1"
                                                                                                                End If
                                                                                                            End If
                                                                                                            If C2024.Text = "" Then
                                                                                                                C2024.Text = "1"
                                                                                                            End If
                                                                                                        End If
                                                                                                        If C2023.Text = "" Then
                                                                                                            C2023.Text = "1"
                                                                                                        End If
                                                                                                    End If
                                                                                                    If C2022.Text = "" Then
                                                                                                        C2022.Text = "1"
                                                                                                    End If
                                                                                                End If
                                                                                                If C2021.Text = "" Then
                                                                                                    C2021.Text = "1"
                                                                                                End If
                                                                                            End If
                                                                                            If C2020.Text = "" Then
                                                                                                C2020.Text = "1"
                                                                                            End If
                                                                                        End If
                                                                                        If C2019.Text = "" Then
                                                                                            C2019.Text = "1"
                                                                                        End If
                                                                                    End If
                                                                                    If C2018.Text = "" Then
                                                                                        C2018.Text = "1"
                                                                                    End If
                                                                                End If
                                                                                If C2017.Text = "" Then
                                                                                    C2017.Text = "1"
                                                                                End If
                                                                            End If
                                                                            If C2016.Text = "" Then
                                                                                C2016.Text = "1"
                                                                            End If
                                                                        End If
                                                                        If C2015.Text = "" Then
                                                                            C2015.Text = "1"
                                                                        End If
                                                                    End If
                                                                    If C2014.Text = "" Then
                                                                        C2014.Text = "1"
                                                                    End If
                                                                End If
                                                                If C2013.Text = "" Then
                                                                    C2013.Text = "1"
                                                                End If
                                                            End If
                                                            If C2012.Text = "" Then
                                                                C2012.Text = "1"
                                                            End If
                                                        End If
                                                        If C2011.Text = "" Then
                                                            C2011.Text = "1"
                                                        End If
                                                    End If
                                                    If C2010.Text = "" Then
                                                        C2010.Text = "1"
                                                    End If
                                                End If
                                                If C2009.Text = "" Then
                                                    C2009.Text = "1"
                                                End If
                                            End If
                                            If C2008.Text = "" Then
                                                C2008.Text = "1"
                                            End If
                                        End If
                                        If C2007.Text = "" Then
                                            C2007.Text = "1"
                                        End If
                                    End If
                                    If C2006.Text = "" Then
                                        C2006.Text = "1"
                                    End If
                                End If
                                If C2005.Text = "" Then
                                    C2005.Text = "1"
                                End If
                            End If
                            If C2004.Text = "" Then
                                C2004.Text = "1"
                            End If
                        End If
                        If C2003.Text = "" Then
                            C2003.Text = "1"
                        End If
                    End If
                    If C2002.Text = "" Then
                        C2002.Text = "1"
                    End If
                End If
                If C2001.Text = "0" Then
                    If C2002.Text = "" Then
                        C2001.Text = "1"
                    End If
                    If C2002.Text = "," Then
                        If Not C2003.Text = "" Then
                            If Not C2004.Text = "" Then
                                If Not C2005.Text = "" Then
                                    If Not C2006.Text = "" Then
                                        If Not C2007.Text = "" Then
                                            If Not C2008.Text = "" Then
                                                If Not C2009.Text = "" Then
                                                    If Not C2010.Text = "" Then
                                                        If Not C2011.Text = "" Then
                                                            If Not C2012.Text = "" Then
                                                                If Not C2013.Text = "" Then
                                                                    If Not C2014.Text = "" Then
                                                                        If Not C2015.Text = "" Then
                                                                            If Not C2016.Text = "" Then
                                                                                If Not C2017.Text = "" Then
                                                                                    If Not C2018.Text = "" Then
                                                                                        If Not C2019.Text = "" Then
                                                                                            If Not C2020.Text = "" Then
                                                                                                If Not C2021.Text = "" Then
                                                                                                    If Not C2022.Text = "" Then
                                                                                                        If Not C2023.Text = "" Then
                                                                                                            If Not C2024.Text = "" Then
                                                                                                                If C2025.Text = "" Then
                                                                                                                    C2025.Text = "1"
                                                                                                                End If
                                                                                                            End If
                                                                                                            If C2024.Text = "" Then
                                                                                                                C2024.Text = "1"
                                                                                                            End If
                                                                                                        End If
                                                                                                        If C2023.Text = "" Then
                                                                                                            C2023.Text = "1"
                                                                                                        End If
                                                                                                    End If
                                                                                                    If C2022.Text = "" Then
                                                                                                        C2022.Text = "1"
                                                                                                    End If
                                                                                                End If
                                                                                                If C2021.Text = "" Then
                                                                                                    C2021.Text = "1"
                                                                                                End If
                                                                                            End If
                                                                                            If C2020.Text = "" Then
                                                                                                C2020.Text = "1"
                                                                                            End If
                                                                                        End If
                                                                                        If C2019.Text = "" Then
                                                                                            C2019.Text = "1"
                                                                                        End If
                                                                                    End If
                                                                                    If C2018.Text = "" Then
                                                                                        C2018.Text = "1"
                                                                                    End If
                                                                                End If
                                                                                If C2017.Text = "" Then
                                                                                    C2017.Text = "1"
                                                                                End If
                                                                            End If
                                                                            If C2016.Text = "" Then
                                                                                C2016.Text = "1"
                                                                            End If
                                                                        End If
                                                                        If C2015.Text = "" Then
                                                                            C2015.Text = "1"
                                                                        End If
                                                                    End If
                                                                    If C2014.Text = "" Then
                                                                        C2014.Text = "1"
                                                                    End If
                                                                End If
                                                                If C2013.Text = "" Then
                                                                    C2013.Text = "1"
                                                                End If
                                                            End If
                                                            If C2012.Text = "" Then
                                                                C2012.Text = "1"
                                                            End If
                                                        End If
                                                        If C2011.Text = "" Then
                                                            C2011.Text = "1"
                                                        End If
                                                    End If
                                                    If C2010.Text = "" Then
                                                        C2010.Text = "1"
                                                    End If
                                                End If
                                                If C2009.Text = "" Then
                                                    C2009.Text = "1"
                                                End If
                                            End If
                                            If C2008.Text = "" Then
                                                C2008.Text = "1"
                                            End If
                                        End If
                                        If C2007.Text = "" Then
                                            C2007.Text = "1"
                                        End If
                                    End If
                                    If C2006.Text = "" Then
                                        C2006.Text = "1"
                                    End If
                                End If
                                If C2005.Text = "" Then
                                    C2005.Text = "1"
                                End If
                            End If
                            If C2004.Text = "" Then
                                C2004.Text = "1"
                            End If
                        End If
                        If C2003.Text = "" Then
                            C2003.Text = "1"
                        End If
                    End If
                End If
            End If
            If C2001.Text = "" Then
                C2001.Text = "1"
            End If
        End If
    End If
End Sub

 

[najreteip]

Deel 5/6

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    If Not Uitkomst.Text = "" Then
        Uitkomst.Text = ""
        Teken1.Text = ""
        C1001.Text = ""
        C1002.Text = ""
        C1003.Text = ""
        C1004.Text = ""
        C1005.Text = ""
        C1006.Text = ""
        C1007.Text = ""
        C1008.Text = ""
        C1009.Text = ""
        C1010.Text = ""
        C1011.Text = ""
        C1012.Text = ""
        C1013.Text = ""
        C1014.Text = ""
        C1015.Text = ""
        C1016.Text = ""
        C1017.Text = ""
        C1018.Text = ""
        C1019.Text = ""
        C1020.Text = ""
        C1021.Text = ""
        C1022.Text = ""
        C1023.Text = ""
        C1024.Text = ""
        C1025.Text = ""
        Teken.Text = ""
        Teken2.Text = ""
        C2001.Text = ""
        C2002.Text = ""
        C2003.Text = ""
        C2004.Text = ""
        C2005.Text = ""
        C2006.Text = ""
        C2007.Text = ""
        C2008.Text = ""
        C2009.Text = ""
        C2010.Text = ""
        C2011.Text = ""
        C2012.Text = ""
        C2013.Text = ""
        C2014.Text = ""
        C2015.Text = ""
        C2016.Text = ""
        C2017.Text = ""
        C2018.Text = ""
        C2019.Text = ""
        C2020.Text = ""
        C2021.Text = ""
        C2022.Text = ""
        C2023.Text = ""
        C2024.Text = ""
        C2025.Text = ""
    End If
    If Uitkomst.Text = "" Then
        If Teken.Text = "" Then
            If Not C1001.Text = "" Then
                If Not C1001.Text = "0" Then
                    If Not C1002.Text = "" Then
                        If Not C1003.Text = "" Then
                            If Not C1004.Text = "" Then
                                If Not C1005.Text = "" Then
                                    If Not C1006.Text = "" Then
                                        If Not C1007.Text = "" Then
                                            If Not C1008.Text = "" Then
                                                If Not C1009.Text = "" Then
                                                    If Not C1010.Text = "" Then
                                                        If Not C1011.Text = "" Then
                                                            If Not C1012.Text = "" Then
                                                                If Not C1013.Text = "" Then
                                                                    If Not C1014.Text = "" Then
                                                                        If Not C1015.Text = "" Then
                                                                            If Not C1016.Text = "" Then
                                                                                If Not C1017.Text = "" Then
                                                                                    If Not C1018.Text = "" Then
                                                                                        If Not C1019.Text = "" Then
                                                                                            If Not C1020.Text = "" Then
                                                                                                If Not C1021.Text = "" Then
                                                                                                    If Not C1022.Text = "" Then
                                                                                                        If Not C1023.Text = "" Then
                                                                                                            If Not C1024.Text = "" Then
                                                                                                                If C1025.Text = "" Then
                                                                                                                    C1025.Text = "2"
                                                                                                                End If
                                                                                                            End If
                                                                                                            If C1024.Text = "" Then
                                                                                                                C1024.Text = "2"
                                                                                                            End If
                                                                                                        End If
                                                                                                        If C1023.Text = "" Then
                                                                                                            C1023.Text = "2"
                                                                                                        End If
                                                                                                    End If
                                                                                                    If C1022.Text = "" Then
                                                                                                        C1022.Text = "2"
                                                                                                    End If
                                                                                                End If
                                                                                                If C1021.Text = "" Then
                                                                                                    C1021.Text = "2"
                                                                                                End If
                                                                                            End If
                                                                                            If C1020.Text = "" Then
                                                                                                C1020.Text = "2"
                                                                                            End If
                                                                                        End If
                                                                                        If C1019.Text = "" Then
                                                                                            C1019.Text = "2"
                                                                                        End If
                                                                                    End If
                                                                                    If C1018.Text = "" Then
                                                                                        C1018.Text = "2"
                                                                                    End If
                                                                                End If
                                                                                If C1017.Text = "" Then
                                                                                    C1017.Text = "2"
                                                                                End If
                                                                            End If
                                                                            If C1016.Text = "" Then
                                                                                C1016.Text = "2"
                                                                            End If
                                                                        End If
                                                                        If C1015.Text = "" Then
                                                                            C1015.Text = "2"
                                                                        End If
                                                                    End If
                                                                    If C1014.Text = "" Then
                                                                        C1014.Text = "2"
                                                                    End If
                                                                End If
                                                                If C1013.Text = "" Then
                                                                    C1013.Text = "2"
                                                                End If
                                                            End If
                                                            If C1012.Text = "" Then
                                                                C1012.Text = "2"
                                                            End If
                                                        End If
                                                        If C1011.Text = "" Then
                                                            C1011.Text = "2"
                                                        End If
                                                    End If
                                                    If C1010.Text = "" Then
                                                        C1010.Text = "2"
                                                    End If
                                                End If
                                                If C1009.Text = "" Then
                                                    C1009.Text = "2"
                                                End If
                                            End If
                                            If C1008.Text = "" Then
                                                C1008.Text = "2"
                                            End If
                                        End If
                                        If C1007.Text = "" Then
                                            C1007.Text = "2"
                                        End If
                                    End If
                                    If C1006.Text = "" Then
                                        C1006.Text = "2"
                                    End If
                                End If
                                If C1005.Text = "" Then
                                    C1005.Text = "2"
                                End If
                            End If
                            If C1004.Text = "" Then
                                C1004.Text = "2"
                            End If
                        End If
                        If C1003.Text = "" Then
                            C1003.Text = "2"
                        End If
                    End If
                    If C1002.Text = "" Then
                        C1002.Text = "2"
                    End If
                End If
                If C1001.Text = "0" Then
                    If C1002.Text = "" Then
                        C1001.Text = "2"
                    End If
                    If C1002.Text = "," Then
                        If Not C1003.Text = "" Then
                            If Not C1004.Text = "" Then
                                If Not C1005.Text = "" Then
                                    If Not C1006.Text = "" Then
                                        If Not C1007.Text = "" Then
                                            If Not C1008.Text = "" Then
                                                If Not C1009.Text = "" Then
                                                    If Not C1010.Text = "" Then
                                                        If Not C1011.Text = "" Then
                                                            If Not C1012.Text = "" Then
                                                                If Not C1013.Text = "" Then
                                                                    If Not C1014.Text = "" Then
                                                                        If Not C1015.Text = "" Then
                                                                            If Not C1016.Text = "" Then
                                                                                If Not C1017.Text = "" Then
                                                                                    If Not C1018.Text = "" Then
                                                                                        If Not C1019.Text = "" Then
                                                                                            If Not C1020.Text = "" Then
                                                                                                If Not C1021.Text = "" Then
                                                                                                    If Not C1022.Text = "" Then
                                                                                                        If Not C1023.Text = "" Then
                                                                                                            If Not C1024.Text = "" Then
                                                                                                                If C1025.Text = "" Then
                                                                                                                    C1025.Text = "2"
                                                                                                                End If
                                                                                                            End If
                                                                                                            If C1024.Text = "" Then
                                                                                                                C1024.Text = "2"
                                                                                                            End If
                                                                                                        End If
                                                                                                        If C1023.Text = "" Then
                                                                                                            C1023.Text = "2"
                                                                                                        End If
                                                                                                    End If
                                                                                                    If C1022.Text = "" Then
                                                                                                        C1022.Text = "2"
                                                                                                    End If
                                                                                                End If
                                                                                                If C1021.Text = "" Then
                                                                                                    C1021.Text = "2"
                                                                                                End If
                                                                                            End If
                                                                                            If C1020.Text = "" Then
                                                                                                C1020.Text = "2"
                                                                                            End If
                                                                                        End If
                                                                                        If C1019.Text = "" Then
                                                                                            C1019.Text = "2"
                                                                                        End If
                                                                                    End If
                                                                                    If C1018.Text = "" Then
                                                                                        C1018.Text = "2"
                                                                                    End If
                                                                                End If
                                                                                If C1017.Text = "" Then
                                                                                    C1017.Text = "2"
                                                                                End If
                                                                            End If
                                                                            If C1016.Text = "" Then
                                                                                C1016.Text = "2"
                                                                            End If
                                                                        End If
                                                                        If C1015.Text = "" Then
                                                                            C1015.Text = "2"
                                                                        End If
                                                                    End If
                                                                    If C1014.Text = "" Then
                                                                        C1014.Text = "2"
                                                                    End If
                                                                End If
                                                                If C1013.Text = "" Then
                                                                    C1013.Text = "2"
                                                                End If
                                                            End If
                                                            If C1012.Text = "" Then
                                                                C1012.Text = "2"
                                                            End If
                                                        End If
                                                        If C1011.Text = "" Then
                                                            C1011.Text = "2"
                                                        End If
                                                    End If
                                                    If C1010.Text = "" Then
                                                        C1010.Text = "2"
                                                    End If
                                                End If
                                                If C1009.Text = "" Then
                                                    C1009.Text = "2"
                                                End If
                                            End If
                                            If C1008.Text = "" Then
                                                C1008.Text = "2"
                                            End If
                                        End If
                                        If C1007.Text = "" Then
                                            C1007.Text = "2"
                                        End If
                                    End If
                                    If C1006.Text = "" Then
                                        C1006.Text = "2"
                                    End If
                                End If
                                If C1005.Text = "" Then
                                    C1005.Text = "2"
                                End If
                            End If
                            If C1004.Text = "" Then
                                C1004.Text = "2"
                            End If
                        End If
                        If C1003.Text = "" Then
                            C1003.Text = "2"
                        End If
                    End If
                End If
            End If
            If C1001.Text = "" Then
                C1001.Text = "2"
            End If
        End If
        If Not Teken.Text = "" Then
            If Not C2001.Text = "" Then
                If Not C2001.Text = "0" Then
                    If Not C2002.Text = "" Then
                        If Not C2003.Text = "" Then
                            If Not C2004.Text = "" Then
                                If Not C2005.Text = "" Then
                                    If Not C2006.Text = "" Then
                                        If Not C2007.Text = "" Then
                                            If Not C2008.Text = "" Then
                                                If Not C2009.Text = "" Then
                                                    If Not C2010.Text = "" Then
                                                        If Not C2011.Text = "" Then
                                                            If Not C2012.Text = "" Then
                                                                If Not C2013.Text = "" Then
                                                                    If Not C2014.Text = "" Then
                                                                        If Not C2015.Text = "" Then
                                                                            If Not C2016.Text = "" Then
                                                                                If Not C2017.Text = "" Then
                                                                                    If Not C2018.Text = "" Then
                                                                                        If Not C2019.Text = "" Then
                                                                                            If Not C2020.Text = "" Then
                                                                                                If Not C2021.Text = "" Then
                                                                                                    If Not C2022.Text = "" Then
                                                                                                        If Not C2023.Text = "" Then
                                                                                                            If Not C2024.Text = "" Then
                                                                                                                If C2025.Text = "" Then
                                                                                                                    C2025.Text = "2"
                                                                                                                End If
                                                                                                            End If
                                                                                                            If C2024.Text = "" Then
                                                                                                                C2024.Text = "2"
                                                                                                            End If
                                                                                                        End If
                                                                                                        If C2023.Text = "" Then
                                                                                                            C2023.Text = "2"
                                                                                                        End If
                                                                                                    End If
                                                                                                    If C2022.Text = "" Then
                                                                                                        C2022.Text = "2"
                                                                                                    End If
                                                                                                End If
                                                                                                If C2021.Text = "" Then
                                                                                                    C2021.Text = "2"
                                                                                                End If
                                                                                            End If
                                                                                            If C2020.Text = "" Then
                                                                                                C2020.Text = "2"
                                                                                            End If
                                                                                        End If
                                                                                        If C2019.Text = "" Then
                                                                                            C2019.Text = "2"
                                                                                        End If
                                                                                    End If
                                                                                    If C2018.Text = "" Then
                                                                                        C2018.Text = "2"
                                                                                    End If
                                                                                End If
                                                                                If C2017.Text = "" Then
                                                                                    C2017.Text = "2"
                                                                                End If
                                                                            End If
                                                                            If C2016.Text = "" Then
                                                                                C2016.Text = "2"
                                                                            End If
                                                                        End If
                                                                        If C2015.Text = "" Then
                                                                            C2015.Text = "2"
                                                                        End If
                                                                    End If
                                                                    If C2014.Text = "" Then
                                                                        C2014.Text = "2"
                                                                    End If
                                                                End If
                                                                If C2013.Text = "" Then
                                                                    C2013.Text = "2"
                                                                End If
                                                            End If
                                                            If C2012.Text = "" Then
                                                                C2012.Text = "2"
                                                            End If
                                                        End If
                                                        If C2011.Text = "" Then
                                                            C2011.Text = "2"
                                                        End If
                                                    End If
                                                    If C2010.Text = "" Then
                                                        C2010.Text = "2"
                                                    End If
                                                End If
                                                If C2009.Text = "" Then
                                                    C2009.Text = "2"
                                                End If
                                            End If
                                            If C2008.Text = "" Then
                                                C2008.Text = "2"
                                            End If
                                        End If
                                        If C2007.Text = "" Then
                                            C2007.Text = "2"
                                        End If
                                    End If
                                    If C2006.Text = "" Then
                                        C2006.Text = "2"
                                    End If
                                End If
                                If C2005.Text = "" Then
                                    C2005.Text = "2"
                                End If
                            End If
                            If C2004.Text = "" Then
                                C2004.Text = "2"
                            End If
                        End If
                        If C2003.Text = "" Then
                            C2003.Text = "2"
                        End If
                    End If
                    If C2002.Text = "" Then
                        C2002.Text = "2"
                    End If
                End If
                If C2001.Text = "0" Then
                    If C2002.Text = "" Then
                        C2001.Text = "2"
                    End If
                    If C2002.Text = "," Then
                        If Not C2003.Text = "" Then
                            If Not C2004.Text = "" Then
                                If Not C2005.Text = "" Then
                                    If Not C2006.Text = "" Then
                                        If Not C2007.Text = "" Then
                                            If Not C2008.Text = "" Then
                                                If Not C2009.Text = "" Then
                                                    If Not C2010.Text = "" Then
                                                        If Not C2011.Text = "" Then
                                                            If Not C2012.Text = "" Then
                                                                If Not C2013.Text = "" Then
                                                                    If Not C2014.Text = "" Then
                                                                        If Not C2015.Text = "" Then
                                                                            If Not C2016.Text = "" Then
                                                                                If Not C2017.Text = "" Then
                                                                                    If Not C2018.Text = "" Then
                                                                                        If Not C2019.Text = "" Then
                                                                                            If Not C2020.Text = "" Then
                                                                                                If Not C2021.Text = "" Then
                                                                                                    If Not C2022.Text = "" Then
                                                                                                        If Not C2023.Text = "" Then
                                                                                                            If Not C2024.Text = "" Then
                                                                                                                If C2025.Text = "" Then
                                                                                                                    C2025.Text = "2"
                                                                                                                End If
                                                                                                            End If
                                                                                                            If C2024.Text = "" Then
                                                                                                                C2024.Text = "2"
                                                                                                            End If
                                                                                                        End If
                                                                                                        If C2023.Text = "" Then
                                                                                                            C2023.Text = "2"
                                                                                                        End If
                                                                                                    End If
                                                                                                    If C2022.Text = "" Then
                                                                                                        C2022.Text = "2"
                                                                                                    End If
                                                                                                End If
                                                                                                If C2021.Text = "" Then
                                                                                                    C2021.Text = "2"
                                                                                                End If
                                                                                            End If
                                                                                            If C2020.Text = "" Then
                                                                                                C2020.Text = "2"
                                                                                            End If
                                                                                        End If
                                                                                        If C2019.Text = "" Then
                                                                                            C2019.Text = "2"
                                                                                        End If
                                                                                    End If
                                                                                    If C2018.Text = "" Then
                                                                                        C2018.Text = "2"
                                                                                    End If
                                                                                End If
                                                                                If C2017.Text = "" Then
                                                                                    C2017.Text = "2"
                                                                                End If
                                                                            End If
                                                                            If C2016.Text = "" Then
                                                                                C2016.Text = "2"
                                                                            End If
                                                                        End If
                                                                        If C2015.Text = "" Then
                                                                            C2015.Text = "2"
                                                                        End If
                                                                    End If
                                                                    If C2014.Text = "" Then
                                                                        C2014.Text = "2"
                                                                    End If
                                                                End If
                                                                If C2013.Text = "" Then
                                                                    C2013.Text = "2"
                                                                End If
                                                            End If
                                                            If C2012.Text = "" Then
                                                                C2012.Text = "2"
                                                            End If
                                                        End If
                                                        If C2011.Text = "" Then
                                                            C2011.Text = "2"
                                                        End If
                                                    End If
                                                    If C2010.Text = "" Then
                                                        C2010.Text = "2"
                                                    End If
                                                End If
                                                If C2009.Text = "" Then
                                                    C2009.Text = "2"
                                                End If
                                            End If
                                            If C2008.Text = "" Then
                                                C2008.Text = "2"
                                            End If
                                        End If
                                        If C2007.Text = "" Then
                                            C2007.Text = "2"
                                        End If
                                    End If
                                    If C2006.Text = "" Then
                                        C2006.Text = "2"
                                    End If
                                End If
                                If C2005.Text = "" Then
                                    C2005.Text = "2"
                                End If
                            End If
                            If C2004.Text = "" Then
                                C2004.Text = "2"
                            End If
                        End If
                        If C2003.Text = "" Then
                            C2003.Text = "2"
                        End If
                    End If
                End If
            End If
            If C2001.Text = "" Then
                C2001.Text = "2"
            End If
        End If
    End If
End Sub

Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button28.Click
    If G2.Text = "" Then
        If Teken.Text = "²" Then
            G2.Text = G1.Text ^ 2
            Uitkomst.Text = ""
        End If
        If Not Teken.Text = "²" Then
            If G1.Text = Teken1.Text & C1001.Text & C1002.Text & C1003.Text & C1004.Text & C1005.Text & C1006.Text & C1007.Text & C1008.Text & C1009.Text & C1010.Text & C1011.Text & C1012.Text & C1013.Text & C1014.Text & C1015.Text & C1016.Text & C1017.Text & C1018.Text & C1019.Text & C1020.Text & C1021.Text & C1022.Text & C1023.Text & C1024.Text & C1025.Text Then
                C2001.Text = C1001.Text
                C2002.Text = C1002.Text
                C2003.Text = C1003.Text
                C2004.Text = C1004.Text
                C2005.Text = C1005.Text
                C2006.Text = C1006.Text
                C2007.Text = C1007.Text
                C2008.Text = C1008.Text
                C2009.Text = C1009.Text
                C2010.Text = C1010.Text
                C2011.Text = C1011.Text
                C2012.Text = C1012.Text
                C2013.Text = C1013.Text
                C2014.Text = C1014.Text
                C2015.Text = C1015.Text
                C2016.Text = C1016.Text
                C2017.Text = C1017.Text
                C2018.Text = C1018.Text
                C2019.Text = C1019.Text
                C2020.Text = C1020.Text
                C2021.Text = C1021.Text
                C2022.Text = C1022.Text
                C2023.Text = C1023.Text
                C2024.Text = C1024.Text
                C2025.Text = C1025.Text
                C1001.Text = ""
                C1002.Text = ""
                C1003.Text = ""
                C1004.Text = ""
                C1005.Text = ""
                C1006.Text = ""
                C1007.Text = ""
                C1008.Text = ""
                C1009.Text = ""
                C1010.Text = ""
                C1011.Text = ""
                C1012.Text = ""
                C1013.Text = ""
                C1014.Text = ""
                C1015.Text = ""
                C1016.Text = ""
                C1017.Text = ""
                C1018.Text = ""
                C1019.Text = ""
                C1020.Text = ""
                C1021.Text = ""
                C1022.Text = ""
                C1023.Text = ""
                C1024.Text = ""
                C1025.Text = ""
            End If
        End If
    End If
    If Not G2.Text = "" Then
        If Teken.Text = " + " Then
            G2.Text = G1.Text - -G2.Text
        End If
        If Teken.Text = " - " Then
            G2.Text = G1.Text - G2.Text
        End If
        If Teken.Text = " * " Then
            G2.Text = G1.Text * G2.Text
        End If
        If Teken.Text = " / " Then
            G2.Text = G1.Text / G2.Text
        End If
        If Teken.Text = " ^ " Then
            G2.Text = G1.Text ^ G2.Text
        End If
        If Teken.Text = "√" Then
            G2.Text = Math.Sqrt(G2.Text)
        End If
        If Teken.Text = " n√ " Then
            G2.Text = G2.Text ^ (1 / G1.Text)
        End If
        If Teken.Text = " √n " Then
            G2.Text = G1.Text ^ (1 / G2.Text)
        End If
        If Teken.Text = "sin(" Then
            G2.Text = Math.Sin(G2.Text)
        End If
        If Teken.Text = "cos(" Then
            G2.Text = Math.Cos(G2.Text)
        End If
        If Teken.Text = "tan(" Then
            G2.Text = Math.Tan(G2.Text)
        End If
        Uitkomst.Text = ""
    End If
    C1001.Text = ""
    C1002.Text = ""
    C1003.Text = ""
    C1004.Text = ""
    C1005.Text = ""
    C1006.Text = ""
    C1007.Text = ""
    C1008.Text = ""
    C1009.Text = ""
    C1010.Text = ""
    C1011.Text = ""
    C1012.Text = ""
    C1013.Text = ""
    C1014.Text = ""
    C1015.Text = ""
    C1016.Text = ""
    C1017.Text = ""
    C1018.Text = ""
    C1019.Text = ""
    C1020.Text = ""
    C1021.Text = ""
    C1022.Text = ""
    C1023.Text = ""
    C1024.Text = ""
    C1025.Text = ""
    G1.Text = ""
    Teken.Text = "sin("
    Button12.Enabled = True
    Button13.Enabled = True
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    If Not Uitkomst.Text = "" Then
        Uitkomst.Text = ""
        Teken1.Text = ""
        C1001.Text = ""
        C1002.Text = ""
        C1003.Text = ""
        C1004.Text = ""
        C1005.Text = ""
        C1006.Text = ""
        C1007.Text = ""
        C1008.Text = ""
        C1009.Text = ""
        C1010.Text = ""
        C1011.Text = ""
        C1012.Text = ""
        C1013.Text = ""
        C1014.Text = ""
        C1015.Text = ""
        C1016.Text = ""
        C1017.Text = ""
        C1018.Text = ""
        C1019.Text = ""
        C1020.Text = ""
        C1021.Text = ""
        C1022.Text = ""
        C1023.Text = ""
        C1024.Text = ""
        C1025.Text = ""
        Teken.Text = ""
        Teken2.Text = ""
        C2001.Text = ""
        C2002.Text = ""
        C2003.Text = ""
        C2004.Text = ""
        C2005.Text = ""
        C2006.Text = ""
        C2007.Text = ""
        C2008.Text = ""
        C2009.Text = ""
        C2010.Text = ""
        C2011.Text = ""
        C2012.Text = ""
        C2013.Text = ""
        C2014.Text = ""
        C2015.Text = ""
        C2016.Text = ""
        C2017.Text = ""
        C2018.Text = ""
        C2019.Text = ""
        C2020.Text = ""
        C2021.Text = ""
        C2022.Text = ""
        C2023.Text = ""
        C2024.Text = ""
        C2025.Text = ""
    End If
    If Uitkomst.Text = "" Then
        If Teken.Text = "" Then
            If Not C1001.Text = "" Then
                If Not C1001.Text = "0" Then
                    If Not C1002.Text = "" Then
                        If Not C1003.Text = "" Then
                            If Not C1004.Text = "" Then
                                If Not C1005.Text = "" Then
                                    If Not C1006.Text = "" Then
                                        If Not C1007.Text = "" Then
                                            If Not C1008.Text = "" Then
                                                If Not C1009.Text = "" Then
                                                    If Not C1010.Text = "" Then
                                                        If Not C1011.Text = "" Then
                                                            If Not C1012.Text = "" Then
                                                                If Not C1013.Text = "" Then
                                                                    If Not C1014.Text = "" Then
                                                                        If Not C1015.Text = "" Then
                                                                            If Not C1016.Text = "" Then
                                                                                If Not C1017.Text = "" Then
                                                                                    If Not C1018.Text = "" Then
                                                                                        If Not C1019.Text = "" Then
                                                                                            If Not C1020.Text = "" Then
                                                                                                If Not C1021.Text = "" Then
                                                                                                    If Not C1022.Text = "" Then
                                                                                                        If Not C1023.Text = "" Then
                                                                                                            If Not C1024.Text = "" Then
                                                                                                                If C1025.Text = "" Then
                                                                                                                    C1025.Text = "3"
                                                                                                                End If
                                                                                                            End If
                                                                                                            If C1024.Text = "" Then
                                                                                                                C1024.Text = "3"
                                                                                                            End If
                                                                                                        End If
                                                                                                        If C1023.Text = "" Then
                                                                                                            C1023.Text = "3"
                                                                                                        End If
                                                                                                    End If
                                                                                                    If C1022.Text = "" Then
                                                                                                        C1022.Text = "3"
                                                                                                    End If
                                                                                                End If
                                                                                                If C1021.Text = "" Then
                                                                                                    C1021.Text = "3"
                                                                                                End If
                                                                                            End If
                                                                                            If C1020.Text = "" Then
                                                                                                C1020.Text = "3"
                                                                                            End If
                                                                                        End If
                                                                                        If C1019.Text = "" Then
                                                                                            C1019.Text = "3"
                                                                                        End If
                                                                                    End If
                                                                                    If C1018.Text = "" Then
                                                                                        C1018.Text = "3"
                                                                                    End If
                                                                                End If
                                                                                If C1017.Text = "" Then
                                                                                    C1017.Text = "3"
                                                                                End If
                                                                            End If
                                                                            If C1016.Text = "" Then
                                                                                C1016.Text = "3"
                                                                            End If
                                                                        End If
                                                                        If C1015.Text = "" Then
                                                                            C1015.Text = "3"
                                                                        End If
                                                                    End If
                                                                    If C1014.Text = "" Then
                                                                        C1014.Text = "3"
                                                                    End If
                                                                End If
                                                                If C1013.Text = "" Then
                                                                    C1013.Text = "3"
                                                                End If
                                                            End If
                                                            If C1012.Text = "" Then
                                                                C1012.Text = "3"
                                                            End If
                                                        End If
                                                        If C1011.Text = "" Then
                                                            C1011.Text = "3"
                                                        End If
                                                    End If
                                                    If C1010.Text = "" Then
                                                        C1010.Text = "3"
                                                    End If
                                                End If
                                                If C1009.Text = "" Then
                                                    C1009.Text = "3"
                                                End If
                                            End If
                                            If C1008.Text = "" Then
                                                C1008.Text = "3"
                                            End If
                                        End If
                                        If C1007.Text = "" Then
                                            C1007.Text = "3"
                                        End If
                                    End If
                                    If C1006.Text = "" Then
                                        C1006.Text = "3"
                                    End If
                                End If
                                If C1005.Text = "" Then
                                    C1005.Text = "3"
                                End If
                            End If
                            If C1004.Text = "" Then
                                C1004.Text = "3"
                            End If
                        End If
                        If C1003.Text = "" Then
                            C1003.Text = "3"
                        End If
                    End If
                    If C1002.Text = "" Then
                        C1002.Text = "3"
                    End If
                End If
                If C1001.Text = "0" Then
                    If C1002.Text = "" Then
                        C1001.Text = "3"
                    End If
                    If C1002.Text = "," Then
                        If Not C1003.Text = "" Then
                            If Not C1004.Text = "" Then
                                If Not C1005.Text = "" Then
                                    If Not C1006.Text = "" Then
                                        If Not C1007.Text = "" Then
                                            If Not C1008.Text = "" Then
                                                If Not C1009.Text = "" Then
                                                    If Not C1010.Text = "" Then
                                                        If Not C1011.Text = "" Then
                                                            If Not C1012.Text = "" Then
                                                                If Not C1013.Text = "" Then
                                                                    If Not C1014.Text = "" Then
                                                                        If Not C1015.Text = "" Then
                                                                            If Not C1016.Text = "" Then
                                                                                If Not C1017.Text = "" Then
                                                                                    If Not C1018.Text = "" Then
                                                                                        If Not C1019.Text = "" Then
                                                                                            If Not C1020.Text = "" Then
                                                                                                If Not C1021.Text = "" Then
                                                                                                    If Not C1022.Text = "" Then
                                                                                                        If Not C1023.Text = "" Then
                                                                                                            If Not C1024.Text = "" Then
                                                                                                                If C1025.Text = "" Then
                                                                                                                    C1025.Text = "3"
                                                                                                                End If
                                                                                                            End If
                                                                                                            If C1024.Text = "" Then
                                                                                                                C1024.Text = "3"
                                                                                                            End If
                                                                                                        End If
                                                                                                        If C1023.Text = "" Then
                                                                                                            C1023.Text = "3"
                                                                                                        End If
                                                                                                    End If
                                                                                                    If C1022.Text = "" Then
                                                                                                        C1022.Text = "3"
                                                                                                    End If
                                                                                                End If
                                                                                                If C1021.Text = "" Then
                                                                                                    C1021.Text = "3"
                                                                                                End If
                                                                                            End If
                                                                                            If C1020.Text = "" Then
                                                                                                C1020.Text = "3"
                                                                                            End If
                                                                                        End If
                                                                                        If C1019.Text = "" Then
                                                                                            C1019.Text = "3"
                                                                                        End If
                                                                                    End If
                                                                                    If C1018.Text = "" Then
                                                                                        C1018.Text = "3"
                                                                                    End If
                                                                                End If
                                                                                If C1017.Text = "" Then
                                                                                    C1017.Text = "3"
                                                                                End If
                                                                            End If
                                                                            If C1016.Text = "" Then
                                                                                C1016.Text = "3"
                                                                            End If
                                                                        End If
                                                                        If C1015.Text = "" Then
                                                                            C1015.Text = "3"
                                                                        End If
                                                                    End If
                                                                    If C1014.Text = "" Then
                                                                        C1014.Text = "3"
                                                                    End If
                                                                End If
                                                                If C1013.Text = "" Then
                                                                    C1013.Text = "3"
                                                                End If
                                                            End If
                                                            If C1012.Text = "" Then
                                                                C1012.Text = "3"
                                                            End If
                                                        End If
                                                        If C1011.Text = "" Then
                                                            C1011.Text = "3"
                                                        End If
                                                    End If
                                                    If C1010.Text = "" Then
                                                        C1010.Text = "3"
                                                    End If
                                                End If
                                                If C1009.Text = "" Then
                                                    C1009.Text = "3"
                                                End If
                                            End If
                                            If C1008.Text = "" Then
                                                C1008.Text = "3"
                                            End If
                                        End If
                                        If C1007.Text = "" Then
                                            C1007.Text = "3"
                                        End If
                                    End If
                                    If C1006.Text = "" Then
                                        C1006.Text = "3"
                                    End If
                                End If
                                If C1005.Text = "" Then
                                    C1005.Text = "3"
                                End If
                            End If
                            If C1004.Text = "" Then
                                C1004.Text = "3"
                            End If
                        End If
                        If C1003.Text = "" Then
                            C1003.Text = "3"
                        End If
                    End If
                End If
            End If
            If C1001.Text = "" Then
                C1001.Text = "3"
            End If
        End If
        If Not Teken.Text = "" Then
            If Not C2001.Text = "" Then
                If Not C2001.Text = "0" Then
                    If Not C2002.Text = "" Then
                        If Not C2003.Text = "" Then
                            If Not C2004.Text = "" Then
                                If Not C2005.Text = "" Then
                                    If Not C2006.Text = "" Then
                                        If Not C2007.Text = "" Then
                                            If Not C2008.Text = "" Then
                                                If Not C2009.Text = "" Then
                                                    If Not C2010.Text = "" Then
                                                        If Not C2011.Text = "" Then
                                                            If Not C2012.Text = "" Then
                                                                If Not C2013.Text = "" Then
                                                                    If Not C2014.Text = "" Then
                                                                        If Not C2015.Text = "" Then
                                                                            If Not C2016.Text = "" Then
                                                                                If Not C2017.Text = "" Then
                                                                                    If Not C2018.Text = "" Then
                                                                                        If Not C2019.Text = "" Then
                                                                                            If Not C2020.Text = "" Then
                                                                                                If Not C2021.Text = "" Then
                                                                                                    If Not C2022.Text = "" Then
                                                                                                        If Not C2023.Text = "" Then
                                                                                                            If Not C2024.Text = "" Then
                                                                                                                If C2025.Text = "" Then
                                                                                                                    C2025.Text = "3"
                                                                                                                End If
                                                                                                            End If
                                                                                                            If C2024.Text = "" Then
                                                                                                                C2024.Text = "3"
                                                                                                            End If
                                                                                                        End If
                                                                                                        If C2023.Text = "" Then
                                                                                                            C2023.Text = "3"
                                                                                                        End If
                                                                                                    End If
                                                                                                    If C2022.Text = "" Then
                                                                                                        C2022.Text = "3"
                                                                                                    End If
                                                                                                End If
                                                                                                If C2021.Text = "" Then
                                                                                                    C2021.Text = "3"
                                                                                                End If
                                                                                            End If
                                                                                            If C2020.Text = "" Then
                                                                                                C2020.Text = "3"
                                                                                            End If
                                                                                        End If
                                                                                        If C2019.Text = "" Then
                                                                                            C2019.Text = "3"
                                                                                        End If
                                                                                    End If
                                                                                    If C2018.Text = "" Then
                                                                                        C2018.Text = "3"
                                                                                    End If
                                                                                End If
                                                                                If C2017.Text = "" Then
                                                                                    C2017.Text = "3"
                                                                                End If
                                                                            End If
                                                                            If C2016.Text = "" Then
                                                                                C2016.Text = "3"
                                                                            End If
                                                                        End If
                                                                        If C2015.Text = "" Then
                                                                            C2015.Text = "3"
                                                                        End If
                                                                    End If
                                                                    If C2014.Text = "" Then
                                                                        C2014.Text = "3"
                                                                    End If
                                                                End If
                                                                If C2013.Text = "" Then
                                                                    C2013.Text = "3"
                                                                End If
                                                            End If
                                                            If C2012.Text = "" Then
                                                                C2012.Text = "3"
                                                            End If
                                                        End If
                                                        If C2011.Text = "" Then
                                                            C2011.Text = "3"
                                                        End If
                                                    End If
                                                    If C2010.Text = "" Then
                                                        C2010.Text = "3"
                                                    End If
                                                End If
                                                If C2009.Text = "" Then
                                                    C2009.Text = "3"
                                                End If
                                            End If
                                            If C2008.Text = "" Then
                                                C2008.Text = "3"
                                            End If
                                        End If
                                        If C2007.Text = "" Then
                                            C2007.Text = "3"
                                        End If
                                    End If
                                    If C2006.Text = "" Then
                                        C2006.Text = "3"
                                    End If
                                End If
                                If C2005.Text = "" Then
                                    C2005.Text = "3"
                                End If
                            End If
                            If C2004.Text = "" Then
                                C2004.Text = "3"
                            End If
                        End If
                        If C2003.Text = "" Then
                            C2003.Text = "3"
                        End If
                    End If
                    If C2002.Text = "" Then
                        C2002.Text = "3"
                    End If
                End If
                If C2001.Text = "0" Then
                    If C2002.Text = "" Then
                        C2001.Text = "3"
                    End If
                    If C2002.Text = "," Then
                        If Not C2003.Text = "" Then
                            If Not C2004.Text = "" Then
                                If Not C2005.Text = "" Then
                                    If Not C2006.Text = "" Then
                                        If Not C2007.Text = "" Then
                                            If Not C2008.Text = "" Then
                                                If Not C2009.Text = "" Then
                                                    If Not C2010.Text = "" Then
                                                        If Not C2011.Text = "" Then
                                                            If Not C2012.Text = "" Then
                                                                If Not C2013.Text = "" Then
                                                                    If Not C2014.Text = "" Then
                                                                        If Not C2015.Text = "" Then
                                                                            If Not C2016.Text = "" Then
                                                                                If Not C2017.Text = "" Then
                                                                                    If Not C2018.Text = "" Then
                                                                                        If Not C2019.Text = "" Then
                                                                                            If Not C2020.Text = "" Then
                                                                                                If Not C2021.Text = "" Then
                                                                                                    If Not C2022.Text = "" Then
                                                                                                        If Not C2023.Text = "" Then
                                                                                                            If Not C2024.Text = "" Then
                                                                                                                If C2025.Text = "" Then
                                                                                                                    C2025.Text = "3"
                                                                                                                End If
                                                                                                            End If
                                                                                                            If C2024.Text = "" Then
                                                                                                                C2024.Text = "3"
                                                                                                            End If
                                                                                                        End If
                                                                                                        If C2023.Text = "" Then
                                                                                                            C2023.Text = "3"
                                                                                                        End If
                                                                                                    End If
                                                                                                    If C2022.Text = "" Then
                                                                                                        C2022.Text = "3"
                                                                                                    End If
                                                                                                End If
                                                                                                If C2021.Text = "" Then
                                                                                                    C2021.Text = "3"
                                                                                                End If
                                                                                            End If
                                                                                            If C2020.Text = "" Then
                                                                                                C2020.Text = "3"
                                                                                            End If
                                                                                        End If
                                                                                        If C2019.Text = "" Then
                                                                                            C2019.Text = "3"
                                                                                        End If
                                                                                    End If
                                                                                    If C2018.Text = "" Then
                                                                                        C2018.Text = "3"
                                                                                    End If
                                                                                End If
                                                                                If C2017.Text = "" Then
                                                                                    C2017.Text = "3"
                                                                                End If
                                                                            End If
                                                                            If C2016.Text = "" Then
                                                                                C2016.Text = "3"
                                                                            End If
                                                                        End If
                                                                        If C2015.Text = "" Then
                                                                            C2015.Text = "3"
                                                                        End If
                                                                    End If
                                                                    If C2014.Text = "" Then
                                                                        C2014.Text = "3"
                                                                    End If
                                                                End If
                                                                If C2013.Text = "" Then
                                                                    C2013.Text = "3"
                                                                End If
                                                            End If
                                                            If C2012.Text = "" Then
                                                                C2012.Text = "3"
                                                            End If
                                                        End If
                                                        If C2011.Text = "" Then
                                                            C2011.Text = "3"
                                                        End If
                                                    End If
                                                    If C2010.Text = "" Then
                                                        C2010.Text = "3"
                                                    End If
                                                End If
                                                If C2009.Text = "" Then
                                                    C2009.Text = "3"
                                                End If
                                            End If
                                            If C2008.Text = "" Then
                                                C2008.Text = "3"
                                            End If
                                        End If
                                        If C2007.Text = "" Then
                                            C2007.Text = "3"
                                        End If
                                    End If
                                    If C2006.Text = "" Then
                                        C2006.Text = "3"
                                    End If
                                End If
                                If C2005.Text = "" Then
                                    C2005.Text = "3"
                                End If
                            End If
                            If C2004.Text = "" Then
                                C2004.Text = "3"
                            End If
                        End If
                        If C2003.Text = "" Then
                            C2003.Text = "3"
                        End If
                    End If
                End If
            End If
            If C2001.Text = "" Then
                C2001.Text = "3"
            End If
        End If
    End If
End Sub

 

[najreteip]

deel 6/9

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    If Not Uitkomst.Text = "" Then
        Uitkomst.Text = ""
        Teken1.Text = ""
        C1001.Text = ""
        C1002.Text = ""
        C1003.Text = ""
        C1004.Text = ""
        C1005.Text = ""
        C1006.Text = ""
        C1007.Text = ""
        C1008.Text = ""
        C1009.Text = ""
        C1010.Text = ""
        C1011.Text = ""
        C1012.Text = ""
        C1013.Text = ""
        C1014.Text = ""
        C1015.Text = ""
        C1016.Text = ""
        C1017.Text = ""
        C1018.Text = ""
        C1019.Text = ""
        C1020.Text = ""
        C1021.Text = ""
        C1022.Text = ""
        C1023.Text = ""
        C1024.Text = ""
        C1025.Text = ""
        Teken.Text = ""
        Teken2.Text = ""
        C2001.Text = ""
        C2002.Text = ""
        C2003.Text = ""
        C2004.Text = ""
        C2005.Text = ""
        C2006.Text = ""
        C2007.Text = ""
        C2008.Text = ""
        C2009.Text = ""
        C2010.Text = ""
        C2011.Text = ""
        C2012.Text = ""
        C2013.Text = ""
        C2014.Text = ""
        C2015.Text = ""
        C2016.Text = ""
        C2017.Text = ""
        C2018.Text = ""
        C2019.Text = ""
        C2020.Text = ""
        C2021.Text = ""
        C2022.Text = ""
        C2023.Text = ""
        C2024.Text = ""
        C2025.Text = ""
    End If
    If Uitkomst.Text = "" Then
        If Teken.Text = "" Then
            If Not C1001.Text = "" Then
                If Not C1001.Text = "0" Then
                    If Not C1002.Text = "" Then
                        If Not C1003.Text = "" Then
                            If Not C1004.Text = "" Then
                                If Not C1005.Text = "" Then
                                    If Not C1006.Text = "" Then
                                        If Not C1007.Text = "" Then
                                            If Not C1008.Text = "" Then
                                                If Not C1009.Text = "" Then
                                                    If Not C1010.Text = "" Then
                                                        If Not C1011.Text = "" Then
                                                            If Not C1012.Text = "" Then
                                                                If Not C1013.Text = "" Then
                                                                    If Not C1014.Text = "" Then
                                                                        If Not C1015.Text = "" Then
                                                                            If Not C1016.Text = "" Then
                                                                                If Not C1017.Text = "" Then
                                                                                    If Not C1018.Text = "" Then
                                                                                        If Not C1019.Text = "" Then
                                                                                            If Not C1020.Text = "" Then
                                                                                                If Not C1021.Text = "" Then
                                                                                                    If Not C1022.Text = "" Then
                                                                                                        If Not C1023.Text = "" Then
                                                                                                            If Not C1024.Text = "" Then
                                                                                                                If C1025.Text = "" Then
                                                                                                                    C1025.Text = "4"
                                                                                                                End If
                                                                                                            End If
                                                                                                            If C1024.Text = "" Then
                                                                                                                C1024.Text = "4"
                                                                                                            End If
                                                                                                        End If
                                                                                                        If C1023.Text = "" Then
                                                                                                            C1023.Text = "4"
                                                                                                        End If
                                                                                                    End If
                                                                                                    If C1022.Text = "" Then
                                                                                                        C1022.Text = "4"
                                                                                                    End If
                                                                                                End If
                                                                                                If C1021.Text = "" Then
                                                                                                    C1021.Text = "4"
                                                                                                End If
                                                                                            End If
                                                                                            If C1020.Text = "" Then
                                                                                                C1020.Text = "4"
                                                                                            End If
                                                                                        End If
                                                                                        If C1019.Text = "" Then
                                                                                            C1019.Text = "4"
                                                                                        End If
                                                                                    End If
                                                                                    If C1018.Text = "" Then
                                                                                        C1018.Text = "4"
                                                                                    End If
                                                                                End If
                                                                                If C1017.Text = "" Then
                                                                                    C1017.Text = "4"
                                                                                End If
                                                                            End If
                                                                            If C1016.Text = "" Then
                                                                                C1016.Text = "4"
                                                                            End If
                                                                        End If
                                                                        If C1015.Text = "" Then
                                                                            C1015.Text = "4"
                                                                        End If
                                                                    End If
                                                                    If C1014.Text = "" Then
                                                                        C1014.Text = "4"
                                                                    End If
                                                                End If
                                                                If C1013.Text = "" Then
                                                                    C1013.Text = "4"
                                                                End If
                                                            End If
                                                            If C1012.Text = "" Then
                                                                C1012.Text = "4"
                                                            End If
                                                        End If
                                                        If C1011.Text = "" Then
                                                            C1011.Text = "4"
                                                        End If
                                                    End If
                                                    If C1010.Text = "" Then
                                                        C1010.Text = "4"
                                                    End If
                                                End If
                                                If C1009.Text = "" Then
                                                    C1009.Text = "4"
                                                End If
                                            End If
                                            If C1008.Text = "" Then
                                                C1008.Text = "4"
                                            End If
                                        End If
                                        If C1007.Text = "" Then
                                            C1007.Text = "4"
                                        End If
                                    End If
                                    If C1006.Text = "" Then
                                        C1006.Text = "4"
                                    End If
                                End If
                                If C1005.Text = "" Then
                                    C1005.Text = "4"
                                End If
                            End If
                            If C1004.Text = "" Then
                                C1004.Text = "4"
                            End If
                        End If
                        If C1003.Text = "" Then
                            C1003.Text = "4"
                        End If
                    End If
                    If C1002.Text = "" Then
                        C1002.Text = "4"
                    End If
                End If
                If C1001.Text = "0" Then
                    If C1002.Text = "" Then
                        C1001.Text = "4"
                    End If
                    If C1002.Text = "," Then
                        If Not C1003.Text = "" Then
                            If Not C1004.Text = "" Then
                                If Not C1005.Text = "" Then
                                    If Not C1006.Text = "" Then
                                        If Not C1007.Text = "" Then
                                            If Not C1008.Text = "" Then
                                                If Not C1009.Text = "" Then
                                                    If Not C1010.Text = "" Then
                                                        If Not C1011.Text = "" Then
                                                            If Not C1012.Text = "" Then
                                                                If Not C1013.Text = "" Then
                                                                    If Not C1014.Text = "" Then
                                                                        If Not C1015.Text = "" Then
                                                                            If Not C1016.Text = "" Then
                                                                                If Not C1017.Text = "" Then
                                                                                    If Not C1018.Text = "" Then
                                                                                        If Not C1019.Text = "" Then
                                                                                            If Not C1020.Text = "" Then
                                                                                                If Not C1021.Text = "" Then
                                                                                                    If Not C1022.Text = "" Then
                                                                                                        If Not C1023.Text = "" Then
                                                                                                            If Not C1024.Text = "" Then
                                                                                                                If C1025.Text = "" Then
                                                                                                                    C1025.Text = "4"
                                                                                                                End If
                                                                                                            End If
                                                                                                            If C1024.Text = "" Then
                                                                                                                C1024.Text = "4"
                                                                                                            End If
                                                                                                        End If
                                                                                                        If C1023.Text = "" Then
                                                                                                            C1023.Text = "4"
                                                                                                        End If
                                                                                                    End If
                                                                                                    If C1022.Text = "" Then
                                                                                                        C1022.Text = "4"
                                                                                                    End If
                                                                                                End If
                                                                                                If C1021.Text = "" Then
                                                                                                    C1021.Text = "4"
                                                                                                End If
                                                                                            End If
                                                                                            If C1020.Text = "" Then
                                                                                                C1020.Text = "4"
                                                                                            End If
                                                                                        End If
                                                                                        If C1019.Text = "" Then
                                                                                            C1019.Text = "4"
                                                                                        End If
                                                                                    End If
                                                                                    If C1018.Text = "" Then
                                                                                        C1018.Text = "4"
                                                                                    End If
                                                                                End If
                                                                                If C1017.Text = "" Then
                                                                                    C1017.Text = "4"
                                                                                End If
                                                                            End If
                                                                            If C1016.Text = "" Then
                                                                                C1016.Text = "4"
                                                                            End If
                                                                        End If
                                                                        If C1015.Text = "" Then
                                                                            C1015.Text = "4"
                                                                        End If
                                                                    End If
                                                                    If C1014.Text = "" Then
                                                                        C1014.Text = "4"
                                                                    End If
                                                                End If
                                                                If C1013.Text = "" Then
                                                                    C1013.Text = "4"
                                                                End If
                                                            End If
                                                            If C1012.Text = "" Then
                                                                C1012.Text = "4"
                                                            End If
                                                        End If
                                                        If C1011.Text = "" Then
                                                            C1011.Text = "4"
                                                        End If
                                                    End If
                                                    If C1010.Text = "" Then
                                                        C1010.Text = "4"
                                                    End If
                                                End If
                                                If C1009.Text = "" Then
                                                    C1009.Text = "4"
                                                End If
                                            End If
                                            If C1008.Text = "" Then
                                                C1008.Text = "4"
                                            End If
                                        End If
                                        If C1007.Text = "" Then
                                            C1007.Text = "4"
                                        End If
                                    End If
                                    If C1006.Text = "" Then
                                        C1006.Text = "4"
                                    End If
                                End If
                                If C1005.Text = "" Then
                                    C1005.Text = "4"
                                End If
                            End If
                            If C1004.Text = "" Then
                                C1004.Text = "4"
                            End If
                        End If
                        If C1003.Text = "" Then
                            C1003.Text = "4"
                        End If
                    End If
                End If
            End If
            If C1001.Text = "" Then
                C1001.Text = "4"
            End If
        End If
        If Not Teken.Text = "" Then
            If Not C2001.Text = "" Then
                If Not C2001.Text = "0" Then
                    If Not C2002.Text = "" Then
                        If Not C2003.Text = "" Then
                            If Not C2004.Text = "" Then
                                If Not C2005.Text = "" Then
                                    If Not C2006.Text = "" Then
                                        If Not C2007.Text = "" Then
                                            If Not C2008.Text = "" Then
                                                If Not C2009.Text = "" Then
                                                    If Not C2010.Text = "" Then
                                                        If Not C2011.Text = "" Then
                                                            If Not C2012.Text = "" Then
                                                                If Not C2013.Text = "" Then
                                                                    If Not C2014.Text = "" Then
                                                                        If Not C2015.Text = "" Then
                                                                            If Not C2016.Text = "" Then
                                                                                If Not C2017.Text = "" Then
                                                                                    If Not C2018.Text = "" Then
                                                                                        If Not C2019.Text = "" Then
                                                                                            If Not C2020.Text = "" Then
                                                                                                If Not C2021.Text = "" Then
                                                                                                    If Not C2022.Text = "" Then
                                                                                                        If Not C2023.Text = "" Then
                                                                                                            If Not C2024.Text = "" Then
                                                                                                                If C2025.Text = "" Then
                                                                                                                    C2025.Text = "4"
                                                                                                                End If
                                                                                                            End If
                                                                                                            If C2024.Text = "" Then
                                                                                                                C2024.Text = "4"
                                                                                                            End If
                                                                                                        End If
                                                                                                        If C2023.Text = "" Then
                                                                                                            C2023.Text = "4"
                                                                                                        End If
                                                                                                    End If
                                                                                                    If C2022.Text = "" Then
                                                                                                        C2022.Text = "4"
                                                                                                    End If
                                                                                                End If
                                                                                                If C2021.Text = "" Then
                                                                                                    C2021.Text = "4"
                                                                                                End If
                                                                                            End If
                                                                                            If C2020.Text = "" Then
                                                                                                C2020.Text = "4"
                                                                                            End If
                                                                                        End If
                                                                                        If C2019.Text = "" Then
                                                                                            C2019.Text = "4"
                                                                                        End If
                                                                                    End If
                                                                                    If C2018.Text = "" Then
                                                                                        C2018.Text = "4"
                                                                                    End If
                                                                                End If
                                                                                If C2017.Text = "" Then
                                                                                    C2017.Text = "4"
                                                                                End If
                                                                            End If
                                                                            If C2016.Text = "" Then
                                                                                C2016.Text = "4"
                                                                            End If
                                                                        End If
                                                                        If C2015.Text = "" Then
                                                                            C2015.Text = "4"
                                                                        End If
                                                                    End If
                                                                    If C2014.Text = "" Then
                                                                        C2014.Text = "4"
                                                                    End If
                                                                End If
                                                                If C2013.Text = "" Then
                                                                    C2013.Text = "4"
                                                                End If
                                                            End If
                                                            If C2012.Text = "" Then
                                                                C2012.Text = "4"
                                                            End If
                                                        End If
                                                        If C2011.Text = "" Then
                                                            C2011.Text = "4"
                                                        End If
                                                    End If
                                                    If C2010.Text = "" Then
                                                        C2010.Text = "4"
                                                    End If
                                                End If
                                                If C2009.Text = "" Then
                                                    C2009.Text = "4"
                                                End If
                                            End If
                                            If C2008.Text = "" Then
                                                C2008.Text = "4"
                                            End If
                                        End If
                                        If C2007.Text = "" Then
                                            C2007.Text = "4"
                                        End If
                                    End If
                                    If C2006.Text = "" Then
                                        C2006.Text = "4"
                                    End If
                                End If
                                If C2005.Text = "" Then
                                    C2005.Text = "4"
                                End If
                            End If
                            If C2004.Text = "" Then
                                C2004.Text = "4"
                            End If
                        End If
                        If C2003.Text = "" Then
                            C2003.Text = "4"
                        End If
                    End If
                    If C2002.Text = "" Then
                        C2002.Text = "4"
                    End If
                End If
                If C2001.Text = "0" Then
                    If C2002.Text = "" Then
                        C2001.Text = "4"
                    End If
                    If C2002.Text = "," Then
                        If Not C2003.Text = "" Then
                            If Not C2004.Text = "" Then
                                If Not C2005.Text = "" Then
                                    If Not C2006.Text = "" Then
                                        If Not C2007.Text = "" Then
                                            If Not C2008.Text = "" Then
                                                If Not C2009.Text = "" Then
                                                    If Not C2010.Text = "" Then
                                                        If Not C2011.Text = "" Then
                                                            If Not C2012.Text = "" Then
                                                                If Not C2013.Text = "" Then
                                                                    If Not C2014.Text = "" Then
                                                                        If Not C2015.Text = "" Then
                                                                            If Not C2016.Text = "" Then
                                                                                If Not C2017.Text = "" Then
                                                                                    If Not C2018.Text = "" Then
                                                                                        If Not C2019.Text = "" Then
                                                                                            If Not C2020.Text = "" Then
                                                                                                If Not C2021.Text = "" Then
                                                                                                    If Not C2022.Text = "" Then
                                                                                                        If Not C2023.Text = "" Then
                                                                                                            If Not C2024.Text = "" Then
                                                                                                                If C2025.Text = "" Then
                                                                                                                    C2025.Text = "4"
                                                                                                                End If
                                                                                                            End If
                                                                                                            If C2024.Text = "" Then
                                                                                                                C2024.Text = "4"
                                                                                                            End If
                                                                                                        End If
                                                                                                        If C2023.Text = "" Then
                                                                                                            C2023.Text = "4"
                                                                                                        End If
                                                                                                    End If
                                                                                                    If C2022.Text = "" Then
                                                                                                        C2022.Text = "4"
                                                                                                    End If
                                                                                                End If
                                                                                                If C2021.Text = "" Then
                                                                                                    C2021.Text = "4"
                                                                                                End If
                                                                                            End If
                                                                                            If C2020.Text = "" Then
                                                                                                C2020.Text = "4"
                                                                                            End If
                                                                                        End If
                                                                                        If C2019.Text = "" Then
                                                                                            C2019.Text = "4"
                                                                                        End If
                                                                                    End If
                                                                                    If C2018.Text = "" Then
                                                                                        C2018.Text = "4"
                                                                                    End If
                                                                                End If
                                                                                If C2017.Text = "" Then
                                                                                    C2017.Text = "4"
                                                                                End If
                                                                            End If
                                                                            If C2016.Text = "" Then
                                                                                C2016.Text = "4"
                                                                            End If
                                                                        End If
                                                                        If C2015.Text = "" Then
                                                                            C2015.Text = "4"
                                                                        End If
                                                                    End If
                                                                    If C2014.Text = "" Then
                                                                        C2014.Text = "4"
                                                                    End If
                                                                End If
                                                                If C2013.Text = "" Then
                                                                    C2013.Text = "4"
                                                                End If
                                                            End If
                                                            If C2012.Text = "" Then
                                                                C2012.Text = "4"
                                                            End If
                                                        End If
                                                        If C2011.Text = "" Then
                                                            C2011.Text = "4"
                                                        End If
                                                    End If
                                                    If C2010.Text = "" Then
                                                        C2010.Text = "4"
                                                    End If
                                                End If
                                                If C2009.Text = "" Then
                                                    C2009.Text = "4"
                                                End If
                                            End If
                                            If C2008.Text = "" Then
                                                C2008.Text = "4"
                                            End If
                                        End If
                                        If C2007.Text = "" Then
                                            C2007.Text = "4"
                                        End If
                                    End If
                                    If C2006.Text = "" Then
                                        C2006.Text = "4"
                                    End If
                                End If
                                If C2005.Text = "" Then
                                    C2005.Text = "4"
                                End If
                            End If
                            If C2004.Text = "" Then
                                C2004.Text = "4"
                            End If
                        End If
                        If C2003.Text = "" Then
                            C2003.Text = "4"
                        End If
                    End If
                End If
            End If
            If C2001.Text = "" Then
                C2001.Text = "4"
            End If
        End If
    End If
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    If Not Uitkomst.Text = "" Then
        Uitkomst.Text = ""
        Teken1.Text = ""
        C1001.Text = ""
        C1002.Text = ""
        C1003.Text = ""
        C1004.Text = ""
        C1005.Text = ""
        C1006.Text = ""
        C1007.Text = ""
        C1008.Text = ""
        C1009.Text = ""
        C1010.Text = ""
        C1011.Text = ""
        C1012.Text = ""
        C1013.Text = ""
        C1014.Text = ""
        C1015.Text = ""
        C1016.Text = ""
        C1017.Text = ""
        C1018.Text = ""
        C1019.Text = ""
        C1020.Text = ""
        C1021.Text = ""
        C1022.Text = ""
        C1023.Text = ""
        C1024.Text = ""
        C1025.Text = ""
        Teken.Text = ""
        Teken2.Text = ""
        C2001.Text = ""
        C2002.Text = ""
        C2003.Text = ""
        C2004.Text = ""
        C2005.Text = ""
        C2006.Text = ""
        C2007.Text = ""
        C2008.Text = ""
        C2009.Text = ""
        C2010.Text = ""
        C2011.Text = ""
        C2012.Text = ""
        C2013.Text = ""
        C2014.Text = ""
        C2015.Text = ""
        C2016.Text = ""
        C2017.Text = ""
        C2018.Text = ""
        C2019.Text = ""
        C2020.Text = ""
        C2021.Text = ""
        C2022.Text = ""
        C2023.Text = ""
        C2024.Text = ""
        C2025.Text = ""
    End If
    If Uitkomst.Text = "" Then
        If Teken.Text = "" Then
            If Not C1001.Text = "" Then
                If Not C1001.Text = "0" Then
                    If Not C1002.Text = "" Then
                        If Not C1003.Text = "" Then
                            If Not C1004.Text = "" Then
                                If Not C1005.Text = "" Then
                                    If Not C1006.Text = "" Then
                                        If Not C1007.Text = "" Then
                                            If Not C1008.Text = "" Then
                                                If Not C1009.Text = "" Then
                                                    If Not C1010.Text = "" Then
                                                        If Not C1011.Text = "" Then
                                                            If Not C1012.Text = "" Then
                                                                If Not C1013.Text = "" Then
                                                                    If Not C1014.Text = "" Then
                                                                        If Not C1015.Text = "" Then
                                                                            If Not C1016.Text = "" Then
                                                                                If Not C1017.Text = "" Then
                                                                                    If Not C1018.Text = "" Then
                                                                                        If Not C1019.Text = "" Then
                                                                                            If Not C1020.Text = "" Then
                                                                                                If Not C1021.Text = "" Then
                                                                                                    If Not C1022.Text = "" Then
                                                                                                        If Not C1023.Text = "" Then
                                                                                                            If Not C1024.Text = "" Then
                                                                                                                If C1025.Text = "" Then
                                                                                                                    C1025.Text = "5"
                                                                                                                End If
                                                                                                            End If
                                                                                                            If C1024.Text = "" Then
                                                                                                                C1024.Text = "5"
                                                                                                            End If
                                                                                                        End If
                                                                                                        If C1023.Text = "" Then
                                                                                                            C1023.Text = "5"
                                                                                                        End If
                                                                                                    End If
                                                                                                    If C1022.Text = "" Then
                                                                                                        C1022.Text = "5"
                                                                                                    End If
                                                                                                End If
                                                                                                If C1021.Text = "" Then
                                                                                                    C1021.Text = "5"
                                                                                                End If
                                                                                            End If
                                                                                            If C1020.Text = "" Then
                                                                                                C1020.Text = "5"
                                                                                            End If
                                                                                        End If
                                                                                        If C1019.Text = "" Then
                                                                                            C1019.Text = "5"
                                                                                        End If
                                                                                    End If
                                                                                    If C1018.Text = "" Then
                                                                                        C1018.Text = "5"
                                                                                    End If
                                                                                End If
                                                                                If C1017.Text = "" Then
                                                                                    C1017.Text = "5"
                                                                                End If
                                                                            End If
                                                                            If C1016.Text = "" Then
                                                                                C1016.Text = "5"
                                                                            End If
                                                                        End If
                                                                        If C1015.Text = "" Then
                                                                            C1015.Text = "5"
                                                                        End If
                                                                    End If
                                                                    If C1014.Text = "" Then
                                                                        C1014.Text = "5"
                                                                    End If
                                                                End If
                                                                If C1013.Text = "" Then
                                                                    C1013.Text = "5"
                                                                End If
                                                            End If
                                                            If C1012.Text = "" Then
                                                                C1012.Text = "5"
                                                            End If
                                                        End If
                                                        If C1011.Text = "" Then
                                                            C1011.Text = "5"
                                                        End If
                                                    End If
                                                    If C1010.Text = "" Then
                                                        C1010.Text = "5"
                                                    End If
                                                End If
                                                If C1009.Text = "" Then
                                                    C1009.Text = "5"
                                                End If
                                            End If
                                            If C1008.Text = "" Then
                                                C1008.Text = "5"
                                            End If
                                        End If
                                        If C1007.Text = "" Then
                                            C1007.Text = "5"
                                        End If
                                    End If
                                    If C1006.Text = "" Then
                                        C1006.Text = "5"
                                    End If
                                End If
                                If C1005.Text = "" Then
                                    C1005.Text = "5"
                                End If
                            End If
                            If C1004.Text = "" Then
                                C1004.Text = "5"
                            End If
                        End If
                        If C1003.Text = "" Then
                            C1003.Text = "5"
                        End If
                    End If
                    If C1002.Text = "" Then
                        C1002.Text = "5"
                    End If
                End If
                If C1001.Text = "0" Then
                    If C1002.Text = "" Then
                        C1001.Text = "5"
                    End If
                    If C1002.Text = "," Then
                        If Not C1003.Text = "" Then
                            If Not C1004.Text = "" Then
                                If Not C1005.Text = "" Then
                                    If Not C1006.Text = "" Then
                                        If Not C1007.Text = "" Then
                                            If Not C1008.Text = "" Then
                                                If Not C1009.Text = "" Then
                                                    If Not C1010.Text = "" Then
                                                        If Not C1011.Text = "" Then
                                                            If Not C1012.Text = "" Then
                                                                If Not C1013.Text = "" Then
                                                                    If Not C1014.Text = "" Then
                                                                        If Not C1015.Text = "" Then
                                                                            If Not C1016.Text = "" Then
                                                                                If Not C1017.Text = "" Then
                                                                                    If Not C1018.Text = "" Then
                                                                                        If Not C1019.Text = "" Then
                                                                                            If Not C1020.Text = "" Then
                                                                                                If Not C1021.Text = "" Then
                                                                                                    If Not C1022.Text = "" Then
                                                                                                        If Not C1023.Text = "" Then
                                                                                                            If Not C1024.Text = "" Then
                                                                                                                If C1025.Text = "" Then
                                                                                                                    C1025.Text = "5"
                                                                                                                End If
                                                                                                            End If
                                                                                                            If C1024.Text = "" Then
                                                                                                                C1024.Text = "5"
                                                                                                            End If
                                                                                                        End If
                                                                                                        If C1023.Text = "" Then
                                                                                                            C1023.Text = "5"
                                                                                                        End If
                                                                                                    End If
                                                                                                    If C1022.Text = "" Then
                                                                                                        C1022.Text = "5"
                                                                                                    End If
                                                                                                End If
                                                                                                If C1021.Text = "" Then
                                                                                                    C1021.Text = "5"
                                                                                                End If
                                                                                            End If
                                                                                            If C1020.Text = "" Then
                                                                                                C1020.Text = "5"
                                                                                            End If
                                                                                        End If
                                                                                        If C1019.Text = "" Then
                                                                                            C1019.Text = "5"
                                                                                        End If
                                                                                    End If
                                                                                    If C1018.Text = "" Then
                                                                                        C1018.Text = "5"
                                                                                    End If
                                                                                End If
                                                                                If C1017.Text = "" Then
                                                                                    C1017.Text = "5"
                                                                                End If
                                                                            End If
                                                                            If C1016.Text = "" Then
                                                                                C1016.Text = "5"
                                                                            End If
                                                                        End If
                                                                        If C1015.Text = "" Then
                                                                            C1015.Text = "5"
                                                                        End If
                                                                    End If
                                                                    If C1014.Text = "" Then
                                                                        C1014.Text = "5"
                                                                    End If
                                                                End If
                                                                If C1013.Text = "" Then
                                                                    C1013.Text = "5"
                                                                End If
                                                            End If
                                                            If C1012.Text = "" Then
                                                                C1012.Text = "5"
                                                            End If
                                                        End If
                                                        If C1011.Text = "" Then
                                                            C1011.Text = "5"
                                                        End If
                                                    End If
                                                    If C1010.Text = "" Then
                                                        C1010.Text = "5"
                                                    End If
                                                End If
                                                If C1009.Text = "" Then
                                                    C1009.Text = "5"
                                                End If
                                            End If
                                            If C1008.Text = "" Then
                                                C1008.Text = "5"
                                            End If
                                        End If
                                        If C1007.Text = "" Then
                                            C1007.Text = "5"
                                        End If
                                    End If
                                    If C1006.Text = "" Then
                                        C1006.Text = "5"
                                    End If
                                End If
                                If C1005.Text = "" Then
                                    C1005.Text = "5"
                                End If
                            End If
                            If C1004.Text = "" Then
                                C1004.Text = "5"
                            End If
                        End If
                        If C1003.Text = "" Then
                            C1003.Text = "5"
                        End If
                    End If
                End If
            End If
            If C1001.Text = "" Then
                C1001.Text = "5"
            End If
        End If
        If Not Teken.Text = "" Then
            If Not C2001.Text = "" Then
                If Not C2001.Text = "0" Then
                    If Not C2002.Text = "" Then
                        If Not C2003.Text = "" Then
                            If Not C2004.Text = "" Then
                                If Not C2005.Text = "" Then
                                    If Not C2006.Text = "" Then
                                        If Not C2007.Text = "" Then
                                            If Not C2008.Text = "" Then
                                                If Not C2009.Text = "" Then
                                                    If Not C2010.Text = "" Then
                                                        If Not C2011.Text = "" Then
                                                            If Not C2012.Text = "" Then
                                                                If Not C2013.Text = "" Then
                                                                    If Not C2014.Text = "" Then
                                                                        If Not C2015.Text = "" Then
                                                                            If Not C2016.Text = "" Then
                                                                                If Not C2017.Text = "" Then
                                                                                    If Not C2018.Text = "" Then
                                                                                        If Not C2019.Text = "" Then
                                                                                            If Not C2020.Text = "" Then
                                                                                                If Not C2021.Text = "" Then
                                                                                                    If Not C2022.Text = "" Then
                                                                                                        If Not C2023.Text = "" Then
                                                                                                            If Not C2024.Text = "" Then
                                                                                                                If C2025.Text = "" Then
                                                                                                                    C2025.Text = "5"
                                                                                                                End If
                                                                                                            End If
                                                                                                            If C2024.Text = "" Then
                                                                                                                C2024.Text = "5"
                                                                                                            End If
                                                                                                        End If
                                                                                                        If C2023.Text = "" Then
                                                                                                            C2023.Text = "5"
                                                                                                        End If
                                                                                                    End If
                                                                                                    If C2022.Text = "" Then
                                                                                                        C2022.Text = "5"
                                                                                                    End If
                                                                                                End If
                                                                                                If C2021.Text = "" Then
                                                                                                    C2021.Text = "5"
                                                                                                End If
                                                                                            End If
                                                                                            If C2020.Text = "" Then
                                                                                                C2020.Text = "5"
                                                                                            End If
                                                                                        End If
                                                                                        If C2019.Text = "" Then
                                                                                            C2019.Text = "5"
                                                                                        End If
                                                                                    End If
                                                                                    If C2018.Text = "" Then
                                                                                        C2018.Text = "5"
                                                                                    End If
                                                                                End If
                                                                                If C2017.Text = "" Then
                                                                                    C2017.Text = "5"
                                                                                End If
                                                                            End If
                                                                            If C2016.Text = "" Then
                                                                                C2016.Text = "5"
                                                                            End If
                                                                        End If
                                                                        If C2015.Text = "" Then
                                                                            C2015.Text = "5"
                                                                        End If
                                                                    End If
                                                                    If C2014.Text = "" Then
                                                                        C2014.Text = "5"
                                                                    End If
                                                                End If
                                                                If C2013.Text = "" Then
                                                                    C2013.Text = "5"
                                                                End If
                                                            End If
                                                            If C2012.Text = "" Then
                                                                C2012.Text = "5"
                                                            End If
                                                        End If
                                                        If C2011.Text = "" Then
                                                            C2011.Text = "5"
                                                        End If
                                                    End If
                                                    If C2010.Text = "" Then
                                                        C2010.Text = "5"
                                                    End If
                                                End If
                                                If C2009.Text = "" Then
                                                    C2009.Text = "5"
                                                End If
                                            End If
                                            If C2008.Text = "" Then
                                                C2008.Text = "5"
                                            End If
                                        End If
                                        If C2007.Text = "" Then
                                            C2007.Text = "5"
                                        End If
                                    End If
                                    If C2006.Text = "" Then
                                        C2006.Text = "5"
                                    End If
                                End If
                                If C2005.Text = "" Then
                                    C2005.Text = "5"
                                End If
                            End If
                            If C2004.Text = "" Then
                                C2004.Text = "5"
                            End If
                        End If
                        If C2003.Text = "" Then
                            C2003.Text = "5"
                        End If
                    End If
                    If C2002.Text = "" Then
                        C2002.Text = "5"
                    End If
                End If
                If C2001.Text = "0" Then
                    If C2002.Text = "" Then
                        C2001.Text = "5"
                    End If
                    If C2002.Text = "," Then
                        If Not C2003.Text = "" Then
                            If Not C2004.Text = "" Then
                                If Not C2005.Text = "" Then
                                    If Not C2006.Text = "" Then
                                        If Not C2007.Text = "" Then
                                            If Not C2008.Text = "" Then
                                                If Not C2009.Text = "" Then
                                                    If Not C2010.Text = "" Then
                                                        If Not C2011.Text = "" Then
                                                            If Not C2012.Text = "" Then
                                                                If Not C2013.Text = "" Then
                                                                    If Not C2014.Text = "" Then
                                                                        If Not C2015.Text = "" Then
                                                                            If Not C2016.Text = "" Then
                                                                                If Not C2017.Text = "" Then
                                                                                    If Not C2018.Text = "" Then
                                                                                        If Not C2019.Text = "" Then
                                                                                            If Not C2020.Text = "" Then
                                                                                                If Not C2021.Text = "" Then
                                                                                                    If Not C2022.Text = "" Then
                                                                                                        If Not C2023.Text = "" Then
                                                                                                            If Not C2024.Text = "" Then
                                                                                                                If C2025.Text = "" Then
                                                                                                                    C2025.Text = "5"
                                                                                                                End If
                                                                                                            End If
                                                                                                            If C2024.Text = "" Then
                                                                                                                C2024.Text = "5"
                                                                                                            End If
                                                                                                        End If
                                                                                                        If C2023.Text = "" Then
                                                                                                            C2023.Text = "5"
                                                                                                        End If
                                                                                                    End If
                                                                                                    If C2022.Text = "" Then
                                                                                                        C2022.Text = "5"
                                                                                                    End If
                                                                                                End If
                                                                                                If C2021.Text = "" Then
                                                                                                    C2021.Text = "5"
                                                                                                End If
                                                                                            End If
                                                                                            If C2020.Text = "" Then
                                                                                                C2020.Text = "5"
                                                                                            End If
                                                                                        End If
                                                                                        If C2019.Text = "" Then
                                                                                            C2019.Text = "5"
                                                                                        End If
                                                                                    End If
                                                                                    If C2018.Text = "" Then
                                                                                        C2018.Text = "5"
                                                                                    End If
                                                                                End If
                                                                                If C2017.Text = "" Then
                                                                                    C2017.Text = "5"
                                                                                End If
                                                                            End If
                                                                            If C2016.Text = "" Then
                                                                                C2016.Text = "5"
                                                                            End If
                                                                        End If
                                                                        If C2015.Text = "" Then
                                                                            C2015.Text = "5"
                                                                        End If
                                                                    End If
                                                                    If C2014.Text = "" Then
                                                                        C2014.Text = "5"
                                                                    End If
                                                                End If
                                                                If C2013.Text = "" Then
                                                                    C2013.Text = "5"
                                                                End If
                                                            End If
                                                            If C2012.Text = "" Then
                                                                C2012.Text = "5"
                                                            End If
                                                        End If
                                                        If C2011.Text = "" Then
                                                            C2011.Text = "5"
                                                        End If
                                                    End If
                                                    If C2010.Text = "" Then
                                                        C2010.Text = "5"
                                                    End If
                                                End If
                                                If C2009.Text = "" Then
                                                    C2009.Text = "5"
                                                End If
                                            End If
                                            If C2008.Text = "" Then
                                                C2008.Text = "5"
                                            End If
                                        End If
                                        If C2007.Text = "" Then
                                            C2007.Text = "5"
                                        End If
                                    End If
                                    If C2006.Text = "" Then
                                        C2006.Text = "5"
                                    End If
                                End If
                                If C2005.Text = "" Then
                                    C2005.Text = "5"
                                End If
                            End If
                            If C2004.Text = "" Then
                                C2004.Text = "5"
                            End If
                        End If
                        If C2003.Text = "" Then
                            C2003.Text = "5"
                        End If
                    End If
                End If
            End If
            If C2001.Text = "" Then
                C2001.Text = "5"
            End If
        End If
    End If
End Sub

 

[crash]

Welkom op Helpmij.

Graag de volgende keer met code tag werken of je code als bijlage toevoegen. De topic wordt anders wel heel erg lang. Ik heb het nu aangepast voor je.

 

[huijb]

Graag de code als bijlage bijvoegen s.v.p. of één bericht er van maken. Op deze manier is het erg onoverzichtelijk.

 

[snb]

Bestudeer eerst eens lussen in VB.

Private Sub form1_formclosed()
  for j=1 to 25
    open "C:\Rekenmachine\C10" & format(j,"00") for Output as #1
      print #1,Me("C10" & format(j,"00")).Text
    close #1
  next
End Sub

 

[najreteip]

weet er echt niemand een code om een stream te lezen

 

[snb]

In ieder geval 1 iemand (zie mijn vorige suggestie).
Dat jij het niet als zodanig herkent is natuurlijk een ander verhaal.
De conclusie in je vraag is in ieder geval onjuist.

Private Sub form1_formclosed()
  for j=1 to 25
    open "C:\Rekenmachine\C10" & format(j,"00") for Input as #1
      c0 = Input(LOF(1),#1)
    close #1
  next
End Sub

 

[najreteip]

ik zal het proberen. alvast bedankt voor te helpen.

 

[snb]

Ik hoop dat je in de gaten hebt dat deze vraag

weet er echt niemand een code om een stream te lezen

inhoudelijk 'niet echt' overeenkomt met de titel van deze draad.

 

[najreteip]

met deze code is het gelukt. het is in orde

[CPP]Function Leestekst(ByVal strbestandsnaam As String) As String

Dim objstreamreader As New StreamReader(strbestandsnaam)
Return objstreamreader.ReadToEnd

objstreamreader.Close()
objstreamreader = Nothing

End Function[/CPP]