VBA juhtimine (0)

Läks
Aitab
Protsesside juhtimine
a
b
a_1
b_1
15
8
8
10
Igale Jukule  personaalne  planeet!
J
Igale Krapsule oma  komeet !
Protsesside juhtimine
Igale Jukule personaalne planeet!
J
Igale Krapsule oma komeet!
Protsesside modelleerimisest
If- laused
Kujud. Iseseisvalt
Select   Case -lause  
Lõputu  kordus
Harjutus " Veski "
Lõputu kordus katkestusega
Harjutus "Auto_1" ja "Auto_2"
Arvu  arvamine . Iseseisvalt
Funktsiooni  nullkohad
Järelkontrolliga kordus
Eelkontrolliga kordus
Harjutused "Auto_3" ja "Autod_4". Iseseisvalt
Fuktsioonide nullkohad. Iseseisvalt
Do… Loop - kordused. Demod
For ... Next-lause
Funktsiooni värtuste keskmise ja  maksimumi  leidmine
Lahtrite värvid.  Demo
For…Each-lause
Harjutus " Ufod "
Rakendus  "Ufod". Iseseisvalt
Lahtriploki keskmised
Protsesside modelleerimisest
algoritmid protsesside juhtimine
Programmeerimine  - protsesside  modelleerimine
Peamine pole keel, vaid protsesside mudelite ja algoritmide loomine
Protsesside liigid
tegevus_1
Järjestikune protsess ehk jada
Jada
tegevus_2
tegevus_1
tegevus_2
...
tegevus_n
...
Paralleelne protsess
Paralleelne
tegevus_n
tegevus_1
tegevus_2
...
tegevus_n
edasi
a
Hargnev protsess ehk valik
-7
tingimus: a>0
ting_1
ting_n
ting_2
tõene
tegevus_1
tegevus_2
...
tegevus_n
Tegevused1
Tsükliline protsess ehk kordus
Kordus
Aitab
tegevus_1
tegevus_2
...
tegevus_n
tegevus_1
tegevus_2
...
tegevus_n
hargnev
tingimus: a>0
If-laused
Valikud  1
  mitmereaaline If
tõene
väär
Valikud 2
  ühereaaline If
Tegevused1
Tegevused2
Select Case-lause
Do ... Loop-lause
  lõputu kordus
Do...Loop-lause
  lõputu kordus katkestusega
  eelkontrolliga kordus
  järelkontrolliga kordus
For-laused
For-laused
   For ... Next - lause 
   For Each ... Next - lause
Do ... Loop-lause
  lõputu kordus
  lõputu kordus katkestusega
  eelkontrolliga kordus
  järelkontrolliga kordus
For-laused
   For ... Next - lause 
   For Each ... Next - lause
Valikud_1 Valikud_2
algoritmid  jaotis  valikud
If-laused
 Mitmereealine If-lause. Põhivariandid:  valik kahest ja valik ühest
...
,,,
,,,
If D = 0,   2 * 3 + 5 > a - 3   
loogikaavaldis:  võrdlus loogukatehe võrdlus [loogikatehe võrdlus ] ...
   loogikatehted: Or,  And, ...   x >= vs And x = b + c Or b >= a + c Or c >= a + b
Mitmerealine  If-lause - üldjuht : mitmene 
valik
If  ting
  _ 1 Then
    if-laused
[  ElseIf  ting_K Then
        elseif-laused ].
  ...
[  Else
      else-laused_E ]
End If
Üherealine If-lause 
If tingimus Then  laused_1 [ Else laused_2 ]
If a > b Then  max = a Else max = b
Kolme arvu mediaan
Üldmoodulis Valikud on funktsioon  Maks0 
(Variant 0)
Koostada funktsioonid max leidmiseks 
Variant 1 ja Variant 2, mediaani ja min  
leidmiseks
a
b
c
max
max1
max2
56
35
32
56
56
56
Koostada funktsioon, mis   leiab hinde sõltuvalt 
punktide arvust  p.
Teha tabel (5-6 rida), milles igas reas on nimi, 
punktid ja hinne
p  = 90 - 100, hinne = 5
p  = 75 - 89,   hinne = 4
p  = 60 - 74,   hinne = 3
p  = 50 - 59,   hinne = 2
p  = 40 - 49,   hinne = 1
p = 0,   2 * 3 + 5 > a - 3   
loogikaavaldis:  võrdlus loogukatehe võrdlus [loogikatehe võrdlus ] ...
   loogikatehted: Or,  And, ...   x >= vs And x = b + c Or b >= a + c Or c >= a + b
