C# と VB.NET の質問掲示板

■No103814 (shiro さん) に返信
> ■No103812 (魔界の仮面弁士 さん) に返信
>>■No103811 (shiro さん) に返信

魔界の仮面弁士　様

柱座標をcsvファイルに出力できました。
次のとおり、Indexや座標を正しく格納できました。

Type	Index	X	Y
C	1	280	40
C	2	280	120
C	3	360	120
C	4	360	40

柱が上手く行ったので、今度は壁に挑戦してみました。
pointListからwallListに変えました。

Wallクラスでは剛性を2.5の壁で一応固定しています。
エラーが出るので間違っていると思います。

csvファイルへの出力は、壁の始点(X,Y)、終点(X,Y)、剛性と出力したいです。

Type	Index	X1	Y1	X2	Y2    Stiff
W	1	280	40　　　360	40　　2.5
W	2	280	120　　 360	120　 2.5


　　　　　　　　記

    Private wallList As New List(Of Wall)

    Private isPlacing As Boolean = False


    Private Sub PictureBox1_MouseDown(
          ByVal sender As System.Object,
          ByVal e As System.Windows.Forms.MouseEventArgs) _
          Handles PictureBox1.MouseDown


          '耐力壁

            Case "wall"

                startPoint As New Wall(SnapToGrid(e.Location))

                isPlacing = True


    Private Sub PictureBox1_MouseMove(
          ByVal sender As Object,
          ByVal e As System.Windows.Forms.MouseEventArgs) _
          Handles PictureBox1.MouseMove


            Case "wall"

                If isPlacing Then

                    endPoint As New Wall(SnapToGrid(e.Location))

                    PictureBox1.Invalidate()
                End If


    Private Sub PictureBox1_MouseUp(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseUp

        isPlacing = False 

        wallList.Add(startPoint)
        wallList.Add(endPoint)

        PictureBox1.Invalidate()
    End Sub


    Private Sub PictureBox1_Paint(sender As Object, e As PaintEventArgs) Handles PictureBox1.Paint

        For n = 0 To wallList.Count - 1 Step 2
            e.Graphics.DrawLine(pen7, wallList(n + 0), wallList(n + 1))
        Next

        If isPlacing Then
            e.Graphics.DrawLine(Pens.Blue, startPoint, endPoint)
        End If


    Public Sub ExportToCSV(pillarList As List(Of Pillar), wallList As List(Of Wall))

        Dim filePath As String = "export.csv"
        Using writer As New StreamWriter(filePath)

            writer.WriteLine("Type,Index,X,Y,Stiff")

            ' 柱データを書き込み
            For Each pillar In pillarList
                writer.WriteLine($"C,{pillar.Index},{pillar.X},{pillar.Y}")
            Next

            ' 壁データを書き込み
            For Each wall In wallList
                writer.WriteLine($"W,{wall.Index},{wall.X},{wall.Y},{wall.Stiffness}")
            Next
        End Using

    End Sub


Public Class Wall
    Private Shared LastIndex As Integer = 0
    Public ReadOnly Property Index As Integer
    Public Property X As Integer
    Public Property Y As Integer
    Public Property Stiffness As Double

    Public Sub New(location As Point)
        LastIndex += 1
        Me.Index = LastIndex
        Me.X = location.X
        Me.Y = location.Y

        Me.Stiffness = 2.5

    End Sub
End Class