CENTRO PAULA SOUZA CURSO TÉCNICO DE INFORMÁTICA … · aplicação do Questionário e da...

CENTRO PAULA SOUZA

ESCOLA TÉCNICA IRMÃ AGOSTINA

CURSO TÉCNICO DE INFORMÁTICA

ANA PAULA EMILIANO DE ALMEIDA

ANDERSON DOS SANTOS GALVÃO

GIOVANNA SILVA ASSIS

GRAZIELLY ALMEIDA BAPTISTA

JOSÉ FERNANDO MAIA DOS SANTOS

JOGOS PEDAGÓGICOS PARA DEFICIENTES AUDITIVOS

SÃO PAULO

2012

ANA PAULA EMILIANO DE ALMEIDA

ANDERSON DOS SANTOS GALVÃO

GIOVANNA SILVA ASSIS

GRAZIELLY ALMEIDA BAPTISTA

JOSÉ FERNANDO MAIA DOS SANTOS

JOGOS PEDAGÓGICOS

Trabalho de Conclusão de Curso apresentado ao

Centro Paula Souza – Escola Técnica Estadual

Irmã Agostina - como exigência parcial para

obtenção do Título de Técnico em Informática

Orientadores: Prof. João Carlos Lima e Silva

Prof. Ismael Augusto Vasconcelos

Prof. Renato Carvalho dos Santos

SÃO PAULO

2012

Aos nossos familiares e amigos,

que sempre nos apoiaram e

ficaram ao nosso lado.

AGRADECIMENTOS

Ao Prof. João Carlos, pelo seu empenho e dedicação na disciplina de

Planejamento de trabalho de conclusão de curso.

Ao Prof. Ismael, nosso segundo orientador, pela honra de ter ajudado no

possível em todas as etapas deste trabalho.

Ao João Lucca Barros, pelo favor de ter nos auxiliado na construção da

Interface Gráfica do nosso projeto com todo o seu empenho e dedicação.

A nossa família, pela confiança e motivação.

Aos outros professores e nossos colegas de classe, que nos ajudaram a cumprir mais uma

etapa importante e inesquecível de nossas vidas.

Aos amigos, pelo constante apoio e pensamentos positivos nessa etapa.

E a todos que colaboraram para a realização deste trabalho.

Desejo que você não tenha medo da vida,

tenha medo de não vivê-la. Não há céu

sem tempestades, nem caminhos sem

acidentes. Só é digno do pódio quem usa

as derrotas para alcançá-lo. Só é digno da

sabedoria quem usa as lágrimas para

irrigá-la. Os frágeis usam a força; os

fortes, a inteligência.

Seja um sonhador, mas una seus sonhos

com disciplina.

Pois sonhos sem disciplina produzem

pessoas frustradas.

Seja um debatedor de idéias. Lute pelo

que você ama.

Augusto Cury

RESUMO

Esta Monografia de Trabalho de Conclusão de Curso (TCC) tem por principal objetivo

apresentar o projeto: “Jogos Pedagógicos”.

Atualmente, a área de Acessibilidade na Tecnologia da Informação carece de recursos

tecnológicos. Por esse motivo, foi elaborado um jogo pedagógico com a finalidade de auxiliar

no processo de aprendizagem de Português para os dEficientes¹ Auditivos.

Nossa missão é ajudá-los a usar as principais ferramentas que a Tecnologia da

Informação nos proporciona hoje, por meio de recursos visuais que estimulem o interesse pelo

jogo, auxiliem no desenvolvimento intelectual e possibilitem aos mesmos um maior contato

com o mundo virtual.

Palavras-Chave: Jogo Pedagógico, Acessibilidade, Tecnologia da Informação,

Inclusão Digital, dEficientes Auditivos¹.

________________________________________________________________________

¹dEficiente com o E em maiúsculo, é para destacar a capacidade das pessoas com necessidades especiais (PNE),

segundo a Associação de Portadores de Deficiência, 2005.

ABSTRACT

This Final Examination’s Monograph has by main goal to introduce the project:

“Educational Game”.

Nowadays, the Accessibility area in Information Technology lacks of technological

resources. Therefore, an educational game has been done in order to help in learning process

of Portuguese.

Our mission is to help them use the main tools that Information Technology give us

today, through visual resources that stimulate the interest in the game, help in intellectual

development and enable to hearing-impaired a larger contact in virtual world.

Keywords: Educational Game, Accessibility, Information Technology, Digital

Inclusion, Hearing-Impaired.

LISTA DE FIGURAS

Figura 1 - População residente por tipo de deficiência - Brasil – 2000.................................... 12

Figura 2 - Levantamento dos problemas citados pelos alunos. ................................................ 14

Figura 3 - Levantamento sobre as respostas dos Questionários. .............................................. 14

Figura 4 – Estrutura analítica ou descritiva de todo o projeto. ................................................. 19

Figura 5 – Fluxograma jogo da Memória. ................................................................................ 20

Figura 6 – Diagrama de Sequência Menu Principal. ............................................................... 21

Figura 7 - Diagrama de Sequência “Escolher Jogo”. ............................................................... 22

Figura 8 - Diagrama de Sequência da execução do jogo. ......................................................... 23

Figura 9 - Diagrama de Sequência Manual. ............................................................................. 24

Figura 10 - Diagrama de Sequencia Contato. ........................................................................... 24

Figura 11 – Menu principal. ..................................................................................................... 26

Figura 12 - Escolha do Tema. ................................................................................................... 28

Figura 13 – Tela de memorização. ........................................................................................... 31

Figura 14 - Tela do jogo da Memória do Tema dos Animais. ................................................. 33

Figura 15 – Tela da história do jogo da memória. .................................................................... 47

Figura 16 – Tela do Jogo da Memória Alimentos. ................................................................... 52

Figura 17 – Tela da história do jogo da memória Alimentos. .................................................. 77

Figura 18 – Tela do Jogo da Memória. ..................................................................................... 82

Figura 19 – Tela da história do Jogo da Memória Verbos. .................................................... 107

Figura 20 – Tela do contato. ................................................................................................... 111

LISTA DE ABREVIAÇÕES E SIGLAS

LIBRAS - Linguagem Brasileira de Sinais

WBS - Estrutura Analítica de Projetos (EAP), do Inglês, Work breakdown structure.

UML - Unified Modeling Language (Linguagem de Modelagem Unificada).

SUMÁRIO

Introdução ................................................................................................................................. 12

1. Instituto.............................................................................................................................. 13

1.1 Estrutura do Instituto ................................................................................................. 13

1.2 Pesquisa de Campo .................................................................................................... 13

1.3 Gráficos sobre respostas dos Questionários ............................................................... 14

1.4 Conclusão da Pesquisa de Campo ............................................................................. 15

2. Teoria dos Jogos ................................................................................................................ 16

3. Importância do Jogo da Memória para a criança e o pré-adolescente .............................. 17

4. Cronograma do Projeto ..................................................................................................... 18

5. WBS .................................................................................................................................. 19

6. Fluxograma do Jogo da Memória ..................................................................................... 20

7. Diagramas de Sequência Do Jogo da Memória ................................................................ 21

8. Desenvolvimento do Projeto ............................................................................................. 25

9. Telas e Descritivos de Telas .......................................................................................... 26

9.1 Menu Principal ....................................................................................................... 26

9.1.1 Códigos do Menu Principal ................................................................................ 27

9.2.1 Códigos da Tela Escolha do Tema ..................................................................... 29

9.3 Tela de memorização ................................................................................................. 31

9.3.1 Código da Tela de Memorização ........................................................................ 31

