1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Ajuda Rapida Por Favor

Discussão em 'Programação' iniciada por Roberto_TGEI09, 23 de Maio de 2008. (Respostas: 5; Visualizações: 624)

  1. Roberto_TGEI09

    Roberto_TGEI09 Power Member

    Boas,

    Amigos eu precisava da vossa ajuda, para dois exercicios escolares, na disciplina de SDAC (sistemas digitais e arquitectura de computadores) estou a dar Visual Basic e a minha stora colocou me a fazer uma ficha para avaliação onde estou s sentir dificuldade.:nie2:

    são 6 exercicios, e os dois mais urgentes são estes:

    1. Elabore um programa em visual Basic que desenhe um quadro de 10 linhas por 20 colunas com asteriscos (*), utilizando somente como instrução repetitiva o while.

    2. Elabore um programa em VB com os seguintes requisitos:

    .Insira uma listBox com 10 nomes diferentes;
    . Insira uma caixa de texto na qual deve inserir o nome a procurar;
    . Insira uma caixa de texto na qual deve aparecer a informação se o nome que procura existe ou nao na lista;
    insira um botão que servirá para procurar determinado nome na lista.

    Agradeço, a vossa ajuda, eu tenho de entgar isto no 23 de Maio, ás 14:45.
    Desculpem estar a pedir isto... mas se nao entregar isto fico um modulo para trás, estupidamente!:confused::sad1:
     
  2. jpaulino

    jpaulino Power Member

    1:
    Código:
    Dim strLinha As String
    Dim char As String
    Dim linha As Byte, coluna As Byte
    char = "*"
     
    ' constroi a coluna
    While coluna <= 19
      strLinha = strLinha & char
      coluna = coluna + 1
    Wend
     
    ' mostra as colunas em 10 linhas
    While linha <= 9
      Debug.Print strLinha
      linha = linha + 1
    Wend
    
    2:
    E após a pesquisa queres uma mensagem a dizer se encontrou ?
     
  3. Roberto_TGEI09

    Roberto_TGEI09 Power Member

    não...
    normal... xD
    LOL...

    Obrigado amigo! =)
     
  4. jpaulino

    jpaulino Power Member

    Aqui tens:

    Código:
     
    Private Sub Command1_Click()
        Dim x As Byte
        
        For x = 0 To List1.ListCount - 1
         If UCase(Me.List1.List(x)) = UCase(Me.Text1.Text) Then
            Me.List1.Selected(x) = True
         Else
           Me.List1.Selected(x) = False
         End If
        Next
    End Sub
     
    Private Sub Form_Load()
        With List1
            .AddItem "Jorge"
            .AddItem "Paulo"
            .AddItem "Rui"
            .AddItem "Ana"
            .AddItem "Maria"
            .AddItem "Carla"
            .AddItem "Patricia"
            .AddItem "Susana"
            .AddItem "André"
            .AddItem "Pedro"
        End With
    End Sub
    

    Já agora ... da próxima vez coloca informação com mais antecedência e mostra o código que tens. Ficar à espera que os outros façam o trabalho por ti não é bom.

    Um pouco de esforço não fica mal a ninguém!
     
  5. Roberto_TGEI09

    Roberto_TGEI09 Power Member

    eu sei que agi mal, nesse aspecto..
    Mas eram 8 exercicios, esses foi os que senti mais dificuldade, eu precisava alguem me ajuda-se deste geito, enquanto eu fasso, os outros..

    Eu agradeço imenso!
    =)
     

Partilhar esta Página