Ошибка run-time error '5'

@Kemgrad · Регистрация: 23.01.2021

Студворк — интернет-сервис помощи студентам

Приветствую. Имеется программа, которая, в объект Image выводит изображения из папки, так же даны три CommandButton, на которые в свойство Caption выводится наименования: одно-реальное имя выведенного изображения, два других-случайные названия файлов. Так как хотелось что бы в Caption выводилось название без расширения файла(.jpg). были использованы Len и Left для вычисления длины имени файла и удаления 4 символов с конца.
при значении a,b или c = 0 программа встает(картинка с кодом, на ней видно что переменная b=0 )
помогите обойти или решить эту проблему

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Private Sub Image1_DblClick()
 If Not (tr) Then
   tr = True
   fn = App.Path & "\Picture\Animals"
   fn1 = Dir(fn & "\*.jpg", vbNormal)
      If fn1 = "" Then
        MsgBox "Not ": tr = False: Exit Sub
     End If
     k = Int(Rnd):
   Do While fn1 <> ""
       ReDim Preserve p(k): p(k) = fn1: k = k + 1
      fn1 = Dir()
   Loop
   n = k
End If
 If k > 0 Then
   Do
     i = Int(Rnd * n)
   Loop While p(i) = ""
    k = k - 1
   Image1.Picture = LoadPicture(fn + "" & p(i))
   l = k + 1
   a = Len(p(i))
   b = Len(p(k))
   c = Len(p(l))
   Command2.Caption = Left(p(k), b - 4)
   Command3.Caption = Left(p(i), a - 4)
   Command4.Caption = Left(p(l), c - 4)
   p(i) = ""
Else
   tr = False
   Image1.Picture = LoadPicture
End If
 
End Sub

@Catstail · 24.01.2021, 09:27

Вставь между строками 25 и 26 вот это. Возможно, поможет понять причину

Visual Basic
1
debug.print "i=";i;" k=";k;" l=";l;p(k);" ";p(i);" ";p(l)

I can · 24.01.2021, 09:42

Сообщение от Kemgrad

k = Int(Rnd):

Зачем так?

@Kemgrad · 24.01.2021, 09:48 **[ТС]**

Сообщение от Catstail

Вставь между строками 25 и 26 вот это. Возможно, поможет понять причину
1 debug.print "i=";i;" k=";k;" l=";l;p(k);" ";p(i);" ";p(l)

i= 101 k= 100 l= 101 УДАВ.jpg УДАВ.jpg

Добавлено через 3 минуты

Сообщение от I can

k = Int(Rnd):
Зачем так?

пытался поэкспериментировать чтобы рандом всегда был, а то получалась одна и та же последовательность вывода картинок при работе (но я нуб - ничего не вышло)

@Catstail · 24.01.2021, 09:49

Kemgrad, приглядись к своей же картинке! Там у тебя в контекстной подсказке b=0. А дальше ты пытаешься вычислить Left(p(k), b - 4). Второй параметр Left не может быть отрицательным - отсюда и error 5

I can · 24.01.2021, 09:51

Не по теме:

Я тут лишний

@Kemgrad · 24.01.2021, 13:52 **[ТС]**

Catstail, я это видел, но не могу понять как обойти то место, когда одна из переменных A,b,c принимает значение 0, поэтому и решил просить помощи здесь

Добавлено через 7 минут

Сообщение от I can

Не по теме:
Я тут лишний

I Can. я ж говорю, я нуб. лет 9 назад в колледже delphi c pascal проходил. сейчас для своего ребенка решил создать мини программу по изучению алфавита, с озвучкой, написанием, картинками. а также мини тест. путем поиска в интернете удалось собрать по частям код для случайного вывода картинок из папки. так что прошу не судить меня строго

Добавлено через 3 часа 52 минуты

Visual Basic
1
2
3
4
5
6
If p(i) = "" Then
   Command3.Caption = ""
   ElseIf p(k) = "" Then
   Command2.Caption = ""
   ElseIf p(l) = "" Then
   Command4.Caption = ""

я заметил что при 0 значении какой либо из переменных a,b или c, в p(i),p(k) или p(l) пустое значение ="". C помощью этих условий удалось избежать прерывания программы, первым к 0 приходит переменная b, при этом:- в command2.caption="" а в command3.caption заносится совсем другое имя файла(не той картинки что показана). при переходе на следующее изображение(выполнение дальше самой процедуры Image1_dblClick), command2 и command4 пустые, а в command3 так же
не верное наименование файла. и эти две ситуации начинают повторяться через каждые 2-5 картинки.

@Kemgrad · 24.01.2021, 14:10 **[ТС]**

если вообще убрать ту часть кода, что отслеживает длину и отнимает символы, то получается вот так:

I can · 24.01.2021, 14:20

Kemgrad, такой вариант

@Kemgrad · 24.01.2021, 14:25 **[ТС]**

I can, уже имеется такое, как средство для ознакомления с животными для ребенка, а при нажатии на кнопку "мини тест" уже переход к картинке с вариантами ответа