9.4 Tela do Jogo da Memória dos Animais ..................................................................... 33

9.4.1 Código do Jogo da Memória Animais ................................................................ 33

9.4.2 Tela da História do Jogo da Memória Animais .................................................. 47

9.4.3 Código da Tela ................................................................................................... 47

9.5 Tela do Jogo da Memória Alimentos ......................................................................... 52

9.5.1 Código do Jogo da Memória Alimentos ............................................................. 52

9.7 Tela do Contato ........................................................................................................ 111

9.7.1 Código da Tela de Contato ............................................................................... 111

9.8 Código do Sair ......................................................................................................... 114

10. Requisitos do Sistema .................................................................................................. 115

10.1 Público-Alvo ............................................................................................................ 115

10.2 Características do Sistema ....................................................................................... 115

10.3 Interação ................................................................................................................... 115

10.4 Usabilidade .............................................................................................................. 115

10.5 Confiabilidade .......................................................................................................... 115

10.6 Desempenho ............................................................................................................. 115

10.7 Flexibilidade ............................................................................................................ 115

10.8 Requisitos de Interface ............................................................................................. 115

11. Interfaces com o usuário (telas) ................................................................................... 116

12. Conclusão .................................................................................................................... 117

13. Referências Bibliográficas ........................................................................................... 118

12

Introdução

Atualmente, a carência de materiais didáticos e a forma de apresentar o conteúdo

consistem em alguns dos problemas no ensino de crianças e adolescentes portadoras de

dEficiência auditiva.

Segundo pesquisas acadêmicas de Santa Rosa, L. M. C. e Lara, A. T. S. (UFGRS -

1996) a pessoa portadora de deficiência auditiva apresenta dificuldades com: o léxico; falta de

consciência de processos de formação de palavras; dificuldade em reconhecer contração de

preposição com artigo; uso inadequado dos verbos em suas conjugações, tempos e modos; uso

inadequado das preposições; omissão de conectivos e verbos de ligação. Estas dificuldades

ocasionam em uma interpretação inadequada de enunciados e textos.

Segundo dados do Censo 2010 realizado pelo IBGE, a população total do Brasil é 190

milhões. Deste total, cerca de 24,6 milhões de pessoas se declararam portadoras de alguma

dEficiência. Este número corresponde a 14,5% da população total. Veja na tabela abaixo os

tipos de deficiência declarados no Censo:

Figura 1 - População residente por tipo de deficiência - Brasil – 2000

Tipo de deficiência População residente

Mental 2.844.937

Física 1.416.060

Visual 16.644.842

Auditiva 5.735.099

Motora 7.939.784

Fonte: IBGE, Censo Demográfico 2000.

Através destes dados preliminares obtidos sobre a situação do dEficiente no Brasil,

foram realizadas pesquisas na internet,que propiciou localizar e conhecer o Instituto Santa

Terezinha. A escola é especializada em Educação Bilíngue para Surdos, isto é, a Linguagem

Brasileira de Sinais (LIBRAS) e a Língua Portuguesa.

Com o intuito de melhorar o ensino dos alunos desta escola, e por se tratar de uma

deficiência que possui escassos recursos tecnológicos para a área pedagógica, foi

desenvolvido um jogo pedagógico para dEficientes auditivos, o qual baseia-se no propósito de

13

ensino da Língua Portuguesa e na tentativa de beneficiar tanto alunos,como professores do

Sistema Brasileiro de Educação Bílingue para Surdos.

1. Instituto

O Instituto Santa Teresinha foi fundado em abril de 1929, na cidade de Campinas

estado de São Paulo, pelas Irmãs da Congregação de Nossa Senhora do Calvário. Teve como

pioneiras duas religiosas francesas: Madre Luiza dos Anjos e Irmã Maria São João e duas

brasileiras: Irmã Suzana Maria e Irmã Madalena da Cruz. Em 18/03/1933, transferiu-se para

São Paulo, funcionando inicialmente em prédios alugados.

A partir de 1939, instalou-se em prédio próprio num terreno doado por um médico

otorrinolaringologista Dr. Otoni Rezende Barbosa, que se interessou pela educação dos

surdos. Não existia até então nenhuma escola particular para surdos.

Até a década de 1990, o IST, adotou o método oral na educação dos surdos. Nas salas

de aula foram instalados equipamentos destinados a reeducação auditiva. A partir dessa época

a escola passou a desenvolver o bilinguismo que ainda hoje é utilizado na proposta

pedagógica.

1.1 Estrutura do Instituto

O Instituto Santa Teresinha, conta com uma equipe de profissionais habilitados e

capacitados e mantém a Educação Básica por meio dos cursos de Ensino Fundamental I(Do

Berçário ao 5º ano), Ensino Fundamental II(do 6º ao 9º ano) e do Ensino Médio. Hoje o

instituto tem cerca de 67 alunos portadores de dEficiência auditiva e conta com a participação

de profissionais portadores de necessidades especiais que auxiliam no aprendizado dos

alunos, na manutenção e conservação do instituto e também oferecem todo o suporte

necessário aos professores. A escola é administrada pela Irmã Marta, freira responsável por

toda infraestrutura organizacional do IST.

1.2 Pesquisa de Campo

Foi realizada em 09 de setembro de 2011, no Instituto Santa Terezinha. Neste dia,

foi feita uma entrevista com uma pedagoga e pós-graduada em dEficiência auditiva. Ela

relatou que a principal dificuldade dos alunos é em assimilar conteúdos de Português. Isso

ocorre, pois a língua oficial deles é a LIBRAS, e não o Português. Segundo ela, os maiores

problemas enfrentados pelos profissionais dessa área estão em lecionar aulas sobre verbos,

14

artigos e palavras no plural. Há também a falta de materiais específicos desta disciplina para

auxiliar os alunos na aprendizagem do Português.

1.3 Gráficos sobre respostas dos Questionários

Este primeiro gráfico mostra o resultado do Questionário aplicado aos alunos

deficientes. Embora 79% dos alunos não tenham apresentado soluções de problemas

enfrentados em suas respostas, as respostas dos 21% dos alunos foram esclarecedoras para

perceber os problemas que eles possuem no aprendizado e o que poderia ser melhorado.

Figura 2 - Levantamento dos problemas citados pelos alunos.

Figura 3 - Levantamento sobre as respostas dos Questionários.

No segundo gráfico, 93% dos alunos que responderam ao questionário e apresentaram

soluções disseram que faltam mais legendas e desenhos para auxiliá-los a compreender os

conteúdos de português de forma didática.

15

1.4 Conclusão da Pesquisa de Campo

A Pesquisa de Campo permitiu conhecer o cotidiano escolar de adolescentes

portadores de dEficiência auditiva. A partir dessa experiência, observou-se que eles possuem

várias dificuldades no que se refere ao aprendizado, dentro e fora da escola. Foi através da

aplicação do Questionário e da entrevista com a professora que surgiu a ideia do

desenvolvimento do jogo pedagógico, que iria reunir de forma atrativa e visual alguns

conteúdos de Português que os dEficientes possuem dificuldades.

16

2. Teoria dos Jogos

Segundo Leandro Augusto Kisielewicz e André Koscianski, “os jogos representam

uma forma de entretenimento universal, difundidos em diversas classes sociais e disponíveis

para diversas faixas etárias”.

A cada dia tem aumentado o número de pessoas com necessidades especiais presentes

em Instituições de Ensino, através da utilização de softwares e ferramentas adaptados para as

necessidades de determinados grupos de pessoas. Para isso, torna-se necessário a criação de

