Option Explicit
Dim oParameter As Inventor.Parameters


Private Sub TextBox5_Change()

End Sub

Private Sub UserForm_Initialize()
Const intPrevod = 10
Set oParameter = ThisApplication.ActiveDocument.ComponentDefinition.Parameters
On Error GoTo ErrorHandler
TextBox1.Value = intPrevod * oParameter.Item("dlzka").Value
TextBox2.Value = intPrevod * oParameter.Item("vyska").Value
TextBox3.Value = intPrevod * oParameter.Item("diera").Value
TextBox4.Value = oParameter.Item("dierkyDlzka").Value
TextBox5.Value = oParameter.Item("dierkyVyska").Value
TextBox6.Value = oParameter.Item("dierkySirka").Value
Exit Sub
ErrorHandler:
MsgBox "Chyba pri inicializácii okna!", vbCritical, "Chyba inicializácie"

End Sub

Private Sub ButtonUpdate_Click()

On Error GoTo ErrorHandler
Dim pom1 As Integer
pom1 = TextBox1.Value / 2
Dim pom2 As Integer
pom2 = oParameter.Item("dlzka").Value * 10
Dim pom3 As Integer
pom3 = oParameter.Item("vyska").Value * 10


'Dim Msg, Style, Title, Help, Ctxt, Response, MyString
'Msg = "Cislo, ktore zadávate je velke a programu to moze trvat dlhsie, chcete aj tak pokracovat?"
'Style = vbYesNo + vbCritical + vbDefaultButton4
'Title = "Upozornenie"


If TextBox1.Value <> pom2 Then
     If TextBox1.Value <> "" And TextBox1.Value > 17 Then
        'If TextBox1.Value >= 150 Then
         '   Response = MsgBox(Msg, Style, Title)
          '  If Response = vbYes Then
                oParameter.Item("dlzka").Expression = TextBox1.Value
            'Else: TextBox1.Value = 10 * oParameter.Item("dlzka").Value
            'End If
        'Else: oParameter.Item("dlzka").Expression = TextBox1.Value
        'End If
    Else: MsgBox "Dlžka: Zadajte hodnotu minimálne 18 mm", vbInformation, "Zmena hodnôt"
    End If
    TextBox1.Value = oParameter.Item("dlzka").Value * 10
End If

If TextBox2.Value <> pom3 Then
    If TextBox2.Value <> "" And TextBox2.Value > 6 And TextBox2.Value <= pom1 Then
        oParameter.Item("vyska").Expression = TextBox2.Value
    Else: MsgBox "Výška a šírka: Zadajte hodnotu minimálne 7 mm a mensiu ako polovica z dlzky", vbInformation, "Zmena hodnôt"
          TextBox2.Value = oParameter.Item("vyska").Value * 10

    End If
End If




If TextBox2.Value > pom1 Then
    TextBox2.Value = pom1
    oParameter.Item("vyska").Value = pom1 / 10
End If



If TextBox3.Value <> "" And TextBox3.Value >= 1 And TextBox3.Value <= 5 Then
oParameter.Item("diera").Expression = TextBox3.Value
Else: MsgBox "dierky: Zadajte hodnotu minimálne 1 mm a maximálne 5 mm", vbInformation, "Zmena hodnôt"
    TextBox3.Value = oParameter.Item("diera").Value * 10
End If

'-----------------------------------------
Dim MaxDiery As Integer
MaxDiery = TextBox4.Value * TextBox5.Value + TextBox4.Value * TextBox6.Value + TextBox5.Value * TextBox6.Value
If MaxDiery < 150 Then

