none
Probleminhas com o meu projeto de gerador de nomes ( >;=;)> RRS feed

  • Pergunta

  • Olá pessoal. Hoje consegui acabar as  minhas listas em txt do meu gerador de nomes, só que quando eu resolvi colocar a mão na massa surgiram algumas dúvidas:

    1. Eu sou completamente novato, não sei como usa string com o meu arquivo txt e como fazer para o programa reconhecer e funcionar.

    Achei um código bem interessante aki no MSDN mesmo mais na versão inglês:

    Public Class Form1
    
    Private Sub btnGetName_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetName.Click
    
    Dim intUpperNumber As Integer = 6
    
    Dim r As New Random
    
    Dim intRandomnumber
    
    intRandomnumber = r.Next(intUpperNumber)
    
    Select Case intRandomnumber
    
    Case 0
    
    TextBox1.Text = "Tom"
    
    Case 1
    
    TextBox1.Text = "Fred"
    
    Case 2
    
    TextBox1.Text = "Ted"
    
    Case 3
    
    TextBox1.Text = "Daniel"
    
    Case 4
    
    TextBox1.Text = "Alex"
    
    Case 5
    
    TextBox1.Text = "Rob"
    
    End Select
    
    End Sub
    
    End Class

      Ai no caso, como que eu utilizo os arquivos de txt que eu fiz, para não ficar chamando Case e deixar o código mais limpo.

    Tentei sozinho mais sem sucesso colocar para funcionar o FirstName.txt como string e tentar chamar na TextBox1 . 

    Alguém poderia me dar uma exemplo ou algo assim para me ajudar? é que tem mais de 10300 nomes em cada linha a serem gerados. Iria levar um século =/ se eu fosse nesse método de Case 1,2,3 e assim por diante.

    Agradeço desde já quem puder dar umas dicas ou uns exemplos .

    Att Igor Akiyama 

    sábado, 23 de fevereiro de 2013 20:47

Todas as Respostas

  • Descobri meu erro quanto as strings (>.<)" er... eu não estava colocando o caminho do arquivo. Por isso não dava certo dãã...rsrs

     consegui achar um exemplo bem legal  em um fórum ...mais  não  sei como que eu faço para a mensagem ser exibida na TextBox1 e não por uma janelinha POP-UP =/ . mais graças a Deus resolvi o negocio das listas.

    Quanto ao Problema do  Código  lá é que mesmo se eu tirar a parte do MessageBox.Show ... 

    A coisa não mostra o resultado  na parte do TextBox1 =/   (aparece em branco)  

    Alguém ajuda?( >;=;)> Plz (num sei como resolver)

    Public Class Form1
    
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click, TextBox1.TextChanged
            Dim randomnum As New Random()
            Dim RandomNumber As Integer
            Dim lines = IO.File.ReadAllLines("C:\Users\Akiyama\Desktop\Listas Completas\FirstName.txt")
            RandomNumber = randomnum.Next(0, UBound(lines))
    
            MessageBox.Show(lines(RandomNumber))
    
        End Sub
    End Class


    sábado, 23 de fevereiro de 2013 22:13