Mintenkeris
23.01.2018, 13:35
Dobrý den, chci se zeptat kde mám chybu? Parametry měním skrze formulář ale model se neaktualizuje, pravidlo spuštěné. Pokud jsem měl všechny parametry napsané bez funkce parameter "tzv na prasáka" tak mi vše fungovalo a přepočetlo se to po změně hodnot v formuláři a výsledný model se přehodil. iLogicVb.UpdateWhenDone = True
Parameter.UpdateAfterChange = True
'V�echny vzd�lenosti pot�bn� k ode�ten� od HA k vypo�ten� d�lky 05-01
Parameter("Laenge_H01") = (Parameter("Vrchd�lka") - Parameter("Kraj_osa")) + (Parameter("Delka") - Parameter("D1odbok"))
Parameter("Lange_0501") = Parameter("HA") - Parameter("Laenge_H01")
'Pattern a d�lka jednotliv�ch parts
If Parameter("Lange_0501") > 0 Then
Parameter("A_Segm_H") = Ceil (Parameter("Lange_0501")/Parameter("Laenge_Max01"))
End If
If Parameter("A_Segm_H") = 1 Then
Parameter("L_Lange_Parts") = Parameter("Lange_0501")
Else Parameter("L_Lange_Parts") = Parameter("Lange_0501") / Parameter("A_Segm_H")
End If
'Podm�nky pro min velikost HA
If Parameter("L_Lange_Parts") < 0 Then
MessageBox.Show("Lange of part 05 = " & Parameter("Lange_0501"), "Error",MessageBoxButtons.OK,MessageBoxIcon.Error)
End If
Parameter.UpdateAfterChange = True
'V�echny vzd�lenosti pot�bn� k ode�ten� od HA k vypo�ten� d�lky 05-01
Parameter("Laenge_H01") = (Parameter("Vrchd�lka") - Parameter("Kraj_osa")) + (Parameter("Delka") - Parameter("D1odbok"))
Parameter("Lange_0501") = Parameter("HA") - Parameter("Laenge_H01")
'Pattern a d�lka jednotliv�ch parts
If Parameter("Lange_0501") > 0 Then
Parameter("A_Segm_H") = Ceil (Parameter("Lange_0501")/Parameter("Laenge_Max01"))
End If
If Parameter("A_Segm_H") = 1 Then
Parameter("L_Lange_Parts") = Parameter("Lange_0501")
Else Parameter("L_Lange_Parts") = Parameter("Lange_0501") / Parameter("A_Segm_H")
End If
'Podm�nky pro min velikost HA
If Parameter("L_Lange_Parts") < 0 Then
MessageBox.Show("Lange of part 05 = " & Parameter("Lange_0501"), "Error",MessageBoxButtons.OK,MessageBoxIcon.Error)
End If