GERADOR DE FRASES

USUARIO.EXCLUIDOS 11/05/2006 22:38:40
#146229
[txt-color=#ff0000]
Gerador de Frases
[/txt-color]

Bom pessoal sou novo aqui e tbm no VB :) , o q eu queria saber como q faz para ao clicar e um botão chamado gerar por exemplo, aparecesse em um caixa textbox uma determinada frase............e cada vez q eu clicasse iria surgindo várias frases aleatoriamente!

Pra vcs podem parecer facil mais para mim eh dificil! :(


Muito Obrigado Pela Atenção,
Atenciosamente,
Walter de Oliveira Neto
ARAUJOLIN 11/05/2006 23:53:07
#146230
Veja se isto serve:

Sendo que as frases estão em um arquivo txt chamado arquivo.txt em C:\
Text1 = é o TextBox que receberá a frase
Command1 = é o Botão que quando prosionado mostrará a frase


Option Explicit
Dim contaLinha As Integer

Private Sub Command1_Click()
    Dim aLinha As Integer
    aLinha = Int((contaLinha * Rnd) + 1)
    Text1 = AbreLinha("C:\arquivo.txt", aLinha)
End Sub

Function AbreLinha(MeuArq As String, aLinhaEscolhida As Integer) As String
    Dim iARQ, QtdLinha As Integer
    Dim sLinha, meuResultado As String
    iARQ = FreeFile
    Open MeuArq For Input As iARQ
    Do While Not EOF(iARQ)
        Line Input #iARQ, sLinha
        If QtdLinha = aLinhaEscolhida - 1 Then
            AbreLinha = sLinha
        End If
        QtdLinha = QtdLinha + 1
    Loop
    Close iARQ
    If aLinhaEscolhida > QtdLinha Then MsgBox "Este arquivo tem apenas: " & QtdLinha & " Linhas"
    contaLinha = QtdLinha
End Function
Tópico encerrado , respostas não são mais permitidas
Voltar