Преглед за печат
Програмата е Visual Basic 6.0 . Имаме цикъл For To Next ,имаме MsgBox който е вътре в цикъла и се изпълнява след определено условие на условната структура SelectCase. Проблема е
когато се изпълни функцията MsgBox и сле натискане на бутона "OK"
се поличава зацикляне от което не може да се излезе лесно и въобще ми бърка цялата логика. Как може да се направи така ,че
кода да спира изпълнението си но без да се получава зацикляне и да не се предизвиква грешка ?
Браво, бре! Дай някъв код да видим, няма да гадаем кво си оцапал.
Ето ви код :
a = Text1.Text
b = Text5.Text
For I = 1 To 6
Select Case b
Case Is = a
MsgBox ("Òîçè êîä âå÷å ñúùóñòâóâà Âúâåäåòå äðóã êîä"), , ""
Case Is <> a
Text6.Text = 50
End Select
Next I
А цикълът за какво изобщо служи? В този случай ще даде шест пъти едно и също съобщение, без да предлага алтернатива или възможност за повторно въвеждане.Цитат:
Първоначално публикувано от midjis
Този цикъл е необходим, той претъсва таблица, този който съм изпратил е примерен цикъл а истинския е подобен . Този съм изпратил защото е по- лесен за ориентация, но принципа и смисъла е един и същ.
Тоест всеки път, когато намери съвпадение в таблицата, да го съобщава? Не е ли по-добре да се обади само първия път и след това да излиза от цикъла?
Може и така , но след този цикъл има друк код , кйто не трябва да се изпълнява ако условието не е изпълнено.Ако знаете как може да се препрати изпълнението на програмата до преди натискането на бутона защото този код в който е и цикъла се изпълнява след натискането на бутон. Мисля че това може би ще бъде решението на проблема.А решение има в това съм сигурен.
И аз така смятам. След MsgBox сложи Exit For. Така след първото показване MsgBox-а ще излиза от цикъла. Ако пък е малко по-сложен алгоритъма. Примерно има значение колко пъти е изпълнено уsловието за показване на msgbox-a или нещо подобно, си въведи променливи които броят или пък някакви флагове. Аз лично бих извадил msgbox-a от цикъла, а на негово място бих променял стойността на една булева променлива и след цикъла с Иф вадя msgbox-aЦитат:
Първоначално публикувано от Avis
//edit
не знам дали стана ясно какво имам предвид, а и междувременно си писал, та поствам код.
a = Text1.Text
b = Text5.Text
For I = 1 To 6
Select Case b
Case Is = a
MsgBox ("ала бала"), , ""
Exit For
Case Is <> a
Text6.Text = 50
End Select
Next I
или пък така
a = Text1.Text
b = Text5.Text
c = false
For I = 1 To 6
Select Case b
Case Is = a
MsgBox ("ала бала"), , ""
c= true
Case Is <> a
Text6.Text = 50
End Select
if c then exit for
Next I
Значи излизането от, и оставането в кода не ми върши работа. Трябва след излизане от
цикъла изпълнението да се премества в формата където се намира бутона.
Цикълите които е написъл Cvetahov не стават.Благодаря все пак.
Явно не схващам проблема. Ако можеш дай малко повече инфо.