'-------------------
test:
            Dim pom4 As Integer
            pom4 = oParameter.Item("dlzka").Value * 10 / 6
            If TextBox4.Value <> oParameter.Item("dierkyDlzka").Expression Then
                If TextBox4.Value <> "" And TextBox4.Value >= 3 Then
                oParameter.Item("dierkyDlzka").Expression = TextBox4.Value
                    If TextBox4.Value > pom4 Then
                         MsgBox "Prekrocili ste maximalny pocet dier, preto sa pocet dier na dlzke automaticky zmeni na maximum ", vbInformation, "Pocet dier na dlzke"
                         oParameter.Item("dierkyDlzka").Expression = pom4
                         TextBox4.Value = pom4
                    End If
                End If

                If TextBox4.Value < 3 Then
                        MsgBox "Minimalna hodnota pre pocet dier je 3", vbInformation, "Pocet dier na dlzke"
                        TextBox4.Value = oParameter.Item("dierkyDlzka").Value
                End If
            End If

        '----------------------
            Dim pom5 As Integer
            pom5 = oParameter.Item("vyska").Value * 10 / 7
            If TextBox5.Value <> "" And TextBox5.Value >= 1 And TextBox5.Value <= pom5 Then
            oParameter.Item("dierkyVyska").Expression = TextBox5.Value
                If TextBox2.Value > 17 And TextBox5.Value < 3 Then
                   ' MsgBox "Pocet dier na vyske: Minim hodnota je teraz 3", vbInformation, "Zmena hodnôt"  '
                    TextBox5.Value = 3
                    oParameter.Item("dierkyVyska").Expression = 3
                End If

            Else: 'MsgBox "XXXXXPocet dier na vyske: Zadajte hodnotu vacsiu ako 0", vbInformation, "Zmena hodnôt"  'ak je zadaná hodnota menšia ako 2 mm zobrazí sa daná informácia
                If TextBox5.Value < 1 Then
                    MsgBox "Pocet dier na vyske: Zadajte hodnotu vacsiu ako 0", vbInformation, "Zmena hodnôt"  'ak je zadaná hodnota menšia ako 2 mm zobrazí sa daná informácia
                    TextBox5.Value = oParameter.Item("dierkyVyska").Value
                End If

                If TextBox5.Value > pom5 Then
                    MsgBox "Pocet dier na vyske: Prekrocili ste maximalny pocet dier, preto sa tato hodnota zmeni na maximum.", vbInformation, "Zmena hodnôt"
                    TextBox5.Value = pom5
                    oParameter.Item("dierkyVyska").Value = pom5
                End If
            End If

            '----------------------

            If TextBox6.Value <> "" And TextBox6.Value >= 1 And TextBox6.Value <= pom5 Then
            oParameter.Item("dierkySirka").Expression = TextBox6.Value
                If TextBox2.Value > 17 And TextBox6.Value < 3 Then
                  '  MsgBox "Pocet dier na sirke: Minim hodnota je teraz 3", vbInformation, "Zmena hodnôt"
                    TextBox6.Value = 3
                    oParameter.Item("dierkySirka").Expression = 3
                End If

            Else: 'MsgBox "XXXXXPocet dier na vyske: Zadajte hodnotu vacsiu ako 0", vbInformation, "Zmena hodnôt"
                If TextBox6.Value < 1 Then
                    MsgBox "Pocet dier na sirke: Zadajte hodnotu vacsiu ako 0", vbInformation, "Zmena hodnôt"
                    TextBox6.Value = oParameter.Item("dierkySirka").Value
                End If

                If TextBox6.Value > pom5 Then
                    MsgBox "Pocet dier na sirke: Prekrocili ste maximalny pocet dier, preto sa tato hodnota zmeni na maximum.", vbInformation, "Zmena hodnôt"
                    TextBox6.Value = pom5
                    oParameter.Item("dierkySirka").Value = pom5
                End If
            End If
            '-----------------------


  Else:
    Dim Msg2, Style2, Title2, Help2, Ctxt2, Response2, MyString2
    Msg2 = "Sucet vsetkych dier je viac ako 150 a programu to moze trvat dlhsie, chcete aj tak pokracovat?"
    Style2 = vbYesNo + vbCritical + vbDefaultButton4
    Title2 = "Upozornenie"

    Response2 = MsgBox(Msg2, Style2, Title2)
    If Response2 = vbYes Then
        GoTo test
    Else: TextBox4.Value = oParameter.Item("dierkyDlzka").Value
          TextBox5.Value = oParameter.Item("dierkyVyska").Value
          TextBox6.Value = oParameter.Item("dierkySirka").Value
    End If
End If
'-------------------------------------


oParameter.Item("sirka").Expression = oParameter.Item("vyska").Expression

ThisApplication.ActiveDocument.Update



Exit Sub
ErrorHandler:
MsgBox "Chyba pri zmene parametrov!", vbCritical, "Chyba parametrov"
End Sub

Private Sub ButtonDefault_Click()
TextBox1.Value = 50
TextBox2.Value = 15
TextBox3.Value = 4
TextBox4.Value = 8
TextBox5.Value = 2
TextBox6.Value = 2
Call ButtonUpdate_Click
End Sub

Private Sub ButtonExit_Click()
End
End Sub