Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
KenVaessen
in reply to: KenVaessen

This is to calculate the height of a tube. 

 

SyntaxEditor Code Snippet

Select Case Parameter("module_keuze_gebogen_recht") 
    Case 0 ul
        Select Case Parameter("module_standpijp_diameter")
            Case 125
                Select Case Parameter("module_afvoerbuis_diameter") 
                    Case 200
                        module_funderingsbuis_hoogte = (module_voet_hoogte + module_graafpeil) - (module_afvoerbuis_diameter + 321 + module_mof_hoogte + 71)
                    Case 250
                        module_funderingsbuis_hoogte = (module_voet_hoogte + module_graafpeil) - (module_afvoerbuis_diameter + 332 + module_mof_hoogte + 71)
                    Case 315
                        module_funderingsbuis_hoogte = (module_voet_hoogte + module_graafpeil) - (module_afvoerbuis_diameter + 339 + module_mof_hoogte + 71)    
                    Case 400
                        module_funderingsbuis_hoogte = (module_voet_hoogte + module_graafpeil) - (module_afvoerbuis_diameter + 344 + module_mof_hoogte + 71)
                    Case 500
                        module_funderingsbuis_hoogte = (module_voet_hoogte + module_graafpeil) - (module_afvoerbuis_diameter + 467 + module_mof_hoogte + 71)
                End Select
            Case 160
                module_funderingsbuis_hoogte = (module_voet_hoogte + module_graafpeil) - (module_afvoerbuis_diameter + 388 + module_mof_hoogte + 77)
            End Select
    Case 1 ul
        Select Case Parameter("module_standpijp_diameter")
            Case 125
                Select Case Parameter("module_afvoerbuis_diameter") 
                    Case 200
                        module_funderingsbuis_hoogte = (module_voet_hoogte + module_graafpeil) - (module_afvoerbuis_diameter + 10 + module_mof_hoogte + 71)
                    Case 250
                        module_funderingsbuis_hoogte = (module_voet_hoogte + module_graafpeil) - (module_afvoerbuis_diameter + 21 + module_mof_hoogte + 71)
                    Case 315
                        module_funderingsbuis_hoogte = (module_voet_hoogte + module_graafpeil) - (module_afvoerbuis_diameter + 28 + module_mof_hoogte + 71)    
                    Case 400
                        module_funderingsbuis_hoogte = (module_voet_hoogte + module_graafpeil) - (module_afvoerbuis_diameter + 33 + module_mof_hoogte + 71)
                    Case 500
                        module_funderingsbuis_hoogte = (module_voet_hoogte + module_graafpeil) - (module_afvoerbuis_diameter + 156 + module_mof_hoogte + 71)
                End Select
            Case 160
                module_funderingsbuis_hoogte = (module_voet_hoogte + module_graafpeil) - (module_afvoerbuis_diameter + 30 + module_mof_hoogte + 77)
            End Select
    End Select

'Minimale Funderingspijp
If module_funderingsbuis_hoogte <=150 Then
MessageBox.Show("Niet mogelijk, selecteer ander graafpeil", "Waarschuwing")
End If