quarta-feira, 19 de outubro de 2011

on
Olá pessoal depois de um tempo sem postar nada hoje fiz um simples programa em vb .net e espero que vocês gostem.


Código fonte logo abaixo:


Imports System.Threading

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim i, digitos, valor As Integer
        Dim resposta(10) As String 'array de 10 posições
        Dim x As String

        resposta(1) = ("DESCULPE NÃO POSSO RESPONDER.")
        resposta(2) = ("PORQUE VOCÊ NÃO ME PERGUNTA OUTRA COISA?")
        resposta(3) = ("PARECE QUE NÃO ESTAMOS NOS ENTENDENDO MUITO BEM.")
        resposta(4) = ("TALVEZ VOCÊ NÃO TENHA ENTENDIDO, MAS EU JA RESPONDI.")
        resposta(5) = ("PORQUE VOCÊ NÃO ME ESQUECE.")
        resposta(6) = ("TIRE SUAS MÃOS DO MEU TECLADO.")
        resposta(7) = ("VOCÊ SÓ SABE FAZER PERGUNTAS IDIOTAS.")
        resposta(8) = ("LEVOU TANTO TEMPO PARA PERGUNTAR ISTO?")
        resposta(9) = ("PARECE QUE VOCÊ É BOBO MESMO.")
        resposta(10) = ("POR FAVOR REFORMULE SUA PERGUNTA E TENTE NOVAMENTE.")

        If txtTexto.Text.Length = 0 Then
            MsgBox("Faça uma pergunta!", MsgBoxStyle.Information)
        Else

            If txtTexto.Text <> "" Then

                digitos = Len(txtTexto.Text)
                Label1.Refresh()

                For i = 1 To digitos
                    Label1.Text = (txtTexto.Text)
                    Label1.Refresh()
                    System.Threading.Thread.Sleep(30)
                Next
            End If

            Randomize()
            valor = Rnd(10)
            valor = valor + 1
            x = resposta(valor)
            digitos = Len(x)

            For i = 1 To digitos
                Label2.Text = x
                Label2.Refresh()
                System.Threading.Thread.Sleep(30)
            Next

        End If
        txtTexto.Clear()
        txtTexto.Focus()
    End Sub
End Class

Espero ter ajudado e até a próxima...

0 comentários:

Postar um comentário