Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.83/180: Рейтинг темы: голосов - 180, средняя оценка - 4.83
3 / 3 / 1
Регистрация: 09.04.2012
Сообщений: 70

Устранить ошибку "sub or function not defined"

09.04.2012, 23:52. Показов 34906. Ответов 17
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Это мой код!!!
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
Dim z As String
Dim n As Integer
z = "d:\texnika.txt"
Open z For Input As #1
n = 0
While Not EOF(1)
        With a(n)
     Input #1, .vyd, .rik, .cina, .kolir, .kilkist
     n = n + 1
Wend
End Sub
Почему выкидывает ошибку SUB OR FUNCTION NOT DEFINED???

 Комментарий администратора 
Официальный язык форума - Русский
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
09.04.2012, 23:52
Ответы с готовыми решениями:

Как устранить ошибку: "user-defined type not defined"?
Помогите с решением проблемы, выскакивает ошибка user defined type not defined при работе над кодом(урок из книжки) Sub Логика2() ...

Как устранить ошибку: "user-defined type not defined"?
user-defined type not defined - эта ошибка возникает тогда из Excel должен создаться документ отчета у Word, а при запуске на исполнение...

Как устранить ошибку: 'Uncaught ReferenceError: $ is not defined' ?
$(document).ready(function(){ $(document).click(function() { alert('smth'); }); }); Код html: <!DOCTYPE html> ...

17
 Аватар для morgann55
1365 / 207 / 37
Регистрация: 09.02.2012
Сообщений: 745
10.04.2012, 00:00
Не объявлен массив - a(n)
1
3 / 3 / 1
Регистрация: 09.04.2012
Сообщений: 70
10.04.2012, 00:04  [ТС]
Добавлено через 30 секунд
Цитата Сообщение от morgann55 Посмотреть сообщение
Ты не открыл файл...
а как его открыть???

Добавлено через 3 минуты
что нужно сделать, чтобы открыть файл?
0
 Аватар для morgann55
1365 / 207 / 37
Регистрация: 09.02.2012
Сообщений: 745
10.04.2012, 00:09
Цитата Сообщение от Dubas Посмотреть сообщение
нннннннууууууууу бууууддддддддддььььь ллллллааааааааасссссссссссккккккаааааааа

Добавлено через 30 секунд


а як його відкрити???

