VPF::Как вывести значения координат точек

suwka

Дата 24.1.2007, 02:23 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 24.1.2007

Репутация: нет
Всего: нет

Я только начинаю заниматься, не могу понять smile

, почему программка не выводит значения. Объясните плиз, что я не так делаю. smile

Суть в том, что она должна выводить изменение значений координат точек по оси Ох и само расстояние между ними d, координаты точек по Оу не изменны. Вот она:

Код


Private Sub Command1_Click()
Dim y1 As Single, x1 As Single, x1n As Single, dx1 As Single, x1k As Single
Dim y2 As Single, x2 As Single, x2n As Single, dx2 As Single, x2k As Single
Dim d As Single
Cls
 y1 = Text1.Text
 x1n = Text2.Text
 dx1 = Text3.Text
 x1k = Text4.Text
 y2 = Text5.Text
 x2n = Text6.Text
 dx2 = Text7.Text
 x2k = Text8.Text
For x2 = x2n To x2k Step dx2
Print Tab(5); "x1="; Format(x1, "0.00")
 For x1 = x1n To x1k Step dx1
 d = Sqr((x2 - x1) ^ 2 + (y2 - y1) ^ 2)
 Print "d="; Format(d, "0.00"), "x2="; Format(x2, "0.00")
Next x1
Next x2
Print
End Sub

Это сообщение отредактировал(а) cardinal - 24.1.2007, 02:50

cardinal

Дата 24.1.2007, 02:49 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99

suwka, пользуйтесь тегом "код"!

--------------------

Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие

mihanik

Дата 24.1.2007, 07:51 (ссылка)

(нет голосов)

Загрузка ...

-=Белый Медведь=-

Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109

suwka, начнём с переменных.
Ты их объявляешь так

Код


Dim y1 As Single, x1 As Single, x1n As Single, dx1 As Single, x1k As Single
Dim y2 As Single, x2 As Single, x2n As Single, dx2 As Single, x2k As Single
Dim d As Single

Т.е. - это у тебя числа.
Посмотрим теперь на то, как ты им присваиваешь значения...

Код


 x2n = Text6.Text

Опа!
А вот с этого места поподробнее!!! Ты в переменную, которая предназначена для хранения чисел, пытаешься забабахать текст?

По-моему, данную строчку лучше оформить так:

Код


 x2n = Val(Text6.Text)

Или так:

Код


 x2n = CSng(Text6.Text)

Сначала исправь в программе все операторы присваивания.
Потом начнём разбираться по существу... smile

PS.

Такое ощущение, что раньше ты программировал на QBasic.
Я прав? smile

PPS.

Работа над программой предстоит большая т.к. ошибок у тебя там... И синтаксические, и по существу...

Это сообщение отредактировал(а) mihanik - 24.1.2007, 07:58

--------------------

Программистами не рождаются, - это родовая травма...

Dimedrol

Дата 26.1.2007, 20:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 26.1.2007

Репутация: нет
Всего: нет

Я в общем-то тоже только только начинаю, но тем не менее - вот так наверное точно должно срвботать

Код


x2n = Val(Text6.Text)

Val и занимается вроде тем, что переводит текстовое значение в числовое, но не защищен от ввода в поле вместо цифр - букв, не сможет обработать и возникнет ошибка.

Кирилл

Дата 27.1.2007, 21:43 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 80
Регистрация: 7.11.2006
Где: Воронеж

Репутация: 1
Всего: 1

Цитата(mihanik @ 24.1.2007, 07:51

)

По-моему, данную строчку лучше оформить так:

Так-то, конечно, лучше, но не обязателино. VB переварит.
suwka, ошибка не в этом коде - у меня всё выводит. Копай дальше.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »