Question

我有一个16 * 16矩阵，我试图将它们定义为vb.net中的矩阵系列。然后我用这个矩阵制作一些视觉节目，如led节目。

    Dim n As Integer = 16
    Dim l As Integer = 16
    Dim x(n - 1, l - 1) As Integer
    Dim i, j, k As Integer
    For i = 0 To n - 1
        For j = 0 To l - 1
            For k = 1 To 256
                If j= k mod16 then
                buton(k) = x(i, j)
               end if 
            Next

        Next
    Next***

我尝试应用算法。但它不起作用。我怎么能做到这一点？谢谢你的兴趣......

Answer 1

好的，我刚才写了这样的东西 - 我已根据你的需要调整它，它在我的电脑上运行正常。你需要像这样创建数组X

Dim x(15,15) As Button

要使用按钮填充数组，请使用此方法..

Private Sub InitializeArray()

    Dim btnslist As New List(Of Button)
    Dim btnNum As Integer
    Dim btnName As String
    Dim splitButtonName() As String
    'add all the buttons to a list
    For Each btnControl As Object In Controls
        Dim btn As Button
        'get button number and add it to the list if it is >0 and <=256
        If TypeOf btnControl Is Button Then
            btn = CType(btnControl, Button)
            'get the button number
            splitButtonName = Split(btn.Name, "n")
            If CInt(splitButtonName(1)) > 0 And CInt(splitButtonName(1)) <= 256 Then
                btnslist.Add(btn)
            End If
        End If
    Next
    'add the buttons to the matrix in the right order
    For i As Integer = 0 To 15
        For j As Integer = 0 To 15
            For k As Integer = 0 To 255
                btnNum = i * 16 + j + 1
                btnName = "Button" & btnNum.ToString
                If btnslist(k).Name = btnName Then
                    x(i, j) = btnslist(k)
                    Exit For
                End If

            Next
        Next
    Next
End Sub

如何在矩阵中描述按钮？

1 个答案: