SHARE
TWEET

Untitled

a guest Nov 9th, 2019 67 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Option Explicit
  2. Dim oParameter As Inventor.Parameters
  3.  
  4.  
  5. Private Sub TextBox5_Change()
  6.  
  7. End Sub
  8.  
  9. Private Sub UserForm_Initialize()
  10. Const intPrevod = 10
  11. Set oParameter = ThisApplication.ActiveDocument.ComponentDefinition.Parameters
  12. On Error GoTo ErrorHandler
  13. TextBox1.Value = intPrevod * oParameter.Item("dlzka").Value
  14. TextBox2.Value = intPrevod * oParameter.Item("vyska").Value
  15. TextBox3.Value = intPrevod * oParameter.Item("diera").Value
  16. TextBox4.Value = oParameter.Item("dierkyDlzka").Value
  17. TextBox5.Value = oParameter.Item("dierkyVyska").Value
  18. TextBox6.Value = oParameter.Item("dierkySirka").Value
  19. Exit Sub
  20. ErrorHandler:
  21. MsgBox "Chyba pri inicializácii okna!", vbCritical, "Chyba inicializácie"
  22.  
  23. End Sub
  24.  
  25. Private Sub ButtonUpdate_Click()
  26.  
  27. On Error GoTo ErrorHandler
  28. Dim pom1 As Integer
  29. pom1 = TextBox1.Value / 2
  30. Dim pom2 As Integer
  31. pom2 = oParameter.Item("dlzka").Value * 10
  32. Dim pom3 As Integer
  33. pom3 = oParameter.Item("vyska").Value * 10
  34.  
  35.  
  36. 'Dim Msg, Style, Title, Help, Ctxt, Response, MyString
  37. 'Msg = "Cislo, ktore zadávate je velke a programu to moze trvat dlhsie, chcete aj tak pokracovat?"
  38. 'Style = vbYesNo + vbCritical + vbDefaultButton4
  39. 'Title = "Upozornenie"
  40.  
  41.    
  42. If TextBox1.Value <> pom2 Then
  43.      If TextBox1.Value <> "" And TextBox1.Value > 17 Then
  44.         'If TextBox1.Value >= 150 Then
  45.          '   Response = MsgBox(Msg, Style, Title)
  46.           '  If Response = vbYes Then
  47.                 oParameter.Item("dlzka").Expression = TextBox1.Value
  48.             'Else: TextBox1.Value = 10 * oParameter.Item("dlzka").Value
  49.             'End If
  50.         'Else: oParameter.Item("dlzka").Expression = TextBox1.Value
  51.         'End If
  52.     Else: MsgBox "Dlžka: Zadajte hodnotu minimálne 18 mm", vbInformation, "Zmena hodnôt"
  53.     End If
  54.     TextBox1.Value = oParameter.Item("dlzka").Value * 10
  55. End If
  56.  
  57. If TextBox2.Value <> pom3 Then
  58.     If TextBox2.Value <> "" And TextBox2.Value > 6 And TextBox2.Value <= pom1 Then
  59.         oParameter.Item("vyska").Expression = TextBox2.Value
  60.     Else: MsgBox "Výška a šírka: Zadajte hodnotu minimálne 7 mm a mensiu ako polovica z dlzky", vbInformation, "Zmena hodnôt"
  61.           TextBox2.Value = oParameter.Item("vyska").Value * 10
  62.  
  63.     End If
  64. End If
  65.  
  66.  
  67.  
  68.  
  69. If TextBox2.Value > pom1 Then
  70.     TextBox2.Value = pom1
  71.     oParameter.Item("vyska").Value = pom1 / 10
  72. End If
  73.  
  74.  
  75.  
  76. If TextBox3.Value <> "" And TextBox3.Value >= 1 And TextBox3.Value <= 5 Then
  77. oParameter.Item("diera").Expression = TextBox3.Value
  78. Else: MsgBox "dierky: Zadajte hodnotu minimálne 1 mm a maximálne 5 mm", vbInformation, "Zmena hodnôt"
  79.     TextBox3.Value = oParameter.Item("diera").Value * 10
  80. End If
  81.  
  82. '-----------------------------------------
  83. Dim MaxDiery As Integer
  84. MaxDiery = TextBox4.Value * TextBox5.Value + TextBox4.Value * TextBox6.Value + TextBox5.Value * TextBox6.Value
  85. If MaxDiery < 150 Then
  86.  
  87. '-------------------
  88. test:
  89.             Dim pom4 As Integer
  90.             pom4 = oParameter.Item("dlzka").Value * 10 / 6
  91.             If TextBox4.Value <> oParameter.Item("dierkyDlzka").Expression Then
  92.                 If TextBox4.Value <> "" And TextBox4.Value >= 3 Then
  93.                 oParameter.Item("dierkyDlzka").Expression = TextBox4.Value
  94.                     If TextBox4.Value > pom4 Then
  95.                          MsgBox "Prekrocili ste maximalny pocet dier, preto sa pocet dier na dlzke automaticky zmeni na maximum ", vbInformation, "Pocet dier na dlzke"
  96.                          oParameter.Item("dierkyDlzka").Expression = pom4
  97.                          TextBox4.Value = pom4
  98.                     End If
  99.                 End If
  100.                
  101.                 If TextBox4.Value < 3 Then
  102.                         MsgBox "Minimalna hodnota pre pocet dier je 3", vbInformation, "Pocet dier na dlzke"
  103.                         TextBox4.Value = oParameter.Item("dierkyDlzka").Value
  104.                 End If
  105.             End If
  106.  
  107.         '----------------------
  108.             Dim pom5 As Integer
  109.             pom5 = oParameter.Item("vyska").Value * 10 / 7
  110.             If TextBox5.Value <> "" And TextBox5.Value >= 1 And TextBox5.Value <= pom5 Then
  111.             oParameter.Item("dierkyVyska").Expression = TextBox5.Value
  112.                 If TextBox2.Value > 17 And TextBox5.Value < 3 Then
  113.                    ' MsgBox "Pocet dier na vyske: Minim hodnota je teraz 3", vbInformation, "Zmena hodnôt"  '
  114.                     TextBox5.Value = 3
  115.                     oParameter.Item("dierkyVyska").Expression = 3
  116.                 End If
  117.                
  118.             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
  119.                 If TextBox5.Value < 1 Then
  120.                     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
  121.                     TextBox5.Value = oParameter.Item("dierkyVyska").Value
  122.                 End If
  123.                
  124.                 If TextBox5.Value > pom5 Then
  125.                     MsgBox "Pocet dier na vyske: Prekrocili ste maximalny pocet dier, preto sa tato hodnota zmeni na maximum.", vbInformation, "Zmena hodnôt"
  126.                     TextBox5.Value = pom5
  127.                     oParameter.Item("dierkyVyska").Value = pom5
  128.                 End If
  129.             End If
  130.            
  131.             '----------------------
  132.            
  133.             If TextBox6.Value <> "" And TextBox6.Value >= 1 And TextBox6.Value <= pom5 Then
  134.             oParameter.Item("dierkySirka").Expression = TextBox6.Value
  135.                 If TextBox2.Value > 17 And TextBox6.Value < 3 Then
  136.                   '  MsgBox "Pocet dier na sirke: Minim hodnota je teraz 3", vbInformation, "Zmena hodnôt"
  137.                     TextBox6.Value = 3
  138.                     oParameter.Item("dierkySirka").Expression = 3
  139.                 End If
  140.                
  141.             Else: 'MsgBox "XXXXXPocet dier na vyske: Zadajte hodnotu vacsiu ako 0", vbInformation, "Zmena hodnôt"
  142.                 If TextBox6.Value < 1 Then
  143.                     MsgBox "Pocet dier na sirke: Zadajte hodnotu vacsiu ako 0", vbInformation, "Zmena hodnôt"
  144.                     TextBox6.Value = oParameter.Item("dierkySirka").Value
  145.                 End If
  146.                
  147.                 If TextBox6.Value > pom5 Then
  148.                     MsgBox "Pocet dier na sirke: Prekrocili ste maximalny pocet dier, preto sa tato hodnota zmeni na maximum.", vbInformation, "Zmena hodnôt"
  149.                     TextBox6.Value = pom5
  150.                     oParameter.Item("dierkySirka").Value = pom5
  151.                 End If
  152.             End If
  153.             '-----------------------
  154.            
  155.            
  156.   Else:
  157.     Dim Msg2, Style2, Title2, Help2, Ctxt2, Response2, MyString2
  158.     Msg2 = "Sucet vsetkych dier je viac ako 150 a programu to moze trvat dlhsie, chcete aj tak pokracovat?"
  159.     Style2 = vbYesNo + vbCritical + vbDefaultButton4
  160.     Title2 = "Upozornenie"
  161.  
  162.     Response2 = MsgBox(Msg2, Style2, Title2)
  163.     If Response2 = vbYes Then
  164.         GoTo test
  165.     Else: TextBox4.Value = oParameter.Item("dierkyDlzka").Value
  166.           TextBox5.Value = oParameter.Item("dierkyVyska").Value
  167.           TextBox6.Value = oParameter.Item("dierkySirka").Value
  168.     End If
  169. End If
  170. '-------------------------------------
  171.  
  172.  
  173. oParameter.Item("sirka").Expression = oParameter.Item("vyska").Expression
  174.  
  175. ThisApplication.ActiveDocument.Update
  176.  
  177.  
  178.  
  179. Exit Sub
  180. ErrorHandler:
  181. MsgBox "Chyba pri zmene parametrov!", vbCritical, "Chyba parametrov"
  182. End Sub
  183.  
  184. Private Sub ButtonDefault_Click()
  185. TextBox1.Value = 50
  186. TextBox2.Value = 15
  187. TextBox3.Value = 4
  188. TextBox4.Value = 8
  189. TextBox5.Value = 2
  190. TextBox6.Value = 2
  191. Call ButtonUpdate_Click
  192. End Sub
  193.  
  194. Private Sub ButtonExit_Click()
  195. End
  196. End Sub
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top