23-11-15, 08:20 PM
السلام عليكم
حبايبي أتمنى مساعدتكم لي في ايجاد الكود المناسب
عندي ملف TEXT واريد اخذ البيانات منه ووضعها على الفورم على شكل ازرار
مثال
محتوى ملف ال TEXT بهذا الشكل
بحيث Pc رقم الجهاز و =0 أو =1 هو حالة الجهاز وبين كل جهاز فاصل &
مثال اذا كانت حالة الجهاز =1 .. بيكون الزر لونو احمر-- واذا كانت حالة الجهاز =0 بيكون الزر لونو اسود
تم وضع الكود التالي في حالة اخذ البيانات من جدول اكسس
حبايبي أتمنى مساعدتكم لي في ايجاد الكود المناسب
عندي ملف 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