Ficha nº23

1.

Código:

Private Type Aluno

    numero As Integer

    Nome As String * 40

    Nota1 As Integer

    Nota2 As Integer

End Type

Dim tabela(1 To 20) As Aluno

Dim i, j As Integer

Private Sub Command1_Click()

    If i > 1 Then

        i = i - 1

        ver_dados (i)

    End If

End Sub

Private Sub Command2_Click()

    If i < j - 1 Then

        i = i + 1

        ver_dados (i)

    End If

End Sub

Private Sub Command3_Click()

    If Text1.Text >= j And Text2.Text <> "" And Text3.Text > 0 And Text3.Text < 20 And Text4.Text > 0 And Text4.Text < 20 Then

        tabela(j).numero = Val(Text1.Text)

        tabela(j).Nome = Text2.Text

        tabela(j).Nota1 = Val(Text3.Text)

        tabela(j).Nota2 = Val(Text4.Text)

        Label6.Caption = (Val(Text3.Text) + Val(Text4.Text)) / 2

        i = j

        j = j + 1

        

        Command1.Enabled = True

        Command2.Enabled = True

        Command3.Enabled = False

        Command4.Enabled = True

    Else

        MsgBox "Deve preencher todos os campos!", vbCritical, "Aviso"

    End If

End Sub

Private Sub Command4_Click()

    Dim numero As Integer, i As Integer

    

    numero = Val(InputBox("Qual o número do aluno que quer procurar?", "Procurar"))

    For i = o To j - 1

        If tabela(i).numero = numero Then

            ver_dados (i)

            Exit For

        End If

    Next i

End Sub

Private Sub Command5_Click()

    Dim opcao As Integer

    

    opcao = MsgBox("Deseja sair?", vbYesNo + vbQuestion, "Mensagem")

    If opcao = vbYes Then

        End

    End If

End Sub

Private Sub Command6_Click()

    Text1.Text = ""

    Text2.Text = ""

    Text3.Text = ""

    Text4.Text = ""

    

    Text1.Enabled = True

    Text2.Enabled = True

    Text3.Enabled = True

    Text4.Enabled = True

    

    Command1.Enabled = False

    Command2.Enabled = False

    Command3.Enabled = True

    Command4.Enabled = False

End Sub

Private Sub Form_Load()

    tabela(1).numero = 1

    tabela(1).Nome = "Ana"

    

    tabela(2).numero = 2

    tabela(2).Nome = "Bruno"

    

    tabela(3).numero = 3

    tabela(3).Nome = "Carla"

    

    i = 1

    j = 4

    

    ver_dados (i)

    

    Text1.Enabled = False

    Text2.Enabled = False

    Text3.Enabled = False

    Text4.Enabled = False

    

    Command3.Enabled = False

End Sub

Private Sub ver_dados(k As Integer)

    Text1.Text = tabela(k).numero

    Text2.Text = tabela(k).Nome

    Text3.Text = tabela(k).Nota1

    Text4.Text = tabela(k).Nota2

    Label6.Caption = (Val(Text3.Text) + Val(Text4.Text)) / 2

End Sub