O meu nome é Ana Inês Xavier e frequento o 12º ano na Escola Secundária de Alberto Sampaio, em Braga.
A fim de mostrar o nosso trabalho realizado ao longo deste ano lectivo nas várias vertentes da disciplina de Aplicações Informáticas B, foi-nos proposta a criação de um blog com uma breve explicação da execução dos mesmos.
Dito isto, vou passar a explicar as matérias e o os objectivos das mesmas com que tivemos, e vamos ter durante este ano.
- 1º Período - algoritmia e programação
Familiarizar-nos com a linguagem de programação, com o intuito de, caso precisemos no futuro, percebermos com funciona um computador e quais as suas funcionalidades.
para isso, iniciamos com a programação de programas simples, que ao longo do período se tornaram mais complexos.
Essencialmente trabalhamos em VISUALG e VISUAL BASIC.
Vou deixar-vos com um exemplo feito em VB:
Private Sub Form_Load()
Dim A(0 To 4) As String, i As Byte, soma As Double, max As Double, min As Double, incorrecto As Boolean
'Adicionar itens à lista e calcular máx, min e média
soma = 0
LstValores.Clear
LstValores.Refresh
For i = 0 To 4
incorrecto = True
Do
A(i) = InputBox("Qual " & i + 1 & "º item a adicionar (Até um máximo de 5 valores)? ", "Adicionar item")
If Trim(A(i)) = "" Or Not (IsNumeric(A(i))) Then
Call MsgBox("Valor inválido. Digite um valor numérico e não nulo", vbOKOnly, "Erro")
Else
incorrecto = False
End If
Loop Until incorrecto = False
soma = soma + Val(A(i))
LstValores.AddItem A(i)
LstValores.Refresh
'T = T + 1
If i = 0 Then
min = Val(A(i))
max = Val(A(i))
Else
If min > Val(A(i)) Then
min = Val(A(i))
End If
If max < Val(A(i)) Then
max = Val(A(i))
End If
End If
Next
LblmMm(3) = min
LblmMm(4) = max
LblmMm(5) = soma / 5
End Sub
Vou deixar-vos com um exemplo feito em VB:
Private Sub Form_Load()
Dim A(0 To 4) As String, i As Byte, soma As Double, max As Double, min As Double, incorrecto As Boolean
'Adicionar itens à lista e calcular máx, min e média
soma = 0
LstValores.Clear
LstValores.Refresh
For i = 0 To 4
incorrecto = True
Do
A(i) = InputBox("Qual " & i + 1 & "º item a adicionar (Até um máximo de 5 valores)? ", "Adicionar item")
If Trim(A(i)) = "" Or Not (IsNumeric(A(i))) Then
Call MsgBox("Valor inválido. Digite um valor numérico e não nulo", vbOKOnly, "Erro")
Else
incorrecto = False
End If
Loop Until incorrecto = False
soma = soma + Val(A(i))
LstValores.AddItem A(i)
LstValores.Refresh
'T = T + 1
If i = 0 Then
min = Val(A(i))
max = Val(A(i))
Else
If min > Val(A(i)) Then
min = Val(A(i))
End If
If max < Val(A(i)) Then
max = Val(A(i))
End If
End If
Next
LblmMm(3) = min
LblmMm(4) = max
LblmMm(5) = soma / 5
End Sub
2º Período - Multimédia: imagem, som, vídeo e animação.
Realizámos um guião para orientar o nosso trabalho na área de Multimédia, que consistiu na descrição de uma história da nossa autoria (ou uma recriação de uma já criada) para posteriormente realizarmos uma animação. (3ºPeríodo)
Um objectivo mais geral com a realização deste guião era a preparação para a futura vida académica, onde iremos realizar muitos trabalhos deste tipo.
3º Período - Continuação da animação.
3º Período - Continuação da animação.
