Graafika VBAs (0)

Graafika   VBAs
Kõiki töölehe pinnal asuvaid objekte käsitletakse kujunditena
 ( põhiklassid   Shape  ja Shapes)
Kujundite  tüübid
Graafikaobjektid - MS Drawing abil tehtud  kujundid
Diagrammid  (ChartObjects)
60
23
56
50
29
32
40
27
13
30
Pildid ( Picture ) - imporditud pildid
kask
20
45
35
kuusk
10
12
41
mänd
0
1
2
3
4
5
paju
saar
tamm
J
Ohjurid (Controls)
CommandButton1
214
kuusk
kuusk
Klassid  Shapes ja  Shape  
Omadused
Meetodid
Animatsiooni  üldpõhimõtted
"Vettehüpped 1"
Mitme objekti üheaegne liikumine. Lennuk-ufo
Protseduurid tegevuste ja li kumiste määramiseks objektidega
Funktsioonid On_Sees ja On_Puude
Protseduurid Liigu ja Osuta
Harjutus Penaltid
Paralleelsed tegevused II
Kujundi liikumine koordinaatidega määratud punkti 
Erinevate  liikumiste  näited
Näide "Vettehüpped 2"
Näide "Kirbutsirkus"
Kujundi liikumine teise objekti juurde
Harjutus "Auto ringli klus 1"
Harjutus. "Auto  ringliiklus  2"
Liikumine  parabooli  järgi
Harjutus "Karistuslöögid"
Kaldu visatud keha liikumine
Graafikaobjektide lisamine
Graafikaobjektid. Klass Shape ja sellega seotud põhiklassid
Worksheet
Kujundid kuuluvad klassi Shape. Kõik lehel paiknevad kujundid 
(Shape-objektid) moodustavad ühe kollektsiooni (objekti) 
1
Shapes.
Shapes
Kollektsiooni Shapes sees saab luua suvalise hulga objektide 
gruppe - ShapeRange-tüüpi objekte.
Count , ...
Viitamine  kujunditele
AddLine(X1, Y1, X2, Y2)
1) Otsene
AddShape(tüüp, X, Y, W, H) ...
      [leht.]Shapes - kõik kujundid lehel    
AddPolyline(koord.  massiiv )
      [leht.]Shapes("nimi") - üks konkreetne kujund
0..*
...
0..*
 leht - viit lehele, ei ole kohustuslik, kui  protseduur  on sel e lehe 
moodulis , 
ShapeRange
Shape
  kus  asub objekt, millele viidatakse. Peamised variandid  viitamisel  
1..*
lehele
Name,  Left ,  Width , 
Name, Left, Top, Width,  Height , 
     ActiveSheet - akti vne leht,  Sheets("nimi") 
...
Rotation , Visible, Fil , Line, Type, ...
         ActiveSheet.Shapes("auto"),     Sheets("rada").Shapes("auto")
IncrementLeft dx
IncrementLeft dx, IncrementTop dy
IncrementTop dy
2) Objektimuutuja nime abil   
IncrementRotation dp,  Select , 
...
  a. Määratleda Dim-lausega objektimuutuja tüübiga Shape, näiteks
Copy , Cut,  Delete , Duplicate, ...
...
        Dim auto As Shape, J As Shape
Flip (1 | 2), ScaleHeight(k,  False ), 
  b. Siduda objekt muutujaga Set-lausega: Set  muutuja  = objekt
Scal1eHeight(k, False), ...
1
    Set auto = Shapes("auto") : Set J = ActiveSheet.Shapes(" Juku ") 
FillFormat
LineFormat
    ...
ForeColor, ...
ForeColor,   Weight  ...
   J.Left = auto.Left + auto.Width
1
ColorFormat
3) Objektitüüpi parameetri nime abil
ShemeColor, 
   Sub Liigu (kuju As Shape, x, y)
RGB, ...
      Dim kv, kp, ..
      kv = kuju.Left : kp = kv + kuju.Width
      ...
