|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
30.03.2012, 09:02 | #1 |
Регистрация: 01.03.2012
Сообщений: 6
|
Не получается построить график на vb.net
вот код:
Public Class Form1 Dim graph As Graphics Dim pen As New Pen(Color.Black, 2) Dim drawbrush As New SolidBrush(Color.Red) Dim font1 As New Font("Times New Roman", 10) Dim array(10) As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x As Single Dim y As Single Dim b As Single graph = Me.PictureBox1.CreateGraphics() 'graph.Clear(Color.White) For i = 0 To 9 array(i) = Rnd() Next For x = 0 To 500 Step 100 graph.DrawString(x / 100, font1, drawbrush, x, 500) Next For y = 0 To 500 Step 100 graph.DrawString(y / 100, font1, drawbrush, 0, 500 - y) Next graph.DrawLine(Pens.Black, 0, 500, 500, 500) graph.DrawLine(Pens.Black, 0, 0, 0, 500) For x = 0 To 500 Step 100 graph.DrawLine(Pens.Red, x, 495, x, 505) Next For y = 0 To 500 Step 100 graph.DrawLine(Pens.Red, -5, y, 5, y) Next For x = 0 To 500 Step 100 y = Math.Sin(x) graph.DrawLine(Pens.Green, x * 100, y * 100, 1, 1) Next End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Application.Exit() End Sub End Class |
02.04.2012, 10:33 | #2 |
Форумчанин
Регистрация: 25.04.2010
Сообщений: 616
|
Может, как-то так (ну, что-то похожее на график )
Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
как построить график | Nijaz | Общие вопросы Delphi | 5 | 09.06.2014 11:25 |
Как построить 3D график в VB.NET (тороид) | pritula | WPF, UWP, WinRT, XAML | 1 | 26.02.2012 23:59 |
построить график | salmon172 | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 25.05.2011 22:19 |
построить график. с++ | Yokka | C++ Builder | 1 | 13.05.2010 18:23 |
Построить график!! | Inferno777 | Помощь студентам | 10 | 30.06.2009 17:46 |