test

Tags:    visual-basic

jeg har denne kode:


<pre>
'tester om der er to ens byte

sTid = Timer

Site1 = Form2.List1.ListCount - 1

For Itel = 0 To Form2.List1.ListCount - 1
Form2.List1.ListIndex = Itel
Bytez = Form2.List1.Text
For Xdiv = Itel + 1 To Form2.List1.ListCount - 1
Form2.List1.ListIndex = Xdiv
Bit = Form2.List1.Text
If Bit = Bytez Then
Parm = Parm + 1
Form2.List3.ListIndex = Itel
Form2.List4.ListIndex = Itel
Bytez = Form2.List3.Text
Bit = Form2.List4.Text
Exit For
End If

'procen for nuværende byte

Ktal1 = Xdiv / Site1
Ktal2 = Ktal1 * 100
Beregn2 = Round(Ktal2, 0)
Form1.vcPrg2.Value = Beregn2
Next


Form2.List2.ListIndex = Itel
Bit = Form2.List2.Text
Form2.List5.AddItem (Bytez)
Form2.List6.AddItem (Bit)

'procent for total

Ktal1 = Itel / Site1
Ktal2 = Ktal1 * 100
Beregn2 = Round(Ktal2, 0)
Form1.vcPrg1.Value = Beregn2
Next

Form2.Label7.Caption = Str$(Parm) & " ens byte"

slTid = Timer

Form2.Label10.Caption = slTid - sTid & " test"
</pre>

det tar mellem 13 og 15 sekunder for 256 byte, det er ret langsomt, er der nogne der har en
bedre idé til hvordan jeg kan gøre det hurtigere?

mvh.
Thomas Christensen

<pre>
??????????
??? ???
?? * * ??
? * ?
? ?
? ???? ?
?? ??
??? ????
????????
</pre>



User
Bruger #194 @ 27.03.02 22:32
Hvordan bruger du den, hvad er det du vil teste?



Hvordan bruger du den, hvad er det du vil teste?

den?, jeg vil teste om der er to ens brøker 100/500 f.esk.

-Thomas




Det allerførste, du burde gøre, er at undersøge, om alle variabler er ordenligt dimensionerede, dvs. brug DIM sætningen for alle variabler til at angive data type. Jeg tror, du bruger den store, fede, langsomme og behagelige Variant data-type, da jeg ikke ser nogle DIM sætninger noget sted.

Hvis dette ikke er tilfældet (så er du åbenbart rigtig programmør), og bør i stedet overveje at læse alle data ind fra listerne, inden du begynder på gennemløbet. Læs data'ene ind i byte arrays, long arrays, eller hvad du nu behøver. Brug endelig ikke strenge, da de er røvlangsomme, ligesom Variant er det.

Jeg tror, de tager lidt tid, når du skal referere til værdierne i kontrolelementerne, men jeg er ikke helt sikker. Den anden metode (med arrays, som du kan bygge op enten før dit loop, eller når du fylder listerne med data) tager i hvertfald ikke ekstra tid.

Endelig kan det være en ide at gå gennem koden meget grundigt for at se, om du laver noget mere end en gang. Det vil tage ekstra tid.

Bare nogle råd, håber det hjælper. Spørg hvis der er noget.



t