Разработка программно-методического комплекса "Чукотский букварь"

Психолого-педагогические и обще-методические аспекты использования ИКТ в образовательном процессе. Анализ сред разработки мобильных приложений и языков программирования. Технология создания программно-методического комплекса для изучения чукотского языка.

Рубрика Программирование, компьютеры и кибернетика
Вид дипломная работа
Язык русский
Дата добавления 07.06.2014
Размер файла 5,8 M

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

29. Язык программирования C++. Лекции и упражнения, 6-е издание Автор: Стивен Прата Издательство: Вильямс, 2012

30. Заморщикова Л.П. дипломная работа 2005 г. по теме «Саха тыла» для учащихся с 5 по 9 классы национальных общеобразовательных школ.

31. Симонович С., Евсеев Г., Алексеев А. Специальная информатика. Универсальный курс. Симонович С., Евсеев Г., Алексеев А. Общая информатика, специальная информатика. М.: АСТпресс, 2010.

32. Титоренко Г.А. Информационные технологии управления. М., Юнити: 2006.

33. Захарова И.Г. Информационные технологии в образовании: учеб. Пособие для студ. высш. учеб.заведений - 3-е изд., стер. - М.: Издательский центр «Академия»,2007.-192 с.

34. Гродобаева И.Н.. Практические задания noMicrosoftWord,: Пособие для учащихся общеобразовательных школ, гимназий, лицеев. - МН.: Анерсэв, 2009.

35. Демкин В.П., Руденко Т.В., Серкова Н.В. Психолого-педагогические особенности ДО // Высшее образование в России. - 2011. № 3. 124-128с.

36. П. Дейтел, Х. Дейтел, Э. Дейтел, М. Моргано Android для программистов. Создаем приложения, Изд.: Питер. - 2013.

37. С. Хашими, С. Коматинени, Д. Маклин Разработка приложений для Android. Изд.: Питер. - 2011.

Приложение

Содержание программы

Система состоит из 57 форм:

3. 1 страница АБВГДЕ:

1.1. А

1.1.1. Аа

1.2. Б

1.2.1. Бб

3.3. В

1.3.1. Вв

3.4. Г

1.4.1. Гг

3.5. Д

1.5.1. Дд

3.6. Е

1.6.1. Ее

4. 2 страница ЁЖЗИЙК

2.1. Ё

2.1.1. Ёё

1.2. Ж

2.2.1. Жж

4.3. З

2.3.1. Зз

4.4. И

2.4.1. Ии

4.5. Й

2.5.1. Йй

4.6. К

2.6.1. Кк

5. 3 страница К,Л,М,НН,О

3.1. К,

3.1.1. К,к,

3.2. Л,

3.2.1. Л,л,

5.3. М,

3.3.1. М,м,

5.4. Н

3.4.1. Нн

5.5. Н,

3.5.1. Н,н,

5.6. О

3.6.1. Оо

6. 4 страница ПРСТУФ

4.1. П

4.1.1. Пп

4.2. Р

4.2.1. Рр

6.3. С

4.3.1. Сс

6.4. Т

4.4.1. Тт

6.5. У

4.5.1. Уу

6.6. Ф

4.6.1. Фф

7. 5 страница ХЦЧШЩЬ

5.1. Х

5.1.1. Хх

4.2. Ц

5.2.1. Цц

7.3. Ч

5.3.1. Чч

7.4. Ш

5.4.1. Шш

7.5. Щ

5.5.1. Щщ

7.6. Ь

5.6.1. Ьь

8. 6 страница ЫЪЭЮЯ и кнопка с рисунком кита (см. Рис. 10)

5.1. Ы

5.1.1. Ыы

4.2. Ъ

5.2.1. Ъъ

8.3. Э

5.3.1. Ээ

8.4. Ю

5.4.1. Юю

8.5. Я

5.5.1. Яя

8.6. Рассказы, т.е. кнопка с рисунком кита (см. Рис. 10)

5.6.1. Кал,евэттак-выргын

5.6.2. Инъэ

5.6.3. Выквык,ай

5.6.4. Рэк,овран

5.6.5. К,эпыл

5.6.6. Кэйн,ын

5.6.7. Мэмыл

5.6.8. Ынантан,ычьын

5.6.9. Ы,ттьыёлкен космонавт

5.6.10. Телефон

5.6.11. Чакэттыт

5.6.12. Налгынойн,ын

5.6.13. Ныгытэкин пипик,ылгын

5.6.14. Вээмк,эй

5.6.15. К,эюукэй

Приложение 2

Листинг программы

Главная

unit MainMenu;

interface

uses

System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,

FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Objects,

FMX.Layouts;

type

TfrmMainMenu = class(TForm)

imgArrowRight: TImage;

imgArrowLeft: TImage;

layPage1: TGridPanelLayout;

imgLetterA: TImage;

imgLetterB: TImage;

imgLetterV: TImage;

layPage2: TGridPanelLayout;

imgLetterYo: TImage;

imgLetterZh: TImage;

imgLetterZ: TImage;

layPage3: TGridPanelLayout;

imgLetterKh: TImage;

imgLetterLn: TImage;

imgLetterM: TImage;

layPage4: TGridPanelLayout;

imgLetterP: TImage;

imgLetterR: TImage;

imgLetterS: TImage;

layPage5: TGridPanelLayout;

imgLetterH: TImage;

imgLetterTs: TImage;

imgLetterCh: TImage;

layPage6: TGridPanelLayout;

imgLetterY: TImage;

imgLetterIi: TImage;

imgLetterYe: TImage;

imgLetterG: TImage;

imgLetterD: TImage;

imgLetterE: TImage;

imgLetterI: TImage;

imgLetterJ: TImage;

imgLetterK: TImage;

imgLetterN: TImage;

imgLetterNg: TImage;

imgLetterO: TImage;

imgLetterT: TImage;

imgLetterU: TImage;

imgLetterF: TImage;

imgLetterSh: TImage;

imgLetterSch: TImage;

imgLetterYy: TImage;

imgLetterYu: TImage;

imgLetterYa: TImage;

imgReadEx: TImage;

procedure FormCreate(Sender: TObject);

procedure imgArrowRightClick(Sender: TObject);

procedure imgArrowLeftClick(Sender: TObject);

procedure imgLetterAClick(Sender: TObject);

procedure imgLetterBClick(Sender: TObject);

procedure imgLetterVClick(Sender: TObject);

procedure imgLetterGClick(Sender: TObject);

procedure imgLetterDClick(Sender: TObject);

procedure imgLetterEClick(Sender: TObject);

procedure imgLetterIClick(Sender: TObject);

procedure imgLetterJClick(Sender: TObject);

procedure imgLetterKClick(Sender: TObject);

procedure imgLetterYoClick(Sender: TObject);

procedure imgLetterZClick(Sender: TObject);

procedure imgLetterZhClick(Sender: TObject);

procedure imgLetterKhClick(Sender: TObject);

procedure imgLetterLnClick(Sender: TObject);

procedure imgLetterMClick(Sender: TObject);

procedure imgLetterNClick(Sender: TObject);

procedure imgLetterNgClick(Sender: TObject);

procedure imgLetterOClick(Sender: TObject);

procedure imgLetterFClick(Sender: TObject);

procedure imgLetterPClick(Sender: TObject);

procedure imgLetterRClick(Sender: TObject);

procedure imgLetterSClick(Sender: TObject);

procedure imgLetterTClick(Sender: TObject);

procedure imgLetterUClick(Sender: TObject);

procedure imgLetterChClick(Sender: TObject);

procedure imgLetterHClick(Sender: TObject);

procedure imgLetterSchClick(Sender: TObject);

procedure imgLetterShClick(Sender: TObject);

