Mivel foglalkoz(t)unk a laborokon?

1. Mivel foglalkoz(t)unk a laborokon? • hét: Word dokumentumok tagolása, tartalomjegyzék, ábrák számozása, hivatkozások, egyenlet-szerkesztő 2. hét: Excel alapok: cellahivatkozás, munkalapfüggvény, diagram varázsló, trendvonal Solver használata: szélsőértékek és gyökök keresése 3. hét: VBA (1): blokkdiagram,változók, típus, értékadás, műveletek, cellából olvasás, cellába kiiratás, feltételes utasítások, ciklusok(1) 4. hét: VBA (2): Ciklusok(2) 5. hét: Gyakorlás az 1. géptermi beszámolóra 6. hét, okt. 14: 1. géptermi beszámoló

2. Visual Basic for Excel – elméleti összefoglaló Változók típusai, kifejezések, értékadó, feltételes, átirányító utasítások Néhányalaptípus: Integer Single DoubleString BooleanDate % ! # $ Típus deklarálása nem kötelező, de nagyon ajánlott!  Alapműveletek: + - * / \ ^ (aritmetikai) And Or Not (logikai) Relációjelek: = < > <= >= <> Aritmetikaikifejezés: a*a*a*a - 81 Logikai kifejezés: a*b<0 Értékadás: változó = kifejezés Pl: b = a^4 - 81 Egy feltételes utasítás: Ifx < 4 Then a = 4-x : b = a+1 Else a = x-4 :b = a-1 End If Átirányító utasítás: Go To <cimke> VBA program felépítése: Sub<neve>( ) <deklarációk> <utasítások> End Sub Beolvasás-1: x=Cells(1,3) Kiiratás-1: Cells(1,3)=x Beolvasás-2: x=InputBox(”x?”,,4) Kiiratás-2: MsgBox(”x= ”+CStr(x))

3. If – Then és If – Then – Else utasítások szerkezetei Ifx < 0 Then y = 3*x Else a = 5: y = a*x^2 +4 End If 1.) Vagy a Then, vagy az Else (vagy mindkettő) után több utasítás áll: End If használata kötelező! Ifx < 0 Then a = 3: y = a*x Else y = 5*x^2 +4 End If Ifx < 0 Then a = 3: y = a*x Else a = 5: y = a*x^2 +4 End If 2.) Mind a Then, mind az Else után csak egyetlen utasítás áll: kétféle helyes írásmód is lehetséges. Ifx < 0 Then y = 3*x Else y = 5*x^2 +4 End If Ifx < 0 Then y = 3*x Else y = 5*x^2 +4 3.) A Then után csak egyetlen utasítás áll, Else nincs: kétféle helyes írásmód is lehetséges. If x > xMax Then xMax = x End If If x > xMax Then xMax = x

4. elől tesztelő ciklus start megad: n k=1 nem vége k<=n ? igen megad: NEV, Z1 , Z2 ZH=(Z1+Z2)/2 kiír: NEV , ZH k=k+1 Elől tesztelő ciklus If – Then – GoTo <cimke> szerkezettel KétZH átlagának kiszámítása n hallgató esetén. Visual Basic program részlet n=InputBox(“n=?”): k=1 Ujnev: If k<=n Then NEV=InputBox(“NEV=?”) Z1=InputBox(“Z1=?”) Z2=InputBox(“Z2=?”) ZH=(Z1+Z2)/2 : Cells(k,1)=NEV Cells(k,2)=ZH : k=k+1 Go to Ujnev End If

5. elől tesztelő ciklus start megad: n k=1 nem vége k<=n ? igen megad: NEV, Z1 , Z2 ZH=(Z1+Z2)/2 kiír: NEV , ZH k=k+1 Elől tesztelő ciklus Do – While – Loop szerkezettel KétZH átlagának kiszámítása n hallgató esetén. Visual Basic program részlet n=InputBox(“n=?”): k=1 DoWhile k<=n NEV=InputBox(“NEV=?”) Z1=InputBox(“Z1=?”) Z2=InputBox(“Z2=?”) ZH=(Z1+Z2)/2 : Cells(k,1)=NEV Cells(k,2)=ZH : k=k+1 Loop

6. Elől tesztelő ciklus Do – While – Loop és For – To – Next szerkezettel n=InputBox(“n=?”) k=1 DoWhile k<=n NEV=InputBox(“NEV=?”) Z1=InputBox(“Z1=?”) Z2=InputBox(“Z2=?”) ZH=(Z1+Z2)/2 : Cells(k,1)=NEV Cells(k,2)=ZH k=k+1 Loop n=InputBox(“n=?”) For k=1 To n NEV=InputBox(“NEV=?”) Z1=InputBox(“Z1=?”) Z2=InputBox(“Z2=?”): ZH=(Z1+Z2)/2: Cells(k,1)=NEV Cells(k,2)=ZH Nextk A kétféle ciklusnak megfelelő Visual Basic program részlet