Function  Hind(L, m)
   Dim ind
   ind = Kind(L, m)
   If ind =90
ei
hinne = 5
p>=75
ei
hinne = 4
p>=60
ei
hinne = 3
p>=50
ei
hinne = 2
p>=40
hinne = 
14
hinne = 0
hinn
e
ei
ei
hinne = 0
Iseseisvalt
KAUGEIM
Kõige kaugemal
Paigutada töölehele kolm suvalist graafilist kujundid. 
Koostada  protseduur , mis kuvab  töölehe vasakust servast 
kaugemal  oleva  kujundi nime ja kauguse servast (cm).
NB! 1 point =  1/72 tol i = 2,54/72 cm
KAUGEIM
Valikud_2
Select Case-lause 
   
Select Case selektor
  Case kriteerium_1
   laused_1
 [ Case kriteerium_2
   laused_2 ]
   ...
[ Case Else
 laused_E  ]
End Select
selektor -  avaldis
kriteerium
   avaldis, avaldis1 To avaldis2, Is võrdlussümbol avaldis. 
Kriteeriumide võimalike esitusviiside näiteid
   Case 3   Case 1, 3, 5, 7, 8, 10, 12     Case 2, 4, 7 To 13, 17, 21 
   Case Is  12     Case " kask "   Case "saar", "tamm" 
Function hinnes(p)
Kopeerige  funktsioon  
' Hinne sõltuvalt punktidest
üldmoodulisse ja katsetage
  Select Case p
     Case 90 To 100 : hinnes = 
punkte
tulem IF tulem Case
5
52
2
2
     Case 75 To 89 : hinnes = 4
     Case 60 To 74 : hinnes = 3
     Case 50 To 59 : hinnes = 2
     Case 40 To 49 : hinnes = 1
     Case Else: hinnes = 0
  End Select
End Function
Function  parv (kuu, aasta)
Kopeerige  funktsioon  
' Päevade arv kuus
üldmoodulisse ja katsetage
  Select Case kuu
     Case 1, 3, 5, 7, 8, 10, 12 
kuu
aasta
parv
        parv = 31
2
2013
28
     Case 4, 6, 9, 11 
         parv = 30
      Case 2
          parv = 28
          If aasta Mod 4 = 0  Then parv = 29
      Case Else : parv = 0  ' viga - olematu kuu
    End Select
End Function
Function parv(kuu, aasta)
' Päevade arv kuus
  Select Case kuu
     Case 1, 3, 5, 7, 8, 10, 12 
        parv = 31
     Case 4, 6, 9, 11 
         parv = 30
      Case 2
          parv = 28
          If aasta Mod 4 = 0  Then parv = 29
      Case Else : parv = 0  ' viga - olematu kuu
    End Select
End Function
Kordused_1
VBA-pdf
Kordused
Do ... Loop-lause. Lõputu kordus
Läks Aitab
Lõputu korduse tüüpilised esitused VBAs, 
Scratch 'is ja  UML tegevusdiagrammidel
Do
lause_1
tegevus_1
Do
lause_2
tegevus_2
    laused
laused
 ...
---
Loop
lause_N
tegevus_N
NB! Katkestamine!
   - klahvid  Ctrl  + Break
Loop
   - End-lause teises 
