zagniezdzanie IF THEN ENDIF, Bascom
Masz problem? Zapytaj na forum elektroda.pl
From: "Pytajnik" <spammers_at_nospam_goto.hell>
Subject: zagniezdzanie IF THEN ENDIF, Bascom
Date: Tue, 18 Jan 2005 20:48:18 +0100
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
From: "grze" <grzecholek_at_nospam_poczta.fm>
Subject: Re: zagniezdzanie IF THEN ENDIF, Bascom
Date: Tue, 18 Jan 2005 22:46:37 +0100
Użytkownik "Pytajnik" <spammers_at_nospam_goto.hell> napisał w wiadomości
news:csjpe1$617$1_at_nospam_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
From: "Pytajnik" <spammers_at_nospam_goto.hell>
Subject: Re: zagniezdzanie IF THEN ENDIF, Bascom
Date: Tue, 18 Jan 2005 22:56:00 +0100
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