Objekt FillFormat määratlekse Shape-objekti  omadusega   Fill
   End Sub
Objekt LineFormat määratlekse Shape-objekti omadusega Line
 
4) For Each-lause juhtmuutuja abil
Objekt ColorFormat määratlekse FillFormat-objekti või 
      Dim kuju As Shape
LineFormat-objekti omadusega ForeColor
      For Each kuju In Shapes
Kujundi täitevärvus:
         Msgbox kuju.Name
   kujund.Fill.ForeColor.ShemeColor = värvinuber (0 ... 80)
       Next kuju 
   kujund.Fill.ForeColor.RGB = RGB(R, G, B)  R; G, B = 0...255
Kujundi äärise värvus
   kujund.Line.ForeColor.ShemeColor = värvinuber   (0 ... 80)
5) Omadusega  Selection
   kujund.Line.ForeColor.RGB = RGB(R, G, B)  R; G, B = 0...255
Selle omaduse abil saab viidata väljavalitud ehk märgistatud objektidele. 
Kujundi äärise paksus
Omadust Selection  kasutatakse viitamiseks mitte ainult graafikaobjektidele 
   kujund.Line.Weight = paksus
vaid ka teist tüüpi objektidele: lahtriplokid, diagrammid jm 
 
 ja sellega seotud põhiklassid
Kujundid kuuluvad klassi Shape. Kõik lehel paiknevad kujundid 
(Shape-objektid) moodustavad ühe kollektsiooni (objekti) 
Shapes.
Kollektsiooni Shapes sees saab luua suvalise hulga objektide 
gruppe - ShapeRange-tüüpi objekte.
Viitamine kujunditele
1) Otsene
      [leht.]Shapes - kõik kujundid lehel    
      [leht.]Shapes("nimi") - üks konkreetne kujund
 leht - viit lehele, ei ole kohustuslik, kui protseduur on sel e lehe 
moodulis, 
  kus  asub objekt, millele viidatakse. Peamised variandid viitamisel 
lehele
     ActiveSheet - akti vne leht,  Sheets("nimi") 
         ActiveSheet.Shapes("auto"),     Sheets("rada").Shapes("auto")
2) Objektimuutuja nime abil   
  a. Määratleda Dim-lausega objektimuutuja tüübiga Shape, näiteks
        Dim auto As Shape, J As Shape
  b. Siduda objekt muutujaga Set-lausega: Set muutuja = objekt
    Set auto = Shapes("auto") : Set J = ActiveSheet.Shapes("Juku") 
    ...
   J.Left = auto.Left + auto.Width
3) Objektitüüpi parameetri nime abil
   Sub Liigu (kuju As Shape, x, y)
      Dim kv, kp, ..
      kv = kuju.Left : kp = kv + kuju.Width
      ...
   End Sub
 
4) For Each-lause juhtmuutuja abil
      Dim kuju As Shape
      For Each kuju In Shapes
         Msgbox kuju.Name
       Next kuju 
5) Omadusega Selection
Selle omaduse abil saab viidata väljavalitud ehk märgistatud objektidele. 
Omadust Selection  kasutatakse viitamiseks mitte ainult graafikaobjektidele 
vaid ka teist tüüpi objektidele: lahtriplokid, diagrammid jm 
 
(0, 0)
Töölehe koordinaadisüsteem ja  mõõtühikud
Shape-objektide põhiomadused
(0, 0)
Omadus
Nimi/Viitamine
Väärtused
Ühik - point (punkt)
Nimi
Name
ufo
cm
  1 point = 1/72 tol i
Vasak serv
Left
76
2.68
Ülemine serv
Top
239
8.44
Left
Laius
Width
80
2.81
Kõrgus
Height
53
1.87
Pöörde nurk
Rotation
332
Täitevärv
Fill.ForeColor.SchemeColor
15
Y
Joone värvus
Line.ForeColor.SchemeColor
8
Kujundite ja joonte 
Joone paksu
Line.Weight
1.0
värvused
Nähtavus
Visible
-1
Liigu
Aitab Omadused
Shapes-kol ektsiooni (objekti)  omadus Count
leiab kujundite arvu kol ektsioonis
Private Sub ScrollBar1_Change()
  Shapes("kast").Fill.ForeColor.SchemeColor = 
