[VB.NET] Generazione casuale di testo

[chsoftwares]

Salve a tutti ragazzi.. sono nuovo del forum. Ma a parte questo..
Vi volevo chiedere (un consiglio per la creazione di un applicazione con Visual Basic)...
Ho fatto:
1 button
4 checkbox

le 4 checkbox sono:
1) tra a e f
2) tra g e m
3) tra 1 e 10
4) tra n e z

La mia domanda è:
quando clicco una di queste checkbox (una o due o tre o tutte contemporaneamente) e successivamente clicco il button, mi deve generare un testo continuo casuale di massimo 8 lettere e numeri casuali (come da checkbox).
Mi sapreste dire come posso realizzare questa cosa?
Spero di essermi spiegato bene

[oregon]

Ma di che linguaggio parli?

[chsoftwares]

Parlo di visual basic

[oregon]

Quale versione dato che ne esistono tante?

In secondo luogo dai maggiori indicazioni e un esempio di codice che hai realizzato per parlarne meglio ...

[chsoftwares]

Ho scaricato un visual studio l'ultima uscita...
Comunque di codici li ho cancellati tutti poichè non andavano...
Quindi mi servirebbe una mano nella creazione di ciò.
Io ho messo una text box dove deve apparere il testo casuale, 4 checkbox e 2 button... mando lo screen per esser più chiari
sssss.JPG
E la mia domanda è quella che ho posto all'inizio del theard cioè:
quando clicco una di queste checkbox (una o due o tre o tutte contemporaneamente) e successivamente clicco il button, mi deve generare un testo continuo casuale di massimo 8 lettere e numeri casuali (come da checkbox).
Mi sapreste dire come posso realizzare questa cosa?

[oregon]

Parti dal principio che in questo forum non si scrive il codice a richiesta ma si ragiona.

Prima di tutto conosci le classi che ti servono? Comincia con quella che ti serve a generare un valore intero casuale.

[chsoftwares]

ok...
io vorrei dire:
se checbox1 è attiva(cioè ha la v)
allora
genera una sequenze di parole (max 6) tra la lettera a e la lettera z.
come faccio?

[oregon]

Non chiedere sempre come faccio ma rispondi alle domande ... conosci le classi che ti servono? Almeno quella che genera un numero casuale?

Che preparazione hai del linguaggio ... ? Forse è un compito che va oltre le tue attuali conoscenze?

[chsoftwares]

si si conosco le classi che mi servono
comunque una volta programmavo con vb ma sono anni che non lo tocco e mi sono dimenticato tutto.
Ho appena sfornato il codice:

 Const chars = "abcdefghilmnopqrstuvzywxj"
    Private Sub generates_Click(sender As Object, e As EventArgs) Handles generates.Click
        If Check3.Checked = False And Check2.Checked = False And Check1.Checked = False Then
            MsgBox("Devi scegliere un opzione", vbCritical, "Errore")
        End If

        If Check3.Checked = True Then
            Text1.Text = Mid$("abcdfghjklmnpqrstvwxz", Int(Rnd() * 20) + 1, 10)
        End If

        If Check2.Checked = True Then
            Text1.Text = Mid$("ABCDFGHJKLMNPQRSTVWXZ", Int(Rnd() * 20) + 1, 10)
        End If

        If Check1.Checked = True Then
            Text1.Text = Mid$("0123456789987654321", Int(Rnd() * 19) + 1, 10)
        End If




        If Check3.Checked And Check2.Checked Then
            Text1.Text = Mid$("ABCDFGHJKLMNPQRSTVWXZabcdfghj#klmnpqrstvwxz", Int(Rnd() * 40) + 1, 10)
        End If




        If Check3.Checked And Check1.Checked Then
            Text1.Text = Mid$("abcdfghjklmnpqrstvwxz01234567#89987654321", Int(Rnd() * 39) + 1, 10)
        End If




        If Check2.Checked And Check1.Checked Then
            Text1.Text = Mid$("ABCDFGHJKLMNPQRSTVWXZ01234567#89987654321", Int(Rnd() * 39) + 1, 10)
        End If




        If Check1.Checked And Check2.Checked And Check3.Checked Then
            Text1.Text = Mid$("0123456789ABCDFGHJKLMNPQRSTVW#XZabcdfghjklmnpqrstvwxz", Int(Rnd() * 59) + 1, 10)
        End If
    End Sub

Però non mi funziona una cosa e non so come mai... Quando clicco il button e le rispettive checkbox mi mette le cose a caso e non secondo le checkbox cliccate come mai?

[chsoftwares]

Ho aggiornato il codice:

    Const chars = "abcdefghilmnopqrstuvzywxj"    Private Sub generates_Click(sender As Object, e As EventArgs) Handles generates.Click
        If Check3.Checked = False And Check2.Checked = False And Check1.Checked = False Then
            MsgBox("Devi scegliere un opzione", vbCritical, "Errore")
        End If


        If Check1.Checked = True Then
            Text1.Text = Mid$("abcdfghjklmnpqrstvwxz", Int(Rnd() * 20) + 1, 10)
        End If


        If Check2.Checked = True Then
            Text1.Text = Mid$("ABCDFGHJKLMNPQRSTVWXZ", Int(Rnd() * 20) + 1, 10)
        End If


        If Check3.Checked = True Then
            Text1.Text = Mid$("0123456789987654321", Int(Rnd() * 19) + 1, 10)
        End If


        If Check2.Checked = True And Check1.Checked = True And Check3.Checked = False Then
            Text1.Text = Mid$("ABCDFGHJKLMNPQRSTVWXZabcdfghj#klmnpqrstvwxz", Int(Rnd() * 40) + 1, 10)
        End If


        If Check1.Checked = True And Check3.Checked = True And Check2.Checked = False Then
            Text1.Text = Mid$("abcdfghjklmnpqrstvwxz01234567#89987654321", Int(Rnd() * 39) + 1, 10)
        End If


        If Check2.Checked = True And Check2.Checked = True And Check1.Checked = False Then
            Text1.Text = Mid$("ABCDFGHJKLMNPQRSTVWXZ01234567#89987654321", Int(Rnd() * 39) + 1, 10)
        End If


        If Check3.Checked = True And Check2.Checked = True And Check3.Checked = True Then
            Text1.Text = Mid$("0123456789ABCDFGHJKLMNPQRSTVW#XZabcdfghjklmnpqrstvwxz", Int(Rnd() * 59) + 1, 10)
        End If
    End Sub

ho aggiustato minimamente ma niente non mi funziona come deve... come mai?