novos meios adequados ou a adaptação de meios já existentes, seja através de adaptações

físicas ou virtuais.

Os jogos educativos computadorizados surgiram como uma ferramenta importante

para o aprendizado, pois possuem como uma de suas principais vantagens o grande potencial

para o processo de ensino e aprendizagem, por despertarem naturalmente o interesse dos

alunos.

Segundo Grossi [GRO s.d.], o jogo estimula a vida e representa efetivamente, uma

contribuição na aprendizagem da criança, por ser uma atividade rica e desafiadora,

contribuindo para o crescimento intelectual, afetivo e interesse em aprender e cabe ao

professor aproveitar-se destas características como estratégias pedagógicas.

17

3. Importância do Jogo da Memória para a criança e o pré-adolescente

Segundo a psicopedagoga Kerlly Mirela, o jogo da memória desenvolve o raciocínio

rápido, a noção espacial e a memória fotográfica. Já no âmbito intelectual, ou seja, o tema

apresentado em cada conjunto de peças pode, e deve variar. Esta variação temática vem de

acordo com a necessidade apresentada por cada faixa etária, bem como, os conteúdos a serem

trabalhados e fixados de forma diferente.

Sob essa ótica, o jogo da memória pode conter: operações, sílabas, estados e capitais,

imagens e palavras, entre outros. Apenas estes pares citados já abrangem muitos conteúdos,

eventualmente, pouco assimilados por alunos.

18

4. Cronograma do Projeto

Foi utilizado o software Microsoft Project para a implementação de um cronograma

automatizado e dinâmico. No escopo do cronograma, há todas as tarefas desde o início do

projeto, a serem visualizadas abaixo com suas respectivas datas e períodos.

19

5. WBS

A WBS (Work Breakdown Structure) é a estruturação do projeto completo com todas

as etapas organizadas de forma hierárquica.

Figura 4 – Estrutura analítica ou descritiva de todo o projeto.

6. Fluxograma do Jogo da Memória

Este fluxograma é a representação esquemática do Jogo da memória.

Figura

grama do Jogo da Memória


Figura 5 – Fluxograma jogo da Memória.

20


21

7. Diagramas de Sequência Do Jogo da Memória

A seguir os diagramas de sequência utilizados em UML, mostram a sequência dos

processos, especificando a comunicação entre os objetos.

No Menu Principal o usuário poderá escolher as opções listadas abaixo.

Figura 6 – Diagrama de Sequência Menu Principal.

/Usuário /Tela Inicial /Menu Principal

1 : Acessa Tela Inicial()

2 : Escolher Jogar()

3 : Manual()

4 : Contato()

5 : Sair()

22

Ao clicar em Jogar o usuário poderá escolher um dos três temas.

Figura 7 - Diagrama de Sequência “Escolher Jogo”.

/Jogador /Tema do Jogo /Jogos /Sair

1 : Opção escolher jogar()

2 : Animais()

3 : Alimentos()

4 : Verbos()

5 : Voltar para a Tela Inicial()

6 : Sair do Sistema()

23

Diagrama de sequência da execução do jogo da memória. Ao jogar qualquer um dos

temas a sequência será a mesma.

Figura 8 - Diagrama de Sequência da execução do jogo.

/Jogador /Interface /Jogo em Execução /Volta para o Menu

1 : Solicitar Inicialização()

2 : Carrega Imagens()

3 : Mostra Imagens()

4 : Escolher 1º Carta()

5 : Mostrar 1º Carta Escolhida()

6 : Escolher 2º Carta()

7 : Mostrar 2º Carta()

8 : Identificou que são iguais()9 : O par fica fica visível()

10 : Se não são iguais. As cartas são viradas()

11 : Continue Jogando()

12 : Após a mensagem de finalização()

13 : A história do tema fica visível para o usuário()

14 : Volta para o Menu()

24

O usuário tem a opção de escolher a opção no Manual no qual terá um breve

explicativo do funcionamento do jogo.

Figura 9 - Diagrama de Sequência Manual.

Caso o usuário tenha a necessidade de nos contato poderá utilizar a opção do contato,

no qual deverá preencher o seu nome e a mensagem e clicar em enviar, neste caso nós

recebemos o e-mail.

Figura 10 - Diagrama de Sequencia Contato.

/Usuário /Tela Inicial /Manual /Sair

1 : Acessa Tela Inicial()2 : Seleciona Manual()

3 : Visualiza Manual()

4 : Sair()

5 : Voltar a Tele Inicial()

/Usuário /Tela Inicial /Contato /Sair/Sistema de Envio

1 : Acessa Tela Inicial()2 : Seleciona Contato()

3 : Preenche Dados()

4 : Envia E-mail()

5 : Voltar a Tele Inicial()

6 : Sair()

25

8. Desenvolvimento do Projeto

O Projeto foi desenvolvido na plataforma. Net utilizando a linguagem Visual Basic

nativa. NET, por ser a linguagem que melhor atendeu as necessidades do projeto e por fazer

parte da grade curricular do curso Técnico de Informática.

O sistema não possui banco de dados, pois possui um funcionamento simples que não

exige um grande volume de armazenamento de dados, no qual todos os recursos da aplicação

serão carregados de forma padrão utilizando os próprios recursos do Visual Basic. Net.

Ele está apto para a interatividade, diversão e aprendizado em três jogos que

despertam a curiosidade, estimulam o aprendizado, raciocínio lógico e trazem o Ensino de

Português e LIBRAS, por meio da associação de imagens de desenhos ilustrados, os quais

contêm as palavras em Português e os gráficos dos gestos das palavras correspondentes em

LIBRAS.

26

9. Telas e Descritivos de Telas

9.1 Menu Principal

Figura 11 – Menu principal.

• Botão Jogar: Ao clicar em Jogar, o usuário será direcionado para a Tela de Escolha dos

Temas, onde poderá obter uma visualização prévia de cada jogo e escolher aquele que lhe

for conveniente.

• Manual: Este botão direciona o usuário para o Manual do Funcionamento dos Jogos, o

qual será aberto em uma página de internet, no qual poderão ser visualizadas as instruções

e o funcionamento dos Jogos, caso haja dúvidas sobre eles.

• Contato: O Botão Contato direcionará o usuário para uma outra tela, na qual o usuário

poderá enviar um email contendo uma mensagem em relação ao jogo. Este email será

enviado diretamente ao endereço de email do grupo, que servirá de elo entre o sistema e

os usuários.

• Sair: Encerra o jogo.

27

9.1.1 Códigos do Menu Principal

Public Class MenuPrincipalEG

