Fehlermeldung bei CharArray (Zufallsgenerator)

  • VB.NET

Es gibt 19 Antworten in diesem Thema. Der letzte Beitrag () ist von hundehausen.

    Fehlermeldung bei CharArray (Zufallsgenerator)

    VB.NET-Quellcode

    1. Public Class Form1
    4. Private Sub generieren_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles generieren.Click
    6. Randomize()
    8. Dim chart() As Char = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789".ToCharArray
    9. Dim pw As Integer = CInt(Int((chart * Rnd()) + 1))
    11. ergebnis.Text = pw
    13. End Sub
    17. End Class


    Die Fehlermeldung lautet:

    Der Wert vom Typ "1-dimensionales Array von Char" kann nicht in "Double" konvertiert werden.

    Markiert wird hier:

    Dim pw As Integer = CInt(Int((chart * Rnd()) + 1))


    Danke für eure Hilfe :)

    erstens ist chart ein array -> also nicht einfach mit chart anzusprechen sondern

    VB.NET-Quellcode

    1. chart(0)
    2. chart(1)

    zweitens ist char keine zahl d.h. du kannst nicht einfach damit multiplizieren

    lg
    ScheduleLib 0.0.1.0
    Kleine Lib zum Anlaufen von Code zu bestimmten Zeiten

    Du multiplizierst einen Array Chart mit einem Double-Wert rnd, da verzweifelt der Compiler etwas ;)

    Ausserdem:
    - verwende statt rnd lieber die Random-Klasse

    VB.NET-Quellcode

    1. dim r as new random ' nur 1x im Kopf der Form definieren
    2. ...
    3. dim zufallszahl as Integer = r.Next(untergrenze,obergrenze) ' beachte: obergrenze wird nie erreicht


    - initialisiere den Generator rnd nur 1x im Load Event, bzw definiere die Random Class im Kopf der Form

    - Du kannst statt Char Array auch nur einen String nehmen, der kann auch als Array angesprochen werden

    willst du ein passwort generieren?

    dann zB so:

    VB.NET-Quellcode

    1. Dim r As New Random
    2. Private Sub generieren_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles generieren.Click
    3. Dim chart() As Char = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789".ToCharArray
    4. Dim pw As String = Nothing
    6. For i As Integer = 0 To 5 'zB 6stelliges PW
    7. pw += chart(r.Next(0, 61))
    8. Next
    10. ergebnis.Text = pw
    11. End Sub
    ScheduleLib 0.0.1.0
    Kleine Lib zum Anlaufen von Code zu bestimmten Zeiten

    Hallo,

    du kannst das einfach so lösen:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim rnd As Random
    3. Dim liste As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
    5. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    6. rnd = New Random
    7. End Sub
    9. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    10. Me.TextBox1.Text = liste.Chars(rnd.Next(0, liste.Length))
    11. End Sub
    12. End Class


    So bekommst du einfach ein Random Char aus dem String.

    Ändernfalls, wenn ein Passwort generiert werden soll nimm die Lösung von fichz.

    Grüße
    Fillure

    Also in der Form wird in eine Textbox "a" die Anzahl der Zeichen eingegeben.

    Code:

    Dim a As Integer
    For i As Integer = 0 To a 'zB 6stelliges PW
    pw += chart(r.Next(0, 61))
    Next

    geht aber nicht, keine Fehlermeldung, es wird nur eine Zahl generiert.
    Hat jemand eine Idee?

    wenn a nicht mit werten befüllt wird ist es standardmässig 0
    mach

    VB.NET-Quellcode

    1. Dim a As Integer = CInt(Textbox.Text) 'Deine Textbox halt
    2. For i As Integer = 0 To a
    3. pw += chart(r.Next(0, 61))
    4. Next


    lg
    ScheduleLib 0.0.1.0
    Kleine Lib zum Anlaufen von Code zu bestimmten Zeiten

    Mein angepasster Code, damit man Zahlen dazu machen kann.

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim r As New Random
    3. Private Sub generieren_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles generieren.Click
    4. If zahlen.Checked = "True" Then
    5. Dim chart() As Char = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789".ToCharArray
    6. Dim pw As String = Nothing
    7. Dim a As Integer = CInt(anzahl.Text) 'Deine Textbox halt
    8. For i As Integer = 1 To a 'zB 6stelliges PW
    9. pw += chart(r.Next(0, 61))
    10. Next
    11. ergebnis.Text = pw
    12. End If
    13. If zahlen.Checked = "False" Then
    14. Dim chart() As Char = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz".ToCharArray
    15. Dim pw As String = Nothing
    16. Dim a As Integer = CInt(anzahl.Text) 'Deine Textbox halt
    17. For i As Integer = 1 To a 'zB 6stelliges PW
    18. pw += chart(r.Next(0, 61))
    19. Next
    20. ergebnis.Text = pw
    21. End If
    22. End Sub


    Die Fehlermeldung lautet:
    pw += chart(r.Next(0, 61))
    Der Index war außerhalb des Arraybereichs.

    Hat jemand eine idee?

    Deine chart() Arrays haben eine unterschiedliche Länge, also kannst du auch nicht beide mit pw += chart(r.Next(0, 61)) bedienen. Die 61 mußt du anpassen.

    Ansonsten sollte dir auffallen, dass du im Grunde 2 x den gleichen Code geschrieben hast. das einzigste, was sich ändert ist das Array und halt die Zeichenanzahl, die du mit chart.count abfragen kannst.
    Also solltest du den Code in eine Function as String legen, die dir dein Passwort zurückgibt und als Parameter die boolsche variable (Alphanum oder Alpha) und die Anzahl der Stellen als Integer übernimmt.
    Fiel Fergnügen
    Vatter
    :thumbsup: Seit 26.Mai 2012 Oppa! :thumbsup:

    Bist du sicher, dass du weißt, was du bzw. der(dein) Code da machst?
    r.Next(0, 61): erzeugt eine Zufallszahl die einen ganzzahligen Wert von 0 bis 60 annehmen kann. Diesen Integerwert benutzt du, um ein Feld eines Arrays auszuwählen. er entspricht damit einer "Zeilennummer", die in dem Array bei 0 beginnt. Da das Alphabet (ohne Umlaute) idR 26 Großbuchstaben hat und meistens genauso viele Kleinbuchstaben, kann man davon ausgehen dass dashier: "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" ungefähr 48 Zeichen sind, also Nummer 0-47.
    Mit deinem Code passiert jetzt folgendes: Wenn du jetzt bei einem Auto mit 5 Gängen versuchst in den 6. oder 7. zu schalten, kann es dir passieren, dass du den Rückwätsgang erwischst, verstanden?
    Das andere CharArray hat daher mit den Ziffern auch nur 58 Zeichen. Nun ist die Warscheinlichkeit, eine Zufallszahl zwischen 58 und 60 zu erhalten relativ gering, aber es passiert unter Umständen das gleiche wie oben.
    Darum: Sch... auf die 61 und nutze die Funktionen des Arrays (Count, Lenght oder so)
    :thumbsup: Seit 26.Mai 2012 Oppa! :thumbsup:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Dim r As New Random
    4. dim MaxWert as Integer
    6. Private Sub generieren_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles generieren.Click
    9. If zahlen.Checked = "True" Then
    10. Dim chart() As Char = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789".ToCharArray
    11. MaxWert = 61 ' Anzahl der Zeichen
    13. Else
    14. Dim chart() As Char = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz".ToCharArray
    15. Maxwert = 51 ' Anzahl der Zeichen
    17. EndIf
    19. Dim pw As String = Nothing
    20. Dim a As Integer = CInt(anzahl.Text) 'Deine Textbox halt
    21. For i As Integer = 1 To a 'zB 6stelliges PW
    22. pw += chart(r.Next(0, MaxWert))
    23. Next
    24. ergebnis.Text = pw
    26. End Sub


    So haste die Abfrage nur für die Deklaration und musst deinen Code nicht doppelt schreiben.

    Mfg
    Yonda

    Hier ein par Berichtigungen zu Yondas Code:

    VB.NET-Quellcode

    1. Dim r As New Random 'Zufall instanzieren
    3. Function test(ByVal Anzahl As Integer, ByVal zahlen As Boolean) As String
    4. Dim chart() As Char 'die Deklaration muß vor der If-Anweisung erfolgen, damit die Variable weiter unten auch verfügbar ist
    5. If zahlen Then
    6. chart = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789".ToCharArray
    7. Else
    8. chart = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz".ToCharArray
    9. End If
    10. Dim Passwort As String = ""
    11. For i As Integer = 1 To Anzahl 'zB 6stelliges PW
    12. Passwort &= chart(r.Next(0, chart.Length )) 'Zum Verknüpfen von text wird das &-Zeichen verwendet
    13. 'Mit chart.Length wird die Länge des Arrays ermittelt
    14. Next
    15. Return Passwort
    16. End Function
    18. 'Aufruf der Funktion
    19. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    20. TextBox1.Text = test(6, True)
    21. End Sub

    Damit kannst du variabel hantieren oder vielleicht weiter ausbauen (noch ein Char-Array mit Sonderzeichen?)
    Fiel fergnügen
    Vatter
    :thumbsup: Seit 26.Mai 2012 Oppa! :thumbsup:

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Vatter“ ()

    Vatter schrieb:

    ier ein par Berichtigungen zu Yondas Code

    Richtig. Allerdings muss ich jetzt noch eine kleine Berichtigung zu Deiner Berichtigung schreiben :rolleyes:

    Die Funktion Random.Next(Untergrenze, Obergrenze) ermittelt Integer Zufallszahlen zwischen Untergrenze und Obergrenze-1 (!), d.h. der oberste Wert wird nie erreicht.

    Also wäre hier tatsächlich richtig: Passwort &= chart(r.Next(0, chart.Length ))

Facebook
Telefonspende