Jump to content

Varias duvidas


mlg

Recommended Posts

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

Link to comment
Share on other 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 😄

Link to comment
Share on other sites

  • 1 year later...

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.