[es] - VB 5 bug ili ja nesto ne radim kako treba

Leftist
Luka Stojanovic
Bg

Član broj: 21766
Poruke: 394
*.drenik.net

Jabber: slartibartfast@jabber.cc
Sajt: www.reggae.rs

Profil

VB 5 bug ili ja nesto ne radim kako treba

^{20.09.2004. u 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???

Go Beograd
Reggae Serbia
Black Ark

^{20.09.2004. u 00:05}

GoranVucicevic
Novi Sad

Član broj: 28045
Poruke: 66
*.dialup.neobee.net.

Sajt: www.clickersoftware.com

Profil

Re: VB 5 bug ili ja nesto ne radim kako treba

^{20.09.2004. u 09:47}

A da li si pre ovog bloka postavio (i) promenljivu na 1?

Vidi: GoranVuc #4934

^{20.09.2004. u 09:47}

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI, USA / Softwa..
Ann Arbor, MI, USA

Moderator
Član broj: 6598
Poruke: 2064
*.bg.wifi.vline.verat.net

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz

Profil

Re: VB 5 bug ili ja nesto ne radim kako treba

^{20.09.2004. u 09:47}

Pre while petlje stavi

Code:

i = 1

Blue Man Group

^{20.09.2004. u 09:47}

Leftist
Luka Stojanovic
Bg

Član broj: 21766
Poruke: 394
*.drenik.net

Jabber: slartibartfast@jabber.cc
Sajt: www.reggae.rs

Profil

Re: VB 5 bug ili ja nesto ne radim kako treba

^{20.09.2004. u 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

Go Beograd
Reggae Serbia
Black Ark

^{20.09.2004. u 20:30}

Re: VB 5 bug ili ja nesto ne radim kako treba

^{21.09.2004. u 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

Blue Man Group

^{21.09.2004. u 10:09}

Leftist
Luka Stojanovic
Bg

Član broj: 21766
Poruke: 394
*.etf.bg.ac.yu

Jabber: slartibartfast@jabber.cc
Sajt: www.reggae.rs

Profil

Re: VB 5 bug ili ja nesto ne radim kako treba

^{21.09.2004. u 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)

Go Beograd
Reggae Serbia
Black Ark

^{21.09.2004. u 12:26}

Leftist
Luka Stojanovic
Bg

Član broj: 21766
Poruke: 394
*.drenik.net

Jabber: slartibartfast@jabber.cc
Sajt: www.reggae.rs

Profil

Re: VB 5 bug ili ja nesto ne radim kako treba

^{22.09.2004. u 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:

Go Beograd
Reggae Serbia
Black Ark

^{22.09.2004. u 15:15}