Array Bounds Check

[ne_tapka]

Есть прога. Из среды ВБ запускается и работает без ошибок.

Сделал ЕХЕ - при старте "Run-time error 9: Subscript out of range"

В свойствах компиляции поставил галку Remove Array Bounds Check
- ЕХЕ стал работать.

То есть где то есть ошибка, но почему тогда из ВБ запускается? Где её искать? Не хочу так оставлять..

Спасибо

[GSerg]

Ну код, например, приведи

[BV]

Где-то твой Array ограничен. Сделай его динамическим и где надо ReDim'ь. Но код для точного ответа необходим.

[ne_tapka]

Кода уже дофига вот declarations:

Dim surf(640) As Single
Dim Terr(640, 480) As Long

Dim ir As New iR_Engine
Dim interface As New iR_Interface
Dim control As New iR_Control
Dim tex As New iR_TextureFactory

Private Type Explosion_Smoke
Sp(20) As iR_Sprite
Angle(20) As Single
Color(2) As Single
Size As Single
End Type
Dim Explosion_Smoke(10) As Explosion_Smoke

Private Type Explosion
Sp As iR_Sprite
Flag As Byte 'expl
PosX As Integer
Size As Single
MaxSize As Single
Fall As iR_Sprite
FallL As Single
FallT As Single
TerFlag As Byte
Fire As iR_Sprite
Color(2) As Single
End Type
Dim Explosion(10) As Explosion

Private Type Player1
Sp As iR_Sprite
St As iR_Sprite
PosX As Integer
Angle As Single
Power As Single
HP As Integer
FallingFlag As Byte
End Type
Dim Player1 As Player1

Dim sprite_terrain As iR_Sprite
Dim sprite_background As iR_Sprite
Dim sprite_player1 As iR_Sprite

[GSerg]

Ы...
Ненавижу неполную форму задания массивов.
Даже смотреть не буду

[ne_tapka]

GSerg
неполную это как? (640) вместо (0 to 640) ?

[tyomitch]

Ы...
Ненавижу неполную форму задания массивов.

Ха, а ещё дотнетчик

[GSerg]

А это не мешает мне ненавидеть неполную форму ещё и там

[ne_tapka]

Поправил. Всё тоже самое.

[GSerg]

Поправил на что?
В массиве (0 to 640) 641 элемент. Это так и должно быть?

[ne_tapka]

GSerg
угу обращайся я по неверному индексу - из ВБ бы тоже вылитало...а так вылетает тока ЕХЕ..

Это не может быть из за того что переменная называется так же как тип? (dim a as a)

[tyomitch]

Нет, не может.

[FaKk2]

Turns off error checking for valid array indexes and the correct number of dimensions of the array.

By default Visual Basic makes a check on every access to an array to determine if the index is within the range of the array. If the index is outside the bounds of the array, an error is returned. Selecting this option will turn off this error checking, which can speed up array manipulation significantly. However, if your program accesses an array with an index that is out of bounds, invalid memory locations may be accessed without warning. This can cause unexpected behavior or program crashes.

Значит у тебя где то интересный глюк.

[Ennor]

Убрать галку Remove Array Bounds Checks. Поставить галку Include Symbolic Debug Info на той же закладке в свойствах проекта, с который вызывается список оптимизаций при компиляции. В предполагаемом месте вылета поставить вызов DebugBreak(). После отработки функции вываливаешься в системный дебаггер, и уже в нем все смотришь.

[ne_tapka]

Интересно, почему ошибка не вылетает из среды ВБ. Вед когда обращаешься по неверному индексу - всегда вылетает..

[Ennor]

Интересно, почему ошибка не вылетает из среды ВБ. Вед когда обращаешься по неверному индексу - всегда вылетает..

Если тебе это действительно интересно, то рекомендую воспользоваться вышеприведенным рецептом. Только прогу с вызовом DebugBreak() из-под среды не запускай, а то будешь дебажить сам VB .