Какво научихме през първи срок по И. Т.

   В настоящата статия ще припомня, през стъпките, които минахме заедно, за да станете дигитално грамотни млади хора.
    Първото, с което ви запознах, бяха компютърните части. За  целта заедно сглобявахме и разглобявахме един стар училищен компютър.

     Показах Ви процесора, "климатика на компютъра" ( както каза един ученик за охлаждането на процесора). Имахте възможност да сравните големината на твърдите дискове за настолни компютри и лаптопи. Разгледахте отблизо видео карта и рам паметта. Монтирахте захранването към дънната платка.

    След това Ви показах, как да създадете свой собствен
акаунт (профил) в гугъл. Тези, които имаха свои акаунти, но бяха забравили паролите си, следваха стъпките за възстановяване на забравена парола. Вариантите бяха два - чрез имейл или чрез телефонния Ви номер.

       После преминахме към създаването на блог чрез сайта Blogger. За него използвахте профилът в Гугъл. Беше необходимо само да изберете, какъв да е адресът на блога Ви и как да се казва. Избрахте и "Екранно име" - с какво име да се представите пред Вашите читатели.

      Създадохте и Вашата първа статия. В нея се научихте, как да добавяте снимки, видео клипове, линкове. Форматирахте я според Вашите предпочитания и вкус.

     Следващото предизвикателство беше да използвате гугъл диск. В него изпробвахме, как се качват файлове и как се споделят чрез линк или по имейл.
     Освен, че се поработихме здраво, доста се и забавлявахме, особено когато работихме всички заедно в един споделен текстов документ.
    Изпращането на имейл с прикачен файл беше предизвикателство за доста от вас. Това е важно умение, което ще използвате доста често в бъдеще, а не както до момента само с учебна цел. Именно и това е последната стъпка, която трябва да изпълните, за да получите желаната от вас "хубава оценка".
    За ваше удобство ще изброя отново списъчно темите, с които се занимавахме:
1. Части на компютъра.
2. Създаване на профил в гугъл.
3. Възстановяване на забравена парола.
4. Създаване на блог.
5. Писане на статия.
6. Вмъкване в статия на снимка, видео клип и линк за връзка.
7. Качване и споделяне на файлове в гугъл диск.
8. Работа в споделен файл.
9. Изпращане на имейл с прикачен файл.
10. Споделяне на статия по имейл.

Оценката се определя от три критерия - брой теми, брой използвани елементи, успешно изпратена статия по имейл:
0 т. - Липсва създадена статия в blogger.com.
1 т. - Има създадена статия в blogger.com. В статията са изброени някои от изброените теми.
2 т. - Има създадена статия в blogger.com. В статията са изброени всички 10 теми.
 ______________________________
0 т. - В статията липсват следните елементи: снимка, видео клип и линк за връзка.
1 т. - В статията липсват някои от следните елементи: снимка, видео клип и линк за връзка.
2 т. - В статията са налични и трите елемента: снимка, видео клип и линк за връзка. 

______________________________
0 т. - Статията не е споделена по имейл.
0 т. - Статята е споделена по имейл, но учителят не е получил имейла поради сгрешен имейл адрес в полето на получателя.
0 т. - Статията е споделена по имейл, но учителят не може да отвори статията поради грешно поставен линк към статията.
1 т. - Статията е споделена по имейл и линкът в нея се отваря коректно.

Скала за оценяване:
Отличен (6) - 5 т.
Мн. Добър (5) - 4 т.
Добър (4) - 3 т.
Среден (3) - 2 т.
Слаб (2) - 0 - 1 т.   

Имате право да използвате всичко в тази статия като материал за вашите.
Желая успех на всички!

program Sprite

program Sprite;
uses
  Crt, Graph;
var
  GraphDriver : integer;  { The Graphics device driver }
  GraphMode   : integer;  { The Graphics mode value }
  MaxX, MaxY  : word;     { The maximum resolution of the screen }
  ErrorCode   : integer;  { Reports any graphics errors }
  MaxColor    : word;     { The maximum color value available }
procedure Initialize;
{ Initialize graphics and report any errors that may occur }
var
  PathToDriver   : string;  { Stores the DOS path to *.BGI & *.CHR }
begin
    GraphDriver := VGA;
    GraphMode := VGAHi;
    PathToDriver := '';
    InitGraph(GraphDriver, GraphMode, PathToDriver);
    ErrorCode := GraphResult;             { preserve error return }
    if ErrorCode <> grOK then             { error? }
    begin
      Writeln('Graphics error: ', GraphErrorMsg(ErrorCode));
      Halt(1);                            { Some other error:
terminate }
    end;
  Randomize;                { init random number generator }
  MaxColor := GetMaxColor;  { Get the maximum allowable drawing color
}
  MaxX := GetMaxX;          { Get screen resolution values }
  MaxY := GetMaxY;
end; { Initialize }
procedure PutImagePlay;
{ Demonstrate the GetImage and PutImage commands }
const
  r  = 20;
  StartX = 100;
  StartY = 50;
var
  CurPort : ViewPortType;
procedure MoveSaucer(var X, Y : integer; Width, Height : integer);
var
  Step : integer;
