[DÚVIDA] Auto Divulgador

[TrapVB 20]

Gostaria de criar um programa, para que ele digite um script meu de texto automaticamente com uma pausa de segundos a cada linha.

 

EXEMPLO:

 

1º Linha "Prepare-se para o enem isso irá poder te ajudar, tal tal tal tal" Pausa de 5 Segundos

2º Linha "Aqui vai algumas dicas que poderão ser úteis". Pausa de 5 Segundos

3º Linha: E assim continuaria no looping, até o fim do meu texto.

Alguém poderia me ajudar pelo menos um esboço de como começar?

 

UP

[teteu028 2.986]

Achei esse código aqui :

 

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

 

Mas ele n tem segunda linha ou pausa, então deixei assim:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

faz um teste ai pra ver se é da maneira que você quer

Necessário : Label1 e Label2, Timer1(ativado) e Timer2(desativado)

 

ps: em System.Threading.Thread.Sleep(5000) está o tempo de pausa de um texto para o outro...(5000 = 5 segundos)

[[N]ARUTO_ 101]

[spoiler=Direto do programa]

[spoiler=Direto do programa]

Public Class Form1

Private Script As New List(Of String)

Sub New()

InitializeComponent()

Control.CheckForIllegalCrossThreadCalls = False

Label1.Text = Nothing

Script.AddRange({"Prepare-se para o enem isso irá poder te ajudar, tal tal tal tal",

"Aqui vai algumas dicas que poderão ser úteis",

"E assim continuaria no looping, até o fim do meu texto."})

Dim X As New Threading.Thread(AddressOf ShowText)

X.Start()

End Sub

Private Sub ShowText()

For P = 0 To Script.Count - 1

Label1.Text += Script.Item(P) & vbNewLine

Threading.Thread.Sleep(5000)

Next

Label1.Text += "- Texto completo -"

End Sub

End Class

 

[spoiler=Usando texto de um arquivo txt]

 

[spoiler=Usando texto de um arquivo txt]

Public Class Form1

Sub New()

InitializeComponent()

Control.CheckForIllegalCrossThreadCalls = False

Label1.Text = Nothing

Dim X As New Threading.Thread(AddressOf ShowText)

X.Start()

End Sub

Private Sub ShowText()

Dim F As IO.StreamReader = New IO.StreamReader("C:\Users\???\Desktop\Script.txt")

Do While Not F.EndOfStream

Label1.Text += F.ReadLine & vbNewLine

Threading.Thread.Sleep(5000)

Loop

End Sub

End Class

 

 

[TrapVB 20]

Obrigado, ajudaram bastante. :)

['Lenneth 498]