Private Sub MenuPrincipalEG_FormClosing(ByVal sender As Object, ByVal e As

System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

Application.Exit()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click

VarTema = ""

FrmTemadosJogos.Show()

Me.Hide()

End Sub



Contato.Show()

Me.Hide()

End Sub



Application.Exit()

End Sub

End Class

28

9.2 Escolha do Tema

Figura 12 - Escolha do Tema.

Nesta tela o usuário terá a possibilidade de selecionar um dos Jogos pelo tema e em

seguida ter a visualização dele no painel. Para fazer sua escolha e Jogar, ele deverá primeiro

clicar na opção desejada e depois no botão Jogar, localizado abaixo do painel. Feito isso, uma

nova tela será aberta com o Jogo escolhido por ele.

• Botão Alimentos: Jogo da Memória Alimentos;

• Botão Animais: Jogo da Memória Animais;

• Botão Verbos: Jogo da Memória Verbos;

• Jogar: Ao selecionar um jogo e clicar neste botão, o usuário será direcionado a tela do

Jogo escolhido;

• Sair: O Usuário sairá desta tela e será direcionado ao Menu Principal.

29

9.2.1 Códigos da Tela Escolha do Tema

Public Class FrmTemadosJogos



MenuPrincipalEG.Show()

Me.Close()

End Sub



PictureBox1.Load("C:\Documents and Settings\CDP PINHEIROS 1\Meus

documentos\Minhas imagens\modelojogomemoria2.jpg")

VarTema = "ALIMENTOS"

End Sub




documentos\Minhas imagens\tabua.png")

VarTema = "ANIMAIS"

End Sub




documentos\Minhas imagens\selecionartema.png")

VarTema = "VERBOS"

End Sub



If VarTema = "" Then

'msgbox("É necessário selecionar uma opção de jogo")

ElseIf VarTema = "ALIMENTOS" Then

FrmTemaAlimentos.Show()

30

Me.Close()

ElseIf VarTema = "ANIMAIS" Then

ExTemaAnimais.Show()

Me.Close()

ElseIf VarTema = "VERBOS" Then

FrmTemaVerbos.Show()

Me.Close()

End If

End Sub

End Class

31

9.3 Tela de memorização

Figura 13 – Tela de memorização.

Nesta Tela o usuário irá memorizar por alguns segundos os pares das cartas com os

animais e os sinais em libras antes de iniciar o Jogo.

9.3.1 Código da Tela de Memorização

Public Class ExTemaAnimais

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MyBase.Load

'PictureBox9.Image = My.Resources.Passaro_Libras

'PictureBox10.Image = My.Resources.Cavalo

'PictureBox11.Image = My.Resources.Vaca_libras

'PictureBox12.Image = My.Resources.Cobra

'PictureBox13.Image = My.Resources.Galinha

'PictureBox14.Image = My.Resources.Porco_Libras

'PictureBox15.Image = My.Resources.Vaca

'PictureBox16.Image = My.Resources.Cachorro_libras

'PictureBox17.Image = My.Resources.Gato_libras

32

'PictureBox18.Image = My.Resources.Peixe

'PictureBox19.Image = My.Resources.Galinha_libras

'PictureBox20.Image = My.Resources.Gato

'PictureBox21.Image = My.Resources.Passaro

'PictureBox22.Image = My.Resources.Aranha

'PictureBox23.Image = My.Resources.Cobra_Libras

'PictureBox24.Image = My.Resources.Aranha_Libras

'PictureBox25.Image = My.Resources.Porco

'PictureBox26.Image = My.Resources.Cavalo_libras

'PictureBox27.Image = My.Resources.Peixe_libras

'PictureBox28.Image = My.Resources.Cachorro

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles Timer1.Tick

ProgressBar1.Increment(20)

If ProgressBar1.Value = ProgressBar1.Maximum Then

FrmTemaAnimais.Show()

Me.Close()

End If

End Sub

33

9.4 Tela do Jogo da Memória dos Animais

Figura 14 - Tela do jogo da Memória do Tema dos Animais.

Aqui é o jogo da memória com o tema dos animais de fato, onde o usuário irá fazer o

par da palavra em português com o sinal de libras.

9.4.1 Código do Jogo da Memória Animais

Public Class FrmTemaAnimais

Inherits System.Windows.Forms.Form

Dim ig1 As Integer = 0


Dim fimg1(16)

Dim fimg2(16)

Private Sub NIVEL1_FormClosing(ByVal sender As Object, ByVal e As

System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

Application.Exit()

End Sub

Private Sub MovimentaPicturebox()

34

PictureBox9.SendToBack()




















End Sub

Private Sub NIVEL1_Load(ByVal sender As System.Object, ByVal e As


PictureBox9.Image = My.Resources.Passaro_Libras

PictureBox10.Image = My.Resources.Cavalo

PictureBox11.Image = My.Resources.Vaca_libras

PictureBox12.Image = My.Resources.Cobra

PictureBox13.Image = My.Resources.Galinha

PictureBox14.Image = My.Resources.Porco_Libras

PictureBox15.Image = My.Resources.Vaca

PictureBox16.Image = My.Resources.Cachorro_libras

PictureBox17.Image = My.Resources.Gato_libras

PictureBox18.Image = My.Resources.Peixe

PictureBox19.Image = My.Resources.Galinha_libras

PictureBox20.Image = My.Resources.Gato

35

PictureBox21.Image = My.Resources.Passaro

PictureBox22.Image = My.Resources.Aranha

PictureBox23.Image = My.Resources.Cobra_Libras

PictureBox24.Image = My.Resources.Aranha_Libras

PictureBox25.Image = My.Resources.Porco

PictureBox26.Image = My.Resources.Cavalo_libras

PictureBox27.Image = My.Resources.Peixe_libras

PictureBox28.Image = My.Resources.Cachorro

Dim i As Integer

MovimentaPicturebox()

For i = 1 To 8

fimg1(i) = 0

Next

i = 0

For i = 1 To 8

fimg2(i) = 0

Next

Pontos = 0

End Sub

Private Sub verificaimg()

Dim i As Integer

If ig1 = 1 And ig2 = 1 Then

ig1 = 0

ig2 = 0


For i = 1 To 20

fimg1(i) = 0

Next

i = 0

For i = 1 To 20

36

fimg2(i) = 0

Next

End If

End Sub

Private Sub verificapontuacao()

Pontos = Pontos + 1

Label3.Text = Pontos

If Pontos = 4 Then

Me.Hide()

'msgbox.Show()

FrmHistoriadoTema.Show()

End If

End Sub

Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles PictureBox1.Click

Dim i As Integer

verificaimg()


ig2 = 1

PictureBox9.BringToFront()

For i = 1 To 50

Next

fimg1(1) = 1

fimg2(1) = 1

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

Next

fimg1(1) = 1

End If

37

If fimg2(1) = 1 Then

If fimg1(1) = 1 And fimg1(6) = 1 Then

PictureBox9.Visible = True


PictureBox1.Visible = False


verificapontuacao()

End If

End If

End Sub



verificaimg()

Dim i As Integer


ig2 = 1


For i = 1 To 50

Next

fimg1(2) = 1

fimg2(2) = 1

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

Next

fimg1(2) = 1

38

End If







verificapontuacao()

End If

End If

End Sub



Dim i As Integer

verificaimg()


ig2 = 1


For i = 1 To 50

Next

fimg1(3) = 1

fimg2(3) = 1

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

Next

39

fimg1(3) = 1

End If







verificapontuacao()

End If

End If

End Sub



Dim i As Integer

verificaimg()


ig2 = 1


For i = 1 To 50

Next

fimg1(4) = 1

fimg2(4) = 1

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

40

Next

fimg1(4) = 1

End If







verificapontuacao()

End If

End If

End Sub



Dim i As Integer

verificaimg()


ig2 = 1


For i = 1 To 50

Next

fimg1(5) = 1

fimg2(5) = 1

ElseIf ig1 = 0 Then

ig1 = 1


41

For i = 1 To 50

Next

fimg1(5) = 1

End If





'PictureBox5.Visible = False


verificapontuacao()

End If

End If

End Sub



Dim i As Integer

verificaimg()


ig2 = 1


For i = 1 To 50

Next

fimg1(6) = 1

fimg2(6) = 1

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

42

Next

fimg1(6) = 1

End If







verificapontuacao()

End If

End If

End Sub



Dim i As Integer

verificaimg()


ig2 = 1


For i = 1 To 50

Next

fimg1(7) = 1

fimg2(7) = 1

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

43

Next

fimg1(7) = 1

End If







verificapontuacao()

End If

End If

End Sub



Dim i As Integer

verificaimg()


ig2 = 1


For i = 1 To 50

Next

fimg1(8) = 1

fimg2(8) = 1

ElseIf ig1 = 0 Then

ig1 = 1


44

For i = 1 To 50

Next

fimg1(8) = 1

End If







verificapontuacao()

End If

End If

End Sub


System.EventArgs)

MenuPrincipalEG.Close()

Close()

End Sub

Private Sub SairDoJogoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal

e As System.EventArgs) Handles SairDoJogoToolStripMenuItem.Click

Application.Exit()

End Sub

Private Sub VoltarParaMenuPrincipalToolStripMenuItem_Click(ByVal sender As

System.Object, ByVal e As System.EventArgs) Handles

VoltarParaMenuPrincipalToolStripMenuItem.Click


45

Me.Close()

End Sub



Dim i As Integer

verificaimg()


ig2 = 1


For i = 1 To 50

Next

fimg1(6) = 1

fimg2(6) = 1

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

Next

fimg1(6) = 1

End If







verificapontuacao()

End If

46

End If

End Sub



Dim i As Integer

verificaimg()


ig2 = 1


For i = 1 To 50

Next

fimg1(32) = 1

fimg2(32) = 1

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

Next

fimg1(32) = 1

End If







verificapontuacao()

End If

End If

End Sub

End Class

47

9.4.2 Tela da História do Jogo da Memória Animais

Figura 15 – Tela da história do jogo da memória.

• Personagens dos Jogos: Aqui será uma breve história com os personagens dos jogos

que é mostrada assim que o usuário finalizar todos os pares .

• Voltar para o Menu dos Jogos: Aqui o usuário poderá voltar para o menu principal de

escolha dos jogos .

9.4.3 Código da Tela

Public Class FrmHistoriadoTema




Me.Close()

End Sub

Private Sub Personagens_Load(ByVal sender As System.Object, ByVal e As


End Sub

48



End Sub

Private Sub PictureBox1_MouseHover(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles PictureBox1.MouseHover

PictureBox1.Image = My.Resources.Passaro_Libras

End Sub

Private Sub PictureBox1_MouseLeave(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles PictureBox1.MouseLeave

PictureBox1.Image = My.Resources.Passaro

End Sub



PictureBox2.Image = My.Resources.Galinha_libras

End Sub



PictureBox2.Image = My.Resources.Galinha

End Sub



PictureBox3.Image = My.Resources.Gato_libras

End Sub



PictureBox3.Image = My.Resources.Gato

End Sub

49



PictureBox4.Image = My.Resources.Cachorro_libras

End Sub



PictureBox4.Image = My.Resources.Cachorro

End Sub



PictureBox5.Image = My.Resources.Aranha_Libras

End Sub



PictureBox5.Image = My.Resources.Aranha

End Sub



PictureBox6.Image = My.Resources.Cobra_Libras

End Sub



PictureBox6.Image = My.Resources.Cobra

End Sub



PictureBox7.Image = My.Resources.Peixe_libras

End Sub

50



PictureBox7.Image = My.Resources.Peixe

End Sub



PictureBox8.Image = My.Resources.Cavalo_libras

End Sub



PictureBox8.Image = My.Resources.Cavalo

End Sub



PictureBox9.Image = My.Resources.Vaca_libras

End Sub



PictureBox9.Image = My.Resources.Vaca

End Sub



PictureBox10.Image = My.Resources.Porco_Libras

End Sub



51

PictureBox10.Image = My.Resources.Porco

End Sub



Me.Close()

FrmTemadosJogos.Show()

End Sub

End Class

52

9.5 Tela do Jogo da Memória Alimentos

Figura 16 – Tela do Jogo da Memória Alimentos.

Nesta tela, o usuário terá a oportunidade de jogar o Jogo da Memória Alimentos, como

o mesmo funcionamento do anterior, com a diferença nas imagens, no foco do tema e no

nome dos componentes do formulário.

9.5.1 Código do Jogo da Memória Alimentos

Public Class FrmTemaAlimentos




Dim fimg1(20)

Dim fimg2(20)

Private Sub RotinaVisualizar()

Timer1.Start()



53

ProgressBar1.Visible = True

btnVisualizarModelo.Enabled = False

ProgressBar1.Value = 0

End Sub

Private Sub MovimentaPicturebox()





















End Sub

Private Sub NIVEL1_Load(ByVal sender As System.Object, ByVal e As


RotinaVisualizar()

PictureBox9.Image = My.Resources.Carne_libras

PictureBox10.Image = My.Resources.Alimentos

PictureBox11.Image = My.Resources.Chocolate_libras

PictureBox12.Image = My.Resources.Arroz

54

PictureBox13.Image = My.Resources.Bolacha

PictureBox14.Image = My.Resources.Batatas_libras

PictureBox15.Image = My.Resources.Chocolate

PictureBox16.Image = My.Resources.Macarrao_libras

PictureBox17.Image = My.Resources.Cafe_libras

PictureBox18.Image = My.Resources.Feijao

PictureBox19.Image = My.Resources.Bolacha_libras

PictureBox20.Image = My.Resources.Cafe

PictureBox21.Image = My.Resources.Carne

PictureBox22.Image = My.Resources.Leite

PictureBox23.Image = My.Resources.Arroz_libras

PictureBox24.Image = My.Resources.Leite_libras

PictureBox25.Image = My.Resources.Batatas

PictureBox26.Image = My.Resources.Alimentos_libras

PictureBox27.Image = My.Resources.Feijao_libras

PictureBox28.Image = My.Resources.Macarrao

Dim i As Integer


For i = 1 To 20

fimg1(i) = 0

Next

i = 0

For i = 1 To 20

fimg2(i) = 0

Next

Pontos = 0

End Sub


Dim i As Integer


ig1 = 0

ig2 = 0

55


For i = 1 To 20

fimg1(i) = 0

Next

i = 0

For i = 1 To 20

fimg2(i) = 0

Next

End If

End Sub


Pontos = Pontos + 1


If Pontos = 10 Then

FrmHistoriaTemaAlimentos.Show()

Me.Close()

End If

End Sub



verificaimg()

Dim i As Integer


ig2 = 1


For i = 1 To 50

Next

fimg1(8) = 1

fimg2(8) = 1

56

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

Next

fimg1(8) = 1

End If







verificapontuacao()

End If

End If

End Sub



verificaimg()

Dim i As Integer


ig2 = 1


For i = 1 To 50

Next

fimg1(15) = 1

fimg2(15) = 1

57

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

Next

fimg1(15) = 1

End If







verificapontuacao()

End If

End If

End Sub



verificaimg()

Dim i As Integer


ig2 = 1


For i = 1 To 50

Next

fimg1(16) = 1

58

fimg2(16) = 1

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

Next

fimg1(16) = 1

End If







verificapontuacao()

End If

End If

End Sub



verificaimg()

Dim i As Integer


ig2 = 1


For i = 1 To 50

Next

fimg1(17) = 1

59

fimg2(17) = 1

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

Next

fimg1(17) = 1

End If







verificapontuacao()

End If

End If

End Sub



verificaimg()

Dim i As Integer


ig2 = 1


For i = 1 To 50

Next

60

fimg1(1) = 1

fimg2(1) = 1

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

Next

fimg1(1) = 1

End If







verificapontuacao()

End If

End If

End Sub



verificaimg()

Dim i As Integer


ig2 = 1


For i = 1 To 50

Next

61

fimg1(10) = 1

fimg2(10) = 1

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

Next

fimg1(10) = 1

End If







verificapontuacao()

End If

End If

End Sub



verificaimg()

Dim i As Integer


ig2 = 1


For i = 1 To 50

62

Next

fimg1(9) = 1

fimg2(9) = 1

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

Next

fimg1(9) = 1

End If







verificapontuacao()

End If

End If

End Sub



verificaimg()

Dim i As Integer


ig2 = 1


For i = 1 To 50

63

Next

fimg1(11) = 1

fimg2(11) = 1

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

Next

fimg1(11) = 1

End If







verificapontuacao()

End If

End If

End Sub



verificaimg()

Dim i As Integer


ig2 = 1


For i = 1 To 50

64

Next

fimg1(2) = 1

fimg2(2) = 1

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

Next

fimg1(2) = 1

End If







verificapontuacao()

End If

End If

End Sub



verificaimg()

Dim i As Integer


ig2 = 1


65

For i = 1 To 50

Next

fimg1(13) = 1

fimg2(13) = 1

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

Next

fimg1(13) = 1

End If







verificapontuacao()

End If

End If

End Sub



verificaimg()

Dim i As Integer


ig2 = 1


66

For i = 1 To 50

Next

fimg1(13) = 1

fimg2(13) = 1

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

Next

fimg1(13) = 1

End If







verificapontuacao()

End If

End If

End Sub



verificaimg()

Dim i As Integer


ig2 = 1


67

For i = 1 To 50

Next

fimg1(20) = 1

fimg2(20) = 1

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

Next

fimg1(20) = 1

End If







verificapontuacao()

End If

End If

End Sub



verificaimg()

Dim i As Integer


ig2 = 1


68

For i = 1 To 50

Next

fimg1(3) = 1

fimg2(3) = 1

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

Next

fimg1(3) = 1

End If







verificapontuacao()

End If

End If

End Sub



verificaimg()

Dim i As Integer


ig2 = 1


69

For i = 1 To 50

Next

fimg1(4) = 1

fimg2(4) = 1

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

Next

fimg1(4) = 1

End If







verificapontuacao()

End If

End If

End Sub



verificaimg()

Dim i As Integer


ig2 = 1


70

For i = 1 To 50

Next

fimg1(5) = 1

fimg2(5) = 1

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

Next

fimg1(5) = 1

End If







verificapontuacao()

End If

End If

End Sub



verificaimg()

Dim i As Integer


ig2 = 1


71

For i = 1 To 50

Next

fimg1(6) = 1

fimg2(6) = 1

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

Next

fimg1(6) = 1

End If







verificapontuacao()

End If

End If

End Sub



verificaimg()

Dim i As Integer


ig2 = 1


72

For i = 1 To 50

Next

fimg1(7) = 1

fimg2(7) = 1

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

Next

fimg1(7) = 1

End If







verificapontuacao()

End If

End If

End Sub



verificaimg()

Dim i As Integer


ig2 = 1


73

For i = 1 To 50

Next

fimg1(18) = 1

fimg2(18) = 1

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

Next

fimg1(18) = 1

End If







verificapontuacao()

End If

End If

End Sub



verificaimg()

Dim i As Integer


ig2 = 1


74

For i = 1 To 50

Next

fimg1(12) = 1

fimg2(12) = 1

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

Next

fimg1(12) = 1

End If







verificapontuacao()

End If

End If

End Sub



verificaimg()

Dim i As Integer


ig2 = 1


75

For i = 1 To 50

Next

fimg1(19) = 1

fimg2(19) = 1

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

Next

fimg1(19) = 1

End If







verificapontuacao()

End If

End If

End Sub

Private Sub btnVisualizarModelo_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btnVisualizarModelo.Click

RotinaVisualizar()

End Sub


Handles Timer1.Tick

76






ProgressBar1.Visible = False

btnVisualizarModelo.Enabled = True

Timer1.Stop()

End If

End Sub




Me.Close()

End Sub

Private Sub VoltarAoMenuPrincipalToolStripMenuItem_Click(ByVal sender As


VoltarAoMenuPrincipalToolStripMenuItem.Click


Me.Close()

End Sub

Private Sub ExemploToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e

As System.EventArgs) Handles ExemploToolStripMenuItem.Click

RotinaVisualizar()

End Sub

End Class

77

9.5.2 Tela da Historia do Jogo da Memória Alimentos

Figura 17 – Tela da história do jogo da memória Alimentos.

Da mesma forma como no jogo anterior, ao terminar este nível temático, o usuário se

divertirá com uma história ilustrativa criada sobre o tema em questão, neste caso sobre os

alimentos. Cada palavra em destaque é representada pela sua representação visual, e ao passar

o mouse sobre cada imagem, aparecerá no canto direito um painel com a imagem

correspondente em LIBRAS e Português.

9.5.3 Código da Tela

Public Class FrmHistoriaTemaAlimentos






End Sub



78

PictureBox1.Image = My.Resources.Arroz

PictureBox8.Image = Nothing


End Sub






End Sub



PictureBox2.Image = My.Resources.Leite



End Sub






End Sub



PictureBox3.Image = My.Resources.Chocolate



End Sub



79




End Sub



PictureBox4.Image = My.Resources.Bolacha



End Sub






End Sub



PictureBox5.Image = My.Resources.Cafe



End Sub






End Sub



80

PictureBox6.Image = My.Resources.Batatas



End Sub






End Sub



PictureBox7.Image = My.Resources.Feijao



End Sub






End Sub



PictureBox9.Image = My.Resources.Macarrao



End Sub



81




End Sub



PictureBox10.Image = My.Resources.Carne



End Sub




Me.Close()

End Sub

Private Sub VoltarAoMenuDoJogoToolStripMenuItem_Click(ByVal sender As


VoltarAoMenuDoJogoToolStripMenuItem.Click


Me.Close()

End Sub

End Class

82

9.6 Tela do Jogo da Memória de Verbos

Figura 18 – Tela do Jogo da Memória.

Aqui, com o funcionamento padrão em relação aos dois jogos vistos anteriormente, a

diferença está na mudança do tema (Verbos), das palavras e suas respectivas imagens.

9.6.1 Código do Jogo da Memória Verbos

Public Class FrmTemaVerbos


Private Sub RotinaVisualizar()

Timer1.Start()




btnVisualizarModelo.Enabled = False

ProgressBar1.Value = 0

End Sub

Private Sub MovimentaPictureBox1()

83





















End Sub

Private Sub FrmTemaVerbos_Load(ByVal sender As System.Object, ByVal e As


RotinaVisualizar()

PictureBox3.Image = My.Resources.Brincar1

PictureBox4.Image = My.Resources.Amar1

PictureBox7.Image = My.Resources.Aprender_libras1

PictureBox8.Image = My.Resources.Acordar1

PictureBox9.Image = My.Resources.Ensinar_libras1

PictureBox10.Image = My.Resources.Acordar_libras1

PictureBox11.Image = My.Resources.Ler

PictureBox18.Image = My.Resources.Dormir_libras1

PictureBox17.Image = My.Resources.Castigar_libras1

84

PictureBox16.Image = My.Resources.Ensinar1

PictureBox15.Image = My.Resources.Ajudar1

PictureBox14.Image = My.Resources.Arrumar1

PictureBox13.Image = My.Resources.Ler_libras

PictureBox12.Image = My.Resources.Amar_libras1

PictureBox25.Image = My.Resources.Aprender1

PictureBox24.Image = My.Resources.Brincar_libras1

PictureBox23.Image = My.Resources.Dormir1

PictureBox22.Image = My.Resources.Ajudar_libras1

PictureBox21.Image = My.Resources.Castigar1

PictureBox20.Image = My.Resources.Arrumar_libras1

MovimentaPictureBox1()

Dim i As Integer

For i = 1 To 20

fimg1(i) = 0

Next

i = 0

For i = 1 To 20

fimg2(i) = 0

Next

Pontos = 0

End Sub


Dim i As Integer


ig1 = 0

ig2 = 0

MovimentaPictureBox1()

For i = 1 To 20

fimg1(i) = 0

Next

85

i = 0

For i = 1 To 20

fimg2(i) = 0

Next

End If

End Sub


Pontos = Pontos + 1


If Pontos = 10 Then

FrmHistoriaTemaVerbos.Show()

Me.Close()

End If

End Sub



verificaimg()

Dim i As Integer


ig2 = 1


For i = 1 To 50

Next

fimg1(1) = 1

fimg2(1) = 1

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

86

Next

fimg1(1) = 1

End If







verificapontuacao()

End If

End If

End Sub



verificaimg()

Dim i As Integer


ig2 = 1


For i = 1 To 50

Next

fimg1(2) = 1

fimg2(2) = 1

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

87

Next

fimg1(2) = 1

End If







verificapontuacao()

End If

End If

End Sub



verificaimg()

Dim i As Integer


ig2 = 1


For i = 1 To 50

Next

fimg1(3) = 1

fimg2(3) = 1

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

88

Next

fimg1(3) = 1

End If







verificapontuacao()

End If

End If

End Sub



verificaimg()

Dim i As Integer


ig2 = 1


For i = 1 To 50

Next

fimg1(4) = 1

fimg2(4) = 1

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

89

Next

fimg1(4) = 1

End If







verificapontuacao()

End If

End If

End Sub



verificaimg()

Dim i As Integer


ig2 = 1


For i = 1 To 50

Next

fimg1(5) = 1

fimg2(5) = 1

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

90

Next

fimg1(5) = 1

End If







verificapontuacao()

End If

End If

End Sub



verificaimg()

Dim i As Integer


ig2 = 1


For i = 1 To 50

Next

fimg1(6) = 1

fimg2(6) = 1

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

91

Next

fimg1(6) = 1

End If







verificapontuacao()

End If

End If

End Sub



verificaimg()

Dim i As Integer


ig2 = 1


For i = 1 To 50

Next

fimg1(7) = 1

fimg2(7) = 1

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

92

Next

fimg1(7) = 1

End If







verificapontuacao()

End If

End If

End Sub



verificaimg()

Dim i As Integer


ig2 = 1


For i = 1 To 50

Next

fimg1(9) = 1

fimg2(9) = 1

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

93

Next

fimg1(9) = 1

End If







verificapontuacao()

End If

End If

End Sub



verificaimg()

Dim i As Integer


ig2 = 1


For i = 1 To 50

Next

fimg1(10) = 1

fimg2(10) = 1

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

94

Next

fimg1(10) = 1

End If







verificapontuacao()

End If

End If

End Sub



verificaimg()

Dim i As Integer


ig2 = 1


For i = 1 To 50

Next

fimg1(11) = 1

fimg2(11) = 1

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

95

Next

fimg1(11) = 1

End If







verificapontuacao()

End If

End If

End Sub



verificaimg()

Dim i As Integer


ig2 = 1


For i = 1 To 50

Next

fimg1(12) = 1

fimg2(12) = 1

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

96

Next

fimg1(12) = 1

End If







verificapontuacao()

End If

End If

End Sub



verificaimg()

Dim i As Integer


ig2 = 1


For i = 1 To 50

Next

fimg1(13) = 1

fimg2(13) = 1

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

97

Next

fimg1(13) = 1

End If







verificapontuacao()

End If

End If

End Sub



verificaimg()

Dim i As Integer


ig2 = 1


For i = 1 To 50

Next

fimg1(14) = 1

fimg2(14) = 1

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

98

Next

fimg1(14) = 1

End If







verificapontuacao()

End If

End If

End Sub



verificaimg()

Dim i As Integer


ig2 = 1


For i = 1 To 50

Next

fimg1(15) = 1

fimg2(15) = 1

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

99

Next

fimg1(15) = 1

End If







verificapontuacao()

End If

End If

End Sub



verificaimg()

Dim i As Integer


ig2 = 1


For i = 1 To 50

Next

fimg1(16) = 1

fimg2(16) = 1

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

100

Next

fimg1(16) = 1

End If







verificapontuacao()

End If

End If

End Sub



verificaimg()

Dim i As Integer


ig2 = 1


For i = 1 To 50

Next

fimg1(17) = 1

fimg2(17) = 1

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

101

Next

fimg1(17) = 1

End If







verificapontuacao()

End If

End If

End Sub



verificaimg()

Dim i As Integer


ig2 = 1


For i = 1 To 50

Next

fimg1(18) = 1

fimg2(18) = 1

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

102

Next

fimg1(18) = 1

End If







verificapontuacao()

End If

End If

End Sub



verificaimg()

Dim i As Integer


ig2 = 1


For i = 1 To 50

Next

fimg1(19) = 1

fimg2(19) = 1

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

103

Next

fimg1(19) = 1

End If







verificapontuacao()

End If

End If

End Sub



verificaimg()

Dim i As Integer


ig2 = 1


For i = 1 To 50

Next

fimg1(20) = 1

fimg2(20) = 1

ElseIf ig1 = 0 Then

ig1 = 1


For i = 1 To 50

104

Next

fimg1(20) = 1

End If







verificapontuacao()

End If

End If

End Sub

Private Sub btnVisualizarModelo_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btnVisualizarModelo.Click

RotinaVisualizar()

End Sub


Handles Timer1.Tick






ProgressBar1.Visible = False

btnVisualizarModelo.Enabled = True

Timer1.Stop()

105

End If

End Sub

Private Sub SairDoJogoToolStripMenuItem1_Click(ByVal sender As System.Object,

ByVal e As System.EventArgs) Handles SairDoJogoToolStripMenuItem1.Click


Me.Close()

End Sub




Me.Close()

End Sub

Private Sub ExemploToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e

As System.EventArgs) Handles ExemploToolStripMenuItem.Click

RotinaVisualizar()

End Sub



verificaimg()

Dim i As Integer


ig2 = 1


For i = 1 To 50

Next

fimg1(8) = 1

fimg2(8) = 1

ElseIf ig1 = 0 Then

ig1 = 1

106


For i = 1 To 50

Next

fimg1(8) = 1

End If







verificapontuacao()

End If

End If

End Sub

End Class

107

9.6.2 Tela História Jogo da Memória Verbos

Figura 19 – Tela da história do Jogo da Memória Verbos.

Após o término do nível dos verbos, o usuário já estará apto a visualizar a história

criada sobre o tema, com a mesma interação com as imagens.

9.6.3 Código da História do Jogo da Memória Verbos

Public Class FrmHistoriaTemaVerbos






End Sub



PictureBox1.Image = My.Resources.Acordar1



108

End Sub






End Sub



PictureBox2.Image = My.Resources.Aprender1

End Sub






End Sub



PictureBox3.Image = My.Resources.Ler

End Sub






End Sub



109

PictureBox4.Image = My.Resources.Ensinar1

End Sub






End Sub



PictureBox5.Image = My.Resources.Brincar1

End Sub






End Sub



PictureBox6.Image = My.Resources.Arrumar1

End Sub






End Sub

110



PictureBox7.Image = My.Resources.Castigar1

End Sub




Me.Close()

End Sub

Private Sub VoltarAoMenuDoJogoToolStripMenuItem_Click(ByVal sender As


VoltarAoMenuDoJogoToolStripMenuItem.Click


Me.Close()

End Sub

End Class

111

9.7 Tela do Contato

Figura 20 – Tela do contato.

Nesta tela, o usuário poderá enviar um email contendo uma mensagem relacionada aos

Jogos, o qual será enviado do próprio Jogo para o endereço de email do Grupo.

9.7.1 Código da Tela de Contato

Imports System.Net.Mail

Public Class FrmContato

Dim Menssage As New MailMessage

Dim smpt As New SmtpClient

Private Property DefaultButton2 As Object

Private Sub btnenviar_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btnenviar.Click

112

Menssage.From = New MailAddress("[email protected]", "IST") 'aqui

voce define o email para onse vai ser enviado as informações

Menssage.To.Add("[email protected]") 'aqui voce confirma o email

Menssage.Body = txtassunto.Text

Menssage.Subject = "INSTITUTO SANTA TEREZINHA"

Menssage.Priority = MailPriority.High

smpt.EnableSsl = True

smpt.Port = "587"

smpt.Host = "smtp.live.com"

smpt.Credentials = New Net.NetworkCredential("[email protected]", "ist123")

'usuario e senha do email que vai ser utilizado para enviar as informaçoes

Try

smpt.Send(Menssage)

MsgBox("E-mail Enviado Com Sucesso", MsgBoxStyle.OkOnly + vbInformation,

"Instituto Santa Terezinha")

Catch ex As Exception

MsgBox("Ocorreram problemas no envio do e-mail Error = " & ex.Message,

MsgBoxStyle.Critical, "Instituto Santa Terezinha")

End Try

End Sub




Close()

End Sub

Private Sub SairToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles SairToolStripMenuItem.Click

Menssage.From = New MailAddress("[email protected]", "IST") 'aqui voce

define o email para onse vai ser enviado as informações

Menssage.To.Add("[email protected]") 'aqui voce confirma o email

Menssage.Body = txtassunto.Text

113

Menssage.Subject = "INSTITUTO SANTA TEREZINHA"

Menssage.Priority = MailPriority.High

smpt.EnableSsl = True

smpt.Port = "587"

smpt.Host = "smtp.live.com"

smpt.Credentials = New Net.NetworkCredential("[email protected]", "ist123")

'usuario e senha do email que vai ser utilizado para enviar as informaçoes

Try

smpt.Send(Menssage)

MsgBox("E-mail Enviado Com Sucesso", MsgBoxStyle.OkOnly + vbInformation,

"Instituto Santa Terezinha")

Catch ex As Exception

MsgBox("Ocorreram problemas no envio do e-mail Error = " & ex.Message,

MsgBoxStyle.Critical, "Instituto Santa Terezinha")

End Try

End Sub

Private Sub SairToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles SairToolStripMenuItem1.Click


Close()

End Sub

End Class

114

9.8 Código do Sair

O Botão Sair do Menu Principal será o único que não terá uma tela, pois quando o

usuário clicar neste botão, o jogo finalizará imediatamente.

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles Button4.Click

Application.Exit()

End Sub

115

10. Requisitos do Sistema

10.1 Público-Alvo Alunos dEficientes Auditivos e Professores especialistas em LIBRAS e Português.

10.2 Características do Sistema

O sistema foca em usuários (alunos) dEficientes auditivos que tem dificuldades no

aprendizado de português , em especial em verbos e substantivos e demandam de materiais

que possam auxiliá-los neste aprendizado .

10.3 Interação

A interação do usuário com o Jogo Pedagógico EcoGames ocorre por meio dos

objetos contidos nele - construídos com a linguagem de programação - os quais são

responsáveis por carregar as imagens na tela em que serão utilizados

10.4 Usabilidade

O sistema será utilizado em tempo real pelo aluno, permitindo o usuário aprender o

Português Escrito com LIBRAS e se divertir com as animações visuais.

10.5 Confiabilidade

Disponibilidade do sistema para o usuário, com a segurança contra erros inesperados

no sistema.

10.6 Desempenho

O desempenho depende do número de eventos solicitados pelos usuários. Estes

eventos determinam sua interação dos usuários com o sistema.

10.7 Flexibilidade

O Jogo Pedagógico EcoGames é compatível com o Sistema Operacional Microsoft

Windows XP ou superior , no qual ele será instalado na máquina do usuário por meio de um

instalador com assistente.

10.8 Requisitos de Interface

Windows XP Professional ou Superior, 1 Giga byte de Memória RAM, Processador

Intel Dual Core.

116

11. Interfaces com o usuário (telas)

• Menu Principal;

• Escolha dos Temas;

• Jogo da Memória Alimentos;

• História do Jogo da Memória Alimentos;

• Jogo da Memória Verbos;


• Jogo da Memória Animais;


• Contato (Envio de email em tempo real no próprio jogo);

117

12. Conclusão

Através desse projeto, percebemos que as pessoas portadoras de dEficiência auditiva

muitas vezes são prejudicadas pela falta de recursos tecnológicos e materiais didáticos

adequados ao ensino que as ajudem no aprendizado de português.

As funcionalidades do jogo têm o intuito de ajudar os alunos e professores, tornando o

aprendizado da disciplina mais atrativa.

Concluímos que as dificuldades do cliente foram prontamente atendidas. Agregamos

para nós conhecimento por meio das dificuldades que encontramos, pois tínhamos como foco

a satisfação do cliente. Tendo em vista sua plena satisfação tivemos que encontrar meios de

resolver essas dificuldades.

118

13. Referências Bibliográficas

O Uso do Computador No Ensino de Geometria Para Deficientes Auditivos - Isotani,

Seiji (IME-USP); Tsutsumi, M. (DCH-Unifesp) e Brandão, L. O. (IME-USP). São Paulo,

2011: http://www.ime.usp.br/~isotani/artigos/cbcomp-paper.pdf

XVI Simpósio Nacional de Ensino de Física - Ensino de física para portadores de

deficiência auditiva: o problema dos livros didáticos - Nogueira, Lívia S.; Reisa, Liliane R.;

Ricardo, Elio Carlos. São Paulo, 2011:

http://www.sbf1.sbfisica.org.br/eventos/snef/xvi/cd/resumos/T0744-1.pdf

A Implementação de Jogos de Computador Educacionais: uma visão geral.

Kisielewicz, Leandro Augusto e Koscianski, André. São Paulo, 2011:

http://revistas.utfpr.edu.br/pg/index.php/rbect/article/viewFile/876/658

Desenvolvimento de jogos educativos em 3 dimensões. Vinícius F. Machuca,

Guilherme S. Oliveira, Jean P. F. Romero, Evandro Montenegro, Neil F. Tanaka, Luiz Carlos

F. Júnior, Ricardo M. Martins, Guilherme R. Lamm, Silene Fernandes Bicudo, Teresinha

Nogueira. São Paulo, 2011:

Projeto Instituição de Ensino / Sociedade / Portadores de Deficiência - FEFISA,

Associação de Portadores de Deficiência. Disponível São Paulo, 2012:

http://ies.portadoresdedeficiencia.vilabol.uol.com.br/index.html.

Língua Brasileira de Sinais – Uso das imagens. Disponível em

http://www.libras.com.br/web/index.php. São Paulo, 2012.

CENTRO PAULA SOUZA CURSO TÉCNICO DE INFORMÁTICA … · aplicação do Questionário e da...

Documents

Transcript of CENTRO PAULA SOUZA CURSO TÉCNICO DE INFORMÁTICA … · aplicação do Questionário e da...