procedure imgLetterTsClick(Sender: TObject);

procedure imgLetterYyClick(Sender: TObject);

procedure imgLetterIiClick(Sender: TObject);

procedure imgLetterYClick(Sender: TObject);

procedure imgLetterYaClick(Sender: TObject);

procedure imgLetterYeClick(Sender: TObject);

procedure imgLetterYuClick(Sender: TObject);

procedure imgReadExClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

frmMainMenu: TfrmMainMenu;

implementation

{$R *.fmx}

uses LettterA, LetterB, LettterD, LettterV, LettterE, LettterG, LetterYo,

LetterZh, LettterCh, LettterF, LettterH, LettterI, LettterIi, LettterJ,

LettterK, LettterKh, LettterL, LettterM, LettterN, LettterNg, LettterO,

LettterP, LettterR, LettterS, LettterSch, LettterSh, LettterT, LettterTs,

LettterU, LettterY, LettterYa, LettterYe, LettterYu, LettterYy, LettterZ,

ReadEx;

procedure TfrmMainMenu.FormCreate(Sender: TObject);

begin

layPage1.Visible:=True;

imgArrowLeft.Enabled:=False;

imgArrowLeft.Opacity:=0.4;

end;

procedure TfrmMainMenu.imgArrowLeftClick(Sender: TObject);

begin

if layPage6.Visible=True then begin

layPage6.Visible:=False;

imgArrowRight.Enabled:=True;

imgArrowRight.Opacity:=1;

layPage5.Visible:=True; exit; end;

if layPage5.Visible=True then begin

layPage5.Visible:=False;

layPage4.Visible:=True; exit; end;

if layPage4.Visible=True then begin

layPage4.Visible:=False;

layPage3.Visible:=True; exit; end;

if layPage3.Visible=True then begin

layPage3.Visible:=False;

layPage2.Visible:=True; exit; end;

if layPage2.Visible=True then begin

layPage2.Visible:=False;

imgArrowLeft.Enabled:=False;

imgArrowLeft.Opacity:=0.4;

layPage1.Visible:=True; exit; end;

end;

procedure TfrmMainMenu.imgArrowRightClick(Sender: TObject);

begin

if layPage1.Visible=True then begin

layPage1.Visible:=False;

imgArrowLeft.Enabled:=True;

imgArrowLeft.Opacity:=1;

layPage2.Visible:=True; exit; end;

if layPage2.Visible=True then begin

layPage2.Visible:=False;

layPage3.Visible:=True; exit; end;

if layPage3.Visible=True then begin

layPage3.Visible:=False;

layPage4.Visible:=True; exit; end;

if layPage4.Visible=True then begin

layPage4.Visible:=False;

layPage5.Visible:=True; exit; end;

if layPage5.Visible=True then begin

layPage5.Visible:=False;

imgArrowRight.Enabled:=False;

imgArrowRight.Opacity:=0.4;

layPage6.Visible:=True; exit; end;

end;

procedure TfrmMainMenu.imgLetterAClick(Sender: TObject);

begin

frmLetterA:=TfrmLetterA.Create(Self);

frmLetterA.Show;

end;

procedure TfrmMainMenu.imgLetterBClick(Sender: TObject);

begin

frmLetterB:=TfrmLetterB.Create(Self);

frmLetterB.Show;

end;

procedure TfrmMainMenu.imgLetterChClick(Sender: TObject);

begin

frmLetterCh:=TfrmLetterCh.Create(Self);

frmLetterCh.Show;

end;

procedure TfrmMainMenu.imgLetterDClick(Sender: TObject);

begin

frmLetterD:=TfrmLetterD.Create(Self);

frmLetterD.Show;

end;

procedure TfrmMainMenu.imgLetterEClick(Sender: TObject);

begin

frmLetterE:=TfrmLetterE.Create(Self);

frmLetterE.Show;

end;

