GERADOR SEQUENCIAL COM NUMEROS E LETRAS

ALDAIR 03/07/2012 09:32:38
#405404
O seu arquivo deu um monte de erro de ambiguidade.
Eu utilizo o Visual Studio 08.
Se puder mandar um exe.
PEGUDO 03/07/2012 10:00:22
#405409
Ambiguidade? Estranho...
Bom Vá lá...

Aí está o código crie um novo projeto, coloque nele uma TextBox, um ComboBox e um Botão e coloque este código no Click do Botão:
Ah... Lembre-se de criar, dentro da pasta [Ô]Debug[Ô], um arquivo de texto, chamado: [Ô]Codigo[Ô].

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If Not TextBox1.Text = Nothing Then
            Dim Vetor() As String = Split(TextBox1.Text, [txt-color=#e80000][Ô],[Ô][/txt-color])
            Dim Codigo As String = [Ô][Ô]
            Dim Random As Random = New Random
            Dim Numero As UInt16 = 0
            Dim Arquivo As System.IO.StreamWriter

            For A = 1 To Val(ComboBox1.Text)
                Numero = Random.Next(1, Vetor.Count)

                If Not Vetor(Numero) = [Ô][Ô] Then
                    Codigo += Vetor(Numero)
                Else
                    Codigo += Vetor(Numero + 1)
                End If
            Next

            Arquivo = [txt-color=#0000f0]New[/txt-color] System.IO.StreamWriter(Application.StartupPath & [txt-color=#e80000][Ô]\Codigo.txt[Ô][/txt-color])
            Arquivo.WriteLine(Codigo)
            Arquivo.Close()
            Process.Start(Application.StartupPath & [txt-color=#e80000][Ô]\Codigo.txt[Ô][/txt-color])
        End If
    End Sub

Eu utilizo o VS2010 mas acho que este código não vai ter diferença entre um e outro não.
ALDAIR 03/07/2012 10:12:27
#405410
Valeu, tava fuçando aqui é deu certo...
PEGUDO 04/07/2012 08:36:24
#405493 Resposta escolhida
Já que o exemplo funcionou, feche o seu post.
Página 2 de 2 [14 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar