Автор работы: Пользователь скрыл имя, 27 Марта 2015 в 21:03, дипломная работа
Delphi тілінің анимация мүмкіншіліктері
Кіріспе .........................................................................................................................3
1 Тарау. Бағдарламаға жалпы сипатама ……………………………………….4
§ 1.1 Анимацияның замандас мүмкіншіліктері.......................................................4
2 Тарау. Әзірлеме ортасын тандау……………………………………………..14
§ 2.1 Математикалық әдістерді таңдау...................................................................14
§ 2.2 Бағдарламалау тілін тандау............................................................................20
3 Тарау. Бағдарлама құру......................................................................................25
§ 3.1 Бағдарламаның жалпы қызмет ету алгоритімнің әзірлемесі.......................25
§ 3.2 Пайдаланушы интерфейсінің әзірлемесі.......................................................25
4 Тарау. Бағдарламалық бұйым әзірлемесі процесін сипаттау......................27
§ 4.1 Бағдарламаны сипаттау.......................................................................27
§ 4.2 Қолданылатын әдістер, алгоритмді сипаттау..................................28
§ 4.3 Құрамдас бөліктерді және олардың арасындағы байланыстарды
сипаттау.........................................................................................................29
§ 4.4 Бағдарламаның блок-схемасы............................................................29
§ 4.5 Шығыс және кіріс мәліметтерін сипаттау........................................29
§ 4.6 Бағдарламалау тілін сипаттау............................................................30
§ 4.7 Пайдаланушы жетекшілігі................................................................21
§ 4.8 Бағдарламашы жетекшілігі...............................................................32
5 Тарау. Д.К. Жұмыс істеу кезіндегі экономикалық шығындар..................34
6 Тарау. Д.К. Жұмыс істеу кезіндегі еңбекті қорғау, қауіпсіздік техникасы және өртке қарсы шаралар...................................................................................36
7 Тарау. Жалпы қортындылар.............................................................................44
§ 7.1 Бағдарлама листингі.......................................................................................44
§ 7.2 Есептеу қортындылары...................................................................................48
Әдебиет тізімі............................................................................................................49
Қосымшалар.............................................................................................................51
Бағдарламасы бар дискета немесе басқа тасуалы
Кейбір сервистерді бірге пайдалану, бизнесті қайта ұйымдастыру немесе т.б бастамаларды нәтижелі жүзеге асырудан алатын мүмкін ұтысты ескермегенбіз; бұл ұтысты капитал салу перспективасын зерттеу кезінде назарға алады. Бұл ұты функционалды-балама жүйелерге өте жақын (қандай платформада негізделуіне қарамастан).
Жүйелік персоналға жұмсалған қаражатқа жүйелдік әкімшілкке, мәліметтер базасын, жинақтарды басқаруға, тиісті персоналдар категориясын басқаруға шыққан шығындар да енеді. S/390 және UNIX серверлерге арналған персоналдар санын Computer Economics, COMPASS және АҚШ қорғаныс Министрлігінің мәліметін ескере отырып, өндірістік нормативтер бойынша бағалаған. Персоналдарға жұмсалатын шығын Computer Economics 1996 жылға арналған орташа мәліметіне байланысты (АҚШ үшін) жалақысы, сыйақысы, іссапар және оқу, сонымен қатар, ірі ұйымдардағы ұқсас баптарға қарап есептелген. Жүйелік персоналға жұмсалаған қаражатқа жүйелік әкімшілікке, мәліметтер базасын, жинақтарды басқаруға, тиісті персоналдар категориясын басқаруға шыққан шығындар да енеді. Мәліметтер базасы үшін персоналдар саны өндірістік нормативтерге сәйкес бағаланған. Пайдаланушыларға арналған мәліметтер базасына арналған орталықтандырылған серверлер нұсқасы үшін бағдарламалық өнімдер шығыны алғашқы төлемдер ставкасы, осы өнімді жеткізушілердің лицензиялары және әрі қарай қолдауы бойынша бағалаған. Жеткізушілер ұсынған бағаны түсіру немесе топтық лицензиялау нұсқалары үшін шығын деңгейін азайтуы мүмкін.
6 Тарау. ДК жұмыс істеу кезіндегі қауіпсіздік техникасы, өрке қарсы шаралар және еңбекті қорғау
ДК жабдықталған класстарды өрке қарсы қауіпсіздік ережесін қатаң сақтау қажет.
- Жұмыс орында, өтетін шығатын әкерлерде артық нәрселер жатпауы тиіс (шашылмауы тиіс)
- Бұл класстарда темекі тарту,
электорқыздырғыш құралдарды
- Жұмыс соңында (жұмысты аяқтаған
соң?) ДК сөндіріп, журналға жұмыстың
аяқталғаны туралы жазбаны
- Өрт шыққан жағдайда жабдықтарды сөндіріп, өрт өшіру шараларын қолданып, басшылыққа, кезекшілерге хабарлау қажет.
- Өрт сөндіру кезінде электр тоғын өткізбейтін өрт өшіру құралдарын қолдау керек.
- Класста жұмыс істейтін
1.1Информатика кабинетінде
1.2Қауіпті және зиянды өндірістік факторлар:
2.Жұмыс алдындағы қауіпсіздік талаптары.
2.1.Информатика кабинетін желд
(6 жас)- 10 мин,2-5сынып оқушылары үшін 20 мин, 8-9 сыныптарға
25 мин,10-11 сыныптарға -2 сабақ қатар болғанда бірінші сабағында
30мин,екінші сабағында 20 мин,содан кейін көз шаршағанда жасайтын арнайы жаттығулар орындау үшін 10мин үзіліс алу қажет.
4.1Бейнетерминалдың жұмысында ақау болса, оны сөндіріп, мұғалімге айту қажет.
4.2Өзіңізді нашар сезінсеңіз,
4.3.Оқушыны электр тоғы соқса,
5.1.Мұғалімнің рұқсатымен
5.2.Информатика кабинетін
1 Жалпы ережелер
1.1.Осы нұсқамада персоналды
ЭЕМ жабдықталған класстарда
сабақ өткізген немесе жұмыс
істеген кезде қолданылатын
1.2.Нұсқама компьютер
1.3.Компьютер кабинетіне
2. Қауіпсіздік шаралар
2.1.ДК құрамдас блоктарына (клавиатура, манитор, жүйелік блок) артық нәрселерді қоюға тыйым салынады.
2.2.ДК бөліктерін өз бетімен құрастырып алып салуға тыйым салынады.
5.1.Мұғалімнің рұқсатымен
5.2.Информатика кабинетін
1 Жалпы ережелер
1.1.Осы нұсқамада персоналды ЭЕМ жабдықталған класстарда сабақ өткізген немесе жұмыс істеген кезде қолданылатын қауіпсіздік шаралары қарастырылған.
1.2.Нұсқама компьютер
1.3.Компьютер кабинетіне алғаш жіберілетін әрбір пайдаланушы қауіпсіздік техникасы бойынша нұсқамамен және компьютерлік кабинеттегі ережелермен танысуы тиіс,ол туралы ҚТ жөніндегі журналда жазба қалдыру керек.
Компьютерлік классты кабинетке жауапты адамға (класс инженері) тапсырмай, қалдырып кетуге тыйым салынады.
шарт бойынша тапсырушылар мүддесіне сай ақылы қосымша білім беру қызметтердің ұйымдастыру және жарнамалау;
мектеп оқушылары үшін коледж бойынша экскурсия ұйымдастыру және өткізу.
7 Тарау. Жалпы қортындылар
§ 7.1 Бағдарлама листингі
№1 форманың модулі
{ Видео (AVI) плейер
(с) Каршигина Акмарал, 2006}
unit Vp_;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, MPlayer, Buttons, StdCtrls;
type
TForm1 = class(TForm)
OpenDialog: TOpenDialog;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
MediaPlayer: TMediaPlayer;
procedure FormCreate(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure MediaPlayerNotify(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
Бағдарлама жүктелгенде орындалады
procedure TForm1.FormCreate(Sender: TObject);
begin
MediaPlayer.Display := Form1;
// это можно сделать во время создания
// формы. Но на всякий случай ...
SpeedButton1.GroupIndex := 1;
SpeedButton1.AllowAllUp := True;
end;
// возвращает размер изображения AVI файла
procedure DimAvi(f: string; var w,h: integer);
var
fst: TFileStream;
// структуру заголовка AVI файла можно
// найти, например, в ..\CBuilder\Include\aviriff.h
header: record
RIFF: array[1..4] of char; // 'RIFF'
nu1: array[1..5] of LongInt; // не используеися (в данном случае)
AVIH: array[1..4] of char; // 'avih'
nu2: array[1..9] of LongInt; // не используеися (в данном случае)
Width: LongInt;
Height: LongInt;
end;
begin
fst := TFileStream.Create(f,
fst.Read(header,sizeof(header)
w := header.Width;
h := header.Height;
fst.Destroy;
end;
// щелчок на кнопке Eject - выбор файла
procedure TForm1.SpeedButton2Click(
var
top,left: integer; // левый верхний угол "экрана"
width,height: integer; // размер экрана
mw,mh: integer; // максимально возможный размер экрана
kh,kw: real; // коэф-ты масштабирования по h и w
k: real; // коэф. масштабирования
begin
OpenDialog.Title := 'Выбор клипа';
if not OpenDialog.Execute
then exit;
// пользователь выбрал файл
// определим размер и положение