С Новым годом! Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.91/11: Рейтинг темы: голосов - 11, средняя оценка - 4.91
 Аватар для zink0000
258 / 107 / 26
Регистрация: 15.03.2012
Сообщений: 353
Записей в блоге: 35

Построение графика функции

24.12.2014, 11:07. Показов 2495. Ответов 7

Студворк — интернет-сервис помощи студентам
Graph01.zip
Выставлял я уже эту программу, но я её тут "доработал напильником":
автоматическое определение размера графика по оси Y сделал, шкалу сама строит, ещё там кое-что по мелочи.

В модуле Graph.bas в функции fYfun
прописываете Вашу функцию. Например:
Visual Basic
1
fYfun = Exp(-0.3 * fX) * Sin(5 * fX)
Здесь:
Visual Basic
1
2
3
4
5
6
7
Private Sub cmdGraph_Click()
  ...
  ' Масштаб
  fMinX = -10
  fMaxX = 10
  ...
End Sub
задаёте размера графика по оси X,
размер по оси Y программа,
как уже было выше сказано, сама посчитает.

Большую часть школьно-студеньческих задач - построить график - эта программа решает.
Пользуйтесь. Надеюсь кому-нибудь да пригодится.
3
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
24.12.2014, 11:07
Ответы с готовыми решениями:

Построение графика функции
Всем привет. Есть функция r=h/L h=v*t Значения v и L заданы и они постоянны.(v=50;L=5) Можно ли в Visual Basic построить график...

Построение графика функции
Здравствуйте. Помогите пожалуйста построить график функции tg(x/3) Диапазон изменения аргумента: ?/1000...? - ?/1000 Вот код построения...

Построение графика функции
ошибку выдает. как исправить? Option Explicit Dim x, y, t, a As Double Dim i As Integer Private Sub Command1_Click() a =...

7
Супер-модератор
Эксперт функциональных языков программированияЭксперт Python
 Аватар для Catstail
38167 / 21102 / 4307
Регистрация: 12.02.2012
Сообщений: 34,690
Записей в блоге: 14
24.12.2014, 15:04
Лучший ответ Сообщение было отмечено The trick как решение

Решение

Цитата Сообщение от zink0000 Посмотреть сообщение
В модуле Graph.bas в функции fYfun
прописываете Вашу функцию.
- это резко снижает удобство. Вот код, который строит график функции, задаваемой текстовой формулой:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
Private Sub Command1_Click()
 
        Me.ScriptControl1.Reset
        
        Expr = Me.Text1.Text
 
        Draw
 
End Sub
 
Sub Draw()
Dim n   As Long 'Integer
Dim x() As Double
Dim Y() As Double
 
    Me.Picture1.Cls
 
    n = Val(Me.Text4.Text)
 
    ReDim x(1 To n) As Double
    ReDim Y(1 To n) As Double
 
    xmin# = Val(Me.Text2.Text)
    xmax# = Val(Me.Text3.Text)
    
    dx# = (xmax - xmin) / n
    
    xx# = xmin
    
    For i& = 1 To n
        x(i&) = xx#
        Y(i&) = Func(xx#)
        xx# = xx# + dx#
    Next i&
 
    ymax# = Y(1)
    ymin# = Y(1)
 
    For i& = 1 To n
        If Y(i&) > ymax# Then ymax# = Y(i&)
        If Y(i&) < ymin# Then ymin# = Y(i&)
    Next i&
    
    Me.Picture1.Scale (xmin#, ymax#)-(xmax#, ymin#)
 
    Me.Picture1.PSet (x(1), Y(1)), QBColor(12)
 
    For i& = 1 To n
        Me.Picture1.Line -(x(i&), Y(i&)), QBColor(12)
    Next i&
 
    Me.Picture1.Line (xmin, 0)-(xmax, 0), QBColor(0)
    Me.Picture1.Line (0, ymin#)-(0, ymax#), QBColor(0)
 
End Sub
 
Function Func(x As Double) As Double
 
         Me.ScriptControl1.ExecuteStatement ("x=" & Replace$(CStr(x), ",", "."))
         
         Func = Me.ScriptControl1.Eval(Expr)
 
End Function
К проекту нужно подключить ScriptControl
5
Модератор
10048 / 3894 / 883
Регистрация: 22.02.2013
Сообщений: 5,847
Записей в блоге: 79
24.12.2014, 21:37
Правильней создать интерфейс с методом fYfun и для каждой функции создавать класс с реализацией этого интерфейса.
2
Супер-модератор
Эксперт функциональных языков программированияЭксперт Python
 Аватар для Catstail
38167 / 21102 / 4307
Регистрация: 12.02.2012
Сообщений: 34,690
Записей в блоге: 14
25.12.2014, 06:49
Цитата Сообщение от The trick Посмотреть сообщение
Правильней создать интерфейс с методом fYfun и для каждой функции создавать класс с реализацией этого интерфейса.
- если создавать компонент, то безусловно!
0
 Аватар для zink0000
258 / 107 / 26
Регистрация: 15.03.2012
Сообщений: 353
Записей в блоге: 35
25.12.2014, 13:30  [ТС]
Function Func(x As Double) As Double
Me.ScriptControl1.ExecuteStatement ("x=" & Replace$(CStr(x), ",", "."))
Func = Me.ScriptControl1.Eval(Expr)
End Function
К проекту нужно подключить ScriptControl

Catstail, спасибо, надо будет себе и такой вариант сделать.
Шоб було.

Добавлено через 11 минут
Catstail, не подскажите где можно скачать файл MSSCRIPT.HLP
0
Супер-модератор
Эксперт функциональных языков программированияЭксперт Python
 Аватар для Catstail
38167 / 21102 / 4307
Регистрация: 12.02.2012
Сообщений: 34,690
Записей в блоге: 14
25.12.2014, 13:41
Цитата Сообщение от zink0000 Посмотреть сообщение
Catstail, не подскажите где можно скачать файл MSSCRIPT.HLP
- вот:
Вложения
Тип файла: zip MSSCRIPT.ZIP (42.0 Кб, 39 просмотров)
1
 Аватар для zink0000
258 / 107 / 26
Регистрация: 15.03.2012
Сообщений: 353
Записей в блоге: 35
25.12.2014, 14:17  [ТС]

Catstail, спасибо огромное ещё раз.
0
 Аватар для zink0000
258 / 107 / 26
Регистрация: 15.03.2012
Сообщений: 353
Записей в блоге: 35
29.12.2014, 10:12  [ТС]
Catstail, сделал вариант с использованием Microsoft Script Control 1.0
Graph01A.zip


Для чего нужны X0 и Y0 показано на примере:









То-есть оси можно передвигать.



Вроде бы всё.
6
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
29.12.2014, 10:12
Помогаю со студенческими работами здесь

Построение графика функции
Составить программу построения графика функции :y = -x2/2 + 7 Пределы построения: -20&lt;x&lt;20

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

Построение графика по заданной функции
помогите пожалуйста доделать программу =) Надо, чтобы по функции строился график. y = (1 - Sin(x)) / (ln(x) + 2) x&gt;2 ln(x) не...

Построение графика заданной функции
Доброго времени суток всем присутствующим ! имеется код программы для отображения графика некоторой функции подскажите пожалуйста что...

Построение графика функции / вывод значений x, y
приветствую ребята, тут такая проблема, написал программку, но при запуске выдает &quot;Type mismatch&quot; вот код ком. кнопки ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Новые блоги и статьи
Восстановить юзерскрипты Greasemonkey из бэкапа браузера
damix 15.01.2026
Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Изучаю kubernetes
lagorue 13.01.2026
А пригодятся-ли мне знания kubernetes в России?
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3
anaschu 06.01.2026
aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR
ФедосеевПавел 06.01.2026
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru