Построение графика по исходным данным

@Goodlord · Регистрация: 14.06.2012

Author24 — интернет-сервис помощи студентам

Зделал интерфейс из 3х закладок. На первом вводятся исходные данные (координаты по осям), на втором выберается x-y или y-x, а на третьем выводится сам график. При нажатии кнопки старт должен построиться график.
С чего начать, и как начать писать программу? В каждом элементе записывать код? Есть где то гайд по похожим заданиям?

Добавлено через 46 минут
Вроди код самого графика нашел. А вот как от нажатия кнопки связать вводимые данные с графиком.

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Chart2.Series.Clear()
        Chart2.Titles.Add("Graphs")
        'Create a new series and add data points to it.
        Dim s As New Series
        s.Name = "Line"
        s.ChartType = SeriesChartType.Line
        s.Points.AddXY(TextBox1, TextBox8)
        s.Points.AddXY(TextBox2, TextBox9)
        s.Points.AddXY(TextBox3, TextBox10)
        s.Points.AddXY(TextBox4, TextBox11)
        s.Points.AddXY(TextBox5, TextBox12)
        s.Points.AddXY(TextBox6, TextBox13)
        s.Points.AddXY(TextBox7, TextBox14)
        Chart2.Series.Add(s)
    End Sub

@Valery__ · 05.07.2012, 11:25

Создайте массив с точками

VB.NET
1
        Dim points1() As Point = {New Point(100, 100), New Point(150, 100), New Point(80, 170)}

и по событию

VB.NET
1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

строим график

VB.NET
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
        Dim bmp As New Bitmap(PictureBox2.Width, PictureBox2.Height, Imaging.PixelFormat.Format32bppPArgb)
        Dim g As Graphics = Graphics.FromImage(bmp)
        '----------------------------
        'определяем масштаб для X=размер поля по Х делим на max Х координату
        Dim mashtabX As Integer = Math.Floor((PictureBox2.Width - 20) / 180)
        'определяем масштаб для Y=размер поля по Y делим на max Y координату
        Dim mashtabY As Integer = Math.Floor((PictureBox2.Height - 20) / 12.83)
        'текущие координаты начала и конца отрезка
        Dim X1, Y1, X2, Y2 As Single
        '----------------------------
        g.Clear(Color.White)
 
        'заполняем массив точек
        For i As Integer = 1 To 10
            points1(i) = New Point(Math.Floor(arrGraf1(i, 1) * ((PictureBox2.Width - 20) / 180)), Math.Floor(arrGraf1(i, 2) * ((PictureBox2.Height - 20) / 12.83)))
        Next
        'Dim points1() As Point = {New Point(100, 100), New Point(150, 100), New Point(80, 170)}
        'Dim points2() As Point = {New Point(80, 80), New Point(170, 80), New Point(170, 150), New Point(80, 150)}
        'строим график
        For i As Integer = 1 To 9
            X1 = CSng(arrGraf1(i, 1) * mashtabX)
            Y1 = CSng(PictureBox2.Height - arrGraf1(i, 2) * mashtabY)
            X2 = CSng(arrGraf1(i + 1, 1) * mashtabX)
            Y2 = CSng(PictureBox2.Height - arrGraf1(i + 1, 2) * mashtabY)
            'g.DrawEllipse(Pens.Red, CSng(arrGraf1(i, 1) * mashtabX), CSng(arrGraf1(i, 2) * mashtabY), 3, 3)
            g.DrawLine(New Pen(Color.Black, 5), X1, Y1, X2, Y2)
        Next
        'освобождаем g
        g.Dispose()
        PictureBox2.Image = bmp

@Goodlord · 05.07.2012, 17:47 **[ТС]**

Видать куча ошибок, может кто посмотрит где они могут быть?
График не ресует, но и ошибки не показывает.

