Generator!

[vRaz3r]

Hallo , ich möchte einen Passwor-Generatoren mal zum spaß amchen, da hab ich folgenden Code:

Private Sub Command1_Click()
   Text1 = GenerateCode()
End Sub

Public Function GenerateCode()
   strInputString = "1234567890abcdefghijklmnopqrstuvwxyz"
   
   intLength = Len(strInputString)
   
   If Option1.Value = True Then
intNameLength = 6
ElseIf Option2.Value = True Then
intNameLength = 7
ElseIf Option3.Value = True Then
intNameLength = 8
ElseIf Option4.Value = True Then
intNameLength = 9
End If
   
   Randomize
   
   strName = ""
   
   For intStep = 1 To intNameLength
       intRnd = Int((intLength * Rnd) + 1)
   
       strName = strName & Mid(strInputString, intRnd, 1)
   Next
   
   GenerateCode = strName
End Function

Aber der Funzt irgentwie net ganz!'


Er sol 6 stellige 7 stellige 8 stellige und 9 stellige generieren!

[ARCUS_L]

Hi !!

Sieht doch ganz OK aus !!
Was funktioniert den nicht ??

Das einzige das mir aufgefallen ist :
Könnte aber auch ein Tippfehler sein !!
Bei Text1 fetht Text ==> Text1.Text !!

mfg ARCUS_L

[vRaz3r]

Ja ich versteh da snet... der generiert einfach net .. egal was ich mache...

[vRaz3r]

der Debugger spinnt jetzt auch noch:

[vRaz3r]

So muss es aussehen... bei den radiobutten halt: 6er 7er etc.


aber es funzt net!

[ARCUS_L]

Hi !!

Vielleicht solltest du mal die Fehler in deiner Fehlerliste beheben !!
Was ich so sehe fehlen die ganzen Variablendeklarationen !!

Dann wird`s wahrscheinlich auch funktionieren !!

mfg ARCUS_L

[vRaz3r]

Wie meinste das?? kannste mir dasgenau erklären...


Als ich da sgecoded habe hab ich nichts von deklar bla dingsda gehört o.O

[ARCUS_L]

Hi !!

Um Variablen zu verwenden musst du sie vorher Deklarieren

Also den ersten Fehler
Der Name "strInputString" wurde nicht delariert.
behebst du mit:
Private strInputString as String
den Zweiten mit:
Private intLengh as integer
.
.
.
usw

mfg ARCUS_L

[vRaz3r]

Ach ja ok verstanden .. mach ich .. danke!