Vinnaren i pepparkakshustävlingen!
  1. Dator och IT
  2. Systemutveckling
  3. C#, VB.NET och .NET Framework

Vill ha värde "o" i Textbox1.text > Textbox6.text genom enkelt kommando.

Svara
2016-07-14, 01:07
  #1
FlashDemokrati
Medlem
istället för all denna kod.

Kod:
OreXIn1.Text = 0 : OreXIn2.Text = 0 : OreXIn3.Text = 0 : OreXIn4.Text = 0 : OreXIn5.Text = 0 : OreXIn6.Text = 0
OreXOut1.Text = 0 : OreXOut2.Text = 0 : OreXOut3.Text = 0 : OreXOut4.Text = 0 : OreXOut5.Text = 0 : OreXOut6.Text = 0
OreXMux1.Text = 0 : OreXMux2.Text = 0 : OreXMux3.Text = 0
Delay(1) 

Suck, har letat men.... det gick inge bra.
Citera
2016-07-14, 07:36
  #2
Proton
Moderator
Protons avatar
Citat:
Ursprungligen postat av FlashDemokrati
istället för all denna kod.

Kod:
OreXIn1.Text = 0 : OreXIn2.Text = 0 : OreXIn3.Text = 0 : OreXIn4.Text = 0 : OreXIn5.Text = 0 : OreXIn6.Text = 0
OreXOut1.Text = 0 : OreXOut2.Text = 0 : OreXOut3.Text = 0 : OreXOut4.Text = 0 : OreXOut5.Text = 0 : OreXOut6.Text = 0
OreXMux1.Text = 0 : OreXMux2.Text = 0 : OreXMux3.Text = 0
Delay(1) 

Suck, har letat men.... det gick inge bra.
Varför inte göra en array av kontroller, det lär bli väldigt mycket enklare att hantera än det där.

Kod:
Dim i As Integer

For i = 0 To 10
OreXMux(i).Text = 0
Next i 

Där är principen, kommer inte ihåg den exakta syntaxen dock, men det går ju att googla sig till.
Citera
2016-07-14, 08:19
  #3
FlashDemokrati
Medlem
Tack, tydligen kan koden se ut som följande.

Kod:
Dim OreXMux As New Collection
        OreXMux.Add(OreXMux1)
        OreXMux.Add(OreXMux2)
        OreXMux.Add(OreXMux3)

        Dim i As Integer

        For i = 1 To OreXMux.Count
            OreXMux(i).Text = 0
        Next i 

Verkar fungera, dock tycker jag att det borde finnas enklare sätt men är inte så "hemma" på visual basic.
__________________
Senast redigerad av FlashDemokrati 2016-07-14 kl. 08:25.
Citera
2016-07-14, 09:14
  #4
Proton
Moderator
Protons avatar
Citat:
Ursprungligen postat av FlashDemokrati
Tack, tydligen kan koden se ut som följande.

Kod:
Dim OreXMux As New Collection
        OreXMux.Add(OreXMux1)
        OreXMux.Add(OreXMux2)
        OreXMux.Add(OreXMux3)

        Dim i As Integer

        For i = 1 To OreXMux.Count
            OreXMux(i).Text = 0
        Next i 

Verkar fungera, dock tycker jag att det borde finnas enklare sätt men är inte så "hemma" på visual basic.
Listor etc hanteras ju på samma sätt oavsett språk i .NET-familjen, vad menar du med enklare sätt? Typ att initiera allt på en gång utan att loopa igenom kontrollerna?

Btw, det där ser ut som VB.NET och inte VB, är det så?
Citera
2016-07-14, 11:36
  #5
FlashDemokrati
Medlem
Citat:
Ursprungligen postat av Proton
Listor etc hanteras ju på samma sätt oavsett språk i .NET-familjen, vad menar du med enklare sätt? Typ att initiera allt på en gång utan att loopa igenom kontrollerna?

Btw, det där ser ut som VB.NET och inte VB, är det så?

Att med så få ord som möjligt ändra värdet på dessa textboxar i load en gång så en loop känns onödigt eftersom värderna ändras vartefter.

Tror att det är vanliga VB, hittade infon här http://stackoverflow.com/questions/2...ual-basic-2012
Citera
2016-07-14, 14:07
  #6
Proton
Moderator
Protons avatar
Citat:
Ursprungligen postat av FlashDemokrati
Att med så få ord som möjligt ändra värdet på dessa textboxar i load en gång så en loop känns onödigt eftersom värderna ändras vartefter.

Tror att det är vanliga VB, hittade infon här http://stackoverflow.com/questions/2...ual-basic-2012
Visual Basic 2012 som det refereras till i artikeln är alltså INTE VB6.
Citera
2016-07-14, 14:07
  #7
Proton
Moderator
Protons avatar
Visual Basic Classic och VB-script --> C# / VB.NET / .NET Framework
/Moderator
Citera
2016-07-14, 14:10
  #8
Proton
Moderator
Protons avatar
Citat:
Ursprungligen postat av FlashDemokrati
Att med så få ord som möjligt ändra värdet på dessa textboxar i load en gång så en loop känns onödigt eftersom värderna ändras vartefter.

Tror att det är vanliga VB, hittade infon här http://stackoverflow.com/questions/2...ual-basic-2012
Textboxarna är olika objekt av samma typ, de delar ingen information på något automagiskt sätt sinsemellan (tack och lov). Inkapsling existerar som begrepp även i VB.NET.

Av den anledningen blir du tvungen att loopa igenom alla textboxarna om du vill sätta ett värde på alla textboxar.
Citera
Svara

Stöd Flashback

Flashback finansieras genom donationer från våra medlemmar och besökare. Det är med hjälp av dig vi kan fortsätta erbjuda en fri samhällsdebatt. Tack för ditt stöd!

Stöd Flashback