Vb.net lineshape yardımı

[omerrica]

Dim x(), y(), n As Integer
n = 3
ReDim x(n - 1)
ReDim y(n - 1)
Dim mylines() As LineShape
ReDim mylines(n - 1)

For i = 0 To n - 1

x(i) = InputBox("x" & i & "apsisini giriniz")
y(i) = InputBox("y" & i & "ordinatını giriniz")
mylines(i) = New LineShape(x(i), y(i), x(i + 1), y(i + 1))

Next

Bu konuda neredeyse hiç bilgim yok. Amacım şu ki; bir üçgenin (daha sonra bu bir poligonun olacak) köşe noktalarının koordinatlarını input ile vererek çizdirmek istiyorum. Daha sonra bunu cross metodunu kullanarak alan hesaplaması da yaptırararak geliştireceğim. Bu konuda yardımlarınızı bekliyorum. Amacım bu programı yapmak değil. Benim amacım mesleğimle ilgili aklıma gelen şeyleri vb.nette uygulayarak programcılığımı geliştirmektir.

- - - Mesaj Güncellendi - - -

Sanırım bu şekilde çözdüm.

Dim canvas As New Microsoft.VisualBasic.PowerPacks.ShapeContainer
canvas.Parent = Me
Dim x(), y(), n As Integer
n = 3
ReDim x(n - 1)
ReDim y(n - 1)
Dim mylines() As LineShape


ReDim mylines(n - 1)




For i = 0 To n - 1


x(i) = InputBox("x" & i & "apsisini giriniz")
y(i) = InputBox("y" & i & "ordinatını giriniz")


If i >= 1 Then
If i = n - 1 Then
mylines(i) = New LineShape(x(i), y(i), x(0), y(0))
End If
mylines(i) = New LineShape(x(i - 1), y(i - 1), x(i), y(i))
mylines(i).Parent = canvas
End If
Next

- - - Mesaj Güncellendi - - -

Olmamış, kapatmıyormuş poligonu

 

[omerrica]

Dim canvas As New ShapeContainer
canvas.Parent = Me
Dim x(), y(), n As Integer
n = 3
ReDim x(n - 1)
ReDim y(n - 1)


ReDim mylines(n - 1)


x(0) = InputBox("x0 apsisini giriniz")
y(0) = InputBox("y0 ordinatını giriniz")
For i = 1 To n - 1
x(i) = InputBox("x" & i + 1 & " apsisini giriniz")
y(i) = InputBox("y" & i + 1 & " ordinatını giriniz")


mylines(i - 1) = New LineShape(x(i - 1), y(i - 1), x(i), y(i))
mylines(i - 1).Parent = canvas
Next


mylines(n - 1) = New LineShape(x(n - 1), y(n - 1), x(0), y(0))
mylines(n - 1).Parent = canvas

bu şekilde çözdüm, teşekkürler.

 

[newpronik]

Dim canvas As New ShapeContainer
canvas.Parent = Me
Dim x(), y(), n As Integer
n = 3
ReDim x(n - 1)
ReDim y(n - 1)


ReDim mylines(n - 1)


x(0) = InputBox("x0 apsisini giriniz")
y(0) = InputBox("y0 ordinatını giriniz")
For i = 1 To n - 1
x(i) = InputBox("x" & i + 1 & " apsisini giriniz")
y(i) = InputBox("y" & i + 1 & " ordinatını giriniz")


mylines(i - 1) = New LineShape(x(i - 1), y(i - 1), x(i), y(i))
mylines(i - 1).Parent = canvas
Next


mylines(n - 1) = New LineShape(x(n - 1), y(n - 1), x(0), y(0))
mylines(n - 1).Parent = canvas

bu şekilde çözdüm, teşekkürler.

formda aynısı var araştırma yapın arkadaşlar