Kujundite arv lehel
Range("K_värv")
Y
   Range("J_värv") = Int(Rnd() * 80)
  Shapes("kast").Line.ForeColor.SchemeColor = 
Värvide segu. Omadus RGB ja funktsioon RGB
Range("J_värv")
End Sub
Private Sub KR_Red_Change()
   Shapes("Red").Fil .ForeColor.RGB = RGB(Range("L_Red"), 0, 0)
   V_segu Range("L_Red"), Range("L_Green"), Range("L_Blue")
End Sub
Private Sub KR_ Green _Change()
   Shapes("Green").Fil .ForeColor.RGB = RGB(0, Range("L_Green"), 0)
   V_segu Range("L_Red"), Range("L_Green"), Range("L_Blue")
End Sub
Private Sub KR_ Blue _Change()
   Shapes("Blue").Fill.ForeColor.RGB = RGB(0, 0, Range("L_Blue"))
   V_segu Range("L_Red"), Range("L_Green"), Range("L_Blue")
End Sub
Sub V_segu(R, G, B)
  Shapes("Mix").Fil .ForeColor.RGB = RGB(R, G, B)
End Sub
Sub V_segu(R, G, B)
  Shapes("Mix").Fil .ForeColor.RGB = RGB(R, G, B)
End Sub
Töölehe koordinaadisüsteem ja mõõtX
ühikud
Ühik - point (punkt)
X
  1 point = 1/72 tol i
Top
Left
Height
pööre on  kraadides ,
Width
positiivne suund päripäeva
Rotation
Kujundite ja joonte 
56
värvused
6 Tutvuge tausta värvustega, muutes vävi koodi
Private Sub ScrollBar1_Change()
  Shapes("kast").Fill.ForeColor.SchemeColor = 
Range("K_värv")
   Range("J_värv") = Int(Rnd() * 80)
  Shapes("kast").Line.ForeColor.SchemeColor = 
Range("J_värv")
End Sub
185
196
138
Shape-objekti mõned meetodid
Meetod
Selgitus
Kuju koordinaatide ja pöörde muutmine
IncrementLeft dx
Vasaku serva juurdekasv dx
9
IncrementTop dy
Ülemise serva juurdekas dy
10
IncrementRotation dp
Pöördenurga juurdekasv dp
0
Kuju  mõõtmete  muutmine
ScaleHeight k, False
Kõrguse skaleerimine
k
1
ScaleWidth k, False
Laiuse  skaleerimine
Muuda
Select
Valimine (aktiveerimine)
Oval 76
Kopeeri
Valige kujundi nimi, 
Copy
Kopeerimine
klõpsake nuppu Kopeeri 
Duplicate
Dubleerimine
ja  näidake   sihtkoht
Cut
Lõikamine
Delete
Eemaldamine
Flip 0 | 1
Peegeldus
0 - horis., 1 - vertik
Kuju koordinaatide ja pöörde muutmine
407 X
Liigu
29
Y
0
nurk
Kuju mõõtmete muutmine
Muuda
J
Kopeeri
Valige kujundi nimi, 
klõpsake nuppu Kopeeri 
ja näidake sihtkoht
kohale
Läks
Aitab
Sub Flips()
  Dim a As Shape, dx, S1p, S2v
  Set a = Shapes("auto")
  dx = 10
  S1p = Shapes("sein_1").Left + Shapes("sein_1").Width
  S2v = Shapes("sein_2").Left
  Kohale
  Do
    a.IncrementLeft dx
     paus  0.03
    If a.Left = S2v Then    
      paus 0.5: a.Flip 0:  dx = -dx: paus 0.5
    End If
   Loop   
