05-15-2018
01:19 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
05-15-2018
01:19 AM
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