Text box og rnd()

[^aM^]

Hey, jeg vil lage en passord genererer(til mine mange medlemskap på internett sider) anyway, det jeg lurer på er 3 ting,

 

Hvordan kan jeg få vist mine random nummerer i et txt vindu når jeg trykker på en knapp, Hvordan får man random bokstaver? og går det ann å blande random nummer(Rnd() * 200 i dette tilfellet) og random bokstaver??

 

Den første tingen er den aller viktigste, så hvis du vet den men ikke de andre så blir jeg fremdeles veldig glad.

 

 

 

Takker på fårhånd for all hjelp

 

 

 

aM

[Jonas]

Dim Tell As Long

Randomize Timer
Tell = Rnd * 28

Dette gir et tilfelig tall mellom 0 og 28. Har ikke tid å lage noe nå, men det jeg ville ha gjort var å lagt alle tallene/bokstavene i en string og hente ut det tallet som blir bestemt av det tilfeldige tallet.

[Jonas]

Jeg hadde litt tid til overs!

Private Sub Form_Load()
passord 5, "abcdefghijklmnopqrstuvwxyzæøå"
End Sub

Private Sub passord(anntall As Double, tekst As String)

Dim i, tell As Long

For i = 1 To anntall
   Randomize Timer
   tell = Rnd * (Len(tekst) - 1)
   Text1.Text = Text1.Text & Left(Right(tekst, tell), 1)
Next i

End Sub

Skjønner hvordan det funker? skriv passord lengeden, og alle tegn

 

Edit: du kan sette inn tall og alle mulige tegn inn.

Endret 20. mai 2004 av Jonas

[ratata]

hvorfor randomize timer?

[aadnk]

Randomize metoden initialiserer tilfeldighetsgeneratoren med et nytt seed nummer. Dette skaper høyere tilfeldighet, og er derfor helt nødvendig.

 

Men det er likevel ikke nødvendig å sette Timer som parament, da dette gjøres automatisk hvis man ikke inkluderer denne.

Endret 20. mai 2004 av aadnk

[ratata]

var bare det med timer jeg stusset litt på...