Private Sub DRS_Berekenen_Drukbalk()
Dim STR01X As Double
Dim STR01Y As Double
'Punten links
Dim P01X As Double
Dim P01Y As Double
Dim P02X As Double
Dim P02Y As Double
Dim P03X As Double
Dim P03Y As Double
Dim P04X As Double
Dim P04Y As Double
Dim P05X As Double
Dim P05Y As Double
Dim P06X As Double
Dim P06Y As Double
'Punten rechts
Dim P07X As Double
Dim P07Y As Double
Dim P08X As Double
Dim P08Y As Double
Dim P09X As Double
Dim P09Y As Double
Dim P10X As Double
Dim P10Y As Double
Dim P11X As Double
Dim P11Y As Double
Dim P12X As Double
Dim P12Y As Double
'Driehoeken
Dim SZ01 As Double
Dim AZ02 As Double
Dim OZ03 As Double
Dim AZ03 As Double
Dim AZ04 As Double
Dim SZ05 As Double
Dim AZ06 As Double
Dim OZ06 As Double
Dim AZ07 As Double
Dim OZ07 As Double
'Overige gegevens
Dim HoogteAfgewerktPlafondZoldervloer As Double
Dim RuimteAfwerkingPlafondZoldervloer As Double
Dim DikteRegelAfwerking As Double
Dim DikteAfwerkingPlafond As Double
Dim HoogteDrukbalk As Double
Dim DikteOplegregel As Double
Dim HoogteOplegregel As Double
Dim Hoeklinks As Double
Dim HoogteVerdiepingsvloer As Double
Dim DikteBinnenbeplatingKap As Double
'Gegevens instellen
STR01X = DblCoord(CStr(ARR_C_StramienPunten(1, 1, 1)), "X")
STR01Y = DblCoord(CStr(ARR_C_StramienPunten(1, 1, 1)), "Y")
HoogteAfgewerktPlafondZoldervloer = ARR_Woning(46, 1)
RuimteAfwerkingPlafondZoldervloer = ARR_Woning(48, 1)
DikteRegelAfwerking = 22
DikteAfwerkingPlafond = 8
HoogteDrukbalk = 140
DikteOplegregel = 44
HoogteOplegregel = 95
Hoeklinks = ARR_Woning(51, 1)
HoogteVerdiepingsvloer = ARR_Woning(50, 1)
DikteBinnenbeplatingKap = 12.5
'Berekenen
SZ01 = SZaz(Hoeklinks, DikteBinnenbeplatingKap)
P01Y = 0 - HoogteVerdiepingsvloer + HoogteAfgewerktPlafondZoldervloer + DikteRegelAfwerking + DikteAfwerkingPlafond + HoogteDrukbalk
AZ02 = AZoz(Hoeklinks, STR01Y - P01Y - SZ01)
P01X = STR01X - AZ02
OZ03 = HoogteDrukbalk + DikteRegelAfwerking
AZ03 = AZoz(Hoeklinks, OZ03)
AZ04 = AZoz(Hoeklinks, DikteRegelAfwerking)
OZ04 = DikteRegelAfwerking
SZ05 = SZoz(DikteOplegregel, Hoeklinks)
AZ06 = AZsz(Hoeklinks, HoogteOplegregel)
OZ06 = OZsz(Hoeklinks, HoogteOplegregel)
AZ07 = AZsz(Hoeklinks, DikteOplegregel)
OZ07 = OZsz(Hoeklinks, DikteOplegregel)
P06X = P01X - AZ03
P06Y = P01Y - OZ03
P04X = P06X + AZ04 + SZ05
P04Y = P06Y + OZ04
P03X = P04X - OZ07
P03Y = P04Y + AZ07
P02X = P03X + AZ06
P02Y = P03Y + OZ06
P05X = P04X + AZ06
P05Y = P04Y + OZ06
'Punten rechts instellen
P07X = -1 * P01X
P07Y = P01Y
P08X = -1 * P02X
P08Y = P02Y
P09X = -1 * P03X
P09Y = P03Y
P10X = -1 * P04X
P10Y = P04Y
P11X = -1 * P05X
P11Y = P05Y
P12X = -1 * P06X
P12Y = P06Y
'ARR_C_Drukbalk vullen
ARR_C_Drukbalk(1, 1, 1) = P01X & "/" & P01Y
ARR_C_Drukbalk(2, 1, 1) = P02X & "/" & P02Y
ARR_C_Drukbalk(3, 1, 1) = P03X & "/" & P03Y
ARR_C_Drukbalk(4, 1, 1) = P04X & "/" & P04Y
ARR_C_Drukbalk(5, 1, 1) = P05X & "/" & P05Y
ARR_C_Drukbalk(6, 1, 1) = P06X & "/" & P06Y
ARR_C_Drukbalk(7, 1, 1) = P07X & "/" & P07Y
ARR_C_Drukbalk(8, 1, 1) = P08X & "/" & P08Y
ARR_C_Drukbalk(9, 1, 1) = P09X & "/" & P09Y
ARR_C_Drukbalk(10, 1, 1) = P10X & "/" & P10Y
ARR_C_Drukbalk(11, 1, 1) = P11X & "/" & P11Y
ARR_C_Drukbalk(12, 1, 1) = P12X & "/" & P12Y
End Sub