VBA Juhtimine (0)

Protsesside juhtimine
a
b
a_1
b_1
15
8
8
10
Igale Jukule  personaalne  planeet!
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
Järjestikune protsess ehk jada
tegevus_1
tegevus_2
tegevus_1
tegevus_2
...
tegevus_n
...
Paralleelne protsess
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
tegevus_1
tegevus_2
...
tegevus_n
tegevus_1
tegevus_2
...
tegevus_n
tingimus: a>0
Valikud  1
If-laused
  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
 Mitmerealine If-lause. Põhivariandid:  valik kahest ja valik ühest
,,,
,,,
If tingimus Then
kui tingimus  
     laused_1
siis     laused_1
[  Else
[ muidu
     laused_2 ]
     laused_2 ]
End If
tõene
tingimus
väär
[ lõpp kui ]
...
laused_1
laused_2
...
tingimus - võrdlus või loogikaavaldis, väärtuseks tõeväärtus True või  False  
Mitmerealine If-lause - üldjuht :  mitmene  valik
võrdlus :  avaldis  võrdlustehe avaldis: x = 0,   D >= 0,   2 * 3 + 5 > a - 3   
   loogikaavaldis:  võrdlus  loogikatehe  võrdlus [loogikatehe võrdlus ] ...
If ting_
   1
 l  T
ooh
ge
i n
katehted: Or,  And, ...   x >= vs And x = b + c Or b >= a + c Or c >= a + b
    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
Koostada funktsioon, mis leiab hinde sõltuvalt punktide arvust  
p.
56
35
32
#NAME?
###
###
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 loogikatehe 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
ei
hinne = 
14
ei
hinne = 
14
hinne = 0
hinne
Iseseisvalt
Kõige kaugemal
Paigutada töölehele kolm  suvalist  graafilist  kujundit . Koostada 
protseduur , mis kuvab  töölehe vasakust servast kõige 
kaugemal  oleva  kujundi nime ja kauguse servast (cm).
NB! 1 point =  1/72 tolli = 2,54/72 cm
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 = 5
punkte
tulem IF tulem Case
     Case 75 To 89 : hinnes = 4
38
#NAME? #NAME?
     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
#REF!
     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
Kopeerige  funktsioon  
üldmoodulisse ja katsetage
Kordused_1
VBA-pdf
Kordused
Do ... Loop-lause. Lõputu kordus
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
14
Miks pall läheb mõnikord välja?
pall.X = juhuarv
pal .Y= juhuarv
J
ei
On_puude (pall; auk)
Klõpsa,
klõpsa,
auk.värv = juhuarv
klõpsa
mind!
plats .värv = juhuarv
paus  pp
Sub Lenda_P()
     Dim P As  Shape , plats As Shape, auk As Shape
     Set P = Shapes("pal "): Set plats = Shapes("plats")
Lõputu korduse tüüpilised esitused VBAs, 
     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
           Range("tabas") = Range("tabas") + 1
laused
laused
           auk. Fill .ForeColor.SchemeColor = Rnd() * 70
           plats.Fil .ForeColor.SchemeColor = Rnd() * 70
        End If
        paus 0.5
     Loop
End Sub
NB! Katkestamine!
   - klahvid Ctrl + Break
   - End-lause teises protseduuris
Miks pall läheb mõnikord välja?
Lõputu kordus. Näide Foor_1
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
   Nende väärtused annavad protseduurid
   Tööle ja Aitab  pöördumisel
Sub Muuda(värv, p)
  Shapes("tuli").Fill.ForeColor.SchemeColor = värv
  paus p
End Sub
Sub Aitab()
   Muuda 0, 1 ' must
   End
End Sub
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
Harjutus "Auto_1"
Harjutus "Auto_2
samm
aeg
13
0,00
Auto_1
muuda auto.X 10
auto.X>600
ei
paus 0.1
kuva  teade
Do ... Exit Do ... Loop - lause
Harjutus "Auto_2"
1
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
Koostada makro, mis palub kasutajal ära arvata juhuslik arv (n 1..100) 
võimalikult väikese katsete arvuga.
Programm abistab kasutajat, teatades peale ebaõnnestunud katset, kas 
pakutud  arv oli väiksem või suurem arvuti arvust.
Andmed: 
Lisada programmi piirang katsete arvule. Kui see on ületatud, lõpetada 
   y - arvuti arv, 
y = juhuarv (1 ..100)
k = 0
   x - kasutaja pakkumine, 
programmi töö.
   k - katsete  loendur    
Kasutaja võib katkestada programmi töö, sisestades tühja väärtuse.
   ...
Paigutada lehele mingi kujund ( Juku ,  Kraps  vm). Kui katsete arv on 
väiksem etteantud arvust (n 5­7), tekitatakse mingi animatsioon: 
k=k+1
hüppamine, salto vm.
k>kmax
ei
loe x
x = ""
ei
x = y
ei
x  y
kuva "Vähe"
kuva "Palju"
kuva "Korras", k
k 0
ei
          vasakus otsapunktis - a0.
a = c
  y2 - funktsiooni väärtus lõigu 
b = c
          jooksvas keskpunktis - c.
   
b -a