Dobrý deň, Chcel by som si vypočítať vzdialenosť dier(B) od okraja valca ak mám definovanú šírku valca, rozstup dier medzi sebou a priemer dier i požadovanú hodnotu ktorá je akceptovatelná na začiatku a konci poľa dier(patternu).
Rozstup dier v poli A = 12 mm
Dĺžka valca = DV = je premenliva a uživateľom definovaná
vzdialenosť od okraja valca = B, jedná sa o súmernú súčiastku
Počet dier = Pocet_dier= DV/A
vzdialenosť od okraja = B = (DV - (floor(ND)*A))2
Ja ale požadujem aby 8.5<B<12.5
Teda potrebujem pravidlo:

Select Case B
Case Is < 8.5
     Pocet_dier = (((DV / (A * 2))) - 1)
     B = ( TrackWidth - ( Pocet_dier * A * 2 ul ) ) / 2 ul
Case Is > 12.5
        Pocet_dier = (((TrackWidth / (A * 2))) + 1)
     B = ( DV - ( DDPB5 * A * 2 ul ) ) / 2 ul
     Return ´bez return to nevracia diery súmerne do stredu
Case 8.5 To 12.5
     DDPB2 = ((TrackWidth / (RowToRowDistance * 2)))     
RuleParametersOutput()
End Select
bez return to nevracia diery súmerne do stredu
Otazka je ako nechat iLogic aby overil hodnotu a ak nieje spravna vypočítal hodnotu ktorá bude v rozmedzi od 8.5 do 12.5 inač musi opakovat if kde pročíta alebo odpočíta 1 dieru.
Kedže dĺžka sa mení ľubovolne od 0 do 1000 mm.

Ďakujem za akýkoľvek nápad.
Skúšal som to podmieňovať IF mi ale neberie to, a pri While End While sa mi to zacyklí.

Ak pouzijem While B<8.5
i=1
Počet dier = (prvotny pocet dier) - i)
End While
dojde k nekonecnemu vypoctu !

Skusam uy verziu ze nanovo neprepočívam prvotné výpočty ale po podmienke že je čislo menšie/vacsie ako požadované tak mi počita nanovo hodnotu.

Ako napísať že ak si dosiahol hodnotu sprav nič?

Nevystačil byste si jenom s parametry? Zkuste se podívat na tohle vlákno:

Select Case B
Case Is < 8.5
     Pocet_dier = (((DV / (A * 2))) - 1)
     B1 = ( dlžka_valca - ( Pocet_dier * A * 2 ul ) ) / 2 ul
      IF 8.5 > B1
        Pocet_dier_1 = Pocet_dier - 1
        B2 = ( dlžka_valca - ( Pocet_dier_1 * A * 2 ul ) ) / 2 ul
.
.
.

RuleParametersOutput()
End Select
týmto zIfovaním to viem vypočítať
Otázka je ako to zjednodušiť aby som si nasledne nemusel kontrolovať ktorá hodnota (B, B1,B2, ..:Bx) je v rozmedzi od 8.5 do 12.5???


Upravil hanc.mat - 12.říj.2018 v 14:32

Ak by niekoho zaujímalo riešenie mojeho problému tak:
IF 8.5> B Then
Do While 8.5 > B
     Pocet_dier = (((DV / (A * 2))) - 1)
     B = ( dlžka_valca - ( (Pocet_dier-1) * A * 2 ul ) ) / 2 ul
Loop
End If