VB.net ＜配列＞最小値の取得と要素の取得

Question

＜配列＞最小値の取得と要素の取得

いつもお世話になっております。
現在、vb.netで配列について学んでおり、読み込んだcsvファイルの最小値を取得したいと考えております。
csvファイルにはX座標，Y座標，Z座標が入っており、それぞれの最小値を取得したいです。
最小値を求めるのにmin=PD.MIN()を使用するかと思ったのですが、
自分では解決せず、検索しても良いサンプルが見つからなかったため、こちらで質問させて頂きます。

また、PD().Xpointのすべての値も取得したいのですが、こちらも同様にFor~Nextを使用しても思ったように出来ませんでした。

最終的にはX座標のすべての値をX座標の最小値で引く式を作ろうと思っています。
Xi=PD().Xpoint-MinXpoint???

お願いばかりで申し訳ありませんが教えていただけると幸いです。
よろしくお願いします

発生している問題・エラーメッセージ

エラーメッセージ

該当のソースコード

Public Class Form1

    '構造体の定義
    Public Structure PointData
        Dim Xpoint As Double  'X座標
        Dim Ypoint As Double　'Y座標
        Dim Zpoint As Double　'Z座標
    End Structure

    'メンバ変数
    Dim PD() As PointData 　      '配列
    Dim PDCount As Integer　      'データの個数
    Public NewPDCount As Integer　'配列のサイズ

    'アプリケーションの終了
    Private Sub ExitButton_Click(sender As Object, e As EventArgs) Handles ExitButton.Click
        Application.Exit()
    End Sub

    'ファイルを開く
    Private Sub OpenButton_Click(sender As Object, e As EventArgs) Handles OpenButton.Click
        With OpenFileDialog1
            '選択ダイアログを開く
            .Title = "点群ファイルの読み込み"
            .FileName = ""
            .Filter = "点群ファイル(*.csv)|*.csv|すべてのファイル(*.*)|*.*"
            .DefaultExt = ".csv"

            'ファイル名の表示
            Dim result As DialogResult
            result = OpenFileDialog1.ShowDialog
            If result = Windows.Forms.DialogResult.OK Then
                OpenFileText.Text = .FileName
                MessageBox.Show(.FileName & "を読み込みました。", My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Warning)

                'ファイルの読み込み
                Try
                    Dim ReadItems() As String  'CSVの各項目を表す配列                  

                    'ファイルを開く。
                    Dim sr As New IO.StreamReader(.FileName, System.Text.Encoding.GetEncoding("Shift-JIS"))

                    'ファイルの最後までループ
                    Do Until sr.Peek() = -1
                        ReDim Preserve PD(PDCount)
                        ReadItems = Split(sr.ReadLine(), ",")

                        PD(PDCount).Xpoint = CDbl(ReadItems(0))
                        PD(PDCount).Ypoint = CDbl(ReadItems(1))
                        PD(PDCount).Zpoint = CDbl(ReadItems(2))

                        'データ確認用
                        Console.WriteLine(PD(PDCount).Xpoint & vbTab & PD(PDCount).Ypoint & vbTab & PD(PDCount).Zpoint)
                        PDCount += 1
                    Loop

                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try

            Else
                MessageBox.Show(.FileName & "の読み込みに失敗しました。",
                                    My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Warning)
            End If
        End With
    End Sub

    '要素の数を取得
    Private Sub CountButton_Click(sender As Object, e As EventArgs) Handles CountButton.Click
        NewPDCount = UBound(PD)
        MessageBox.Show(NewPDCount)
    End Sub

    '座標取得
    Private Sub GetXpointButton_Click(sender As Object, e As EventArgs) Handles GetXpointButton.Click
        MessageBox.Show(PD(5).Xpoint & PD(5).Ypoint & PD(5).Zpoint)
    End Sub

    ~~Private Sub GetPointButton_Click(sender As Object, e As EventArgs) Handles GetPointButton.Click
        For i As Integer = 0 To PDCount
            Console.Write(PD(i).Xpoint)
        Next
    End Sub~~
End Class

試したこと

ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

CSVから読み込む時に全てのデータを処理するのですから、その時に比較して、Xpointが一番小さいインデックスを覚えておけばいいのではないでしょうか？

