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

mlg

Varias duvidas

3 mensagens neste tópico

Boas

Tenhos algumas duvidas neste cod passo a explicar a baixo

Private Structure pessoa
        Dim nome As String
        Dim numero As Integer
        Dim idade As Integer
        Dim disciplina As String
        Dim nota1 As Single
        Dim nota2 As Single
    End Structure
    Dim aluno(20) As pessoa
---------------------------------------
Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click

        Dim search As String
        Dim i As Integer
        search = InputBox("Introduza o nome do aluno a procurar")

        If search = aluno(i).nome Then
            Label6.Text = aluno(i).nome
            Label7.Text = aluno(i).idade
            Label8.Text = aluno(i).nota1
            Label9.Text = aluno(i).nota2
        Else
            MsgBox("Aluno não encontrado")
        End If

    End Sub

    Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click
        Dim search As String
        Dim i As Integer
        For i = 1 To 20
            aluno(i).nome = InputBox("Introduza um nome")
            aluno(i).numero = InputBox("Introduza o numero")
            aluno(i).idade = InputBox("Introduza a idade")
            aluno(i).disciplina = InputBox("Introduza a Disciplina")
            aluno(i).nota1 = Val(InputBox("Introduza a nota do 1º Teste"))
            aluno(i).nota2 = Val(InputBox("Introduza a nota do 2º Teste"))


        Next
    End Sub
End Class

As minhas duvidas são as seguintes...

Na parte do search .. eu tenho o code mal qualquer maneira ke meta akilo dá me sempre "aluno não encontrado " não sei ke fazer alguma dica ?

Outra era como faço para que eu posso introduzir alunos até 20 no maximo mas que n seja obrigado a introduzir os 20 .. pode ser 10 ou 17 por exemplo para akilo n tar smp a pedir

tks

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

no evento "MenuItem6_Click" metes :

Dim search As String
Dim i As Integer

search = InputBox("Introduza o nome do aluno a procurar")

For i = 0 To NAlunos - 1
    If search = aluno(i).nome Then
        Label6.Caption = aluno(i).nome
        Label7.Caption = aluno(i).idade
        Label8.Caption = aluno(i).nota1
        Label9.Caption = aluno(i).nota2
        Exit Sub
    End If
Next i

MsgBox ("Aluno não encontrado")

e no evento MenuItem7_Click :

Dim search As String
aluno(NAlunos).nome = InputBox("Introduza um nome")
aluno(NAlunos).numero = InputBox("Introduza o numero")
aluno(NAlunos).idade = InputBox("Introduza a idade")
aluno(NAlunos).disciplina = InputBox("Introduza a Disciplina")
aluno(NAlunos).nota1 = Val(InputBox("Introduza a nota do 1º Teste"))
aluno(NAlunos).nota2 = Val(InputBox("Introduza a nota do 2º Teste"))
NAlunos = NAlunos + 1

Agora tenta ver o que estava mal, não te limites a fazer CTRL+C & CTRL+V :D

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Ola!. . .

tenho uma pequena grande duvida!...    :)

qual é a função do vb.net?

Se alguem m podesse explicar agradicia.

boa continuação e boas festas!  :thumbsup:

___________

  Joel ferreira

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