• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

David_Dinis

[VB 2005] Arvore de Natal

1 mensagem neste tópico

Entao é assim eu fiz uma arvore de natal em visual basic 2005

assim:

 Dim valor As Integer = CInt(txt_valor.Text)

        Dim linhas(valor - 1) As Integer
        Dim cont, cont2 As Integer
        Dim estrela, pe, estreladupla As String
        estrela = "*"
        estreladupla = "**"
        pe = "+"
        txt_arvore.Text = ""

        For cont = 0 To valor - 1
            txt_arvore.Text &= estrela & vbNewLine
            estrela += estreladupla
        Next
        For cont2 = 0 To 1
            txt_arvore.Text &= pe & vbNewLine
        Next

O programa pede o numero de linhas ao utilizador , a primeira linha é sempre com um "*" e as duas ultimas sao com dois "+" que sao o tronco da arvore.

                      *

                    ***

                  *****

                *******

              *********

            ***********

                      +

                      +

Ele assim funciona bem.

So que o professor disse que nao podia usar a propriedade align=center das textbox's , queria que alguem me pudesse ajudar em algo se fosse possivel, eu sei que tenho de usar um array com duas dimensões.

Obrigado a quem me puder ajudar

0

Partilhar esta mensagem


Link 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