[ Leftist @ 20.09.2004. 00:05 ] @
Code:
    While Not tabela.EOF
        tabela.MovePrevious
        Load pocetni(i)
        pocetni(i).X1 = CInt(razmera * tabela!X)
        pocetni(i).Y1 = CInt(razmera * tabela!Y)
        tabela.MoveNext
        pocetni(i).X2 = CInt(razmera * tabela!X)
        pocetni(i).Y2 = CInt(razmera * tabela!Y)
        pocetni(i).Visible = True
        tabela.MoveNext
        i = i + 1
    Wend


pocetni(0) je linija napravljena u design time-u (kako stoji u helpu da treba). Pri pokretanju programa kaze da je pocetni(i), i=1, vec loadovan. Naravno pocetni(1), niti ma koji drugi sem nule, ne postoji.

U cemu je problem???
[ GoranVucicevic @ 20.09.2004. 09:47 ] @
A da li si pre ovog bloka postavio (i) promenljivu na 1?
[ mladenovicz @ 20.09.2004. 09:47 ] @
Pre while petlje stavi

Code:

i = 1
[ Leftist @ 20.09.2004. 20:30 ] @
Naravno da je postavljeno. To potvrdi i watch na promenjivoj i.
Evo jos jednog problema:
Code:
Dim xy As Variant
xy = Array(2, n)
mi napravi niz 2x21

U sledecoj proceduri kazem
Code:
Dim df As Variant
df = Array(BrTacaka)
i on protumacito kao df (0)=21
[ mladenovicz @ 21.09.2004. 10:09 ] @
Rekao bih da ne razumes sta radi Array

Citat:
MSDN:

Array Function Example

This example uses the Array function to return a Variant containing an array.

Dim MyWeek, MyDay
MyWeek = Array("Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun")
' Return values assume lower bound set to 1 (using Option Base
' statement).
MyDay = MyWeek(2) ' MyDay contains "Tue".
MyDay = MyWeek(4) ' MyDay contains "Thu".


Pogledaj u MSDNu ReDim i Redim Preserve
[ Leftist @ 21.09.2004. 12:26 ] @
Ma da i meni je bilo cudnije to kako prvi slucaj uopste radi, nego zasto drugi ne radi. Ustvari dx-u dodeljujem niz u sledecem koraku, pa zato to radi kako sam zamislio, ali iz pogresnog razloga

Code:
dx = vrednosti.GetRows(n)
[ Leftist @ 22.09.2004. 15:15 ] @
I onaj prvi problem se (na kratko) resio. Dakle trebam da iscrtam tri grafikona. U najboljem slucaju sam uspeo da iscrtam dva (i dalje mi nije jasno zasto je onda prijavljivao onu gresku), ali je zato posle malo dorade prestao da iscrtava grafikone, vec samo iscrta koordinatni sistem
Code:
Dim baza As Database
Dim vrednosti, interpolacija As Recordset
Dim visina, sirina, sa, bez As Integer
Dim razmera As Double


Private Sub tacke(ByVal tabela As Recordset, linija As Line, ByVal Kolona As String)
    With linija
        .X1 = CInt(sirina / 2 + razmera * tabela!x)
        .Y1 = CInt(visina / 2 - razmera * tabela.Fields(Kolona))
        tabela.MoveNext
        .X2 = CInt(sirina / 2 + razmera * tabela!x)
        .Y2 = CInt(visina / 2 - razmera * tabela.Fields(Kolona))
        .Visible = True
    End With
End Sub
Public Sub nacrtaj()
    sirina = frmGrafikoni.ScaleWidth
    visina = frmGrafikoni.ScaleHeight
    With XOsa
        .X1 = 0
        .X2 = sirina
        .Y1 = CInt(visina / 2)
        .Y2 = .Y1
    End With
    With YOsa
        .Y1 = 0
        .Y2 = visina
        .X1 = CInt(sirina / 2)
        .X2 = .X1
    End With
    vrednosti.MoveLast
    Max = vrednosti!x
    vrednosti.MoveFirst
    vrednosti.MoveNext
    i = 1
    razmera = frmGrafikoni.ScaleWidth / (Max + 1)
    While Not vrednosti.EOF
        vrednosti.MovePrevious
        tacke vrednosti, BezInterpolacije(i), "Y"
        vrednosti.MoveNext
    Wend
    interpolacija.MoveFirst
    interpolacija.MoveNext
    While Not interpolacija.EOF
        interpolacija.MovePrevious
        tacke interpolacija, LaGranz(i), "La Granz"
        interpolacija.MovePrevious
        tacke interpolacija, Njutn(i), "Njutn"
        interpolacija.MoveNext
    Wend
End Sub

Private Sub Form_Load()
    Set baza = OpenDatabase("baza.mdb")
    Set vrednosti = baza.OpenRecordset("Vrednosti")
    Set interpolacija = baza.OpenRecordset("Interpolacija")
    For i = 1 To vrednosti.RecordCount - 1
        Load BezInterpolacije(i)
    Next i
    For i = 1 To interpolacija.RecordCount - 1
        Load LaGranz(i)
        Load Njutn(i)
    Next i
End Sub

Private Sub Form_Resize()
    nacrtaj
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Glavni.Show
End Sub


Nema greske, sve sub-ove lepo odradi, jedino sto se vidi samo sledece: