Too many line continuations greška

[ vidonk @ 19.06.2020. 12:32 ] @

Kakva je ovo greška što mi izbaca VB6

Code:
Too many line continuation

evo ga kod

Code:

Do Until aintRandomNumber(26) <> aintRandomNumber(25) _
    And aintRandomNumber(26) <> aintRandomNumber(24)
    And aintRandomNumber(25) <> aintRandomNumber(23) _
    And aintRandomNumber(25) <> aintRandomNumber(23) _
    And aintRandomNumber(25) <> aintRandomNumber(22) _
    And aintRandomNumber(25) <> aintRandomNumber(21) _
    And aintRandomNumber(25) <> aintRandomNumber(20) _
    And aintRandomNumber(25) <> aintRandomNumber(19) _
    And aintRandomNumber(25) <> aintRandomNumber(18) _
    And aintRandomNumber(25) <> aintRandomNumber(17) _
    And aintRandomNumber(25) <> aintRandomNumber(16) _
    And aintRandomNumber(25) <> aintRandomNumber(15) _
    And aintRandomNumber(25) <> aintRandomNumber(14) _
    And aintRandomNumber(25) <> aintRandomNumber(13) _
    And aintRandomNumber(25) <> aintRandomNumber(12) _
    And aintRandomNumber(25) <> aintRandomNumber(11) _
    And aintRandomNumber(25) <> aintRandomNumber(10) _
    And aintRandomNumber(25) <> aintRandomNumber(9) _
    And aintRandomNumber(25) <> aintRandomNumber(8) _
    And aintRandomNumber(25) <> aintRandomNumber(7) _
    And aintRandomNumber(25) <> aintRandomNumber(6) _
    And aintRandomNumber(25) <> aintRandomNumber(5) _
    And aintRandomNumber(25) <> aintRandomNumber(4) _
    And aintRandomNumber(25) <> aintRandomNumber(3) _
    And aintRandomNumber(25) <> aintRandomNumber(2) _
    And aintRandomNumber(25) <> aintRandomNumber(1) _
    And aintRandomNumber(25) <> 0

[ Shadowed @ 19.06.2020. 16:40 ] @

Problem je upravo to sto ti je napisao - imas previse nastavljenih linija.
Reformatiraj ili (u ovom slucaju jos bolje) refaktorisi kod tako da imas manje nastavljenih linija.

[ djoka_l @ 19.06.2020. 19:58 ] @

U drugom redu ti nedostaje znak "_" za nastavak reda.

[ vidonk @ 19.06.2020. 20:02 ] @

Citat:

djoka_l: U drugom redu ti nedostaje znak "_" za nastavak reda.

Program sam briše "_" jer ih ima previše

[ djoka_l @ 19.06.2020. 22:45 ] @

A mi treba da pogađamo da ti je program sam obrisao znak za nastavak linije?

https://docs.microsoft.com/en-...cters%20in%20a%20single%20line.

Da li si pitao Google ili probao da smanjiš broj linija pre nego što si ovde postavio pitanje?
Po onom rezultatu, imaš malo previše nastavaka.

[ peromalosutra @ 20.06.2020. 12:37 ] @

A sta ovaj kod uopste treba da radi?

[ vidonk @ 20.06.2020. 13:21 ] @

Citat:

djoka_l:
A mi treba da pogađamo da ti je program sam obrisao znak za nastavak linije?

https://docs.microsoft.com/en-...cters%20in%20a%20single%20line.

Da li si pitao Google ili probao da smanjiš broj linija pre nego što si ovde postavio pitanje?
Po onom rezultatu, imaš malo previše nastavaka.

Naravno da sam pogledao google ali mi sugestija sa gugla da obrišem "_" ne radi

Citat:

peromalosutra:
A sta ovaj kod uopste treba da radi?

Treba nasumučno da učita 36 slika i rasporedi ih u 36 polja

[ bokinet @ 20.06.2020. 18:18 ] @

U vezi ovog drugog 'nasumicno' gore dati primer mislim da nije resenje.
Ovo prvo VB6 ima ogranicenja kao i svaki drugi RAD alata koliko duga moze da bude jedna linija koda.
_ - znaci da se tu nastavlja dalje i koristi se zbog preglednosti koda - da se duga sekvenca linije koda podeli na manje delovi u vise redova i time stavlja doznanja VB6 da je to celina a ne posebna linija.
Brisanjem '_' onda se vrsi prekid kod sekvence tj. kraj trenutne linije koda i pocetka druge.

Oko nasumicnog, napraviti jednu f-ju koja radi odabir vrednost i ucitava individualno sliku u polje i potom je pozivati na primer za polje X uradi slucajni odabir slike - f-ja potom u rasponu od N do M odabere broj, generise putanju ka slici i potom ucita sliku u objekat e.g. picturebox sa indexom X koje je ustvari ulazna vrednost polje X.

[ Shadowed @ 20.06.2020. 18:35 ] @

Bokinet, nije problem u obrisanom _ karakteru vec u tome sto ima vise od 25 prelamanja reda koliko je max u vb6 i vba.

[ bokinet @ 20.06.2020. 19:35 ] @

@Shadowed procitati sta sam napisao

[ 0kt0p0d @ 07.02.2021. 14:25 ] @

Kad ima toliki broj nastavljanja to je znak da program ne valja, evo kako treba:

Code:
Function VeceManjeuNizu(Niz As Variant) As Boolean
   Dim Brojac As Long
   Dim Rez As Boolean
   Rez = True

   For Brojac = LBound(Niz) To UBound(Niz) - 1
         Rez = Rez And Niz(Brojac) <> Niz(Brojac + 1)
   Next

   VeceManjeuNizu = Rez And Niz(LBound(Niz)) <> 0
End Function

I sad nakon definisanja ove F-je kod bi izgledao ovako:

Code:
Do Until VeceManjeuNizu(aintRandomNumber)

Taj posao upoređivanja velikog broja clanova u nizu ne treba raditi ručno.