End Sub
Sub Kohale()
  Dim auto As Shape
  Set auto = Shapes("auto")
  auto.Left = Shapes("sein_1").Left + Shapes("sein_1").Width
  If auto.HorizontalFlip = True Then auto.Flip 0
End Sub
Demo
Start
Aitab
Proged
Objektide liikumise ja animatsiooni üldised põhimõtted
raam
J
kast
Tantsi
Proged
Juku liigub hoolaua vasemast servast paremale. 
Vettehüpped
Jõudes servani  hüppab  alla, tehes saltosid, kuni 
jõuab veeni.  Edasi liigub vertikaalselt (pea allpool) 
Hüppa
põhjani, pöörab ümber ja tõuseb vee peale. 
Siis pöörab horisontaalasendisse ja ujub torni varju 
ning peale väikest pausi ilmub torni
J
Teha ka protseduur, mis viib Juku algasendisse 
(hüppelaua vasakusse serva)
Juku liigub hoolaua vasemast servast paremale. 
Jõudes servani hüppab alla, tehes saltosid, kuni 
jõuab veeni.  Edasi liigub vertikaalselt (pea allpool) 
Kohale
põhjani, pöörab ümber ja tõuseb vee peale. 
Siis pöörab horisontaalasendisse ja ujub torni varju 
ning peale väikest pausi ilmub torni
Teha ka protseduur, mis viib Juku algasendisse 
(hüppelaua vasakusse serva)
Juku liigub hoolaua vasemast servast paremale. 
Jõudes servani hüppab alla, tehes saltosid, kuni 
jõuab veeni.  Edasi liigub vertikaalselt (pea allpool) 
põhjani, pöörab ümber ja tõuseb vee peale. 
Siis pöörab horisontaalasendisse ja ujub torni varju 
ning peale väikest pausi ilmub torni
Teha ka protseduur, mis viib Juku algasendisse 
(hüppelaua vasakusse serva)
Paralleelsete tegevuste kirjeldamine VBAs
Lennuk,  ufod  ning  veski  ka
Scratch
Objektid ja andmed
Protseduurid
Protseduur Lend
Mooduli tasemega andmed
Protseduur Algseis
Ufo_Pea
()
Lend
Algse
is
Kukkum
Tuld
ine
tabas
aeg
max_aeg
3
15.03
15
Tulista
Start
Protseduur Lend
Protseduur Tuld
Protseduur Algseis
Protseduur Kukkumine
Demo. Suur võidusõit
Protseduurid
Kolm autot sõidavad võidu etteantud arvu ringe .  Programm 
Peaprotseduur  Soida ja alamprotseduur 
Tee_samm
fikseerib ajad. Kasutaja saab pakkuda võitja 
   Peaprotseduur seob objektid (autod) 
Objektid  töölehel
muutujatega , 
   3 autod:  auto_1, auto_2, auto_3, Juku ja  Kraps  - 
   algväärtustab  muutujad,   kustutab   lahtrid ,  
pealtvaatajad
fikseerib 
   lahtrid: ringe, aeg_1, aeg_2, aeg_3, p_voitja ( pakutud  võitja),  
   algaja. Juhib ja kotrollib autode sõitu,  
voitja
kasutades 
Objektid  programmis
   korduvalt protseduuri  Tee_samm. Viimase 
    Viitamiseks autodele kasutatakse objektimuutujaid: auto1, 
igal 
auto2, auto3
   täitmisel fikseeritakse  jooksev   aeg, 
    Teistele kujunditele ja lahtritele viidatakse nö otse: 
muudetakse ühe 
Shapes(nimi) ja Range(nimi)
    auto  asukohta   sammu võrra, kui auto 
Globaalsed  andmed
ületab  
   Konstandid:  kaugus = 900 - autode sõidu kaugus , h = 10 - 
     etteantud   kauguse viiakse auto 
liikumise baassamm, 
( algusesse )  vaskusse 
         sellele  lisatakse protseduuris Tee_samm juhuslik osa Rnd()*h
    serva, suurendatakse ringide arvu   ühe 
   Muutujad: ringe - ringide arv (loetakse töölehelt), algaeg - sõidu 
