Attribute VB_Name = "Module1"
'Declareren globale variabelen
Global inputBestand As String                   'Invoerbestand profiellijn
Global inputBestandSloot As String              'Invoerbestand slootproperties
Global opmaakProfiel As String                  'Het gekozen opmaakprofiel
Global aantalProfielen As Long                  'Aantal ingelezen dwarsprofielen
Global arrayProfielen()                         'Dynamic Array
Global rawArrayProfielen()                      'Dynamic Array
Global arrayGeologischProfiel()                 'Dynamic Array
Global arrayProfielenSloot()                    'Dynamic Array
Global totaalAantalKolommen As Long             'Het aantal kolommen in de Array
Global geselecteerdProfiel As Long              'Het geselecteerde profiel
Global startX, startY, startZ As Double         'De startcoördinaten van het geselecteerde profiel
Global endX, endY, endZ As Double               'De startcoördinaten van het geselecteerde profiel
Global puntenGeselecteerdProfiel As Long        'Aantal punten in het geselecteerde bestand
Global totaalLengteprofiel As Double            'De lengte van het lengteprofiel
Global arrayWaterspanningen()                   'Dynamic arry voor de waterspanningen
Global aantalPuntenWaterspanning As Long        'Het aantal punten in de waterspanning
Global tempWaterspanning()                      'Tijdelijke dynamic array voor de waterspanningen
Global tempPuntenWaterspanning As Long          'Aantal punten in geselecteerd PL profiel
Global arrayPuntCode()                          'Dynamic Array voor de puntCodes
Global totaalAantalKolommenPuntCodes As Long    'Aantal punten in array met code
Global tempArray2DProfiel()                     'Dynamische array om het 2D DWP bij te houden
Global arrayKnooppunten()                       'Dynamic array voor de scenarioselectie
Global schaalFactor As Double                   'Schaalfactor voor de 2D grafiek
Global aantalVerwijderdeProfielen As Long       'Het aantal verwijderde dwarsprofielen
Global verwijderdeProfielen()                   'Dynamische array om het aantal verwijderdeprofielen in bij te houden
Global arrayProcessLog()                        'Dynamische array om het aanmaken van de sloten in bij te houden
Global pathInvoerbestand As String              'Path van het invoerbestand

'Global aantalKolommenPuntCodes As Long         'Aantal kolommen in de array met PuntCodes
Global volgNummer As Long                       'Het volgnummer voor de scenarioselectie
Global Const PI = 3.141592654                   'Constante Pi
Global kadeTraject As String                    'Het kadetraject
Global Const aantalKolommenProfielenSloot = 7   'Aantal kolomen in de arrayProfielenSloots
Global Const aantalKolommenArrayProcessLog = 10 'Aantal kolomen in de arrayProfielenSloots (profielnaam sloot_aanwezig;aantal_insteekpunten_sloot;taludhellingen_aangepast;sloot_aangemaakt;Boezem_aanwezig;Damwand_aanwezig)