protseduuris
✘ Näita skeemi
1
Miks pall läheb mõnikord välja?
pall.X = juhuarv
pall.Y= juhuarv
J
ei
On_puude (pall; auk)
Klõpsa
auk.värv = juhuarv
klõpsa
klõpsa
plats .värv = juhuarv
mind!
Stopp
paus  pp
✘ Näita proget
Sub Lenda_P()
     Dim P As  Shape , plats As Shape, auk As Shape
     Set P = Shapes("pal "): Set plats = 
Lõputu korduse tüüpilised esitused VBAs, 
Shapes("plats")
     Set auk =Shapes("auk")
Scratch'is ja  UML tegevusdiagrammidel
     Range("tabas") = 0 
     Do
        P.Left = plats.Left + Rnd() * plats.Width
        P.Top = plats.Top + Rnd() * plats.Height
        If On_Puude(P, Shapes("auk")) Then
laused
           Range("tabas") = Range("tabas") + 1
           auk.Fil .ForeColor.SchemeColor = Rnd() * 70
           plats.Fil .ForeColor.SchemeColor = Rnd() * 70
        End If
        paus 0.5
     Loop
NB! Katkestamine!
End Sub
   - klahvid Ctrl + Break
   - End-lause teises 
protseduuris
✘ Näita skripti
Miks pall läheb mõnikord välja?
Lõputu kordus. Näide Foor_1
Tööle
Stopp
Sub Tööle()
Sub Aitab()
  Do
   Muuda 0, 1 ' must
     Muuda  2, 5    ' punane
   End
     Muuda  5, 2    ' kollane
End Sub
     Muuda  3, 4    ' roheline
     Muuda  5, 2    ' kollane
  Loop
End Sub
J
NB! Muuda on parameetritega alamprotseduur
    Parameetrid  värv ja p on sisendparameetrid
Sub paus(pp)
   Nende väärtused annavad protseduurid
  Dim pl
   Tööle ja Aitab  pöördumisel
  pl =  Timer () + pp
  Do
     DoEvents
Sub Muuda(värv, p)
  Loop  While  Timer() Shapes("piir").Top  Then  Exit  Do
     paus 0.1
  Loop
  MsgBox "Olen üle!"
End Sub
Kordused_1
Kordused 2
Lõpmatu  kordus katkestusega. Do ... Exit Do ... Loop - lause
Harjutus "Auto_1"
Harjutus "Auto_2"
samm
aeg
13
0.13
1
Auto_1
muuda auto.X 10
auto.X>600
ei
paus 0.1
kuva  teade
Do ... Exit Do ... Loop - lause
Harjutus "Auto_2"
Auto_2
loe h
algaeg = Timer
muuda auto.X h
auto.X > Fin.X
ei
aeg=Timer-algaeg
paus pp
kuva teade
Kordused_1
Kordused 2
Iseseisvalt
Vana tutav. Arvu ära arvamine
Andmed: 
Koostada makro, mis pakub kasutajal ära arvata juhuslik arv (n 
   y - arvuti arv, 
1..100) võimalikult väikse katsete arvuga.
   x - kasutaja pakkumine, 
Programm  abistab  kasutajat, teatades peale ebaõnnestunut 
   k - katsete  loendur    
katset, kas  pakutud  arv oli väiksem või suurem arvuti arvust.
y = juhuarv (1 ..100)
k = 0
   ...
Lisada programmi piirang katsete arvule. Kui see on ületatud, 
lõpetada programmi töö.
Kasutaja võib katkestada programmi töö, sisestades tühja 
väärtuse.
k=k+1
Paigutada lehele mingi kujund ( Juku , Kraps vm). Kui katsete arv 
on väiksem etteantud arvust (n 5-7), tekitakse mingi 
animatsioon : hüppamine, salto vm
k>kmax
ei
loe x
x = ""
ei
x = y
ei
Arva  ära
x  y
kuva "Vähe"
kuva "Palju"
71
kuva "Korras", k
k 0
ei
Muutujad
  a, b - lõigu muutuvad otsapunktid
a = c
b = c
  c - lõigu  jooksev  keskpunkt
  y1 - funktsiooni väärtus esialgses 
          vasakus otsapunktis - a0.
b -a