Prevodník jednotiek

Tu je jedna z ďalších ukážok použitia jazyka VB.NET, dnes tu máme ukážkovú aplikáciu prevodník jednotiek.

Aplikácia prevádza jednotky kapacity TB, GB, MB, KB a B. Pre prevod používa matematický vzorec.

OOP Návrh

Aplikácia má triedu prevodníkov. V triede prevodnik je súkromný zoznam Jednotky, súkromná metóda ziskejJednotku, ktorá vracia jednotku zo zadaného textu. A do tretice súkromná metóda Hodnota, ktorá vracia hodnotu.

Ďalej je v triede prevodník verejná metóda prevedie, ktorá prevedie číslo.

Algoritmus

uzvatelovaHodnota * 1024 ^ (uzivatelovaStaraJednotka - uzivatelovaNovaJednotka)

Ako to funguje? Máme enumeraci jednotky, v enumeraci sú jednytky pridelené nejaké hodnote.

Private Enum jednoty As Integer
    TB = 4
    GB = 3
    MB = 2
    KB = 1
    B = 0
End Enum

A aby sme dostali prevodovú hodnotu musíme umocniť 1024 na rozdiel jednotiek. No a aby sme napísali užívateľovi, koľko je to jeho číslo, tak to musíme ešte vynásobiť.

Galéria