Не получается вывести результат на Listbox

@jankk · Регистрация: 23.04.2011

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

Нужно создать приложение для расчета 10 значений функции. Результаты надо вывести на экран. Вот, что у меня получилось:

Private Sub Command1_Click()
Dim a, b, x1, x2 As Single
a = Text1.Text
b = Text2.Text
x1 = Text3.Text
x2 = Text4.Text
n = Text5.Text
Sh = (Val(x2) - Val(x1)) / Val(n)
x = Val(x1)
Do While x < x2
y = Cos((a - x * x) / (a + x * x)) + b * Sin(x)
x2 = Val(x2)
ListBox1.Items.Add (CDbl(y))
x = x1 + Sh
Loop
End Sub

В строке ListBox1.Items.Add (CDbl(y)) пишет, что не задан объект. В чем ошибка, подскажите?

@Alex77755 · 23.04.2011, 21:21

Ошибка № 1: Нет "Option Explicit"
Он поможет выявить и обезвредить 50% ошибок
Дальше посмотрю

Добавлено через 52 секунды
2. Не бъявлены переменные и их типы

@jankk · 23.04.2011, 21:25 **[ТС]**

Прописываю Option Explicit. выделяет n "Veriable not defined"

@Alex77755 · 23.04.2011, 21:26

Ессно - не объявлена переменная

@jankk · 23.04.2011, 21:28 **[ТС]**

Точно! Куда мои глаза глядели! Спасибо!

@Alex77755 · 23.04.2011, 21:31

ListBox1.Items.Add (CDbl(Y))

А ты уверен, что это не NET?
В бейсике такого NET

@jankk · 23.04.2011, 21:35 **[ТС]**

У меня сейчас выделил Sh и пишет, что переменная не определена.
А где Listbox - это так препод объяснял или в конспекте что-то не так записано. Я пытаюсь сейчас разобраться, что к чему.

@Alex77755 · 23.04.2011, 21:38

В какой программе(среде) пишешь?

Добавлено через 1 минуту
Он тебе ещё ругнётся на X и Y

@jankk · 23.04.2011, 21:38 **[ТС]**

Визуал бейсик 6,0.

@Alex77755 · 23.04.2011, 21:40

ListBox1.Items.Add (CDbl(Y))

Там точно такого нет

@jankk · 23.04.2011, 21:42 **[ТС]**

Я исправил на Additem, пишет на найден объект

@Alex77755 · 23.04.2011, 21:46

пишет на найден объект

Значит у бейсика есть на то основания!
Имеется ли ListBox1?

@jankk · 24.04.2011, 16:25 **[ТС]**

Есть один листбокс на форме, теперь выделяет ListBox1. и пишет, что не определена переменная. Вообще на листбокс должны быть выведены 10 значений Y с учетом шага 0,2. Хотелось бы знать, я вообще на правильном пути?

Option Explicit
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim x1 As Single
Dim x2 As Single
Dim y As Single
Dim n As Integer
Dim Sh As Single
Dim x As Single
a = Text1.Text
b = Text2.Text
x1 = Text3.Text
x2 = Text4.Text
n = Text5.Text
Sh = (Val(x2) - Val(x1)) / Val(n)
x = Val(x1)
Do While x <= Val(x2)
y = Cos((a - (x * x)) / (a + (x * x))) + b * Sin(x)
x2 = Val(x2)
x = Val(x1) + Val(Sh)
ListBox1.AddItem (CDbl(y))
Loop
End Sub

Добавлено через 12 минут
A если убрать Option Explicit то на этом же месте пишет что не найден объект.

@Alex77755 · 24.04.2011, 17:34

Выдели в редакторе листбокс и посмотри на его имя.
Возможно у тя русский басик и листбокс называется "Список"

@jankk · 24.04.2011, 17:40 **[ТС]**

бейсик русский

Добавлено через 4 минуты
List1 принял. Но вычисляет уж очень долго. Стоит ли ждать, когда закончит? И как сделать, чтобы считал быстро?

@Alex77755 · 24.04.2011, 17:46

Visual Basic
1
2
3
Sh = (Val(x2) - Val(x1)) / Val(n)
Do While x <= Val(x2)
x = Val(x1) + Val(Sh)

У тя бесконечный цЫкл
в цикле Х не меняет значение

@jankk · 24.04.2011, 18:37 **[ТС]**

Подскажи еще, я же шаг указываю, предел указываю, почему же не работает? почему цикл бесконечный?

Добавлено через 33 минуты
Do While x < Val(x2)
y = Cos((a - (x * x)) / (a + (x * x))) + b * Sin(x)
List1.AddItem (CDbl(y))
x = Val(x) + Val(Sh)
Loop

Вот так исправил, но все равно программа висит.

@Alex77755 · 24.04.2011, 18:37

Do While x <= Val(x2)
x = Val(x1) + Val(Sh)
В теле цыкла х1 и Sh не меняются(вроде)

@jankk · 24.04.2011, 19:11 **[ТС]**

Если прервать обработку, то выделено x = Val(x) + Val(Sh)

Добавлено через 16 минут
x = Val(x) + Val(Sh) Здесь надо было так: x = x + Sh и все заработало! Ура!