procedure TfrmMainMenu.imgLetterFClick(Sender: TObject);

begin

frmLetterF:=TfrmLetterF.Create(Self);

frmLetterF.Show;

end;

procedure TfrmMainMenu.imgLetterGClick(Sender: TObject);

begin

frmLetterG:=TfrmLetterG.Create(Self);

frmLetterG.Show;

end;

procedure TfrmMainMenu.imgLetterHClick(Sender: TObject);

begin

frmLetterH:=TfrmLetterH.Create(Self);

frmLetterH.Show;

end;

procedure TfrmMainMenu.imgLetterIClick(Sender: TObject);

begin

frmLetterI:=TfrmLetterI.Create(Self);

frmLetterI.Show;

end;

procedure TfrmMainMenu.imgLetterIiClick(Sender: TObject);

begin

frmLetterIi:=TfrmLetterIi.Create(Self);

frmLetterIi.Show;

end;

procedure TfrmMainMenu.imgLetterJClick(Sender: TObject);

begin

frmLetterJ:=TfrmLetterJ.Create(Self);

frmLetterJ.Show;

end;

procedure TfrmMainMenu.imgLetterKClick(Sender: TObject);

begin

frmLetterK:=TfrmLetterK.Create(Self);

frmLetterK.Show;

end;

procedure TfrmMainMenu.imgLetterKhClick(Sender: TObject);

begin

frmLetterKh:=TfrmLetterKh.Create(Self);

frmLetterKh.Show;

end;

procedure TfrmMainMenu.imgLetterLnClick(Sender: TObject);

begin

frmLetterLn:=TfrmLetterLn.Create(Self);

frmLetterLn.Show;

end;

procedure TfrmMainMenu.imgLetterMClick(Sender: TObject);

begin

frmLetterM:=TfrmLetterM.Create(Self);

frmLetterM.Show;

end;

procedure TfrmMainMenu.imgLetterNClick(Sender: TObject);

begin

frmLetterN:=TfrmLetterN.Create(Self);

frmLetterN.Show;

end;

procedure TfrmMainMenu.imgLetterNgClick(Sender: TObject);

begin

frmLetterNg:=TfrmLetterNg.Create(Self);

frmLetterNg.Show;

end;

procedure TfrmMainMenu.imgLetterOClick(Sender: TObject);

begin

frmLetterO:=TfrmLetterO.Create(Self);

frmLetterO.Show;

end;

procedure TfrmMainMenu.imgLetterPClick(Sender: TObject);

begin

frmLetterP:=TfrmLetterP.Create(Self);

frmLetterP.Show;

end;

procedure TfrmMainMenu.imgLetterRClick(Sender: TObject);

begin

frmLetterR:=TfrmLetterR.Create(Self);

frmLetterR.Show;

end;

procedure TfrmMainMenu.imgLetterSchClick(Sender: TObject);

begin

frmLetterSch:=TfrmLetterSch.Create(Self);

frmLetterSch.Show;

end;

procedure TfrmMainMenu.imgLetterSClick(Sender: TObject);

begin

frmLetterS:=TfrmLetterS.Create(Self);

frmLetterS.Show;

end;

procedure TfrmMainMenu.imgLetterShClick(Sender: TObject);

begin

frmLetterSh:=TfrmLetterSh.Create(Self);

frmLetterSh.Show;

end;

procedure TfrmMainMenu.imgLetterTClick(Sender: TObject);

begin

frmLetterT:=TfrmLetterT.Create(Self);

frmLetterT.Show;

end;

procedure TfrmMainMenu.imgLetterTsClick(Sender: TObject);

begin

frmLetterTs:=TfrmLetterTs.Create(Self);

frmLetterTs.Show;

end;

procedure TfrmMainMenu.imgLetterUClick(Sender: TObject);

begin

frmLetterU:=TfrmLetterU.Create(Self);

frmLetterU.Show;

end;

