|
|
|
Графика в Visual Basic
|
|||
|---|---|---|---|
|
#18+
Такая тема: нужно написать прогу, в которой по заданной функции будет построен график (в 2D плоскости). Есть кусок кода: Option Explicit Public x, y As Long Private Sub Form_Load() Me.ScaleTop = (-(Me.Height) / 2) For x = 0 To Form1.Width Step 0.1 y = Sin(x) PSet (x, y), RGB(200, 0, 200) Next x End Sub Такая вот проблема: y=sin(x) , а он рисует прямую линию. Что с этим можно сделать? Как получить из всего этого синусоиду?!! Помогите, пожалуйста!!! С нетерпением жду! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 14.10.2005, 19:13:17 |
|
||
|
Графика в Visual Basic
|
|||
|---|---|---|---|
|
#18+
Очень просто: в функции y=sin(x) при изменении X от 0 до Form1.Width - значение Y будет изменяться от только 1 до -1. в то время, как размеры экрана - несколько сотен пикселов. Таким образом изменение Y будет практически незаметно для глаза. Выход прост: умножать Y на некий коэффициент или использовать собственную систему координат (свойства ScaleLeft\ScaleTop, если память не изменяет). Проще, конечно, с коэффициентом... но правильнее - с пользовательской системой координат. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 14.10.2005, 22:02:05 |
|
||
|
Графика в Visual Basic
|
|||
|---|---|---|---|
|
#18+
Ничего не выходит!! Пробовал домножать у на 10 - получается толстая линия, на 100 - три линии. При увеличении коэффициента увеличивается расстояние между линиями. Может, я что-то не так делаю?.. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 15.10.2005, 19:39:51 |
|
||
|
Графика в Visual Basic
|
|||
|---|---|---|---|
|
#18+
LaYzeRRНичего не выходит!! Пробовал домножать у на 10 - получается толстая линия, на 100 - три линии. При увеличении коэффициента увеличивается расстояние между линиями. Может, я что-то не так делаю?.. Красивая плавная линия получается при изменении X от -пи до пи с шагом пи/360. У Вас же идет изменение от 0 до 600 - за это время кривая делает столько скачков, что кажется, будто бы линий три штуки. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 15.10.2005, 20:09:56 |
|
||
|
Графика в Visual Basic
|
|||
|---|---|---|---|
|
#18+
nibblesКрасивая плавная линия получается при изменении X от -пи до пи с шагом пи/360.У Вас же идет изменение от 0 до 600 - за это время кривая делает столько скачков, что кажется, будто бы линий три штуки. Спасибо ОГРОМНОЕ, попробую теперь так сделать! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 15.10.2005, 20:32:47 |
|
||
|
Графика в Visual Basic
|
|||
|---|---|---|---|
|
#18+
Лучше поздно, чем никогда... Вот еще один вопрос к более опытным (т. е. ко всем) участникам форума есть! Как лучше сделать координатную плоскость? Рисовать ее линиями, или вставить картинку, или еще как-нибудь? Если линиями, то всякие там единичные отрезки и все такое неудобно ставить, если картинкой, то как график к ней привязывать (чтобы он туда, куда нужно попал)? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.01.2006, 16:49:50 |
|
||
|
|
start [/forum/topic.php?fid=60&fpage=297&tid=2166543]: |
0ms |
get settings: |
9ms |
get forum list: |
9ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
62ms |
get topic data: |
7ms |
get forum data: |
2ms |
get page messages: |
28ms |
get tp. blocked users: |
1ms |
| others: | 217ms |
| total: | 339ms |
| 0 / 0 |
