program mouseEvent;
uses GraphABC, Events;
const r = 8;
procedure
mDown(x, y, mb: integer);
if mb = 1 then textOut(10, 10, 'Чап қадалгич босилди ');
{сообщение о нажатой кнопке}
if mb = 2 then textOut(10, 10, 'ўнг қадалгич босиди. ');
Sleep(200);
Rectangle(x-r, y-r, x + r, y + r); MoveTo(x, y);
end;
procedure
mMove(x, y, mb: integer);
begin
if mb = 1 then LineTo(x, y);
if mb = 2 then SetPixel(x, y, clRed);
SetWindowCaption('Курсор координаталари: ' + IntToStr(x) + ', ' + IntToStr(y));
MoveTo(x, y);
end;
procedure
mUp(x, y, mb: integer);
begin
FillRect(10, 10, 160, 26); Circle(x, y, r);
end;
begin
OnMouseDown := mDown;
OnMouseUp := mUp;
OnMouseMove := mMove;
end.

program GrafRed;
uses GraphABC, Events;
var w: integer;
col: color;
procedure kPress(ch: char);
begin
if ch = 'r' then col := clRed;
if ch = 'g' then col := clGreen;
if ch = 'b' then col := clBlue;
if ch = 'w' then col := clWhite;
end;
procedure kDown(key: integer);
begin
if key = VK_Up then w := w + 1;
if key = VK_Down then w := w - 1;
if key = VK_Delete then ClearWindow(clWhite);
end;
procedure
mDown(x, y, mb: integer);
begin
MoveTo(x, y);
end;
procedure
mMove(x, y, mb: integer);
begin
setPenColor(col); SetPenWidth(w);
SetWindowCaption(IntToStr(x) + ', ' + IntToStr(y));
if mb = 1 then LineTo(x, y); { рисование линии }
end;
begin
{ основная программа: вызов обработчиков событий}
Col:=ClRed;
OnKeyPress := kPress;
OnKeyDown := kDown;
OnMouseDown := mDown;
OnMouseMove := mMove
end.

Пример 5.
Энг содда график редактор ишга тушади. Мичқончанинг чап қадалгичи босилаб
кўрсаткич ҳаракатга келса, унинг изада чизиқ пайдо бўлади. r, g, b клавишлорини
чизиқ ранги ўзгаради. w клавиши босилганда кўрсатгич ўчиргичга айланади.
Del ойнани тозалайди

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

program Game;
uses GraphABC, Events;

var x, y, a, k, n: integer;

procedure mDown(xm, ym, mb: integer);
begin
if (mb = 1) and (xm > x) and (xm
< x + a) and (ym > y) and (ym < y + a) then
k := k + 1; {счетчик попаданий}
end;

begin
SetWindowSize(600, 500); SetBrushColor(clGreen);
a := 40; k := 0; n := 0; x := 100 + random(200); y := 10;
repeat
ClearWindow;
n := n + 1; x := x + random(40) - 20; y := y + random(20); rectangle(x, y, x + a, y + a);
OnMouseDown := mDown; Sleep(100);
until (y > WindowHeight);
SetFontColor(clYellow); SetFontSize(50);
TextOut(180, 180, ' ' + intToStr(k) + ':' + intToStr(n) + ' ');
end.

uses ABCObjects,GraphABC;

var z: StarABC;

begin
z := new StarABC(WindowWidth div 2,WindowHeight div 2,WindowHeight div 2 - 5,WindowHeight div 4 + 16,6,RGB(255,220,0));
z.Count := z.Count + 200;

for var i:=1 to 360 do
begin
Sleep(0);
z.Angle := z.Angle + 1;
end;
end.

Pascal ABC NET

Pascal ABC NET

Pascal ABC NET

Pascal ABC NET

JAVA SCRIPTDA DASTURLAS. Diqqat dasturni ishga tushirishdan oldin qo'llanmani o'qinng va video darsni ko'ring

Java Scriptda soat ysash.

Soat dasturi bilan tanishing va yarating.

JS- kvadrat tenglama HTML da.

Java Scriptda forma yaratish va Fizika faniga bog'lash