[VB6] Generatore di numero seriale

[tecnolive]

Potresti fare così (l'ho scritto così al volo e funziona)

Ti crei una funzione:

Function generaSeriale(ByVal lunghezza As Integer)
        Dim seriale As String
        Dim conta As Integer = 0
        Dim i As Integer = 0

        For i = 1 To lunghezza
            Dim numero As Integer = Int(33 * Rnd())

            Select Case numero
                Case 10 : seriale += "A"
                Case 11 : seriale += "B"
                Case 12 : seriale += "C"
                Case 13 : seriale += "D"
                Case 14 : seriale += "E"
                Case 15 : seriale += "F"
                Case 16 : seriale += "G"
                Case 17 : seriale += "H"
                Case 18 : seriale += "I"
                Case 19 : seriale += "L"
                Case 20 : seriale += "M"
                Case 21 : seriale += "N"
                Case 22 : seriale += "O"
                Case 23 : seriale += "P"
                Case 24 : seriale += "Q"
                Case 25 : seriale += "R"
                Case 26 : seriale += "S"
                Case 27 : seriale += "T"
                Case 28 : seriale += "U"
                Case 29 : seriale += "V"
                Case 30 : seriale += "Z"
                Case 31 : seriale += "X"
                Case 32 : seriale += "K"
                Case 33 : seriale += "J"
                Case Else
                    seriale += numero.ToString
            End Select
        Next i

        For i = 5 To seriale.Length Step 6
            seriale = seriale.Insert(i, "-")
        Next

        Return seriale 

E poi lo usi dove vuoi, esempio:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        txtSeriale.text = generaSeriale(25)
    End Sub 

In questo caso ti generà un seriale composto da 25 Caratteri (numerici e alfanumerici) che saranno separati dal simbolo - (ogni 5 caratteri).

Spero di esserti stato di aiuto.
Ciauz