Start
Stopp
võrra. 
alguse aeg
     Kordamine lõpetatakse, kui  kõik autod on 
J
ringe
aeg_1
aeg_2
aeg_3
Paku 
s v
õõ
ititj
n a
ud 
3
5.953
6.035
6.047
auto
    _
   2
antud arvu ringe.
 Fukts  ioon  Kes(aeg1, aeg2, aeg3) - teeb 
kindlaks võitja  
1
Vt  programmi ja kommentaare lehe 
moodulis!!!
2
3
Protseduurid
Peaprotseduur  Soida ja alamprotseduur 
Tee_samm
   Peaprotseduur seob objektid (autod) 
muutujatega , 
   algväärtustab  muutujad,  kustutab lahtrid,  
fikseerib 
   algaja. Juhib ja kotrollib autode sõitu,  
kasutades 
   korduvalt protseduuri  Tee_samm. Viimase 
igal 
   täitmisel fikseeritakse  jooksev   aeg, 
muudetakse ühe 
    auto  asukohta  sammu võrra, kui auto 
ületab  
     etteantud   kauguse viiakse auto 
(algusesse)  vaskusse 
Demo Scratch
    serva, suurendatakse ringide arvu   ühe 
võrra. 
     Kordamine lõpetatakse, kui  kõik autod on 
sõitnud  võitja
     antud au
 arto_
vu 1
 ringe.
 Fukts ioon Kes(aeg1, aeg2, aeg3) - teeb 
kindlaks võitja  
Vt  programmi ja kommentaare lehe 
moodulis!!!
Protseduurid tegevuste ja liikumiste määramiseks objektidega
Valik protseduure  tegevuste määramiseks objektidega
Funktsioon On_Sees(O1, O2) 
    tõene, kui objekt O1 (väiksem) on O2 sees
Funktsioon On_Puude(O1, O2)
    tõene, kui objektidel O1 ja O2 on  ühisosa
Protseduur Liigu (kuju, h). 
    Muudab kuju asukohta h point'i võrra, arvestades kuju suunda (pöördenurka)
Protseduur Osuta (kuju, objekt)
    Pöörab kuju objejkti suunas. Objekt on kujund või lahter
Protseduur Liigu_XY(kuju, x, y, d [,pp=0.01]  [,kt=1]  [,dp=0])
    Vi b kuju punkti  x, y, d - samm, pp - paus, kt -  kalde  tunnus:, dp - pöörlemise nurga muutus
Protseduur Liigu_OB(kuju, objekt, d [, pp=0.01]  [, kt=1] [, dp=0])
    Vi b kuju objeki juurde: d - samm, pp - paus, kt - kalde tunnus, dp - pöörlemisnurga muutus   
Protseduur Liigu_PA(kuju As Shape, L, f [,hx = 10] [,pp = 0.01])
    Liikumine parabooli järgi. L - kaugus, f - kõrgus, hx -samm, pp - paus
Protseduur Liigu_VN(kuju As Shape, V0, alfa [, g = 10], [, pp=0.01] [, mx] [, my])
    Nurga all visatud keha liikumine. V0 -  algkiirus  (m/sek), alfa - nurk(gr), g - kiirendus (m/sek2)   
Protseduurid tegevuste ja liikumiste määramiseks objektidega
Valik protseduure  tegevuste määramiseks objektidega
Funktsioon On_Sees(O1, O2) 
    tõene, kui objekt O1 (väiksem) on O2 sees
Funktsioon On_Puude(O1, O2)
    tõene, kui objektidel O1 ja O2 on ühisosa
Protseduur Liigu (kuju, h). 
    Muudab kuju asukohta h point'i võrra, arvestades kuju suunda (pöördenurka)
Protseduur Osuta (kuju, objekt)
    Pöörab kuju objejkti suunas. Objekt on kujund või lahter
