[محمد سلمان]

السلام عليكم 
حبايبي أتمنى مساعدتكم لي في ايجاد الكود المناسب 

عندي ملف TEXT واريد اخذ البيانات منه ووضعها على الفورم على شكل ازرار

مثال 
محتوى ملف ال TEXT  بهذا الشكل 

PHP كود :

pc1=0&pc2=0&pc3=0&pc4=0&pc5=0&pc6=0&pc7=0&pc8=0&pc9=0&pc10=0&pc11=0&pc12=0&pc13=0&pc14=0&pc15=0&pc16=0&pc17=0&pc18=0&pc19=0&pc20=0 


بحيث Pc رقم الجهاز و =0 أو  =1  هو حالة الجهاز وبين كل جهاز فاصل &

مثال اذا كانت حالة الجهاز =1 .. بيكون الزر لونو احمر-- واذا كانت حالة الجهاز =0 بيكون الزر لونو اسود

تم وضع الكود التالي في حالة اخذ البيانات من جدول اكسس

كود :

Sub getstatus()

        For i As Int16 = 0 To 1000
            arr(i) = "0"
        Next
 conn.Open()

        ds.Clear()
  Dim cmd As SqlCommand = New SqlCommand("Select PCname From B1 where ncuser not like '%" + Label1.Text + "%'", conn)

        Dim rd As SqlDataReader = cmd.ExecuteReader()

  Do While (rd.Read())
            Dim x As Integer = rd.Item(0).ToString().Replace("GN", "")
            arr(x) = 1
        Loop

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        getstatus()

        For i As Int16 = 0 To Panel1.Controls.Count - 1
           
            If Panel1.Controls(i).Name.StartsWith("GN") Then
                Panel1.Controls(i).Text = Panel1.Controls(i).Name

                If arr(Panel1.Controls(i).Name.Replace("GN", "")) = "1" Then

                    Panel1.Controls(i).BackgroundImage = My.Resources.monitor_red
                   
                Else
                    Panel1.Controls(i).BackgroundImage = My.Resources.monitor_Black
                   
                End If

            End If
        Next
    End Sub