VB.NET
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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
Public Class Form1
 
    Public Sub DrawLineChart(ByVal Points() As Integer, ByVal surface As Graphics,
                             ByVal location As Point, ByVal size As Size)
 
    End Sub
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If Not IsNumeric(TextBox1.Text) Then
            MessageBox.Show("Vvesti cisla", "osibka", MessageBoxButtons.OK, MessageBoxIcon.Error)
            TextBox1.Clear()
            TextBox1.Focus()
            Exit Sub
        End If
        Dim X As Single
        X = Convert.ToSingle(TextBox1.Text)
        If Not IsNumeric(TextBox2.Text) Then
            MessageBox.Show("Vvesti cisla", "osibka", MessageBoxButtons.OK, MessageBoxIcon.Error)
            TextBox1.Clear()
            TextBox1.Focus()
            Exit Sub
        End If
        Dim Y As Single
        Y = Convert.ToSingle(TextBox2.Text)
        If Not IsNumeric(TextBox3.Text) Then
            MessageBox.Show("Vvesti cisla", "osibka", MessageBoxButtons.OK, MessageBoxIcon.Error)
            TextBox1.Clear()
            TextBox1.Focus()
            Exit Sub
        End If
        Dim Q As Single
        Q = Convert.ToSingle(TextBox3.Text)
        If Not IsNumeric(TextBox4.Text) Then
            MessageBox.Show("Vvesti cisla", "osibka", MessageBoxButtons.OK, MessageBoxIcon.Error)
            TextBox1.Clear()
            TextBox1.Focus()
            Exit Sub
        End If
        Dim W As Single
        W = Convert.ToSingle(TextBox4.Text)
        If Not IsNumeric(TextBox5.Text) Then
            MessageBox.Show("Vvesti cisla", "osibka", MessageBoxButtons.OK, MessageBoxIcon.Error)
            TextBox1.Clear()
            TextBox1.Focus()
            Exit Sub
        End If
        Dim D As Single
        D = Convert.ToSingle(TextBox5.Text)
        If Not IsNumeric(TextBox6.Text) Then
            MessageBox.Show("Vvesti cisla", "osibka", MessageBoxButtons.OK, MessageBoxIcon.Error)
            TextBox1.Clear()
            TextBox1.Focus()
            Exit Sub
        End If
        Dim R As Single
        R = Convert.ToSingle(TextBox6.Text)
        If Not IsNumeric(TextBox7.Text) Then
            MessageBox.Show("Vvesti cisla", "osibka", MessageBoxButtons.OK, MessageBoxIcon.Error)
            TextBox1.Clear()
            TextBox1.Focus()
            Exit Sub
        End If
        Dim T As Single
        T = Convert.ToSingle(TextBox7.Text)
        If Not IsNumeric(TextBox8.Text) Then
            MessageBox.Show("Vvesti cisla", "osibka", MessageBoxButtons.OK, MessageBoxIcon.Error)
            TextBox1.Clear()
            TextBox1.Focus()
            Exit Sub
        End If
        Dim F As Single
        F = Convert.ToSingle(TextBox8.Text)
        If Not IsNumeric(TextBox9.Text) Then
            MessageBox.Show("Vvesti cisla", "osibka", MessageBoxButtons.OK, MessageBoxIcon.Error)
            TextBox1.Clear()
            TextBox1.Focus()
            Exit Sub
        End If
        Dim U As Single
        U = Convert.ToSingle(TextBox9.Text)
        If Not IsNumeric(TextBox10.Text) Then
            MessageBox.Show("Vvesti cisla", "osibka", MessageBoxButtons.OK, MessageBoxIcon.Error)
            TextBox1.Clear()
            TextBox1.Focus()
            Exit Sub
        End If
        Dim I As Single
        I = Convert.ToSingle(TextBox10.Text)
        If Not IsNumeric(TextBox11.Text) Then
            MessageBox.Show("Vvesti cisla", "osibka", MessageBoxButtons.OK, MessageBoxIcon.Error)
            TextBox1.Clear()
            TextBox1.Focus()
            Exit Sub
        End If
        Dim O As Single
        O = Convert.ToSingle(TextBox11.Text)
        If Not IsNumeric(TextBox12.Text) Then
            MessageBox.Show("Vvesti cisla", "osibka", MessageBoxButtons.OK, MessageBoxIcon.Error)
            TextBox1.Clear()
            TextBox1.Focus()
            Exit Sub
        End If
        Dim P As Single
        P = Convert.ToSingle(TextBox12.Text)
        If Not IsNumeric(TextBox13.Text) Then
            MessageBox.Show("Vvesti cisla", "osibka", MessageBoxButtons.OK, MessageBoxIcon.Error)
            TextBox1.Clear()
            TextBox1.Focus()
            Exit Sub
        End If
        Dim A As Single
        A = Convert.ToSingle(TextBox13.Text)
        If Not IsNumeric(TextBox14.Text) Then
            MessageBox.Show("Vvesti cisla", "osibka", MessageBoxButtons.OK, MessageBoxIcon.Error)
            TextBox1.Clear()
            TextBox1.Focus()
            Exit Sub
        End If
        Dim G As Single
        G = Convert.ToSingle(TextBox14.Text)
        Dim points() As Integer = {TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text,
                                   TextBox6.Text, TextBox7.Text, TextBox8.Text, TextBox9.Text, TextBox10.Text,
                                   TextBox11.Text, TextBox12.Text, TextBox13.Text, TextBox14.Text}
        Dim graphics As Graphics = Me.CreateGraphics
        DrawLineChart(points, graphics, Location, Size)
    End Sub
