Ajuda Rapida Por Favor

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:
 
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 ?
 
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!
 
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!
=)
 
Inicie sessão ou registe-se para poder participar.
Back
Topo