Добавлено через 3 минуты
що потрібно зробити щоб відкрити файл???
Пардон - ошибся ((( Я исправил - "Не объявлен массив - a(n)"
1
3 / 3 / 1
Регистрация: 09.04.2012
Сообщений: 70
10.04.2012, 00:14  [ТС]
Цитата Сообщение от morgann55 Посмотреть сообщение
Пардон - ошибся ((( Я исправил - "Не объявлен массив - a(n)"
Как правильно должен выглядеть код?
0
 Аватар для morgann55
1365 / 207 / 37
Регистрация: 09.02.2012
Сообщений: 745
10.04.2012, 00:19
Цитата Сообщение от Dubas Посмотреть сообщение
Як правильно повинен виглядати код????
Если a(n) это массив, то - Dim a(цифра) As String (или что там у тебя)...
Ты знаешь до скольки у тебя дойдёт n ?? (10,20,30....)
1
3 / 3 / 1
Регистрация: 09.04.2012
Сообщений: 70
10.04.2012, 00:23  [ТС]
Цитата Сообщение от morgann55 Посмотреть сообщение
Если a(n) это массив, то - Dim a(цифра) As String (или что там у тебя)...
Ты знаешь до скольки у тебя дойдёт n ?? (10,20,30....)
наверно до 2...потому что у меня у текстовом файле только 2 списка!!!
можете посмотреть полностю програму???
0
 Аватар для morgann55
1365 / 207 / 37
Регистрация: 09.02.2012
Сообщений: 745
10.04.2012, 00:25
Цитата Сообщение от Dubas Посмотреть сообщение
наверно до 2...потому что у меня у текстовом файле только 2 списка!!!
можете посмотреть полностю програму???
Если не много (и просто), то давай...
1
3 / 3 / 1
Регистрация: 09.04.2012
Сообщений: 70
10.04.2012, 00:27  [ТС]
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
Private Sub CommandButton1_Click()
Dim z As String
Dim a(2) As Single
Dim n As Integer
z = "d:\texnika.txt"
Open z For Input As #1
n = 0
While Not EOF(1)
        With a(n)
     Input #1, .vyd, .rik, .cina, .kolir, .kilkist
     n = n + 1
Wend
End Sub
 
Private Sub CommonButton2_Click()
Dim i As Integer, z As String
For i = 1 To n
With a(i)
z = .vyd + Chr(9) + Str(.rik) + Chr(9) + Str(.cina) + Chr(9) + Str(.kolir) + Chr(9) + Str(.kilkist)
ListBox1.AddItem z
End Sub
 
Private Sub CommandButton3_Click()
Dim i As Integer, z As String, color As String
color = ListBox2.List
For i = 1 To n
    With a(i)
        If Trim(.color) = color Then
        z = .vyd + Chr(9) + Str(.rik) + Chr(9) + Str(.cina) + Chr(9) + Str(.kilkist)
        TextBox1.Text = z
        End If
    End With
Nexti
End Sub



НУ ЧТО НЕВЕРНО???
0
 Аватар для morgann55
1365 / 207 / 37
Регистрация: 09.02.2012
Сообщений: 745
10.04.2012, 00:33
А что ты хочешь сделать в строке "With a(n)" ?? (у тебя Type что ли ??)

With (оператор) - выполняет последовательность команд для конкретногообъекта или переменной специализированного типа

И посмотри ещё
Как заключить в теги код программы (в сообщении)
1
3 / 3 / 1
Регистрация: 09.04.2012
Сообщений: 70
10.04.2012, 00:36  [ТС]
Цитата Сообщение от morgann55 Посмотреть сообщение
А что ты хочешь сделать в строке "With a(n)" ??

With (оператор) - выполняет последовательность команд для конкретногообъекта или переменной специализированного типа
в книге так было вот и я так написал)
0
 Аватар для morgann55
1365 / 207 / 37
Регистрация: 09.02.2012
Сообщений: 745
10.04.2012, 00:46
Цитата Сообщение от Dubas Посмотреть сообщение
в книге так было вот и я так написал)
А что у тебя в texnika.txt ?? Можешь показать ??

Скайп есть у тебя ??
0
3 / 3 / 1
Регистрация: 09.04.2012
Сообщений: 70
10.04.2012, 00:49  [ТС]
Цитата Сообщение от morgann55 Посмотреть сообщение
А что у тебя в texnika.txt ?? Можешь показать ??

Скайп есть у тебя ??
есть.
dubasvania
0
 Аватар для morgann55
1365 / 207 / 37
Регистрация: 09.02.2012
Сообщений: 745
10.04.2012, 05:27
Цитата Сообщение от Dubas Посмотреть сообщение
есть.
dubasvania
Послал запрос на контакт - чего не отвечаешь ??

Добавлено через 4 часа 33 минуты
Подскажите, плз, как можно реализовать через "With" (я с таким не знаком) !! Работоспособности проги мы добились, но через For...Next (а может с "With" проще ??)...
0
 Аватар для Апострофф
9908 / 3924 / 742
Регистрация: 11.10.2011
Сообщений: 5,904
10.04.2012, 07:14
morgann55, вопросы, связанные с темой, решаем на форуме!
Откуда нам знать, чего вы с оппонентом добились в частной переписке
По-моему, Dubas где-то нашел прогу, досовершенствовал её под свои нужды,
забыв, что где-то в каком-то модуле было объявлено примерно так
Visual Basic
1
2
3
4
5
6
7
public type t_A
  vyd as integer
  rik as integer
  cina as integer
  kolir as integer
  kilkist as integer
end type
Где-то ещё д.б. объявлено
Visual Basic
1
dim a()as t_A
и переопределение(redim) массива a() в зависимости от реального размера файла.
0
 Аватар для morgann55
1365 / 207 / 37
Регистрация: 09.02.2012
Сообщений: 745
10.04.2012, 15:02
Цитата Сообщение от Апострофф Посмотреть сообщение
morgann55, вопросы, связанные с темой, решаем на форуме!
Откуда нам знать, чего вы с оппонентом добились в частной переписке
Если бы я знал как КОНКРЕТНО поправить прогу ТС, то сделал бы это на форуме (ведь я начал здесь). Но когда я увидел код проги и строки, по которым и мне впору кричать "ПОМОГИТЕ!!!!!", то понял, что могу ТОЛЬКО попытаться ДОЛГИМ методом "ТЫКА" добиться хоть какой-то работоспособности проги. И голосовая связь мне была нужна... Вод НАШ код:
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
Private Type a
vyd As String * 10
cina As Integer
kolir As String * 10
kilkist As Integer
End Type
Dim tech(2) As a
Dim n As Integer
Private Sub Command1_Click()
Dim z As String
Dim a(2) As Single
z = "c:\texnika.txt"
Open z For Input As #1
For i = 1 To 2
Input #1, tech(i).vyd, tech(i).cina, tech(i).kolir, tech(i).kilkist
n = n + 1
Next
Close #1
End Sub
 
Private Sub Command2_Click()
Dim i As Integer
For i = 1 To n
z = tech(i).vyd + Chr(9) + Str(tech(i).cina) + Chr(9) + tech(i).kolir + Chr(9) + Str(tech(i).kilkist)
List1.AddItem z
Next i
End Sub
 
Private Sub Command3_Click()
Dim color As String
color = Text1.Text
For i = 1 To n
If Trim(tech(i).kolir) = color Then
    z = tech(i).vyd + Chr(9) + Str(tech(i).cina)
List2.AddItem z
End If
Next i
End Sub
А вот texnika.txt (под который код и заточен):
"Плеєр", 250,"синий",2
"тв",1400,"чорний",4

Добавлено через 1 час 18 минут
А где конструктивная критика ?? (ведь код зелёный...)
0
es geht mir gut
 Аватар для SoftIce
11274 / 4760 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
10.04.2012, 15:14
Цитата Сообщение от morgann55 Посмотреть сообщение
добились, но через For...Next (а может с "With" проще ??)
Это немного разные вещи.
Visual Basic
1
2
3
4
5
6
7
8
Open z For Input As #1
  Do Until EOF(1)
     With tech(i)
        Input #1, .vyd, .cina, .kolir, .kilkist
     End With
     n = n + 1
   Loop
Close #1
2
 Аватар для morgann55
1365 / 207 / 37
Регистрация: 09.02.2012
Сообщений: 745
10.04.2012, 15:56
Цитата Сообщение от SoftIce Посмотреть сообщение
Это немного разные вещи.
Visual Basic
1
2
3
4
5
6
7
8
Open z For Input As #1
  Do Until EOF(1)
     With tech(i)
        Input #1, .vyd, .cina, .kolir, .kilkist
     End With
     n = n + 1
   Loop
Close #1
Ну значит при неизвестной длине файла ТАК будет правильно (у ТС просто не хватало строки End With...)...(Если не считать Type....)
А я-то этим With никогда не пользовался
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
10.04.2012, 15:56
Помогаю со студенческими работами здесь

Как устранить эту ошибку NameError: name 'data' is not defined
mport matplotlib.pyplot as plt print('\nЗадание 4') plt.plot(data) plt.show() mean = np.mean(data) * np.ones(len(data)) var =...

Выдает ошибку sub or function not defined, что делать?
Dim zoom1 As Integer Dim zoom2 As Integer Dim color As Long Private Sub cmdEscala_Click() Dim i As Long Dim a As Long For i = 0...

Как устранить ошибку Uncaught TypeError: btnLeft.onclick is not a function?
Как устранить ошибку Uncaught TypeError: btnLeft.onclick is not a function без потери правильной работы слайдера? let init = () =>...

Что неправильно в цикле, выдает ошибку "sub or function not defined"
Подскажите что неправильно в цикле, выдает ошибку sub or function not defined For i = 1 To 35 If w1 = w(i) Then Text1.Text =...

Как устранить ошибку " Class "mysqli" not found in function.php"?
Здравствуйте, IDE PhpStorm выдает мне ошибку: Fatal error: Uncaught Error: Class "mysqli" not found in E:\Programs\Open...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
18
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru