вторник, 26 юни 2018 г.
Конфигурация за ъпгрейд.
С тях ще може да играете всички съвременни игри на 30 кадъра и резолюция поне 720p.
петък, 22 юни 2018 г.
Как да запишем звук от звуковата карта
Каква е идеята:
1.) Да накараме компютъра да използва звуковата карта като звуков източник.
2.) Да запишем звукът, който възпроизвежда звуковата карта в звуков файл.
Промяната на звуковия поток е описана подробно в линка в горната статия.

Важно е да изберете "Stereo Mix" ( Звуковата карта) като източник на аудиото.
Друга много важна настройка е силата на звука. Ако не я направите, звукът, който записвате, ще е много слаб и тих.
Ето как става:


За конвертиране на получения звуков файл в MP3 използвайте безплатната програма Format Factory.
Приятна работа!
четвъртък, 17 май 2018 г.
Използване на ИКТ в час по математика
Програмите пресмятат:
1. Елементи на правоъгълен триъгълник.
2. Квадратно уравнение.
3. Питагорови тройки.
Програмата за намиране елементите на квадратно уравнение е създадена самостоятелно от Даниел Василев от 9 "б" клас.
Линк за сваляне на програмите:
ИКТ в час по математика
сряда, 16 май 2018 г.
четвъртък, 3 май 2018 г.
понеделник, 30 април 2018 г.
сряда, 25 април 2018 г.
Чертаене на правоъгълник в Pascal
uses Crt;
(*your procedure same as the procedure window in the crt unit...*)
procedure draw(x1,y1,x2,y2:integer);
(*local procedure line1*)
procedure line1(a,b,c,e:integer);
(*writes a - line to the screen*)
(*a and b are the starting position*)
begin
gotoxy(a,b);
while c <= e do begin
inc(c,1);
write(#196);
end;
end;(*end of line1*)
(*local procedure line2*)
(*this writes a | line to the screen*)
procedure line2(a,b,c,e:integer);
begin
while c <= e do begin
gotoxy(a,b);
write(#179);
inc(c,1);
inc(b);
end;
end;(*end of line2*)
begin
gotoxy(x1,y1);(*upper left corner of the box*)
write(#218);
gotoxy(x2,y1);(*upper right corner of the box*)
write(#191);
(*let's go back to the upper left corner*)
(*and concatenate the upper corners...*)
line1(x1+1,y1,x1,x2-2);
gotoxy(x2,y2);(*lower right corner of the box*)
write(#217);
gotoxy(x1,y2);(*lower left corner of the box*)
write(#192);
line1(x1+1,y2,x1,x2-2);(*concat the lower corners*)
line2(x1,y1+1,y1,y2-2);(*concat the left sides of the box*)
line2(x2,y1+1,y1,y2-2);(*and last,concat the right sides too*)
end;
begin
clrscr;
draw(5,1,20,20);
readln;
end.
понеделник, 23 април 2018 г.
понеделник, 16 април 2018 г.
Създаване на гугъл формуляри
Може да използвате линка по-долу, който е отлично оформен и има добре обяснени в детайли възможностите на GOOGLE FORMS.
Упътване за създаване на GOOGLE FORMS ( гугъл формуляри) .
Източник: http://itsredstva.blogspot.bg
четвъртък, 12 април 2018 г.
БИБЛИОТЕЧНИ МОДУЛИ В ТУРБО ПАСКАЛ
БИБЛИОТЕЧНИ МОДУЛИ В ТУРБО ПАСКАЛ
Приятно четене, компилиране и дебъгване.
понеделник, 9 април 2018 г.
сряда, 28 март 2018 г.
Елементи на анимацията
Uses Crt;
var y:string;
Begin
Repeat
clrscr;
textcolor(1);
writeln('zdravei');
delay(100);
until y='y';
End.
вторник, 27 март 2018 г.
Анимация в Паскал
Uses Crt;
Label l1;
var y:string;
color1,gx,gy:Integer;
Begin
Color1 :=0;
gx:=2;
gy:=2 ;
Repeat
l1: clrscr;
textcolor(Color1);
gotoxy(gx+1,gy-1);
writeln(' 0');
delay(100);
gotoxy(gx,gy);
writeln('<:)}');
delay(100);
gotoxy(gx+1,gy+1);
writeln(' 0');
delay(100);
Color1:=Color1 +1;
gx:=gx+1;
gy:=gy+1;
if gx=10 then
begin
Color1 :=0;
gx:=10;
gy:=10 ;
repeat
clrscr;
textcolor(Color1);
gotoxy(gx,gy);
writeln(' 0');
writeln('<:)}');
writeln(' 0');
delay(100);
Color1:=Color1 +1;
gx:=gx-1;
gy:=gy-1;
Until gx=2;
end;
if gx=1 then goto l1;
until y='y';
End.
четвъртък, 22 март 2018 г.
БИБЛИОТЕЧНИ МОДУЛИ В ТУРБО ПАСКАЛ
Библиотечни модули в Паскал.
Следващата кратка програма е базов пример за създаване на анимация в Паскал.
Program Animation1;
Uses Crt;
var y:string;
Begin
Repeat
clrscr;
textcolor(0);
writeln('zdravei');
delay(100);
clrscr;
textcolor(1);
writeln('zdravei');
delay(100);
clrscr;
textcolor(2);
writeln('zdravei');
delay(100);
until y='y';
End.
вторник, 13 март 2018 г.
Създаване на динамичен уебсайт
Настоящата статия има за цел да улесни използването на уеб платформата "Weebly.com". Тази платформа има широк набор от безплатни възможности и още повече платени такива.
Стъпки от 1 до 4 са препоръчителни при използването на мобилни телефони или таблети. Това дава същата функционалност на работа като при настолен компютър. Сайтът може да се използва, с който и да било друг браузър.
1.Отваряте Google.
2. Избирате Chrome.
3.Избирате трите точки горе в дясно на екранa.
4. Трябва да има отметка на „Заявка за настолни...“.
5. Въвеждате в адресната лента WEEBLY.COM.
6.Избирате „WEBSITE“.
7.Избирате G+.
8. Въвеждате имейла си в гугъл и паролата си.
9. Разрешавате.
10. Избирате, как искате да изглежда сайта ви.
11. Избирате „Start Editing”.
12. Избирате името на сайта си като го написвате на ЛАТИНИЦА:
13. Избирате „SUBDOMAIN”.
14. Съгласявате се с избирането на “Done”.
15.Публикувате уебсайта с избирането на „Publish“.
Възможно е да се наложи да повторите стъпка 14.
След като публикувате сайта си, вече започва същинската част по работата, която няма да се разглежда в тази статия. Справочно ще спомена само, че след всяка промяна на сайта трябва да се избира "Publish", за да бъде видима промяната и в интернет, а не само в платформата на "Weebly.com".
понеделник, 5 март 2018 г.
Учител от Гана преподава информатика само с тебешир и черна дъска
Поради липсата на компютри в училището 33-годишният учител прави всичко възможно, за да предаде знание на децата, дори и това да означава, че трябва да пресъздава компютърни програми, разполагайки само с тебешир и черна дъска.
За повече информация посетете връзката по-долу:
Информатика с тебешир .
понеделник, 12 февруари 2018 г.
Прогресът - замени "Не мога" с Не, мога".
понеделник, 22 януари 2018 г.
Какво научихме през първи срок по И. Т.

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

акаунт (профил) в гугъл. Тези, които имаха свои акаунти, но бяха забравили паролите си, следваха стъпките за възстановяване на забравена парола. Вариантите бяха два - чрез имейл или чрез телефонния Ви номер.
После преминахме към създаването на блог чрез сайта 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 т.
Имате право да използвате всичко в тази статия като материал за вашите.
Желая успех на всички!
сряда, 3 януари 2018 г.
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 анимацията е възникнала чак след създаването на интернет!
Да разгледаме картинката по-долу.


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