Sub Liigu_1(kuju As Shape, siht As Shape, _ Sub Liigu_2(kuju As Shape, x, y, _ h, pp, Optional pööre = 1) h, pp, Optional pööre = 1) Dim xj, yj, x, y, d, hx, hy, n, i Dim xj, yj, d, hx, hy, n, i xj = kuju.Left: yj = kuju.Top xj = kuju.Left: yj = kuju.Top x = siht.Left: y = siht.Top d = Sqr((x - xj) ^ 2 + (y - yj) ^ 2) d = Sqr((x - xj) ^ 2 + (y - yj) ^ 2) If d = 0 Then Exit Sub If d = 0 Then Exit Sub hx = h * (x - xj) / d: hy = h * (y - yj) hx = h * (x - xj) / d: hy = h * (y - yj) / d If pööre <> 0 Then kuju.Rotation If pööre <> 0 Then kuju.Rotation = P_Nrk(xj, yj, x, y) n = Round(d / h) n = Round(d / h) For i = 1 To n
.. If D < 0 Then If tingimus Then kui tingimus siis väär x1 = "" : x2 = "" laused_1 tõene tingimus laused_1 Else [ Else [ muidu x1 = (-b - Sqr(D) laused_1 laused_2 laused_2 ] laused_2 ] a) End If [ lõpp kui ] x2 = (-b + Sqr(D) ... ... a) End If
c) Osakeste vahel mõjuvad vastastikused jõud d) Osakesed liiguvad ühesuguste kiirustega 12) Bitt on a) Virtuaalne osake, mis vahendab tugevat vastastikmõju b) Negatiivse entroopia mõõtühik c) Virtuaalse reaalsuse kvant d) Mälupesa oleku tõenäosus 13) Kui gaasihulga ruumala jääb konstantseks, aga rõhk kasvab, siis temperatuur a) Kasvab b) Kahaneb c) Ei muutu 14) Kui voolutugevus kasvab 2 korda, siis võimsus takistusel a) Kasvab sqr. 2 korda b) Kasvab 2 korda c) Kasvab 4 korda d) Ei muutu 15) Magnetvälja energia tihedus aines on a) Võrdeline magnetilise induktsiooni suurusega b) Võrdeline magnetilise induktsiooni suuruse ruuduga c) Pöördvõrdeline keskkonna magnetilise läbitavusega d) Võrdeline keskkonna magnetilise läbitavusega 16) Valguslainete erinev sagedus näitab erinevat a) Eredust b) Värvi c) Amplituudi d) Kiirust
.. If D < 0 Then If tingimus Then kui tingimus väär x1 = "" : x2 = "" laused_1 tõene tingimus siis laused_1 Else [ Else [ muidu x1 = (-b - Sqr(D) laused_1 laused_2 laused_2 ] laused_2 ] a) End If [ lõpp kui ] x2 = (-b + Sqr(D) ... ... a) End If
järgnev If-lause kahel real If tulu <= 6000 Then maks = O _ Else maks = 0.26 * (tulu - 6000) Lausete põhielementideks on võtmesõnad, nimed, konstandid, avaldised, piirajad ja eraldajad. Võtmesõnad on kindla esitusviisi ja tähendusega ingliskeelsed sõnad, fraasid või lühendid. Neid käsutatakse lausete identifitseerimiseks ja struktuuri määramiseks (Sub, End Sub, If, Then, Else, Do jne), sisefunktsioonide ja siseprotseduuride ning objektide omaduste nimede tähistamiseks (Sqr, Sln, Left, InputBox, MsgBox, Range jne) jm. Võtmesõnu võib käsutada ainult seal, kus ette nähtud, muuks otstarbeks neid käsutada ei tohi. Nimesid ehk identifikaatoreid käsutatakse protseduuride, konstantide, muutujate ja mõne muu elemendi tähistamiseks. Nimede esitamiseks on kindlad reeglid. Suvaline nimi peab algama tähega, ta võib sisaldada ainult tähti, numbreid ja allkriipse, nimes ei tohi olla tühikuid. Suur-ja väiketähti nimedes ei eristata
Teha protseduur, mis kuvab pikima isiku nime ja pikkuse Ants Peeter Jaak Juku Pikim Pikkus 192 203 196 173 Peeter 203 jaotis valikud ... If D < 0 Then ... x1 = "" : x2 = "" If arv > 0 Then Else sumpos = sumpos + arv x1 = (-b - Sqr(D)) / (2 * a) npos = npos + 1 x2 = (-b + Sqr(D)) / (2 * a) End If End If ... ... või False >a-3 lus ] ... r b >= a + c Or c >= a + b Function Hind(L, m) Dim ind ind = Kind(L, m) If ind < 18 Then Hind = "kõhn" ElseIf ind <= 25 Then
nimelised nimi:=väärtus Funktsioonid Teisendusfunktsioonid CBool, CByte CDate (CVDate) CInt, CLng, CSng, CDbl CStr, Format CVar, CDec Asc, Chr Hex, Oct Tüübifunktsioonid VarType IsNumeric, IsDate, IsEmpty, IsNull IsArray, IsObject IsError, IsMissing Ajafunktsioonid Now, Date, Time Day, Year, Month, Hour, Minute, Second Weekday DateAdd, DateDiff DateSerial, DateValue Stringifunktsioonid Len Mid, Left, Right Trim, LTrim, RTrim LCase, UCase Matemaatikafunktsioonid Abs, Sqr, Int, Fix, Exp, Log Rnd trigonomeetria Finantsfunktsioonid FV, Pmt, Rate SLN, SYD, DDB Massiiv Array LBound, UBound Failifunktsioonid EOF,LOF, FileLen, FileDateTime CurDir Input, Seek Värvid RGB, QBColor Dialoog InputBox, MsgBox Keelestruktuurid Valikud * If tingimus Then tegevus * If tingimus Then tegevus(ed) End If * If tingimus1 Then tegevus(ed)1 ElseIf tingimus2 Then ... End If
Peamine vahend - omistuslause nimi = avaldis nimi - pesa (muutuja) nimi. Näitab kuhu salvestada = - omistamistehte tähis avaldis - väärtuse leidmise eeskiri - operandid, - tehtemärgid - sulud Operandid a=5 - konstandid b=4 - pesade (muutujate) nimed y=x - funktsioonid S=a*b - viited omadustele d = Sqr(a^2 + b^2) y = 3 * Sin(2*x) - Cos(x / 2) vs = Shapes("auto").Left + 20 Makrode käivitamine ja täitmine - VBE menüü või riistariba - Exceli menüüst Tools / Macro / Macros - käsunupp (eelnevalt siduda) - graafikaobjekt - ... Täitjaks spetsiaalne programm VBA Interpretaator Omab juurdepääsu Exceli objektidele Täitmise üksuseks - protseduur Loob tööpiirkonna: - programmi- ja - andmeplokk
' kuju sujuv liikumine punkti koordinaatidega (x, y) ' d - samm, pp - paus, dp - pöörlemisnurga muutus ' kt - tunnus: kt=0 - kallet ei ole, kt<>0 - on Dim xj, yj, L, dx, dy, n, i If d = 0 Then Exit Sub xj = kuju.Left: yj = kuju.Top ' kuju koordinaadid L = Sqr((x - xj) ^ 2 + (y - yj) ^ 2) ' kaugus punktini If L = 0 Then Exit Sub dx = d * (x - xj) / L: dy = d * (y - yj) / L ' projektsioonid If kt <> 0 Then kuju.Rotation = P_Nrk(xj, yj, x, y) n = Round(L / d) ' sammude arv For i = 1 To n kuju.IncrementLeft dx
liitmine | täisarv,reaalarv | sama, mis operandil | 2 lahutamine | täisarv,reaalarv | sama, mis operandil | 2 Kui operatsioonist võtavad osa nii täisarvud kui ka reaalarvud, siis harilikult on tulemuseks reaalarv. Aritmeetilised operaatorid keeles Pascal Operatsiooni nimetus | operandi tähis ------------------------+--------------- märgi muutmine | - astendamine | puudub, kasutatakse funktsioone: sqr(x)=>x ruudus korrutamine | * jagamine | / täisarvuline jagamine | DIV jagamise jäägi leidmine | MOD nihutamine paremale | SHR ; (5 SHR 1) on sama, kui (5 DIV 2) nihutamine vasakule | SHL ; (5 SHL 1) on sama, kui (5 * 2) liitmine | + lahutamine | - Aritmeetilised operaatorid keeles C Operatsiooni nimetus | operandi tähis ------------------------+---------------
liitmine | täisarv,reaalarv | sama, mis operandil | 2 lahutamine | täisarv,reaalarv | sama, mis operandil | 2 Kui operatsioonist võtavad osa nii täisarvud kui ka reaalarvud, siis harilikult on tulemuseks reaalarv. Aritmeetilised operaatorid keeles Pascal Operatsiooni nimetus | operandi tähis ------------------------+--------------- märgi muutmine | - astendamine | puudub, kasutatakse funktsioone: sqr(x)=>x ruudus korrutamine | * jagamine | / täisarvuline jagamine | DIV ; nt ((5 div 2) = 2), ((4 div 2) = 2) jagamise jäägi leidmine | MOD nihutamine paremale | SHR ; (5 SHR 1) on sama, kui (5 DIV 2) nihutamine vasakule | SHL ; (5 SHL 1) on sama, kui (5 * 2) liitmine | + lahutamine | - Aritmeetilised operaatorid keeles C Operatsiooni nimetus | operandi tähis
wJ-l t: U! EE T E'; d .a d Lu = r.-)r i-l ': .l AJ -= t)A: v) L!AV 6)!Y'nra > h :. u rv tv .!)/ rnrvll= N:.-#6 -- gJ.i/r# ^(sqr:. -t-PH j ;" s= I € iF g r r 6 F+ .E ; I € * E !i F'E: E- iEn aF {i H : E F $ .s Ei r 7g E'F E ,3 ss en i,'g ! EE ;+'fT q ;?il'= #E g. F l i €! E:q'i H E+ H; € -:-E B* Ejf E 'i: = EEd .+E .i .st= Ej €'
annaabi.ee 
