Seminární práce z VYT - MS Excel kalkulačka

Programování kalkulačky:

Nejprve začneme se samotnými tlačítky s čísly. Použijeme příkaz, aby se nám daná čísla po stisknutí tlačítka ukazovala za sebou na displeji. Můžeme to obejít pomocí příkazů na message box, ale pro důmyslné propracování programu se tomu raději vyhneme.

Ukážeme si to např. na tlačítku s číslem 1. Příkaz zní takhle:

Sub tlacitko1() ‘začátek makra pod názvem tlacitko1

Range("A1").Select ‘označení buňky A1

ActiveCell.FormulaR1C1 = "=R[5]C[4]&1" ‘buňka E6 se vloží do buňky A1 se znakem &

Range("E6").Select ‘označení buňky E6

ActiveCell.FormulaR1C1 = Range("A1").Value ‘vložení obsahu buňky A1 do buňky E6

End Sub ‘ukončení makra

Hodnota PI se bude zobrazovat jako deklarovaná proměnná a vložená do určené buňky.

Sub hodnotaPI()

Range("E6").Select

proma = 3.141592654

promaabs = Range("E6").Select

ActiveCell.Value = proma

Range("E6").Select

End Sub

Dále se začneme věnovat jednoduchým početním operacím. Názorně si to ukážeme např. na operaci odčítání. V ostatních početních operacích budeme měnit pouze znaménko, pouze u sčítání, odčítání, násobení a dělení. Příkaz zní takto:

Sub odčítání()

Sheets("pomocné").Select ‘označení listu kde máme pomocné výpočty

Range("A1").Select

ActiveCell.Value = Range("Kalkulacka!E6").Value ‘označení aktivní buňky

Sheets("Kalkulacka").Select ‘označení listu kde se kalkulačka nachází

Range("E6").Select

ActiveCell.FormulaR1C1 = ""

Sheets("pomocné").Select

Range("A2").Select

ActiveCell.Value = "-" ‘nakonec mezi uvozovky můžeme napsat jakoukoliv operaci

Sheets("Kalkulacka").Select

Range("E6").Select

End Sub

Další operace jsou mocnina a odmocnina. Na tyto dvě operace vycházíme z jednoduchých matematických vztahů. Mocnina jakéhokoliv čísla se dá napsat takto: a2 = a * a. Odmocnina se dá napsat ve tvaru: √a = a0,5. Z těchto jednoduchých rovnic vytváříme příkazy:

Pro mocninu:

Sub mocnina()

Range("E6").Select

proma = ActiveCell.Value

promb = proma * proma

ActiveCell.Value = promb

Range("E6").Select

End Sub

pro odmocninu:

Sub odmocnina()

Range("E6").Select

proma = ActiveCell.Value

promb = proma ^ 0.5

ActiveCell.Value = promb

Range("E6").Select

End Sub

Jsou tam typické příkazy jako označení buňky a následné vložení proměnné do předem označené buňky. Proměnná a a b jsou předem deklarovány jako veřejné konstanty pomocí Public, který se na začátek modulu vypíše:

Public prom* As ***

Přičemž za první hvězdičku se napíše označení proměnné např. (a, b, c, d, … , z), na druhé místo hvězdiček píšeme druh konstanty, kterou potřebujeme při našich výpočtech.

Pro vědeckou kalkulačku musíme udělat funkce jako sinus, cosinus, tangens a jejich podobné funkce. Na funkci sinus je trošku zdlouhavější a namáhavější příkaz, který zní takhle: