how to plot graph

[slowgirl]

i'm using vb to plot graph. i've already drawn the graphsheet using drawlines. and include labels. all i arrange according to pixels. the problem i face now is that i need to plot certain symbols like 'x', 'o' , '>' etc. on the graph. not by drawing but automatically when it get's the value from a label. how do i do that? i think i have to use array. but i cant get through what i want to do. help pls.

[Killer42]

i'm using vb to plot graph. i've already drawn the graphsheet using drawlines. and include labels. all i arrange according to pixels. the problem i face now is that i need to plot certain symbols like 'x', 'o' , '>' etc. on the graph. not by drawing but automatically when it get's the value from a label. how do i do that? i think i have to use array. but i cant get through what i want to do. help pls.

Not sure exactly what part of this is the problem. (Also, what version of VB are you using?)

In VB6 at least, I believe you can simply use the .Print method to print letters/symbols directly on the form or picturebox, or place transparent labels at the appropriate points so that their caption appears to be on the form/picturebox.

[slowgirl]

Not sure exactly what part of this is the problem. (Also, what version of VB are you using?)

In VB6 at least, I believe you can simply use the .Print method to print letters/symbols directly on the form or picturebox, or place transparent labels at the appropriate points so that their caption appears to be on the form/picturebox.

I'm using vb 2005 express edition. my problem here is that I have drawn the graphsheet using drawlines. I've simply added labels and arrange them according to the pixels corresponding to the lines i've drawn. Now, I need to plot the graph with symbols which I have created, also by drawing. But my program should work in such a way that I can automatically plot that certain symbol when it gets the value from a label from another form from the same project.

[Killer42]

I'm using vb 2005 express edition. my problem here is that I have drawn the graphsheet using drawlines. I've simply added labels and arrange them according to the pixels corresponding to the lines i've drawn. Now, I need to plot the graph with symbols which I have created, also by drawing. But my program should work in such a way that I can automatically plot that certain symbol when it gets the value from a label from another form from the same project.

