Uživatelské funkce a jejich aplikace VŠB FAST Ostrava
description
Transcript of Uživatelské funkce a jejich aplikace VŠB FAST Ostrava
-
Uivatelsk funkce a jejich aplikace
VB FAST OstravaIng. Petr Kalev25. 10. 2007Doc. Ing. Vclav Beran, DrSc., Doc. Ing. Petr Dlask, Ph.D.
-
Obsah
-
OpakovnHistoria magistra vita es.Motivace!!!
-
Zklad matematickho modelovnDefinovn cle projektuDefinovn rozsahuDefinovn pouitch nstrojDefinovn problmuNelze obecn definovat => lze jen urit mon postupyJak to???Projekty jsou rozmanitProjekt je vdy uniktn!!!
-
OtzkyDefinice vazby (interakce) v modelu.Jak je verbln popis interakce?Jak hodnoty mohou nabvat vazby (interakce)?Jak hodnoty mohou mt prvky modelu?Jak hodnoty nabvaj objemov parametry modelu?Jak hodnoty se mohou vyskytovat v diferencch?
Jak jsou mon aplikace modelu (mentlnho modelu) nap. rozvojov model, regionln model, modely degradace, sociln model uveden dle.
-
Ginger a Fred
-
Verbln popisNedvno nastoupila do firmy, kde pracuje Fred. Rda se vnuje md, poznvn novch vc, m rda kulturu a thne k rodin. Fred pracuje na pozici vedoucho oddlen a rd by zskal manaerskou pozici. Ve volnm ase hraje volejbal i sleduje zvody formul nebo si zahraje na klavr.
-
Rich picture - model++
-
Vvoj vztahu Ginger a Fredaas01IntenzitaHned jak spatil Ginger, tak se mu lbila. Miluje ernovlsky.Obas nerozum jejmu humoru (vc se mu u neme zalbit).Freda si nikdy pedtm nevimlaPoten podmnky
-
Ohodnocen interakc - verbln+/-+/-+0,13+0,08
-
Hodnocen - technick stupnice
-
Zlehka do maker a VBATo muselo bt hodn psan!!!NE!!!Private Sub sbCervena_Change() Label1.BackColor = RGB(sbCervena, sbZelena, sbModra)End Sub
Private Sub sbModra_Change() Label1.BackColor = RGB(sbCervena, sbZelena, sbModra)End Sub
Private Sub sbZelena_Change() Label1.BackColor = RGB(sbCervena, sbZelena, sbModra)End Sub
-
Dal pkladyFORcyklusWHILEcyklusPrivate Sub cbGeneruj_Click() For i = 1 To cbPocet Text = Text & i & "." & vbTab & tbVeta & vbNewLine Next tbVysledek = TextEnd SubCyklus, kter pob od 1 do hodnoty, kter byla zvolena v seznamu pro poet opakovn.Slou jen k formtovn vstupu.Slou jen k formtovn vstupu.Veme se text z textovho pole (TextBox).Vlo se hodnota sla cyklu.
-
Zznamnk makraZaznamen kad krok uivatele!!!
Pouvme tehdy, kdy opakujeme njakou innost, nap. formtovn, vkldn vzorc,
-
Vhody a nevhodyVhody: Nen zapoteb znt VBA.Rychl vvoj kdu.Nevhody: Zznamnk pidv obrovsk mnostv kdu navc. I scrollovn, pepnn mezi listy, apod.Jen pro zznam malch st sloitjch maker.Neum generovat kd, kter m vytvet smyky.
-
Porovnn kduSub Makro1()Range("C6").Select With Selection.Interior .ColorIndex = 11 .Pattern = xlSolid End With Selection.Font.ColorIndex = 2 ActiveCell.FormulaR1C1 = "6548" Range("C7").SelectEnd SubSub Makro1()With Range("C6").Interior.ColorIndex = 11.Font.ColorIndex = 2 .Value = "6548"End withEnd SubZznamnk makraZpis pomoc VBA
-
Motivace pro ovldat makra a VBAEA PVEAUTOMATIZACEOptimalizace
-
User-Defined FunctionDefinovat jak ji uritZ jakch parametr vychzCo m bt vsledkemMm dostatek informac k sestaven?ANOMatematick vyjden
-
Matematick vyjdenZpis pomoc Editor rovnic 3.0 (MS Equation) - EQNEDT32.EXE
-
Vstupn model+0,13+0,08+0,000+0,200
-
Zpis vpotu pomoc VBACells(20,4).Value=Cells(8,4).Value* Cells(19,3).ValueCells(20,3).Value=Cells(15,4).Value*Cells(19,4).ValueCells(21,4).Value=Cells(8,4).Value* Cells(20,3).ValueCells(21,3).Value=Cells(15,4).Value*Cells(20,4).ValueCells(22,4).Value=Cells(8,4).Value* Cells(21,3).ValueCells(22,3).Value=Cells(15,4).Value*Cells(21,4).Value2. obdob3. obdob4. obdobPoznmka: CELLS(dek, sloupec)eit pomoc For-cyklu
-
Zpis vpotu pomoc VBA - zjednoduenFor i=2 to 15Cells(18+i,4).Value=Cells(8,4).Value* Cells(17+i,3).ValueCells(18+i,3).Value=Cells(15,4).Value*Cells(17+i,4).ValueNext iJak pijdu na 18+i?Chci, aby prvn hodnota byla zapsna do 20. dku. Protoe vm, e i bude mt minimln hodnotu 2, tak od 20 odetu 2 a tm dostanu 18+i.
-
Hledn eenBuka, kter m nabt clov hodnoty. Vdy je v tto buce njak vzorec.Zde se uvede, jak hodnoty m bt dosaeno. Buka, kter se v prbhu simulace mn. Je vstupn bukou pro njak vzorec.
-
Ukzka hledn eenHledm minimln hodnotu interakce Fred->Ginger, aby nklonnost (+0,05) zstala stejn.
-
Vsledek hledn een
-
SouhrnVBA a zznamnk makra => jedno a to samVisual Basic for Application NEN klasick programovac jazyk User-Defined Function uivatel si definuje vlastn funkci pomoc kter provd vpoetPro zapsan rovnice je mon pout Equation.
-
Souhrn - pokraovnFunkce Hledn een nstroj pro hledn jednoduchch loh.
Vce o VBA:http://eko.fsv.cvut.cz/~dlask/Help/VBA.ppthttp://eko.fsv.cvut.cz/~dlask/Help/VBAVlastniFce.ppt
-
Otzky?