Re: zagniezdzanie IF THEN ENDIF, Bascom

Jan 18, 2005 1 Replies

U¿ytkownik "Pytajnik" snipped-for-privacy@goto.hell napisa³ w wiadomo¶ci news:csjpe1$617$ snipped-for-privacy@nemesis.news.tpi.pl...



Hmmm...Wydawac by sie moglo, ze co to za problem, ale jednak. Gdy probuje
> zrobic tak:
>
> If costam Then
> If kolejnecostam Then
> end if
> end if
>
> to kompilator tego nie lyka i przy drugim endi if pokazuje blad. >
> Jak robic zagniezdzone petle ?
> Pytajnik
>

Witam Ja przetestowalem i wklepalem cos takiego...



Dim A As Byte Dim B As Byte



Do If A > 4 Then If B = 10 Then B = B + 2 End If End If A = A - 5 Loop End


i dziala ... :-) tzn kompiluje sie bez bledow bo kod sam w sobie jest bez seensu


OK, juz wiem co zrobilem nie tak. Po Do Loop 'nie dalem End

Dzieki Pytajnik

Join the Discussion

Have something to add? Share your thoughts — no account required.

Didn't find your answer?

Ask the community — no account required