vazhdim
Përmbajtja programore11: Nënprogramet ora 3,4
- Krijimi i nënprogrameve dhe përdorimi i tyre në program.
- Përforcimi i arritjeve të nxënësve.
Gjuha programore Small basic:
Aktiviteti
3.
- Shkruarja e shembull
program i cili e thërret programin në cikël. Programi është i njohur dhe
ndryshon kodin me dhënien e nënprogramit i
cili vizaton rreth më ngjyrë të ndryshme të
pozicionit të ekranit dhe aq herë saqë është
definuar në programin kryesor :
GraphicsWindow
. Title ="ANIMACION ME TOPTHA"
GraphicsWindow
.Width ="300"
GraphicsWindow
.Height ="300"
GraphicsWindow
.BackgroundColor ="black"
For nr=1 To 1000
x= Math .GetRandomNumber (300)
y= Math .GetRandomNumber (300)
rreth ()
EndFor
Sub rreth
GraphicsWindow .BrushColor =
GraphicsWindow.GetRandomColor ()
GraphicsWindow .FillEllipse (x,y,10,10)
Program . Delay (10)
EndSub
Me realizimin të Aktivitetit 3 do të fitoni dritaren si në vazhdim
Detyra 1.
- Duke përdorur Aktivitetin 3 shruani shembull
programi me të cilin do të vizatohen katrorzat.
- Mos
haro të nryshoni emri e dritares.
- Duhet
të fitoni dritaren si dritarja në të djathtë. Pyetje për diskutim:
- Sa
herë thirret nënprogrami në programin kryesor?
- Vallë
shprehja për ndarjen e vlerës të koordinatave
x dhe y mund të futet në nënprogram?
Pjesa përfundimtare:
- Përsëritja e nocioneve të sapomiratuara lidhur
me
nënprogramet dhe mënyrën në të cilën shfrytëzohen në programe.
Përpunimi i programeve me nënprograme
Qëllimi i orës:
- nxënësi të aftësohet për përpunimin e
nënprogrameve dhe thirrjes
së tyre nga programi kryesor.
Aktiviteti 4:
- Duke
përdorur Aktivitetin 1 prej orës së
kaluar ndrysho programin e
paraqitjes pas futjes së fjalëkalimit Ndaluar hyrja dhe Hurja është e lirë të jetë në dritaren grafike:
TextWindow .Write ("Fut fjalëkalim:")
fjalëkalim= TextWindow .Read ()
GraphicsWindow .Width =300
GraphicsWindow . Height = 300
GraphicsWindow . FontSize = 24
If fjalëkalim="JB007" Then
yes()
Else
no()
EndIf
Sub no
GraphicsWindow .BackgroundColor ="red"
GraphicsWindow . BrushColor = "black"
GraphicsWindow . DrawBoundText (30,150, 250,"NDALOHET
HYRJA!")
Sound . PlayBellRing ()
EndSub
Sub yes
GraphicsWindow .BackgroundColor ="green"
GraphicsWindow . BrushColor = "black"
GraphicsWindow . DrawBoundText (30,150, 250,"HYRJA
ËSHTË E LIRË!")
Sound . PlayChime ()
EndSub
Studjo:
- Në dritaren grafike mund të shkruhet tekst me
madhësi të caktuar
të fondit dhe me ngjyrë të
caktuar.
- Operacioni
për shkruarjen e tekstit në dritaren grafike është:
DrawBoundText (x, y, gjerësia,
"teksti").
-
Ngjyra e tekstit definohet me ndarjen e ngjyrës
së brushës në dritaren grafike.