begin
  Step := Random(2*r);
  if Odd(Step) then
    Step := -Step;
  X := X + Step;
  Step := Random(r);
  if Odd(Step) then
    Step := -Step;
  Y := Y + Step;
  { Make saucer bounce off viewport walls }
  with CurPort do
  begin
    if (x1 + X + Width - 1 > x2) then
      X := x2-x1 - Width + 1
    else
      if (X < 0) then
        X := 0;
    if (y1 + Y + Height - 1 > y2) then
      Y := y2-y1 - Height + 1
    else
      if (Y < 0) then
        Y := 0;
  end;
end; { MoveSaucer }
var
  Pausetime : word;
  Saucer    : pointer;
  Pos : array[1..2] of record
    X, Y       : integer;
    XOld, YOld : integer;
  end;
  ulx, uly  : word;
  lrx, lry  : word;
  Size      : word;
  I         : word;
begin
  { PaintScreen }
  SetViewPort(0, 0, MaxX, MaxY, ClipOn);
  ClearViewPort;
  GetViewSettings(CurPort);
  { DrawSaucer }
  Ellipse(StartX, StartY, 0, 360, r, (r div 3)+2);
  Ellipse(StartX, StartY-4, 190, 357, r, r div 3);
  Line(StartX+7, StartY-6, StartX+10, StartY-12);
  Circle(StartX+10, StartY-12, 2);
  Line(StartX-7, StartY-6, StartX-10, StartY-12);
  Circle(StartX-10, StartY-12, 2);
  SetFillStyle(SolidFill, MaxColor);
  FloodFill(StartX+1, StartY+4, GetColor);
  { ReadSaucerImage }
  ulx := StartX-(r+1);
  uly := StartY-14;
  lrx := StartX+(r+1);
  lry := StartY+(r div 3)+3;
  Size := ImageSize(ulx, uly, lrx, lry);
  GetMem(Saucer, Size);
  GetImage(ulx, uly, lrx, lry, Saucer^);
  PutImage(ulx, uly, Saucer^, XORput);               { erase image }
  { Plot some "stars" }
  for I := 1 to 1000 do
    PutPixel(Random(MaxX), Random(MaxY), Random(MaxColor));
  Pos[1].X := MaxX div 3;
  Pos[1].Y := MaxY div 2;
  Pos[2].X := MaxX div 3*2;
  Pos[2].Y := MaxY div 2;
  PauseTime := 70;
  { Move the saucer around }
  repeat
    SetVisualPage(0);
    SetActivePage(1);                                { double buffer }
    for I := 1 to 2 do                               { draw image }
      PutImage(Pos[I].X, Pos[I].Y, Saucer^, XORput);
    SetVisualPage(1);
    for I := 1 to 2 do begin
      Pos[I].XOld := Pos[I].X;
      Pos[I].YOld := Pos[I].Y;
    end;
    for I := 1 to 2 do                               { width/height }
      MoveSaucer(Pos[I].X, Pos[I].Y, lrx - ulx + 1, lry - uly + 1);
    Delay(PauseTime);
    for I := 1 to 2 do                               { erase image }
      PutImage(Pos[I].XOld, Pos[I].YOld, Saucer^, XORput);
  until KeyPressed;
  FreeMem(Saucer, size);
end; { PutImagePlay }
begin { program body }
  Initialize;
  PutImagePlay;
  CloseGraph;
end.

Gif анимация

В настоящата статия ще разгледаме, какво е гиф анимация, как се създава, какви приложения има. Но преди да се впуснем същината на темата нека изгледаме тези две кратки клипчета:

И за да бъде като приказка нека кажем, че...
Имало едно време един фотограф.Той обичал да снима и да прожектира снимките си пред публика. Един ден на този фотограф му хрумнало, че ако може да направи така, че снимките да се прожектират бързо една след друга, снимките му ще "оживеят". Така той създал първата кинокамера и поставил основите на кино индустрията.
В днешно време, много от киноманите слагат визуалните ефекти на първо място. Ако ефектите са станали страхотно, филмът се гледа дори само заради ефектите.
Пуснете си това кратко клипче.

То е създадено изцяло от компютърна анимация. Гиф анимацията е "прабабата" на съвременното кино. Тя е възникнала още със създаването на първата кинокамера и в последствие разпространените кинопроектори. Рисуваните анимационни филми са основани изцяло на "гиф" анимацията.
Анимацията е бързо последователно показване на образи на неподвижни елементи с цел създаване на илюзия за движение. Това е оптична илюзия, дължаща се на известното забавяне (зрителна персистенция) в обработката на образа, получен от зрителния апарат, от човешкия мозък. Най-често анимацията се прави с помощта на техниките на заснемане на видео и филми.
Всъщност ако трябва да сме точни по-горе изброените неща са смесица между исторически факти и добре звучаща история.
Всъщност GIF (Graphics Interchange Format) е графичен файлов формат използван широко в Интернет, когато трябва да се съхрани изображението на лого или малка анимация. Цветовата палитра на пикселите в едно изображение с формат GIF е ограничен до 256 цвята, което прави този формат неподходящ за съхраняване на фотоизображения. Разширението на файловете от този тип е .gif.
На практика GIF анимацията е възникнала чак след създаването на интернет!

Да разгледаме картинката по-долу.

На нея виждате червена точка, изобразена в различни състояния. Ако комбинираме тези изображения като "GIF-че", ще се получи тази анимация:












За да създаваме анимации ще използваме програмата "MS Paint", която е вградена в Windows. С нея ще създаваме кадрите за нашата анимация.
След това с програмата PhotoScape ще обединим създадените кадри в анимация, подобна на подскачащото топче. Приятна работа.



Използвани източници: Google, Wikipedia, YouTube.