procedure TfrmMainMenu.imgLetterVClick(Sender: TObject);

begin

frmLetterV:=TfrmLetterV.Create(Self);

frmLetterV.Show;

end;

procedure TfrmMainMenu.imgLetterYaClick(Sender: TObject);

begin

frmLetterYa:=TfrmLetterYa.Create(Self);

frmLetterYa.Show;

end;

procedure TfrmMainMenu.imgLetterYClick(Sender: TObject);

begin

frmLetterY:=TfrmLetterY.Create(Self);

frmLetterY.Show;

end;

procedure TfrmMainMenu.imgLetterYeClick(Sender: TObject);

begin

frmLetterYe:=TfrmLetterYe.Create(Self);

frmLetterYe.Show;

end;

procedure TfrmMainMenu.imgLetterYoClick(Sender: TObject);

begin

frmLetterYo:=TfrmLetterYo.Create(Self);

frmLetterYo.Show;

end;

procedure TfrmMainMenu.imgLetterYuClick(Sender: TObject);

begin

frmLetterYu:=TfrmLetterYu.Create(Self);

frmLetterYu.Show;

end;

procedure TfrmMainMenu.imgLetterYyClick(Sender: TObject);

begin

frmLetterYy:=TfrmLetterYy.Create(Self);

frmLetterYy.Show;

end;

procedure TfrmMainMenu.imgLetterZClick(Sender: TObject);

begin

frmLetterZ:=TfrmLetterZ.Create(Self);

frmLetterZ.Show;

end;

procedure TfrmMainMenu.imgLetterZhClick(Sender: TObject);

begin

frmLetterZh:=TfrmLetterZh.Create(Self);

frmLetterZh.Show;

end;

procedure TfrmMainMenu.imgReadExClick(Sender: TObject);

begin

frmReadEx:=TfrmReadEx.Create(Self);

frmReadEx.Show;

end;

end.

Передвижение по страницам

unit ReadEx;

interface

uses

System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,

FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Layouts,

FMX.Memo, FMX.Objects;

type

TfrmReadEx = class(TForm)

imgArrowLeft: TImage;

imgArrowRight: TImage;

layMain: TLayout;

imgReadExMain: TImage;

layPage1: TGridPanelLayout;

imgPage1: TImage;

memPage1: TMemo;

layPage2: TGridPanelLayout;

imgPage2: TImage;

memPage2: TMemo;

layPage3: TGridPanelLayout;

imgPage3: TImage;

memPage3: TMemo;

layPage4: TGridPanelLayout;

imgPage4: TImage;

memPage4: TMemo;

layPage5: TGridPanelLayout;

imgPage5: TImage;

memPage5: TMemo;

layPage6: TGridPanelLayout;

imgPage6: TImage;

memPage6: TMemo;

layPage7: TGridPanelLayout;

imgPage7: TImage;

memPage7: TMemo;

layPage8: TGridPanelLayout;

imgPage8: TImage;

memPage8: TMemo;

layPage9: TGridPanelLayout;

imgPage9: TImage;

memPage9: TMemo;

layPage10: TGridPanelLayout;

imgPage10: TImage;

memPage10: TMemo;

layPage11: TGridPanelLayout;

imgPage11: TImage;

memPage11: TMemo;

layPage12: TGridPanelLayout;

imgPage12: TImage;

memPage12: TMemo;

layPage13: TGridPanelLayout;

imgPage13: TImage;

memPage13: TMemo;

layPage14: TGridPanelLayout;

imgPage14: TImage;

memPage14: TMemo;

procedure FormCreate(Sender: TObject);

procedure imgArrowRightClick(Sender: TObject);

procedure imgArrowLeftClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

frmReadEx: TfrmReadEx;

implementation

{$R *.fmx}

procedure TfrmReadEx.FormCreate(Sender: TObject);

begin

layMain.Visible:=True;

imgArrowLeft.Enabled:=False;