Protseduur Liigu_XY(kuju, x, y, d [,pp=0.01]  [,kt=1]  [,dp=0])
    Vi b kuju punkti  x, y, d - samm, pp - paus, kt - kalde tunnus:, dp - pöörlemise nurga muutus
Protseduur Liigu_OB(kuju, objekt, d [, pp=0.01]  [, kt=1] [, dp=0])
    Vi b kuju objeki juurde: d - samm, pp - paus, kt - kalde tunnus, dp - pöörlemisnurga muutus   
Protseduur Liigu_PA(kuju As Shape, L, f [,hx = 10] [,pp = 0.01])
    Liikumine parabooli järgi. L - kaugus, f - kõrgus, hx -samm, pp - paus
Protseduur Liigu_VN(kuju As Shape, V0, alfa [, g = 10], [, pp=0.01] [, mx] [, my])
    Nurga all visatud keha liikumine. V0 - algkiirus (m/sek), alfa - nurk(gr), g - kiirendus (m/sek2)   
Funktsioon On_Sees(O1, O2) - on tõene, kui objekt O1 (väiksem) on O2 sees
Funktsioon On_Puude(O1, O2) - on tõene, kui objektidel O1 ja O2 on ühisosa
Objektid O1 ja O2 võivad olla kujundid (Shape) või lahtriplokid (Range
Üks kujund teise sees
Kujunditel on ühisosa
O1 
O2
O2
on
on ühisosa
O1
O1
O2
sees
Lahter lahtriploki (piirkonna) sees
Kujundil on ühisosa piirkonnaga
O1 
O1
O2
O2
sees
Kujund piirkonna sees 
If On_Puude ( hiir , Kraps) Then
O1 
    käes = käes + 1
O2
O1
End If
O2
sees
Lahter kujundi sees (all)
Function  On_Sees(O1, O2)
' Tõene, kui väike objekt (O1)
' on suure (O2) sees
O1 
  Dim v1, p1, y1, a1, v2, p2, y2, a2
O1
  v1 = O1.Left: p1 = v1 + O1.Width
O2
  y1 = O1.Top: a1 = y1 + O1.Height
  v2 = O2.Left: p2 = v2 + O2.Width
O2
sees
  y2 = O2.Top: a2 = y2 + O2.Height
  If v1 >= v2 And p1 = y2 And a1 = v2 And p1 = y2 And a1 = v2 And p1 = y2 And a1  a2 Or a1 = v2 And p1 = y2 And a1  a2 Or a1  0 Then P_Nrk = nurk  Else  P_Nrk = 360 + nurk
    Else
     P_Nrk = 180 + nurk
    End If
  End If
End Function
Function P_Nrk(x1, y1, x2, y2)
' Leiab kahe  punktiga  määratletud lõigu kaldenurga
' x1, y1, x2, y2 - otste koordinaadid
  Dim dx, dy, nurk
  dx = x2 - x1: dy = y2 - y1
  If dx = 0 Then
    If dy  0 Then
      If dy > 0 Then P_Nrk = nurk Else P_Nrk = 360 + nurk
    Else
     P_Nrk = 180 + nurk
    End If
  End If
End Function
Sõida 1
aitab
Teha ekraanile  suvaline  hulk punkte (näit. väikesi 
Auto ringliiklus
ringikesi) ning panna auto liikuma ühest punktist teise 
seni, kui ei katkestata. 
Kasutada järjestikusi pöördumisi protseduuri Liigu_OB() 
poole
Teha ekraanile suvaline hulk punkte (näit. väikesi 
ringikesi) ning panna auto liikuma ühest punktist teise 
seni, kui ei katkestata. 
Kasutada järjestikusi pöördumisi protseduuri Liigu_OB() 
poole
Teha ekraanile suvaline hulk punkte (näit. väikesi 
ringikesi) ning panna auto liikuma ühest punktist teise 
seni, kui ei katkestata. 
Kasutada järjestikusi pöördumisi protseduuri Liigu_OB() 
poole
Sõida
Auto ringliiklus
Lõpeta
Liikumine parabooli järgi
y
4 f
y 
x(L  x)
f
2
(x0, y0)
x
L
kuju
L
J
Sub Liigu_PA(kuju As Shape, L, f, _
   Optional  hx = 10, Optional pp = 0.01)
Läks
L
f
h
' kuju liikumine parabooli järgi
' L - laius, f - kõrgus, hx - samm x-teljel
Algusesse
8
4
0.2
  Dim x0, y0, x, y,a, b
' x0, y0 - alguse koordinaadid
' x, y - jooksvad koordinaadid
  If hx = 0 Then MsgBox "Samm on null!": 
End
  x0 = kuju.Left:  y0 = kuju.Top
  If hx > 0 Then
    a = 0: b = L
  Else
    a = L: b = 0: x0 = kuju.Left - L
  End If
  For x = a To b  Step  hx
     y = 4 * f / L ^ 2 * x * (L - x)
     kuju.Left = x0 + x
     kuju.Top = y0 - y
     paus pp
  Next x
  kuju.Top = y0
End Sub
Karistuslöögid II. Demo
lööke
tabas
12
2
J
L, cm
f, cm
kustuta
19.78
5.61
Löök
4 f
y 
x(L  x)
Uus mäng
2
L
4 f
y 
x(L  x)
2
L
Kaldu 
visatud 
keha 
liikumine.
  V0 - 
algkiirus 
(m/sek), 
alfa - nurk 
(graad),   g - 
vabalangem
Protseduur iL
s i
e i
  gu_VN(kuju As Shape, V0, alfa [, g = 10], [, pp=0.01] [, mx] [, my])
Keha li kumine 
     ant
kiir ud 
end algki
us  iruse (V0 - m/sek) ja nurga (alfa -  grad ) 
g -  gravitatsioon
(  (m
m/ /sse
ek2k),  
2), pp - paus, mx, my - mastaabi tegurid (punkte pikkuse ühikule)
pp - paus,  
kiirus (V )
0
nurk
g
pp
mx
my
mx, my - 
30
45
mastaabi 10
0.01
10
10
tegurid
 
25
20
15
10
5
0
0
10
20
30
40
50
60
70
80
90
100
(kuju As Shape, V0, alfa [, g = 10], [, pp=0.01] [, mx] [, my])
Keha li kumine antud algkiiruse (V0 - m/sek) ja nurga (alfa - grad) 
), pp - paus, mx, my - mastaabi tegurid (punkte pikkuse ühikule)
tm
xm
4.24
90
25
20
15
10
5
0
0
10
20
30
40
50
60
70
80
90
100
samm
jaotisi
0.042426
100
t
x
y
0
0
0
0.042426
0.9
0.891
0.084853
1.8
1.764
0.127279
2.7
2.619
0.169706
3.6
3.456
0.212132
4.5
4.275
0.254558
5.4
5.076
0.296985
6.3
5.859
0.339411
7.2
6.624
0.381838
8.1
7.371
0.424264
9
8.1
0.46669
9.9
8.811
0.509117
10.8
9.504
0.551543
11.7
10.179
0.59397
12.6
10.836
0.636396
13.5
11.475
0.678823
14.4
12.096
0.721249
15.3
12.699
0.763675
16.2
13.284
0.806102
17.1
13.851
0.848528
18
14.4
0.890955
18.9
14.931
0.933381
19.8
15.444
0.975807
20.7
15.939
1.018234
21.6
16.416
1.06066
22.5
16.875
1.103087
23.4
17.316
1.145513
24.3
17.739
1.187939
25.2
18.144
1.230366
26.1
18.531
1.272792
27
18.9
1.315219
27.9
19.251
1.357645
28.8
19.584
1.400071
29.7
19.899
1.442498
30.6
20.196
1.484924
31.5
20.475
1.527351
32.4
20.736
1.569777
33.3
20.979
1.612203
34.2
21.204
1.65463
35.1
21.411
1.697056
36
21.6
1.739483
36.9
21.771
1.781909
37.8
21.924
1.824335
38.7
22.059
1.866762
39.6
22.176
1.909188
40.5
22.275
1.951615
41.4
22.356
1.994041
42.3
22.419
2.036468
43.2
22.464
2.078894
44.1
22.491
2.12132
45
22.5
2.163747
45.9
22.491
2.206173
46.8
22.464
2.2486
47.7
22.419
2.291026
48.6
22.356
2.333452
49.5
22.275
2.375879
50.4
22.176
2.418305
51.3
22.059
2.460732
52.2
21.924
2.503158
53.1
21.771
2.545584
54
21.6
2.588011
54.9
21.411
2.630437
55.8
21.204
2.672864
56.7
20.979
2.71529
57.6
20.736
2.757716
58.5
20.475
2.800143
59.4
20.196
2.842569
60.3
19.899
2.884996
61.2
19.584
2.927422
62.1
19.251
2.969848
63
18.9
3.012275
63.9
18.531
3.054701
64.8
18.144
3.097128
65.7
17.739
3.139554
66.6
17.316
3.181981
67.5
16.875
3.224407
68.4
16.416
3.266833
69.3
15.939
3.30926
70.2
15.444
3.351686
71.1
14.931
3.394113
72
14.4
3.436539
72.9
13.851
3.478965
73.8
13.284
3.521392
74.7
12.699
3.563818
75.6
12.096
3.606245
76.5
11.475
3.648671
77.4
10.836
3.691097
78.3
10.179
3.733524
79.2
9.504
3.77595
80.1
8.811
3.818377
81
8.1
3.860803
81.9
7.371
3.903229
82.8
6.624
3.945656
83.7
5.859
3.988082
84.6
5.076
4.030509
85.5
4.275
4.072935
86.4
3.456
4.115361
87.3
2.619
4.157788
88.2
1.764
4.200214
89.1
0.891
4.242641
90
0
Graafikaobjektide lisamine töölehele
AddLine - joone (lõigu) lisamine
leht.Shapes.AddLine(x1, y1, x2, y2).Select
NB! Select peab olema!
või
Set muutuja = leht.Shapes.AddLine(x1, y1, x2, y2)
x1, y1, x2, y2 - otste koordinaadid (punktides)
(x1, y1)
ActiveSheet.Shapes.AddLine(50,100,200,150).Select
Set joon = ActiveSheet.Shapes.AddLine(50,100,200,150)
AddShape - erinevat tüüpi kujundite lisamine
leht.AddShape(Type, Left, Top, Width, Height).Select
või
Set muutuja = leht.AddShape(Type, Left, Top, Width, Height)
Type - tüüp: määratakse vastava numbri või sisekonstandi abil
(0, 0)
1
msoShapeRectangle - ristkülik või ruut
Ühik - point (punkt)
9
msoShapeOval - ovaal või ring
  1 point = 1/72 tolli
Left, Top, Width, Height - vasak, ülemine, laius, kõrgus
Y
Select peab olema!(x2, y2)
(x1, y1)
Ühik - point (punkt)
X
  1 point = 1/72 tolli
Top
Left
Height
Width
Graafikaobjektide lisamine. Demo
K U M U
Tee jooned
Tee kujud
Maha
J
Kunst  kuulub rahvale!
Worksheet
1
Shapes
Count, ...
AddLine(X1, Y1, X2, Y2)
AddShape(tüüp, X, Y, W, H)
AddPolyline(koord. massiiv)
...
Kujude loomine
Tee kujud
Liigu
Stopp
Eemalda

Document Outline

• Gra_Obj
• Sisukord
• Shape
• Omadused
• Meetodid
• Anima
• Hüpe_1
• Lennuk_ufod
• Suursõit
• Protseduurid
• On_fun
• Liigu
• Liigu_XY
• Liikumised
• Penaltid
• Hüpe_2
• H_robi
• Liigu_OB
• H_auto_R1
• H_auto_R2
• H_Takistusriba
• Jalka
• Kald
• Lisamine
• D_Lisa
• Kujud