@Kemgrad · 24.01.2021, 15:46 **[ТС]**

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
   If b = 0 Then
    k = k + 2
    b = Len(p(k))
   Command2.Caption = Left(p(k), b - 4)
   Command3.Caption = Left(p(i), a - 4)
   Command4.Caption = Left(p(l), c - 4)
   ElseIf c = 0 Then
   l = l + 2
   c = Len(p(l))
   Command2.Caption = Left(p(k), b - 4)
   Command3.Caption = Left(p(i), a - 4)
   Command4.Caption = Left(p(l), c - 4)
   Else
   Command2.Caption = Left(p(k), b - 4)
   Command3.Caption = Left(p(i), a - 4)
   Command4.Caption = Left(p(l), c - 4)
   End If

почти удалось, но в какой то момент p(l)-Subscript out of range. я так понимаю значение вышло за рамки

Добавлено через 48 минут
добавил несколько условий проверки переменной l, и вроде все пока работает, есть конечно несколько глюков(в виде того что изображение с верным именем файла осталось прежним, а два других имя сменились ). но встречаются эти моменты редко

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
If Not (tr) Then
   tr = True
   fn = App.Path & "\Picture\Animals"
   fn1 = Dir(fn & "\*.jpg", vbNormal)
      If fn1 = "" Then
        MsgBox "Not ": tr = False: Exit Sub
     End If
     k = 0:
   Do While fn1 <> ""
       ReDim Preserve p(k): p(k) = fn1: k = k + 1
      fn1 = Dir()
   Loop
   n = k
End If
 If k > 0 Then
   Do
     i = Int(Rnd * n)
   Loop While p(i) = ""
    k = k - 1
   Image1.Picture = LoadPicture(fn + "\" & p(i))
   l = i - 2
   If l <= 1 Then
   l = i + 2
   ElseIf l >= 114 Then
   l = i - 2
   Else
    a = Len(p(i))
    b = Len(p(k))
    c = Len(p(l))
     If b = 0 Then
     k = k + 2
     b = Len(p(k))
     Command2.Caption = Left(p(k), b - 4)
     Command3.Caption = Left(p(i), a - 4)
     Command4.Caption = Left(p(l), c - 4)
     ElseIf c = 0 Then
     l = l - 2
     c = Len(p(l))
     Command2.Caption = Left(p(k), b - 4)
     Command3.Caption = Left(p(i), a - 4)
     Command4.Caption = Left(p(l), c - 4)
     Else
     Command2.Caption = Left(p(k), b - 4)
     Command3.Caption = Left(p(i), a - 4)
     Command4.Caption = Left(p(l), c - 4)
   End If
   End If
Else
   tr = False
   Image1.Picture = LoadPicture
End If
End Sub
 
Private Sub Form_Load()
If Not (tr) Then
   tr = True
   fn = App.Path & "\Picture\Animals"
   fn1 = Dir(fn & "\*.jpg", vbNormal)
      If fn1 = "" Then
        MsgBox "Not ": tr = False: Exit Sub
     End If
     k = 0:
   Do While fn1 <> ""
       ReDim Preserve p(k): p(k) = fn1: k = k + 1
      fn1 = Dir()
   Loop
   n = k
End If
 If k > 0 Then
   Do
     i = Int(Rnd * n)
   Loop While p(i) = ""
    k = k - 1
   Image1.Picture = LoadPicture(fn + "\" & p(i))
   l = i + 1
   a = Len(p(i))
   b = Len(p(k))
   c = Len(p(l))
   Command2.Caption = Left(p(k), b - 4)
   Command3.Caption = Left(p(i), a - 4)
   Command4.Caption = Left(p(l), c - 4)
   p(i) = ""
Else
   tr = False
   Image1.Picture = LoadPicture
End If

Новые блоги и статьи Все статьи Все блоги /
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .

@Catstail Супер-модератор 38178 / 21113 / 4307 Регистрация: 12.02.2012 Сообщений: 34,716 Записей в блоге: 14
	24.01.2021, 09:49
	Kemgrad, приглядись к своей же картинке! Там у тебя в контекстной подсказке b=0. А дальше ты пытаешься вычислить Left(p(k), b - 4). Второй параметр Left не может быть отрицательным - отсюда и error 5 0

I can
	24.01.2021, 09:51
	Не по теме: Я тут лишний 0

@Kemgrad 0 / 0 / 0 Регистрация: 23.01.2021 Сообщений: 33
	24.01.2021, 14:10 [ТС]
	если вообще убрать ту часть кода, что отслеживает длину и отнимает символы, то получается вот так: Миниатюры 0

@Kemgrad 0 / 0 / 0 Регистрация: 23.01.2021 Сообщений: 33
	24.01.2021, 14:25 [ТС]
	I can, уже имеется такое, как средство для ознакомления с животными для ребенка, а при нажатии на кнопку "мини тест" уже переход к картинке с вариантами ответа Миниатюры 0