Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

BlitzMX

Função 'For Each Letter04 In "ABCDEFGHIJKLMNOPQRSTUVWXYZ".ToCharArray()

Mensagens Recomendadas

BlitzMX

Boa noite

Estou a tentar criar um loop para que a cada letras de cada posição o programa me faça depois uma outra coisa, mas por agora para ver se funciona correctamente apenas pretendo que me faça um loop por cada caractere em cada letra com 4 caracteres.

Tenho este código mas, se correr linha a linha aparece a variavel associada correctamente até ao quarto caractere, quando chega o momento de mostrar... nada. Buga sem qualquer erro de compilação.

        Dim Letter04 As Char
        Dim Letter03 As Char
        Dim Letter02 As Char
        Dim Letter01 As Char



        For Each Letter04 In "ABCDEFGHIJKLMNOPQRSTUVWXYZ".ToCharArray()
            For Each Letter03 In "ABCDEFGHIJKLMNOPQRSTUVWXYZ".ToCharArray()
                For Each Letter02 In "ABCDEFGHIJKLMNOPQRSTUVWXYZ".ToCharArray()
                    For Each Letter01 In "ABCDEFGHIJKLMNOPQRSTUVWXYZ".ToCharArray()
                        lblLetter01.Text = Letter01
                        System.Threading.Thread.Sleep(5000)
                    Next
                    lblLetter02.Text = Letter02
                    System.Threading.Thread.Sleep(5000)
                Next
                lblLetter03.Text = Letter03
                System.Threading.Thread.Sleep(5000)
            Next
            lblLetter04.Text = Letter04
            System.Threading.Thread.Sleep(5000)
        Next

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
BlitzMX

Outra ideia mas as letras não mudam nada, fica parado e BUG.

        Dim Letter04 As Char
        Dim Letter03 As Char
        Dim Letter02 As Char
        Dim Letter01 As Char

        lblLetter01.Text = ""
        lblLetter02.Text = ""
        lblLetter03.Text = ""
        lblLetter04.Text = ""



        Do Until Letter01 = "Z" And Letter02 = "Z" And Letter03 = "Z" And Letter04 = "Z"
            For Each Letter04 In "ABCDEFGHIJKLMNOPQRSTUVWXYZ".ToCharArray()
                For Each Letter03 In "ABCDEFGHIJKLMNOPQRSTUVWXYZ".ToCharArray()
                    For Each Letter02 In "ABCDEFGHIJKLMNOPQRSTUVWXYZ".ToCharArray()
                        For Each Letter01 In "ABCDEFGHIJKLMNOPQRSTUVWXYZ".ToCharArray()
                            lblLetter01.Text = Letter01
                            lblLetter02.Text = Letter02
                            lblLetter03.Text = Letter03
                            lblLetter04.Text = Letter04
                            System.Threading.Thread.Sleep(5000)
                        Next
                    Next
                Next
            Next

        Loop
        MsgBox("Finished")

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.