Hjälp med att läsa värden snabbt

Postades av 2008-11-21 13:30:27 - Joel Alexandersson, i forum vb.net, Tråden har 0 Kommentarer och lästs av 820 personer
Hej! jag har en timer som läser värden från en PLC och ändrar färg på texten i en knapp. Problemet är att det är ca 80 värden till 80 olika knappar ungefär. Hämta är inga rpoblem med det är för långsamt och segar ner hela mitt projekt. Skulle vara snällt om någon kan hjälpa mig med hur jag kan skriva för att göra den här koden så snabb som möjligt. här är koden:

'Spikläge 1
        'Kollar vilket värde spik har
        Arrlage1 = TcClientSync.ReadVar(Array1Lage1)
        If Arrlage1 = CBool(True) Then
            bSpik1Lage1.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage2 = TcClientSync.ReadVar(Array2Lage1)
        If Arrlage2 = CBool(True) Then
            bSpik2Lage1.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage3 = TcClientSync.ReadVar(Array3Lage1)
        If Arrlage3 = CBool(True) Then
            bSpik3Lage1.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage4 = TcClientSync.ReadVar(Array4Lage1)
        If Arrlage4 = CBool(True) Then
            bSpik4Lage1.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage5 = TcClientSync.ReadVar(Array5Lage1)
        If Arrlage5 = CBool(True) Then
            bSpik5Lage1.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage6 = TcClientSync.ReadVar(Array6Lage1)
        If Arrlage6 = CBool(True) Then
            bSpik6Lage1.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage7 = TcClientSync.ReadVar(Array7Lage1)
        If Arrlage7 = CBool(True) Then
            bSpik7Lage1.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage8 = TcClientSync.ReadVar(Array8Lage1)
        If Arrlage8 = CBool(True) Then
            bSpik8Lage1.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage9 = TcClientSync.ReadVar(Array9Lage1)
        If Arrlage9 = CBool(True) Then
            bSpik9Lage1.ForeColor = Color.Lime
        End If

        'Spikläge 2
        'Kollar vilket värde spik har
        Arrlage10 = TcClientSync.ReadVar(Array1Lage2)
        If Arrlage10 = CBool(True) Then
            bSpik1Lage2.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage11 = TcClientSync.ReadVar(Array2Lage2)
        If Arrlage11 = CBool(True) Then
            bSpik2Lage2.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage12 = TcClientSync.ReadVar(Array3Lage2)
        If Arrlage12 = CBool(True) Then
            bSpik3Lage2.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage13 = TcClientSync.ReadVar(Array4Lage2)
        If Arrlage13 = CBool(True) Then
            bSpik4Lage2.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage14 = TcClientSync.ReadVar(Array5Lage2)
        If Arrlage14 = CBool(True) Then
            bSpik5Lage2.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage15 = TcClientSync.ReadVar(Array6Lage2)
        If Arrlage15 = CBool(True) Then
            bSpik6Lage2.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage16 = TcClientSync.ReadVar(Array7Lage2)
        If Arrlage16 = CBool(True) Then
            bSpik7Lage2.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage17 = TcClientSync.ReadVar(Array8Lage2)
        If Arrlage17 = CBool(True) Then
            bSpik8Lage2.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage18 = TcClientSync.ReadVar(Array9Lage2)
        If Arrlage18 = CBool(True) Then
            bSpik9Lage2.ForeColor = Color.Lime
        End If

        'Spikläge 3
        'Kollar vilket värde spik har
        Arrlage19 = TcClientSync.ReadVar(Array1Lage3)
        If Arrlage19 = CBool(True) Then
            bSpik1Lage3.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage20 = TcClientSync.ReadVar(Array2Lage3)
        If Arrlage20 = CBool(True) Then
            bSpik2Lage3.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage21 = TcClientSync.ReadVar(Array3Lage3)
        If Arrlage21 = CBool(True) Then
            bSpik3Lage3.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage22 = TcClientSync.ReadVar(Array4Lage3)
        If Arrlage22 = CBool(True) Then
            bSpik4Lage3.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage23 = TcClientSync.ReadVar(Array5Lage3)
        If Arrlage23 = CBool(True) Then
            bSpik5Lage3.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage24 = TcClientSync.ReadVar(Array6Lage3)
        If Arrlage24 = CBool(True) Then
            bSpik6Lage3.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage25 = TcClientSync.ReadVar(Array7Lage3)
        If Arrlage25 = CBool(True) Then
            bSpik7Lage3.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage26 = TcClientSync.ReadVar(Array8Lage3)
        If Arrlage26 = CBool(True) Then
            bSpik8Lage3.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage27 = TcClientSync.ReadVar(Array9Lage3)
        If Arrlage27 = CBool(True) Then
            bSpik9Lage3.ForeColor = Color.Lime
        End If

        'Spikläge 4
        'Kollar vilket värde spik har
        Arrlage28 = TcClientSync.ReadVar(Array1Lage4)
        If Arrlage28 = CBool(True) Then
            bSpik1Lage4.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage29 = TcClientSync.ReadVar(Array2Lage4)
        If Arrlage29 = CBool(True) Then
            bSpik2Lage4.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage30 = TcClientSync.ReadVar(Array3Lage4)
        If Arrlage30 = CBool(True) Then
            bSpik3Lage4.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage31 = TcClientSync.ReadVar(Array4Lage4)
        If Arrlage31 = CBool(True) Then
            bSpik4Lage4.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage32 = TcClientSync.ReadVar(Array5Lage4)
        If Arrlage32 = CBool(True) Then
            bSpik5Lage4.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage33 = TcClientSync.ReadVar(Array6Lage4)
        If Arrlage33 = CBool(True) Then
            bSpik6Lage4.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage34 = TcClientSync.ReadVar(Array7Lage4)
        If Arrlage34 = CBool(True) Then
            bSpik7Lage4.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage35 = TcClientSync.ReadVar(Array8Lage4)
        If Arrlage35 = CBool(True) Then
            bSpik8Lage4.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage36 = TcClientSync.ReadVar(Array9Lage4)
        If Arrlage36 = CBool(True) Then
            bSpik9Lage4.ForeColor = Color.Lime
        End If

        'Spikläge 5
        'Kollar vilket värde spik har
        Arrlage37 = TcClientSync.ReadVar(Array1Lage5)
        If Arrlage37 = CBool(True) Then
            bSpik1Lage5.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage38 = TcClientSync.ReadVar(Array2Lage5)
        If Arrlage38 = CBool(True) Then
            bSpik2Lage5.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage39 = TcClientSync.ReadVar(Array3Lage5)
        If Arrlage39 = CBool(True) Then
            bSpik3Lage5.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage40 = TcClientSync.ReadVar(Array4Lage5)
        If Arrlage40 = CBool(True) Then
            bSpik4Lage5.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage41 = TcClientSync.ReadVar(Array5Lage5)
        If Arrlage41 = CBool(True) Then
            bSpik5Lage5.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage42 = TcClientSync.ReadVar(Array6Lage5)
        If Arrlage42 = CBool(True) Then
            bSpik6Lage5.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage43 = TcClientSync.ReadVar(Array7Lage5)
        If Arrlage43 = CBool(True) Then
            bSpik7Lage5.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage44 = TcClientSync.ReadVar(Array8Lage5)
        If Arrlage44 = CBool(True) Then
            bSpik8Lage5.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage45 = TcClientSync.ReadVar(Array9Lage5)
        If Arrlage45 = CBool(True) Then
            bSpik9Lage5.ForeColor = Color.Lime
        End If

        'Spikläge 6
        'Kollar vilket värde spik har
        Arrlage46 = TcClientSync.ReadVar(Array1Lage6)
        If Arrlage46 = CBool(True) Then
            bSpik1Lage6.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage47 = TcClientSync.ReadVar(Array2Lage6)
        If Arrlage47 = CBool(True) Then
            bSpik2Lage6.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage48 = TcClientSync.ReadVar(Array3Lage6)
        If Arrlage48 = CBool(True) Then
            bSpik3Lage6.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage49 = TcClientSync.ReadVar(Array4Lage6)
        If Arrlage49 = CBool(True) Then
            bSpik4Lage6.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage50 = TcClientSync.ReadVar(Array5Lage6)
        If Arrlage50 = CBool(True) Then
            bSpik5Lage6.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage51 = TcClientSync.ReadVar(Array6Lage6)
        If Arrlage51 = CBool(True) Then
            bSpik6Lage6.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage52 = TcClientSync.ReadVar(Array7Lage6)
        If Arrlage52 = CBool(True) Then
            bSpik7Lage6.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage53 = TcClientSync.ReadVar(Array8Lage6)
        If Arrlage53 = CBool(True) Then
            bSpik8Lage6.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage54 = TcClientSync.ReadVar(Array9Lage6)
        If Arrlage54 = CBool(True) Then
            bSpik9Lage6.ForeColor = Color.Lime
        End If


        'Spikläge 7
        'Kollar vilket värde spik har
        Arrlage55 = TcClientSync.ReadVar(Array1Lage7)
        If Arrlage55 = CBool(True) Then
            bSpik1Lage7.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage56 = TcClientSync.ReadVar(Array2Lage7)
        If Arrlage56 = CBool(True) Then
            bSpik2Lage7.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage57 = TcClientSync.ReadVar(Array3Lage7)
        If Arrlage57 = CBool(True) Then
            bSpik3Lage7.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage58 = TcClientSync.ReadVar(Array4Lage7)
        If Arrlage58 = CBool(True) Then
            bSpik4Lage7.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage59 = TcClientSync.ReadVar(Array5Lage7)
        If Arrlage59 = CBool(True) Then
            bSpik5Lage7.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage60 = TcClientSync.ReadVar(Array6Lage7)
        If Arrlage60 = CBool(True) Then
            bSpik6Lage7.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage61 = TcClientSync.ReadVar(Array7Lage7)
        If Arrlage61 = CBool(True) Then
            bSpik7Lage7.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage62 = TcClientSync.ReadVar(Array8Lage7)
        If Arrlage62 = CBool(True) Then
            bSpik8Lage7.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage63 = TcClientSync.ReadVar(Array9Lage7)
        If Arrlage63 = CBool(True) Then
            bSpik9Lage7.ForeColor = Color.Lime
        End If

        'Spikläge 8
        'Kollar vilket värde spik har
        Arrlage64 = TcClientSync.ReadVar(Array1Lage8)
        If Arrlage64 = CBool(True) Then
            bSpik1Lage8.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage65 = TcClientSync.ReadVar(Array2Lage8)
        If Arrlage65 = CBool(True) Then
            bSpik2Lage8.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage66 = TcClientSync.ReadVar(Array3Lage8)
        If Arrlage66 = CBool(True) Then
            bSpik3Lage8.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage67 = TcClientSync.ReadVar(Array4Lage8)
        If Arrlage67 = CBool(True) Then
            bSpik4Lage8.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage68 = TcClientSync.ReadVar(Array5Lage8)
        If Arrlage68 = CBool(True) Then
            bSpik5Lage8.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage69 = TcClientSync.ReadVar(Array6Lage8)
        If Arrlage69 = CBool(True) Then
            bSpik6Lage8.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage70 = TcClientSync.ReadVar(Array7Lage8)
        If Arrlage70 = CBool(True) Then
            bSpik7Lage8.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage71 = TcClientSync.ReadVar(Array8Lage8)
        If Arrlage71 = CBool(True) Then
            bSpik8Lage8.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage72 = TcClientSync.ReadVar(Array9Lage8)
        If Arrlage72 = CBool(True) Then
            bSpik9Lage8.ForeColor = Color.Lime
        End If
        'Spikläge 9
        'Kollar vilket värde spik har
        Arrlage73 = TcClientSync.ReadVar(Array1Lage9)
        If Arrlage73 = CBool(True) Then
            bSpik1Lage9.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage74 = TcClientSync.ReadVar(Array2Lage9)
        If Arrlage74 = CBool(True) Then
            bSpik2Lage9.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage75 = TcClientSync.ReadVar(Array3Lage9)
        If Arrlage75 = CBool(True) Then
            bSpik3Lage9.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage76 = TcClientSync.ReadVar(Array4Lage9)
        If Arrlage76 = CBool(True) Then
            bSpik4Lage9.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage77 = TcClientSync.ReadVar(Array5Lage9)
        If Arrlage77 = CBool(True) Then
            bSpik5Lage9.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage78 = TcClientSync.ReadVar(Array6Lage9)
        If Arrlage78 = CBool(True) Then
            bSpik6Lage9.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage79 = TcClientSync.ReadVar(Array7Lage9)
        If Arrlage79 = CBool(True) Then
            bSpik7Lage9.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage80 = TcClientSync.ReadVar(Array8Lage9)
        If Arrlage80 = CBool(True) Then
            bSpik8Lage9.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage81 = TcClientSync.ReadVar(Array9Lage9)
        If Arrlage81 = CBool(True) Then
            bSpik9Lage9.ForeColor = Color.Lime
        End If

        'Spikläge 10
        'Kollar vilket värde spik har
        Arrlage82 = TcClientSync.ReadVar(Array1Lage10)
        If Arrlage82 = CBool(True) Then
            bSpik1Lage10.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage83 = TcClientSync.ReadVar(Array2Lage10)
        If Arrlage83 = CBool(True) Then
            bSpik2Lage10.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage84 = TcClientSync.ReadVar(Array3Lage10)
        If Arrlage84 = CBool(True) Then
            bSpik3Lage10.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage85 = TcClientSync.ReadVar(Array4Lage10)
        If Arrlage85 = CBool(True) Then
            bSpik4Lage10.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage86 = TcClientSync.ReadVar(Array5Lage10)
        If Arrlage86 = CBool(True) Then
            bSpik5Lage10.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage87 = TcClientSync.ReadVar(Array6Lage10)
        If Arrlage87 = CBool(True) Then
            bSpik6Lage10.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage88 = TcClientSync.ReadVar(Array7Lage10)
        If Arrlage88 = CBool(True) Then
            bSpik7Lage10.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage89 = TcClientSync.ReadVar(Array8Lage10)
        If Arrlage89 = CBool(True) Then
            bSpik8Lage10.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage90 = TcClientSync.ReadVar(Array9Lage10)
        If Arrlage90 = CBool(True) Then
            bSpik9Lage10.ForeColor = Color.Lime
        End If

        'Spikläge 11
        'Kollar vilket värde spik har
        Arrlage91 = TcClientSync.ReadVar(Array1Lage11)
        If Arrlage91 = CBool(True) Then
            bSpik1Lage11.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage92 = TcClientSync.ReadVar(Array2Lage11)
        If Arrlage92 = CBool(True) Then
            bSpik2Lage11.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage93 = TcClientSync.ReadVar(Array3Lage11)
        If Arrlage93 = CBool(True) Then
            bSpik3Lage11.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage94 = TcClientSync.ReadVar(Array4Lage11)
        If Arrlage94 = CBool(True) Then
            bSpik4Lage11.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage95 = TcClientSync.ReadVar(Array5Lage11)
        If Arrlage95 = CBool(True) Then
            bSpik5Lage11.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage96 = TcClientSync.ReadVar(Array6Lage11)
        If Arrlage96 = CBool(True) Then
            bSpik6Lage11.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage97 = TcClientSync.ReadVar(Array7Lage11)
        If Arrlage97 = CBool(True) Then
            bSpik7Lage11.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage98 = TcClientSync.ReadVar(Array8Lage11)
        If Arrlage98 = CBool(True) Then
            bSpik8Lage11.ForeColor = Color.Lime
        End If

        'Kollar vilket värde spik har
        Arrlage99 = TcClientSync.ReadVar(Array9Lage11)
        If Arrlage99 = CBool(True) Then
            bSpik9Lage11.ForeColor = Color.Lime
        End If
Svara
Hjälp med att läsa värden snabbt

Nyligen

Sidor

Statistik

Kontakta oss
