VBNet - Форум - Помогите найти ошибку :(

Вопрос: Помогите найти ошибку :( Добавлено: 24.04.07 19:45

Автор вопроса: litt

Программа должна выводить график функции, она выводит, но косяково... центр координат непонятно где... и сам график изначально получается то очень маленьким, то очень большим... вот код:

Private Sub Command1_Click()
Dim x As Single
Dim y As Single
Dim n As Single
Dim d As Single
Dim max As Single
Dim min As Single

n = Val(Text1.Text)
d = Val(Text2.Text)
y = n + 1
max = y: min = y
For x = n To d Step 0.01
y = x + 1
If y > max Then max = y
If y < min Then min = y
Pic1.PSet (x, y), vbRed
Next x
Pic1.DrawWidth = 3
Pic1.FontSize = 20
Pic1.Line (-d, 0)-(d, 0), 0: Pic1.Print "x"
Pic1.Line (0, max)-(0, min), 0: Pic1.Print "y"
Pic1.Scale (-d, max)-(d, min)
End Sub

Ответить

Ответы Всего ответов: 6

Номер ответа: 1 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #1	Добавлено: 24.04.07 20:12
	Ошибки в днк. Рисовать график по точкам - маразм. Найди готовый пример и не морочь голову Ответить

Номер ответа: 2 Автор ответа: intel-DX ICQ: 445091742 Вопросов: 4 Ответов: 169	Профиль \| \| #2	Добавлено: 24.04.07 20:23
	Я в твоем коде не розбирался, а написал свой он 100% работает Pic1.ScaleMode = 3 Form1.ScaleMode = 3 Pic1.DrawWidth = 3 Pic1.FontSize = 20 Pic1.Line (1, 1)-(Pic1.Width - 20, 1), 0: Pic1.Print "x" Pic1.Line (1, 1)-(1, Pic1.Height - 40), 0: Pic1.Print "y" Pic1.PSet (2, 2), vbRed n = Val(Text1.Text) For x = n To 300 y = x ' Твоя Функция Pic1.Line -(x, y), vbRed Next x Ответить

Номер ответа: 3 Автор ответа: litt Вопросов: 6 Ответов: 18	Профиль \| \| #3	Добавлено: 24.04.07 20:46
	спасибо, но мне нужно именно построение по точкам Ответить

Номер ответа: 4 Автор ответа: intel-DX ICQ: 445091742 Вопросов: 4 Ответов: 169	Профиль \| \| #4	Добавлено: 24.04.07 20:57
	Ну тогда зделай замену в моей проге, и будет Тебе по Точкам For x = n To 300 Step 0.01 y = x ' Твоя Функция Pic1.PSet (x, y), vbRed Next x Ответить

Номер ответа: 5 Автор ответа: litt Вопросов: 6 Ответов: 18	Профиль \| \| #5	Добавлено: 24.04.07 21:18
	а почему в твоей ось координат странно отображается )??? она сверху вниз Ответить

Номер ответа: 6 Автор ответа: intel-DX ICQ: 445091742 Вопросов: 4 Ответов: 169	Профиль \| \| #6	Добавлено: 24.04.07 21:41
	Так на экране задаютса координаты, для тебя даже проверил. Точно именно Так. Ответить

Страница: 1 |