VBNet - Форум - Графика

Вопрос: Графика Добавлено: 07.03.03 09:04

Автор вопроса: Yaxa | ICQ: 81958073

Пожалуйста, подскажите, как если можно в VB 6, нарисовать хотя бы элементарный графиг y=sin(x)
Ответить

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

Номер ответа: 1 Автор ответа: Страшный Сон Вопросов: 46 Ответов: 848	Профиль \| \| #1	Добавлено: 07.03.03 12:16
	Это элементарно - подключай апихи GDI и юзай, а ещё лучше используй SAFEARRAY - с ним и Anti-Alias сделаешь, и AlphaBlend. Ответить

Номер ответа: 2 Автор ответа: Yaxa ICQ: 81958073 Вопросов: 4 Ответов: 2	Профиль \| \| #2	Добавлено: 08.03.03 11:17
	В том то и дело, что я знаю что подключать, но у меня проблема с текстом. Когда начинаю набирать , как в си первом, то возникают много ошибок. А вот как писать в VB6, я во вногих книгах не нашел Ответить

Номер ответа: 3
Автор ответа:

Диман

ICQ: 224590251

Вопросов: 29
Ответов: 64

Web-сайт: www.dimon1int.narod.ru
Профиль | | #3

Добавлено: 09.03.03 09:55

For x = 1 to 250

Pset x, Sin (x)

Next x

Ответить

Номер ответа: 4
Автор ответа:

Justas

ICQ: 259418212

Вопросов: 24
Ответов: 325

Web-сайт: justas.newmail.ru
Профиль | | #4

Добавлено: 10.03.03 06:35

Так пойдёт?

Function graf(ByVal x As Single)
'здесь задается наша функция
y = x ^ 3 - 12 * x ^ 2 + 3 ^ x
'тут она выводится на форму (каждая из полученных точек)
Debug.Print y
'Посылаем y в ответ для дальнейшей работы в программе.
graf = y
End Function

Private Sub Command1_Click()
Form1.BackColor = &H80000009 'На белой форме смотрится эффектнее
'Толщина линий обозначающих координатные оси
DrawWidth = 2
'Масштабирование
Scale (-10, 200)-(10, -200)
'Рисование осей
Form1.ForeColor = &H0& 'На всякий случай
Line (-10, 0)-(10, 0)
Line (0, -200)-(0, 200)
'А график смотрится лучше когда он тоньше, чем оси
DrawWidth = 1
'А вот собственно и само построение графика
Form1.ForeColor = &HFF& 'Другим цветом график смотрится красиво
For x = -10 To 10 Step 0.01 'Чем точнее, тем лучше
Line -(x, graf(x)) 'Строим
Next
End Sub