PDA

View Full Version : سوال: رسم نمودار مثلثاتی با vb.net



arad13700
یک شنبه 08 بهمن 1391, 11:13 صبح
سلام دوستان من می خوام یه نمودار سینوسی رسم کنم اما نمی شه لطفاً اگه کسی می دونه کمکم کنه ممنون

the king
یک شنبه 08 بهمن 1391, 15:54 عصر
سلام دوستان من می خوام یه نمودار سینوسی رسم کنم اما نمی شه لطفاً اگه کسی می دونه کمکم کنه ممنون

داخل کلاس فرم تون :

Protected Overrides Sub OnResize(ByVal e As System.EventArgs)
MyBase.OnResize(e)
Me.Invalidate()
End Sub

Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
Dim y As Integer, prevY As Integer
Dim h As Integer = Me.ClientSize.Height / 2 - 10
e.Graphics.Clear(Color.White)
For x As Integer = 0 To Me.ClientSize.Width
y = Math.Sin(Math.PI * x * 2 / Me.Width) * h + Me.ClientSize.Height / 2
If x > 0 Then
e.Graphics.DrawLine(Pens.Blue, x, y, x - 1, prevY)
End If
prevY = y
Next
End Sub