Подскажите, как устранить проблему...

[el-niko]

Написал свою прогу для перевода картинок в 2-чный а затем в 16-чный код. Всё вроде гладно, НО когда вставляешь на маленькую картинку (32х32) а чуть юольше выпадает ошибка, типа Вышло за пределы. Может кто сможет подсказать, в чёми причина

Код: Выделить всё

'ПЕРЕВОД КАРТИНКИ В КОД

Dim res As String
With P
.ScaleMode = vbPixels
.AutoRedraw = True
.AutoSize = True
    For Y = 0 To .ScaleHeight - 1
        For X = 0 To .ScaleWidth - 1
            tmpColor = .Point(X, Y)
            If tmpColor = vbBlack Then res = res & "1" Else res = res & "0"
        Next
    Next
End With

On Error GoTo Error1_1
For Z = 1 To Len(res)
    tmpDec = tmpDec + Val(Mid(res, Z, 1)) * 2 ^ (Z - 1)
Next

txtCOD.Text = res

Dim Binary As String: Binary = txtCOD.Text
Dim Hex As String, i As Long
For i = 1 To Len(Binary) Step 4
Select Case Mid$(Binary, i, 4)
Case "0000": Hex = Hex & "0"
Case "0001": Hex = Hex & "1"
Case "0010": Hex = Hex & "2"
Case "0011": Hex = Hex & "3"
Case "0100": Hex = Hex & "4"
Case "0101": Hex = Hex & "5"
Case "0110": Hex = Hex & "6"
Case "0111": Hex = Hex & "7"
Case "1000": Hex = Hex & "8"
Case "1001": Hex = Hex & "9"
Case "1010": Hex = Hex & "A"
Case "1011": Hex = Hex & "B"
Case "1100": Hex = Hex & "C"
Case "1101": Hex = Hex & "D"
Case "1110": Hex = Hex & "E"
Case "1111": Hex = Hex & "F"
End Select
Next
Debug.Print Hex

ww = P.Width - 2
hh = P.Height - 2

txtCOD.Text = q1.Caption & ww & q2.Caption & hh & q3 & Hex & q4.Caption

If Ch.Value = 1 Then
  Open Dir.Path & "\" & "Коды картинок тут.txt" For Append As 1
  Print #1, Fil.FileName & "|||" & txtCOD.Text
  Close
End If

'END ПЕРЕВОД КАРТИНКИ В КОД
Exit Sub

Error1_1:
If Ch.Value = 1 Then
  Open Dir.Path & "\" & "Коды картинок тут.txt" For Append As 1
  Print #1, Fil.FileName & "|||" & "Ошибка в кодировании"
  Close
End If

Error1: txtCOD.Text = "Произошла ошибка в кодировании файла"

End Sub


[GSerg]

Неее...
Пока Option Explicit не поставишь и все переменные не объявишь, даже не надейся

[el-niko]

Ну тут, как я понял, трабл вызывает эта строчка
tmpDec = tmpDec + Val(Mid(res, Z, 1)) * 2 ^ (Z - 1)
Но что с ней - незнаю....

[PATRIOT_kz]

И не только!

Переменные: X , Y - у тебя не опубликованы как личности!
Т.е. короче они у тя идут как Integer = -32767 до 32767, запалуй их
как Long или Double

[ANDLL]

И не только!

Переменные: X , Y - у тебя не опубликованы как личности!
Т.е. короче они у тя идут как Integer = -32767 до 32767, запалуй их
как Long или Double

Учите матчасть, товарищ. Переменные без объявления идут как Variant, который расширяеться по мере надобности... вроде...

[tyomitch]

Variant не расширяется, а хранит то, что в него положили. Кладёт функция Val значение типа Double. Никаких проблем. Откуда переполнение - х.з.

Кстати, кто-нибудь про операторы DefType ещё помнит? DefInt A-Z в начале модуля - и все необъявленные переменные стали Integer...

[GSerg]

Я вот про GoSub помню...
Но юзать его никогда никому не посоветую
option explicit - наш выбор... а в .net - ещё и option strict

[PATRIOT_kz]

Ужас! Своего-же солдата на фронте бомбят !

ХеХе! Вот есть такая хрень "Option Explicit", а есть интересно вот это
"Option Exploit"

[tyomitch]

Я вот про GoSub помню...
Но юзать его никогда никому не посоветую

Кстати, зря: это быстрее, чем вызов процедуры. Если в одной процедуре кусок кода повторяется много раз - лучше вынести его в GoSub, чем в отдельную процедуру.
Разумное чередование процедур и GoSub-ов рулит.

[GSerg]

Из .NET GoSub порезали как динозавровый способ
Хотя да, если бы можно было указывать для процедуры callinc convention, вот тогда точно не нужен был бы gosub...

[tyomitch]

Если бы в Бейсике всё было как надо, то проги бы писались сами, и программисты остались бы без работы.
Согласись, если бы в VB не было столько quirk-ов, было бы гораздо скучнее жить и работать.