Dim Xpoint_Min As Double = Double.MaxValue
Do Until sr.Peek() = -1
    ReDim Preserve PD(PDCount)
    ReadItems = Split(sr.ReadLine(), ",")

    PD(PDCount).Xpoint = CDbl(ReadItems(0))
    PD(PDCount).Ypoint = CDbl(ReadItems(1))
    PD(PDCount).Zpoint = CDbl(ReadItems(2))

    '最小値確認
    If Xpoint_Min > PD(PDCount).Xpoint Then
        XpointMinIndex = PDCount
    End If

    'データ確認用
    Console.WriteLine(PD(PDCount).Xpoint & vbTab & PD(PDCount).Ypoint & vbTab & PD(PDCount).Zpoint)
    PDCount += 1
Loop

みたいな感じで

また、他のことに関してですが、どうやってどううまくいかなかったのでしょうか？
実際に書いたコードとどうダメだったのかの説明があれば、どの程度理解されているかの目安にもなりますし、人に説明することによりご自身で問題の整理が出来るかと思います。

Comments

[mah1107]

回答ありがとうございます。
確かに質問の仕方が甘かったです。
たしかに文字として書き出せば整理ができますね。
今回の不明点は改めて整理し、質問の仕方も参考にしてみます。
ご指摘ありがとうございます。

Answer 2

第一に、今から勉強をはじめるのに、VBをやるべきではないです。理由は、世の中の新しいコードのサンプルがだいたいC#で書かれているのと、初心者は古い書式かどうかが分からないなか、.NET以前の古いコードを見てつまづいてしまうからです。検索ワードすらわからない中で、ググって現代的コードを見つけるのは難しいと思います。
.NET基盤である以上、C#にも同じことができますし、既にvb.netの(負の)資産があるとしても、vb.netからc#(dll)を呼び出すのは可能(おそらく容易)なはずなので、本気でC#への方針転換を考えたほうがいいです。
※ VBAやVB6.0の経験がある人が覚える場合とは訳がちがいます

第二に、(VB.NETだとしても)Linqというのを調べて覚えてください。話はそれからです

試しに、今検索して、コンソールアプリで特定のファイルを読んでXpointの最小値と全ての値を取るコードを書いてみました。
try以下のところで下記のロジックを持ってくれば、最小値が取れると思います。

    Public Structure PointData
        Dim Xpoint As Double  'X座標
        Dim Ypoint As Double　'Y座標
        Dim Zpoint As Double 'Z座標
        ' コンストラクタ
        Sub New(ByVal x As Double, ByVal y As Double, ByVal z As Double)
            Xpoint = x
            Ypoint = y
            Zpoint = z
        End Sub
    End Structure

    Sub Main()
        Dim textFile As String = "C:\work\1.txt"
        Dim enc As Text.Encoding = Text.Encoding.GetEncoding("shift_jis")

        'このあたりから下をtry構文の中にもってくればいいはず
        Dim lines As String() = System.IO.File.ReadAllLines(textFile, enc)
        Dim dats As PointData() = lines.Select(Function(x) x.Split(",")).Select(Function(x) New PointData(Double.Parse(x(0)), Double.Parse(x(1)), Double.Parse(x(2)))).ToArray()
        Dim AllX As Double() = dats.Select(Function(x) x.Xpoint).ToArray()
        Dim MinX As Double = dats.Min(Function(x) x.Xpoint)
    End Sub

Comments

[papinianus]

> 検索しても良いサンプルが見つからなかった
と書いておられるとおりです。C#への転向を奨めます

[mah1107]

回答ありがとうございます。
vb.netからＣ#への転向ということで質問があるのですが、Ｃ＃もvb.netのフォームのようなデザインできるのもがあるでしょうか？
あまりvb.netがどのような言語なのかわかっていなくてすいません。
フォームでデザインして動くものを作りたいのが目的です。

コードはとりあえず参考にして目的のものができるまではがんばってみようかなと思っています、、、

[papinianus]

↑の書いたコードはVB.NETですよ、ねんのため。いずれにせよ、LINQは覚えてください。VB.NETを作るのですから。VBAではないのです。
最初はLINQを書くこと自体が難しいかもしれませんが、LINQでMaxが書ければ最大値が取れます。forで書く限りバグがないか心配しないといけません。

ボタンとかチェックボックスとかはwindows formの機能なので、C#であっても同じフォームパーツを同じように配置可能です。(VB.NETもC#も".NET"という仕組みの上で動くので原理的に同じことができます、VBはVisualBasicっぽい文法で、C#はCっぽい文法なだけ)。