Добавлено через 12 минут
AlexУ77755 и всем, кто помогал - огромное спасибо!

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@jankk 0 / 0 / 0 Регистрация: 23.04.2011 Сообщений: 10

	Не получается вывести результат на Listbox 23.04.2011, 21:17. Показов 2472. Ответов 18 Метки нет (Все метки) Нужно создать приложение для расчета 10 значений функции. Результаты надо вывести на экран. Вот, что у меня получилось: Private Sub Command1_Click() Dim a, b, x1, x2 As Single a = Text1.Text b = Text2.Text x1 = Text3.Text x2 = Text4.Text n = Text5.Text Sh = (Val(x2) - Val(x1)) / Val(n) x = Val(x1) Do While x < x2 y = Cos((a - x * x) / (a + x * x)) + b * Sin(x) x2 = Val(x2) ListBox1.Items.Add (CDbl(y)) x = x1 + Sh Loop End Sub В строке ListBox1.Items.Add (CDbl(y)) пишет, что не задан объект. В чем ошибка, подскажите? 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	23.04.2011, 21:21
	Ошибка № 1: Нет "Option Explicit" Он поможет выявить и обезвредить 50% ошибок Дальше посмотрю Добавлено через 52 секунды 2. Не бъявлены переменные и их типы 0

@jankk 0 / 0 / 0 Регистрация: 23.04.2011 Сообщений: 10
	23.04.2011, 21:25 [ТС]
	Прописываю Option Explicit. выделяет n "Veriable not defined" 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	23.04.2011, 21:26
	Ессно - не объявлена переменная 0

@jankk 0 / 0 / 0 Регистрация: 23.04.2011 Сообщений: 10
	23.04.2011, 21:28 [ТС]
	Точно! Куда мои глаза глядели! Спасибо! 0

@jankk 0 / 0 / 0 Регистрация: 23.04.2011 Сообщений: 10
	23.04.2011, 21:35 [ТС]
	У меня сейчас выделил Sh и пишет, что переменная не определена. А где Listbox - это так препод объяснял или в конспекте что-то не так записано. Я пытаюсь сейчас разобраться, что к чему. 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	23.04.2011, 21:38
	В какой программе(среде) пишешь? Добавлено через 1 минуту Он тебе ещё ругнётся на X и Y 0

@jankk 0 / 0 / 0 Регистрация: 23.04.2011 Сообщений: 10
	23.04.2011, 21:38 [ТС]
	Визуал бейсик 6,0. 0

@jankk 0 / 0 / 0 Регистрация: 23.04.2011 Сообщений: 10
	23.04.2011, 21:42 [ТС]
	Я исправил на Additem, пишет на найден объект 0

@jankk 0 / 0 / 0 Регистрация: 23.04.2011 Сообщений: 10
	24.04.2011, 16:25 [ТС]
	Есть один листбокс на форме, теперь выделяет ListBox1. и пишет, что не определена переменная. Вообще на листбокс должны быть выведены 10 значений Y с учетом шага 0,2. Хотелось бы знать, я вообще на правильном пути? Option Explicit Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim x1 As Single Dim x2 As Single Dim y As Single Dim n As Integer Dim Sh As Single Dim x As Single a = Text1.Text b = Text2.Text x1 = Text3.Text x2 = Text4.Text n = Text5.Text Sh = (Val(x2) - Val(x1)) / Val(n) x = Val(x1) Do While x <= Val(x2) y = Cos((a - (x * x)) / (a + (x * x))) + b * Sin(x) x2 = Val(x2) x = Val(x1) + Val(Sh) ListBox1.AddItem (CDbl(y)) Loop End Sub Добавлено через 12 минут A если убрать Option Explicit то на этом же месте пишет что не найден объект. 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	24.04.2011, 17:34
	Выдели в редакторе листбокс и посмотри на его имя. Возможно у тя русский басик и листбокс называется "Список" 0

@jankk 0 / 0 / 0 Регистрация: 23.04.2011 Сообщений: 10
	24.04.2011, 17:40 [ТС]
	бейсик русский Добавлено через 4 минуты List1 принял. Но вычисляет уж очень долго. Стоит ли ждать, когда закончит? И как сделать, чтобы считал быстро? 0

@jankk 0 / 0 / 0 Регистрация: 23.04.2011 Сообщений: 10
	24.04.2011, 18:37 [ТС]
	Подскажи еще, я же шаг указываю, предел указываю, почему же не работает? почему цикл бесконечный? Добавлено через 33 минуты Do While x < Val(x2) y = Cos((a - (x * x)) / (a + (x * x))) + b * Sin(x) List1.AddItem (CDbl(y)) x = Val(x) + Val(Sh) Loop Вот так исправил, но все равно программа висит. 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	24.04.2011, 18:37
	Do While x <= Val(x2) x = Val(x1) + Val(Sh) В теле цыкла х1 и Sh не меняются(вроде) 0

@jankk 0 / 0 / 0 Регистрация: 23.04.2011 Сообщений: 10
	24.04.2011, 19:11 [ТС]
	Если прервать обработку, то выделено x = Val(x) + Val(Sh) Добавлено через 16 минут x = Val(x) + Val(Sh) Здесь надо было так: x = x + Sh и все заработало! Ура! Добавлено через 12 минут AlexУ77755 и всем, кто помогал - огромное спасибо! 0