Sorry, I still don't understand the problem. Why can't you just .Print the symbols onto the "graphsheet"? It would help if you could describe your setup. What exactly is the graphsheet? A picturebox? (I use VB6, so I may be just missing something that's obvious in VB 2005.)

[slowgirl]

Sorry, I still don't understand the problem. Why can't you just .Print the symbols onto the "graphsheet"? It would help if you could describe your setup. What exactly is the graphsheet? A picturebox? (I use VB6, so I may be just missing something that's obvious in VB 2005.)

it's a paint event. here are my codes. even the symbols i'm drawing. How exactly do I use the .print method?

Public Class UmmAudiogram
 
    Private Sub UmmAudiogram_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim blackPen As Pen = New Pen(Color.Black, 1.5)
        Dim point1 As Point = New Point(80, 50)
        Dim point2 As Point = New Point(480, 50)
        Me.CreateGraphics.DrawLine(blackPen, point1, point2)
 
        Dim point3 As Point = New Point(80, 70)
        Dim point4 As Point = New Point(480, 70)
        Me.CreateGraphics.DrawLine(blackPen, point3, point4)
 
        Dim point5 As Point = New Point(80, 90)
        Dim point6 As Point = New Point(480, 90)
        Me.CreateGraphics.DrawLine(blackPen, point5, point6)
 
        Dim point7 As Point = New Point(80, 110)
        Dim point8 As Point = New Point(480, 110)
        Me.CreateGraphics.DrawLine(blackPen, point7, point8)
 
        Dim point9 As Point = New Point(80, 130)
        Dim point10 As Point = New Point(480, 130)
        Me.CreateGraphics.DrawLine(blackPen, point9, point10)
 
        Dim point11 As Point = New Point(80, 150)
        Dim point12 As Point = New Point(480, 150)
        Me.CreateGraphics.DrawLine(blackPen, point11, point12)
 
        Dim point13 As Point = New Point(80, 170)
        Dim point14 As Point = New Point(480, 170)
        Me.CreateGraphics.DrawLine(blackPen, point13, point14)
 
        Dim point15 As Point = New Point(80, 190)
        Dim point16 As Point = New Point(480, 190)
        Me.CreateGraphics.DrawLine(blackPen, point15, point16)
 
        Dim point17 As Point = New Point(80, 210)
        Dim point18 As Point = New Point(480, 210)
        Me.CreateGraphics.DrawLine(blackPen, point17, point18)
 
        Dim point19 As Point = New Point(80, 230)
        Dim point20 As Point = New Point(480, 230)
        Me.CreateGraphics.DrawLine(blackPen, point19, point20)
 
        Dim point21 As Point = New Point(80, 250)
        Dim point22 As Point = New Point(480, 250)
        Me.CreateGraphics.DrawLine(blackPen, point21, point22)
 
        Dim point23 As Point = New Point(80, 270)
        Dim point24 As Point = New Point(480, 270)
        Me.CreateGraphics.DrawLine(blackPen, point23, point24)
 
        Dim point25 As Point = New Point(80, 290)
        Dim point26 As Point = New Point(480, 290)
        Me.CreateGraphics.DrawLine(blackPen, point25, point26)
 
        Dim point27 As Point = New Point(80, 310)
        Dim point28 As Point = New Point(480, 310)
        Me.CreateGraphics.DrawLine(blackPen, point27, point28)
 
        Dim pointA As Point = New Point(80, 50)
        Dim pointB As Point = New Point(80, 310)
        Me.CreateGraphics.DrawLine(blackPen, pointA, pointB)
 
        Dim pointC As Point = New Point(100, 50)
        Dim pointD As Point = New Point(100, 310)
        Me.CreateGraphics.DrawLine(blackPen, pointC, pointD)
 
        Dim pointE As Point = New Point(120, 50)
        Dim pointF As Point = New Point(120, 310)
        Me.CreateGraphics.DrawLine(blackPen, pointE, pointF)
 
        Dim pointG As Point = New Point(140, 50)
        Dim pointH As Point = New Point(140, 310)
        Me.CreateGraphics.DrawLine(blackPen, pointG, pointH)
 
        Dim pointI As Point = New Point(160, 50)
        Dim pointJ As Point = New Point(160, 310)
        Me.CreateGraphics.DrawLine(blackPen, pointI, pointJ)
 
        Dim pointK As Point = New Point(180, 50)
        Dim pointL As Point = New Point(180, 310)
        Me.CreateGraphics.DrawLine(blackPen, pointK, pointL)
 
        Dim pointM As Point = New Point(200, 50)
        Dim pointN As Point = New Point(200, 310)
        Me.CreateGraphics.DrawLine(blackPen, pointM, pointN)
 
        Dim pointO As Point = New Point(220, 50)
        Dim pointP As Point = New Point(220, 310)
        Me.CreateGraphics.DrawLine(blackPen, pointO, pointP)
 
        Dim pointQ As Point = New Point(240, 50)
        Dim pointR As Point = New Point(240, 310)
        Me.CreateGraphics.DrawLine(blackPen, pointQ, pointR)
 
        Dim pointS As Point = New Point(260, 50)
        Dim pointT As Point = New Point(260, 310)
        Me.CreateGraphics.DrawLine(blackPen, pointS, pointT)
 
        Dim pointU As Point = New Point(280, 50)
        Dim pointV As Point = New Point(280, 310)
        Me.CreateGraphics.DrawLine(blackPen, pointU, pointV)
 
        Dim pointW As Point = New Point(300, 50)
        Dim pointX As Point = New Point(300, 310)
        Me.CreateGraphics.DrawLine(blackPen, pointW, pointX)
 
        Dim pointY As Point = New Point(320, 50)
        Dim pointZ As Point = New Point(320, 310)
        Me.CreateGraphics.DrawLine(blackPen, pointY, pointZ)
 
        Dim pointAa As Point = New Point(340, 50)
        Dim pointAb As Point = New Point(340, 310)
        Me.CreateGraphics.DrawLine(blackPen, pointAa, pointAb)
 
        Dim pointAc As Point = New Point(360, 50)
        Dim pointAd As Point = New Point(360, 310)
        Me.CreateGraphics.DrawLine(blackPen, pointAc, pointAd)
 
        Dim pointAe As Point = New Point(380, 50)
        Dim pointAf As Point = New Point(380, 310)
        Me.CreateGraphics.DrawLine(blackPen, pointAe, pointAf)
 
        Dim pointAg As Point = New Point(400, 50)
        Dim pointAh As Point = New Point(400, 310)
        Me.CreateGraphics.DrawLine(blackPen, pointAg, pointAh)
 
        Dim pointAi As Point = New Point(420, 50)
        Dim pointAj As Point = New Point(420, 310)
        Me.CreateGraphics.DrawLine(blackPen, pointAi, pointAj)
 
        Dim pointAk As Point = New Point(440, 50)
        Dim pointAl As Point = New Point(440, 310)
        Me.CreateGraphics.DrawLine(blackPen, pointAk, pointAl)
 
        Dim pointAm As Point = New Point(460, 50)
        Dim pointAn As Point = New Point(460, 310)
        Me.CreateGraphics.DrawLine(blackPen, pointAm, pointAn)
 
        Dim pointAo As Point = New Point(480, 50)
        Dim pointAp As Point = New Point(480, 310)
        Me.CreateGraphics.DrawLine(blackPen, pointAo, pointAp)
        Dim G As Graphics = e.Graphics
        Dim pen1 As New Pen(Color.Red, 2)
        Dim pen2 As New Pen(Color.DarkBlue, 2)
 
 
        Dim x As Integer
        Dim y As Integer
        Dim thresholdeLabel As Integer = 0
        Dim freqqLabel As Integer = 0
        Dim pt As Integer(,) = New Integer(x, y) {}
        pt(200, 50) = freqqLabel
        pt(200, 70) = freqqLabel
        pt(200, 110) = freqqLabel
 
        For thresholdeLabel = 20 To pt(200, 110).ToString
 
        Next
 
        G.DrawLine(pen1, (x - 5), (y - 5), (x + 5), (y + 5)) 'drawing 'x'
        G.DrawLine(pen1, (x + 5), (y - 5), (x - 5), (y + 5))
 
 
        G.DrawLine(pen1, 115, 105, 125, 115) 'drawing 'x'
        G.DrawLine(pen1, 125, 105, 115, 115)
 
        G.DrawLine(pen1, 195, 65, 205, 75)
        G.DrawLine(pen1, 205, 65, 195, 75)
 
        G.DrawLine(pen1, 190, 130, 200, 125)
        G.DrawLine(pen1, 190, 130, 200, 135) 'drawing '<'
 
        'draw '>'
        G.DrawLine(pen2, 130, 110, 120, 115)
        G.DrawLine(pen2, 130, 110, 120, 105)
 
        'drawing 'o'
        Dim p1 As New Point(140, 86)
        Dim p2 As New Point(144, 90)
        Dim p3 As New Point(140, 94)
        Dim p4 As New Point(136, 90)
        Dim curvePoints As Point() = {p1, p2, p3, p4}
        e.Graphics.DrawClosedCurve(pen2, curvePoints)
 
 
    End Sub
End Class

[Killer42]

it's a paint event. here are my codes. even the symbols i'm drawing. How exactly do I use the .print method?

Sorry, I can't answer that. I'm only a VB6 user, and from your code I can see that this stuff works somewhat differently in VB2005. In VB6 you would simply use the .Print method of the form or picturebox control, like Picture1.Print "ABC". In VB20005, I have no idea. Try checking out your doco, see whether there's an equivalent.

[slowgirl]

Sorry, I can't answer that. I'm only a VB6 user, and from your code I can see that this stuff works somewhat differently in VB2005. In VB6 you would simply use the .Print method of the form or picturebox control, like Picture1.Print "ABC". In VB20005, I have no idea. Try checking out your doco, see whether there's an equivalent.

alright. thanks alot killer42. appreciate it ('',)

[Killer42]

alright. thanks alot killer42. appreciate it ('',)

No problem.

Um... it might not hurt to drop a message in the .Net forum, too - perhaps you'll find more VB.Net experience over there.

[Ishascp]

Hello
Can you help me in real timeplotting. I don't know how it could be possible.

[Killer42]

Hello
Can you help me in real timeplotting. I don't know how it could be possible.

I don't know what you mean. What is timeplotting?

[Ishascp]

I don't know what you mean. What is timeplotting?

Real time plotting means as the values are generated by the code using mathematical fomulae they are plotted.but how it could be possible?
ok you just tell me the commands of simple plotting of data. can u help me in this regard?

[hariharanmca]

No problem.

Um... it might not hurt to drop a message in the .Net forum, too - perhaps you'll find more VB.Net experience over there.

Killer42, I think we have to Move this thread to .NET forum!

Because, .NET version of VB and VB 2005 version coding style are more-or-less same.

[Thaer Kassar]

Real time plotting means as the values are generated by the code using mathematical fomulae they are plotted.but how it could be possible?
ok you just tell me the commands of simple plotting of data. can u help me in this regard?

Hi,
I think that you should declare points array:
Dim arr() as pointf
then you should fill its fields from your code.
redim arr(n)
' n is number of points
for i=1 to n
' values are generated by the code using mathematical fomulae
arr(i-1).x= what you want
arr(i-1).y= what you want
End for

Then you should plot this array by graphics object and pen like:
graphics_object.drawcurve(pen,points array)