04. november 1999 - 19:54Der er
5 kommentarer og 1 løsning
For og NEXT!
Jeg har store problemer i denne her tekst! Det går bare for langsomt. Jeg er ved at lave et pakke program, og jeg har allerede lavet både at pakke og udpakke, det går lynhurtigt når man skal pakke, men det er ikke den bedste hastighed man får når man udpakker...
Jeg har taget lidt af koden her. JEG spørge nu om der er nogen der ved hvordan jeg gøre koden mere simpelt (el. måske lave den på en anden måde???).
Dog skal jeg sige at denne kode virke perfekt og fx. a99 har 9900 til 9999 Var.
Jeg har prøvet på mange måder, men uden held, så jeg håber af en af jer ved hvad det dreje sig om??? Jeg har besluttet at give den der giver mig et korrekt svar får 260 point!
Her er lidt af koden (DEN ER MEGET LANG DETTE ER KUN 1/4):
Dim a, b As Integer b = Len(Otvori.teskstbox.Text) For i = 1 To b Otvori.ProgressBar1.Max = b Otvori.ProgressBar1.Value = i a = Mid(Otvori.teskstbox.Text, i, 4)
For b1 = 0 To 99 If a1(b1) = a Then Otvori.Text1.SelText = "!" Next b1 For b97 = 9700 To 9799 If a97(b97) = a Then Otvori.Text1.SelText = "Ø" Next b97 For b98 = 9800 To 9899 If a98(b98) = a Then Otvori.Text1.SelText = "ø" Next b98 For b99 = 9900 To 9999 If a99(b99) = a Then Otvori.Text1.SelText = "Å" Next b99 For b100 = 10000 To 10099 If a100(b100) = a Then Otvori.Text1.SelText = "å" Next b100 For b101 = 10100 To 10199 If a101(b101) = a Then Otvori.Text1.SelText = " " Next b101 For b102 = 10200 To 10299 If a102(b102) = a Then Otvori.Text1.SelText = Chr$(10) Next b102 For b103 = 10300 To 10399 If a103(b103) = a Then Otvori.Text1.SelText = "€" Next b103 For b104 = 10400 To 10499 If a104(b104) = a Then Otvori.Text1.SelText = "-" Next b104 For b105 = 10500 To 10599 If a105(b105) = a Then Otvori.Text1.SelText = "®" Next b105 Next i
Det du skal gøre er at lave en function, som gennemløber din for og next løkke, når du giver den et par starter konstanter. Er det ikke sådan noget du sigter efter?
Jeg kan godt løse dit problem hvis jeg altså bare lige kunne gennemskue hvordan du er nået frem til rækkefølgen i f.eks tildelingen. Kan du hjælpe mig ?? Det bedste ville være hvis du kunne sende koden til mig.
Jeg har lavet en alogaritme, der 3 kryptere og pakker en gang.
Og som sagt har jeg givet lidt af pakke koden, dog er der store problemer.
Jeg kan ikke finde en alogaritme, der er hurtig nok til at få 4 bogstaver til at 'tjekke' sig selv i andre 100.000 variabler, om de er ens med en af dem i var.
Det er mit problem, og som sagt vil jeg ikke på nogen måder give hele min 'source' kode væk, jeg kan jo sagtens løse mit problem, men det vil tager flere måneder til min computer til at finde på 100.000 forskellige variabler, der hver har 4 ASCII 'tal'.
Så jeg må jo håbe at denne her tekst kan hjælpe dig (brian).
Lidt hjælp:
Du kan lave en lille program til at tjekke ca. 100.000 variabler (var.), og få at samligne var. med teksten. DVS.: prøv at at forstille dig, jeg har en lille 'database' som jeg henter oplysninger fra, denne database har 100.000 var. hvert af dem betyder noget, jeg kan sige fks. at var. 55.512 er bogstav A, og så for at få programmet til at kryptere kan man bare ikke skrive at A = A , men derfor skirver man at A = skr( og koden vil se sådan ud a37(55512) = "skr(" . Det er meget let at få programmet til at kryptere man siger bare Lave en RND hvis du fider A i en tekstbox, og det gøre programmet lyn hurtigt. Så når man skal pakke kommer der problemmer, den skal tjekke hvad skr( er, og jeg har jo 100.000 var. den skal tjekkes med. Det er der jeg har problemmer!!!!
Jeg håber du (i) kender en algoaritem. Der kan løse problemmen?????
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
