|
Ahoj, mám takovej malej problém s vyhodnocením grafu. Mám dvě pole prvku (textboxu) tUod(Index) a tTU(Index). V tTU mám čas a tUod napětí. Průběh napětí v daném čase je takový, že v daném okamžiku dojde k jeho vyvrcholení a pak klesá. No a já si dokážu určit maximální hodnotu napětí, ale už nevím jak stanovit ten čas kdy dojde k maximu. Zkoušel jsem to přes indexy pole (viz kód níže, ale píše mi to pořád chybu "9" Subscript out of range. Že jsem prý mimo hranici rozsah. I když maximální vlikost pole tUod a tTU je 12 (12 prvků). Nevíte kde by mohl být zakopaný pes? nebo nenapadá vás nějaká jiná metoda? Dim TOd As Integer Dim k As Integer Dim l As Integer Dim m As Integer Dim Uokol(3) As Double k = 0 l = 1 m = 2 For i = 0 To cPocetU.Text - 3 k = k + i l = l + i m = m + i If Uokol(k) < tUod(l) And Uokol(m) >= tUod(l) Then TOd = tTU(l).Text End If Next i tTOd.Text = TOd
|