imgArrowLeft.Opacity:=0.4;

end;

procedure TfrmReadEx.imgArrowLeftClick(Sender: TObject);

begin

if layPage14.Visible=True then begin

layPage14.Visible:=False;

imgArrowRight.Enabled:=True;

imgArrowRight.Opacity:=1;

layPage13.Visible:=True; exit; end;

if layPage13.Visible=True then begin

layPage13.Visible:=False;

layPage12.Visible:=True; exit; end;

if layPage12.Visible=True then begin

layPage12.Visible:=False;

layPage11.Visible:=True; exit; end;

if layPage11.Visible=True then begin

layPage11.Visible:=False;

layPage10.Visible:=True; exit; end;

if layPage10.Visible=True then begin

layPage10.Visible:=False;

layPage9.Visible:=True; exit; end;

if layPage9.Visible=True then begin

layPage9.Visible:=False;

layPage8.Visible:=True; exit; end;

if layPage8.Visible=True then begin

layPage8.Visible:=False;

layPage7.Visible:=True; exit; end;

if layPage7.Visible=True then begin

layPage7.Visible:=False;

layPage6.Visible:=True; exit; end;

if layPage6.Visible=True then begin

layPage6.Visible:=False;

layPage5.Visible:=True; exit; end;

if layPage5.Visible=True then begin

layPage5.Visible:=False;

layPage4.Visible:=True; exit; end;

if layPage4.Visible=True then begin

layPage4.Visible:=False;

layPage3.Visible:=True; exit; end;

if layPage3.Visible=True then begin

layPage3.Visible:=False;

layPage2.Visible:=True; exit; end;

if layPage2.Visible=True then begin

layPage2.Visible:=False;

layPage1.Visible:=True; exit; end;

if layPage2.Visible=True then begin

layPage2.Visible:=False;

imgArrowLeft.Enabled:=False;

imgArrowLeft.Opacity:=0.4;

layPage1.Visible:=True; exit; end;

end;

procedure TfrmReadEx.imgArrowRightClick(Sender: TObject);

begin

if layMain.Visible=True then begin

layMain.Visible:=False;

imgArrowLeft.Enabled:=True;

imgArrowLeft.Opacity:=1;

layPage1.Visible:=True; exit; end;

if layPage1.Visible=True then begin

layPage1.Visible:=False;

layPage2.Visible:=True; exit; end;

if layPage2.Visible=True then begin

layPage2.Visible:=False;

layPage3.Visible:=True; exit; end;

if layPage3.Visible=True then begin

layPage3.Visible:=False;

layPage4.Visible:=True; exit; end;

if layPage4.Visible=True then begin

layPage4.Visible:=False;

layPage5.Visible:=True; exit; end;

if layPage5.Visible=True then begin

layPage5.Visible:=False;

layPage6.Visible:=True; exit; end;

if layPage6.Visible=True then begin

layPage6.Visible:=False;

layPage7.Visible:=True; exit; end;

if layPage7.Visible=True then begin

layPage7.Visible:=False;

layPage8.Visible:=True; exit; end;

if layPage8.Visible=True then begin

layPage8.Visible:=False;

layPage9.Visible:=True; exit; end;

if layPage9.Visible=True then begin

layPage9.Visible:=False;

layPage10.Visible:=True; exit; end;

if layPage10.Visible=True then begin

layPage10.Visible:=False;

layPage11.Visible:=True; exit; end;

if layPage11.Visible=True then begin

layPage11.Visible:=False;

layPage12.Visible:=True; exit; end;

if layPage12.Visible=True then begin

layPage12.Visible:=False;

layPage13.Visible:=True; exit; end;

if layPage13.Visible=True then begin

layPage13.Visible:=False;

imgArrowRight.Enabled:=False;

imgArrowRight.Opacity:=0.4;

layPage14.Visible:=True; exit; end;

end;

end.

Размещено на Allbest.ur


Подобные документы

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.