0

クラスの割り当てが機能する関数を取得しようとしていますが、プログラムが問題の特定の行に到達すると、プログラムは停止し、この行の後には何も実行されません。プログラムはロックアップせず、現在の実行パスが停止するだけです。

デバッグを実行しようとしましたが、ほとんど同じことが起こります。Arraylist 要素に格納されているオブジェクトから関数を呼び出す必要があるリンクにヒットすると、呼び出される実際の関数のブレーク ポイントにヒットせず、それ以上何も起こりません。

Public Structure Appliances

    ' Create New Appliance object
    Public Sub New(name As String, pusage As Double)
        aName = name
        aPUsage = pusage
    End Sub

    ' Create New Washer Object
    Public Sub New(name As String, pusage As Double, wusage As Double)
        aName = name
        aPUsage = pusage
        aWUsage = wusage
    End Sub

    ' Functions
    Public Function getAName()
        Return aName
    End Function

    Public Function getAPUsage()
        Return aPUsage
    End Function

    Public Function getAWUsage()
        Return aWUsage
    End Function

    Dim aName As String ' Appliance Name
    Dim aPUsage As Double ' Appliane Power Usage
    Dim aWUsage As Double ' Appliance Water Usage

End Structure

...

Public Class Form1

...
    Dim appList As New ArrayList() ' Create an arraylist appliance objects
    Public appTemp As Appliances ' To store appliance objects until they can be added to the arraylist

...
    Private Function getAppInfo()
        getAppInfo = Nothing

        Do While fInStream.Peek() <> -1

            s = fInStream.ReadLine() ' Get a line from the file and set s to it

            Dim words As String() = s.Split(New Char() {","c}) ' Split the line contents along commas and set those parts into words

            words(0) = words(0).Replace("_", " ") ' Reaplce underscores with spaces

            If (words.Count = 3) Then ' If words contains the washer appliance
                appTemp = New Appliances(words(0), Double.Parse(words(1)), Double.Parse(words(2)))
                appList.Add(appTemp)

            Else ' For all other appliances
                appTemp = New Appliances(words(0), Double.Parse(words(1)))
                appList.Add(appTemp)

            End If

        Loop
    End Function

    Private Function setUsage(name As String)
        setUsage = Nothing

        ' Find appliance
        For i = 0 To appList.Count
            If (name = appList(i).getAName()) Then
                If (name = "Washer") Then
                    s = appList(i).getWUsage() ' !!!This is the line where the execution dies at, nothing after this line is processed and the function call is not completed
                    txtbGPH.Text = s
                End If

                MsgBox("Test 1")
                Exit For

            ElseIf (i = appList.Count) Then
                MsgBox("Appliance could not be found")
            End If
        Next
    End Function

End Class
4

2 に答える 2

0

気にしないでください、私は今それを理解しました。配列リストが「配列リスト」ではなくコレクションであることを知りませんでした。他のコレクション指向のオブジェクトと同じように動作し、要素にアクセスするには .item(i) を使用する必要があるのではないかと考えましたが、実際にはそうでした。

txtbGPH.text = appList.item(i).getAWusage()

OPに示されている問題のある行が実行された後、呼び出された関数に設定されたブレークポイントが実行された後、適切な動作と残りのコードが生成されます。

于 2013-04-09T04:15:20.630 に答える