Конференция VBStreets

**MIT** » 31.10.2006 (Вт) 23:54

Вот сталкнулся с проблемой: есть цикл, работающий огромнейшее количество раз. Так вот, это кол-во раз не влезает даже в Currency, отсюда вопрос - как обойти это ограничение? Можно ли разбить цикл на структуру циклов (один в другом)?

**ANDLL** » 01.11.2006 (Ср) 0:00

В принципе, мы не против, разбивай.

**Amed** » 01.11.2006 (Ср) 0:08

MIT, лучше всего - приведи конкретный код

Сделать вложенность ничто не мешает.

**MIT** » 01.11.2006 (Ср) 0:25

Код: Выделить всё: 'txtfinish = 10 'GetL = 255 For i = 1 to txtfinish ^ GetL 'сдесь Owerfol DoEvents If can = True Then can = False: GoTo err1 If crackbd Then txtPass = pass & vbCrLf & txtPass: ok = 1: pa = pa + 1: Label4.Caption = "(" & pa & ")" ':Exit For If Len(pass) - 1 < txtfinish Then pass = q.GetNextString next i

собственно обычный цикл...

**zan** » 01.11.2006 (Ср) 4:30

Интересно где возникают переполнение... Еще можно к примеру использовать Double...
offtop

MIT писал(а):Label4.Caption = "Ïîäõîäÿùèå ïàðîëè (" & pa & ")"

Для избежание подобной канители в XP необходимо перед копированием переключится с русского на английский... и хотя бы поправить & pa &...

**alibek** » 01.11.2006 (Ср) 8:49

MIT писал(а):есть цикл, работающий огромнейшее количество раз. Так вот, это кол-во раз не влезает даже в Currency

Обманываешь. Ты хоть представляешь, сколько влезает в Currency?

**Конь** » 01.11.2006 (Ср) 9:15

А нельзя сделать Do Until... ?

**Viper** » 01.11.2006 (Ср) 10:34

А какой смысл здесь в Do Until? Число циклов известно заранее, самое место для For/Next

**alibek** » 01.11.2006 (Ср) 10:39

В таком тупом брутфорсе можно хоть GoTo использовать, код от этого лучше не станет.

**Viper** » 01.11.2006 (Ср) 10:47

а там уже есть GoTo...

**MIT** » 01.11.2006 (Ср) 19:10

alibek
Не обманываю - попробуй запустить

Конь
Пробовал, но не очень это удобно
!Viper!
Ну можно Exit For

**alibek** » 01.11.2006 (Ср) 19:27

Мне не надо пробовать запускать, я и без того вижу, что это за код.
Неужели ты хочешь сказать, что цикл у тебя выполнялся 2e14 раз, после чего выдал переполнение? Или все-таки он выдал ошибку в первом проходе, когда ты попытался подсунуть ему 1e256?

**MIT** » 01.11.2006 (Ср) 23:05

сразу же после запуска, ни сделав ничего

**zan** » 02.11.2006 (Чт) 5:26

MIT посмотри msdn по типам переменных... В твоем случае это не Currency, а Double, замени и все заработает...

**|( () ( T |/| |(** » 02.11.2006 (Чт) 9:02

Вопрос немного не потеме но всёже: Можноли какнибуть работать с очень большими числами?

Код: Выделить всё: Private Sub Form_Load() x=100000000000000000000001 y=100000000000000000000000 Me.Caption = x - y End Sub

Поидеи должин выдать 1, но ....

**GAGArin** » 02.11.2006 (Чт) 9:17

|( () ( T |/| |( писал(а):Вопрос немного не потеме но всёже: Можноли какнибуть работать с очень большими числами?

Код: Выделить всё
Private Sub Form_Load() x=100000000000000000000001 y=100000000000000000000000 Me.Caption = x - y End Sub

Поидеи должин выдать 1, но ....

Написать длинную арифметику. Массив байтов и несколько функций для работы с ними (обычно хватает +-). В поиске вариантов куча. Это стандартная олимпиадная задача.

И кстати вот это:

If can = True Then

Я никогда не мог понять...

**alibek** » 02.11.2006 (Чт) 10:07

zan писал(а):В твоем случае это не Currency, а Double, замени и все заработает...

Совет плохой и неправильный.

**|( () ( T |/| |(** » 02.11.2006 (Чт) 12:48

GAGArin, что-то не могу найти, не скинеши?

**Nicky** » 02.11.2006 (Чт) 15:51

Например вот

**Хакер** » 02.11.2006 (Чт) 21:26

GAGArin писал(а):
|( () ( T |/| |( писал(а):Вопрос немного не потеме но всёже: Можноли какнибуть работать с очень большими числами?
Код: Выделить всё
Private Sub Form_Load() x=100000000000000000000001 y=100000000000000000000000 Me.Caption = x - y End Sub

Поидеи должин выдать 1, но ....

Написать длинную арифметику. Массив байтов и несколько функций для работы с ними (обычно хватает +-). В поиске вариантов куча. Это стандартная олимпиадная задача.

Ну вы блин даёте :lol:

Код: Выделить всё: Private Sub Form_Load() x = CDec("100000000000000000000001") y = CDec("100000000000000000000000") Me.Caption = x - y End Sub

Арифметику писать собрались...

**alibek** » 02.11.2006 (Чт) 21:48

Хакер, прежде чем вещать, попробуй еще шесть ноликов добавить.

**Хакер** » 02.11.2006 (Чт) 21:51

alibek
Зачем? Ну будет оверфлоу и что?

**Amed** » 02.11.2006 (Чт) 22:08

Хакер, а что - числа 10^26 не существует? И складывать/делить/умножать такие числа не надо?

10^35 * 10^254 - какой будет результат? Overflow?

**Хакер** » 02.11.2006 (Чт) 22:16

Числа такие существуют. И VB и посчитать не может (напрямую). И приёчём тут это? Я лишь ответил, что для того чтобы посчитать

Private Sub Form_Load()
x=100000000000000000000001
y=100000000000000000000000
Me.Caption = x - y
End Sub

Ничего дополнительного писать не надо. Просто тип должен быть Decimal-ом к примеру.

Ведь когда человек пытается перемножить две байтовых переменных, между собой, произведение которых больше 255, ему советуют заюзать Integer или Long, а не сразу же слепо подключать к проекту доп. библы. Так?

Я думаю, предирка безосновательная.

**GAGArin** » 02.11.2006 (Чт) 22:46

Я думаю, предирка безосновательная.

Ты прав, черт возьми. Абсолютно безосновательная :lol:

**Хакер** » 02.11.2006 (Чт) 22:47

GAGArin
Издеваешься?

**MIT** » 02.11.2006 (Чт) 23:26

GAGArin
can - это типа cancel, если он True - то выход

**Хакер** » 02.11.2006 (Чт) 23:32

MIT
If condition Then code1

code1 выполняется если condition = True

Но всесто того чтобы проверять равно ли (can = True) константе True, можно сразу проверить равно ли can константе True.

If can Then ...

не находишь?

**MIT** » 02.11.2006 (Чт) 23:57

Хакер
Спасибо, я это знаю. Пишу чтобы все поняли

Конференция VBStreets

Разбивание цикла на несколько

Разбивание цикла на несколько

Re: Разбивание цикла на несколько

Кто сейчас на конференции