Интерактивни програми со настани

Да подискутираме!

Ако куќата ја сметаме за објект, бројот на катови, врати, прозорци за особини на објектот, отворање, затварање врати и прозорци за операции во објектот, тогаш што ќе биде ѕвонењето на ѕвончето од влезната врата?   Одговорот е настан или случка.

На овој настан се одговара со соодветна операција во објектот, на пример отворање на вратата или прашање „ Кој е?“.

Преку овој настан во куќата се комуницира со надворешната околина.

Што е настан?

Настаните или случките во програмските јазици претставуваат нов градбен дел кој овозможува интерактивност во програмата преку активности со глувчето или притискање на соодветно копче од тастатурата.

Настаните се во тесна врска со потпрограмите. Потпрограмите се повикуваат кога ќе се случи некој настан и тогаш се извршуваат исказите во нив. 

Активност 1: Пример на програмски код со настан

GraphicsWindow.MouseDown =klik

Sub klik

        GraphicsWindow.ShowMessage (“Ej, pa ti klikna“, “ZDRAVO!“)

EndSub

Воочи!!!

Операцијата ShowMessage (“име_на_прозорецот“, “порака“) прикажува порака во посебен прозорец со доделено име.

Активност2: При клик со глувчето во прозорецот се исцртува топче на местото каде сме кликнале со глувчето во случајна боја.

GraphicsWindow . MouseDown =klik

Sub klik

     x= GraphicsWindow.MouseX

     y= GraphicsWindow.MouseY

     GraphicsWindow.BrushColor = GraphicsWindow   GetRandomColor()

    GraphicsWindow . FillEllipse (x,y,10, 10)

EndSub

Воочи!!!

Операцијата MouseX и MouseY во графичкиот прозорец ги дава координатите на глувчето во прозорецот.

Активност3: Напиши пример програма со повеќе настани

Настан со клик на глувчето при што се повикува потпрограмата која црта топче, а другиот настан со притискање на било кое копче од тастатурата при што се менува бојата на топчињата кои се цртаат.

GraphicsWindow . MouseDown =klik

GraphicsWindow . KeyDown =tipka

Sub klik

      x= GraphicsWindow . MouseX

      y= GraphicsWindow . MouseY

      GraphicsWindow . FillEllipse (x,y,10, 10)

EndSub

Sub tipka

      GraphicsWindow . BrushColor =GraphicsWindow .GetRandomColor()

EndSub

Активност4: Пишување програма со настан во која ќе се применува желка графиката.

Напиши програма со настан клик на глувчето по што се активира потпрограма која го движи желчето до позицијата каде е кликнато со глувчето.

Turtle.Show ()

Turtle.Speed =7

GraphicsWindow.MouseDown =klik

Sub klik

      x = GraphicsWindow.MouseX

      y = GraphicsWindow.MouseY

      Turtle .MoveTo (x,y)

      GraphicsWindow .PenColor=GraphicsWindow.GetRandomColor ()

EndSub

Воочи ја операцијата на желката MoveTo (x,y) со која желката се придвижува до точка со координати x и y.

Домашна работа: 

Да се направи програма со која при клик со глувчето во прозорецот се исцртува елипса (велигденско јајце) на местото каде сме кликнале со глувчето во случајна боја како на сликава:

Објаснување: Секоја елипса (јајце) се состои од три елипси кои имаат различни димензии. Или може да бидете креативни, па да нацртате било какви дизајни или бои во елипсите.