End Class

Добавлено через 54 минуты
Все спасибо, сам нашел

Новые блоги и статьи Все статьи Все блоги /
Статические свойства и методы в TypeScript run.dev 20.04.2025 TypeScript прочно занял своё место в системе современной веб-разработки. Этот строго типизированный язык программирования не просто расширяет возможности JavaScript — он делает разработку более. . .	Batch Transform и Batch Gizmo Drawing API в Unity GameUnited 20.04.2025 В мире разработки игр и приложений на Unity производительность всегда была критическим фактором успеха. Создатели игр постоянно балансируют между визуальной привлекательностью и плавностью работы. . .	Звук в Unity: Рандомизация с Audio Random Container GameUnited 20.04.2025 В современных играх звуковое оформление часто становится элементом, который либо полностью погружает игрока в виртуальный мир, либо разрушает атмосферу за считанные минуты. Представьте: вы исследуете. . .	Максимальная производительность C#: Советы, тестирование и заключение stackOverflow 20.04.2025 Погружение в мир микрооптимизаций C# открывает перед разработчиком целый арсенал мощных техник. Но как определить, где и когда их применять? Ответ начинается с точных измерений и профилирования. . . .	Максимальная производительность C#: Предсказание ветвлений stackOverflow 20.04.2025 Третий ключевой аспект низкоуровневой оптимизации — предсказание ветвлений. Эта тема менее известна среди разработчиков, но её влияние на производительность может быть колоссальным. Чтобы понять. . .
Максимальная производительность C#: Векторизация (SIMD) stackOverflow 20.04.2025 Помимо работы с кэшем, другим ключевым аспектом низкоуровневой оптимизации является векторизация вычислений. SIMD (Single Instruction, Multiple Data) позволяет обрабатывать несколько элементов данных. . .	Максимальная производительность C#: Процессорный кэш stackOverflow 20.04.2025 Знакомство с внутренним устройством процессорного кэша — ключевой шаг в написании по-настоящему быстрого кода на C#. Этот слой архитектуры компьютера часто ускользает от внимания разработчиков, но. . .	Максимальная производительность C#: Введение в микрооптимизации stackOverflow 20.04.2025 В мире разработки на C# многие привыкли полагаться на . NET Runtime, который "магическим образом" сам оптимизирует код. И часто это работает - современные JIT-компиляторы творят чудеса. Но когда речь. . .	MVC фреймворк в PHP Jason-Webb 19.04.2025 Архитектурный паттерн Model-View-Controller (MVC) – это не просто модный термин из мира веб-разработки. Для PHP-программистов это фундаментальный подход к организации кода, который радикально меняет. . .	Dictionary Comprehensions в Python py-thonny 19.04.2025 Python славится своей выразительностью и лаконичностью, что позволяет писать чистый и понятный код. Среди множества синтаксических конструкций языка особое место занимают словарные включения. . .

Опции темы