Member Avatar for Duki

Hey everyone,

I have a program that computes the distance between two elevations at a given point. I need to plot these lines to a picture. I'm having problems getting the lines to start in the correct spot. Here's the code I'm using:

Dim Gr As Graphics = PictureBox1.CreateGraphics()
        Dim skyBluePen As New Pen(Brushes.DeepSkyBlue)
        Gr.DrawLine(skyBluePen, 2, 1759, 103, 1768)

2 and 103 is the starting and ending distance (x1 and x2)
the 1700 values are y1 and y2.

I can't figure out a way to modify the given values to make sure they show up correctly on the picture box.

  • 3 Contributors
  • 3 Replies
  • 264 Views
  • 1 Day Discussion Span
  • Latest Post Latest Post by Duki
Member Avatar for waynespangler

Your problem is your numbers are pixels and you need to set them to the right scale.
If each pixel is one foot then you are starting at pixel 2 and 1759 and going to pixel 103 and 1768. Depending on the size of your canvas these could be off the view. If you are working on topo you should have an idea on scaleing...1 pixel = 10 feet, etc.

Member Avatar for selvaganapathy

Hi, Wayne is right. You consider about the Units.

Also specify the Location of the two Elevation Peek Points.

Member Avatar for Duki

Ok thanks. I can't get it to proportion correctly now.

Here's what I have

Dim Gr As Graphics = PictureBox1.CreateGraphics()
        Dim skyBluePen As New Pen(Brushes.DeepSkyBlue)
        Gr.DrawLine(skyBluePen, (2 * 5), Convert.ToInt16(1759 * 0.067), (103 * 5), Convert.ToInt16(1768 * 0.067 - 20))

I had to do -20 because the elevation ended up being about a pixel difference. Are there better solutions to this?

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.