Seminarky.cz > Seminárky/Referáty > > Kvadratická funkce ve Visual Basicu

Kvadratická funkce ve Visual Basicu

Kategorie: Počítače/informatika

Typ práce: Seminárky/referáty

Škola: nezadáno/škola není v seznamu

Charakteristika: Práce velmi detailně popisuje, jak vytvořit ve Visual Basicu program, jenž počítá kořeny kvadratické rovnice při zadání koeficientů a,b,c. Program provádí i zkoušku. Obsahuje popis ovládání, popis řešení i celý zkopírovaný zdrojový kód programu s komentáři.

Obsah

1.
Zadání
2.
Uživatelské prostředí a ovládání programu
3.
Popis algorytmu řešení
4.
Zdrojový kód
5.
Závěr

Úryvek

"Popis algoritmu řešení


Nejprve při nahrávání formuláře je zadáno pomocí příkazu „Msgbox“, že se při spuštění samotného programu ukáže okno s výzvou k zadání všech koeficientů, tlačítka pro výpočet kořenů a obě zkoušky jsou neaktivní, nejdou stisknout (Enabled = False).

Při řešení diskriminantu jsem postupoval tak, že jsem nejprve počítal se situací, kdy v oknech A, B, C nebudou zadána reálná čísla
(Pomocí If Not IsNumeric(…) Then Msgbox). Dále jsem definoval A, B, C jako reálná desetinná nezaokrouhlená čísla (Double). Přiřadil jsem jim hodnoty, které uživatel zadá do textových polí k tomu určených.
Poté jsem určil, že pokud bude A zadáno 0, tak se objeví zpráva o faktu, že také kvadratický člen rovnice je nulový. Zároveň se do pole pro diskriminant zapíše text „nedefinován“ (z toho důvodu jsem D deklaroval jako Variant).
Pokud bude však A nenulové, program řádně vypočte diskriminant a přiřadí jeho hodnotu do příslušného pole (TextD). Pak se ještě odblokuje tlačítko „Vypočti Kořeny“ (opět Enabled, tentokrát = True)

Pro výpočet kořenů jsem nejprve deklaroval x1 a x2 (Variant) a přiřadil jsem A, B, C, a D (diskriminant) hodnoty z určených textových polí. Jestli je diskriminant „nedefinován“, program vypočte kořen z lineární rovnice x = - C / B.
Je-li menší než 0, ohlásí že rovnice nemá řešení a do polí pro kořeny tento fakt uvede. Rovná-li se nule, informuje (opět pomocí „Msgbox“) o existenci jediného řešení a to do pole X1 jej vypočítá.
A konečně, je-li diskriminant kladný, spočítá pomocí známé rovnice x1,2 = -B … oba kořeny a zapíše je do polí TextX1 a TextX2.
Potřetí jsem zde použil funkci Enabled, odblokování tlačítek pro zkoušky bude povoleno jen tehdy, bude-li mít zkouška pro daný kořen
smysl – bude-li kořen existovat)."

Poznámka

Vhodné pro začátečníky s VB. Snadno pochopitelné a detailně popsané.

Vlastnosti

Náhled

STÁHNOUT PRÁCI

  1. SMS platba (ČR) 45 Kč

    Platba prostřednictvím brány mobilního operátora. Pro započetí platebního procesu prosím vyplňte kontrolní kód a stiskněte tlačítko "Zaplatit"

    Po proběhnutí platby budete přesměrováni zpět na tuto stránku, kde najdete odkaz ke stažení práce.


    V případě potíží s realizací platby se neváhejte obrátit na infolinku poskytovatele služby, společnost Advanced Telecom Services s.r.o., na čísle +420 776 999 199

    Nápověda pro zákazníky Telefónica O2:

    1. Vyplňte Vaše číslo na mobil, zvolte jako operátora Telefónica O2 a klikněte na POTVRDIT.
    2. Zobrazí se Vám informace, že SMS byla odeslána.
    3. Na mobilní telefon Vám bude doručena SMS zpráva s odkazem.
    4. Klikněte na odkaz v SMS zprávě, budete propojeni na platební bránu společnosti Telefónica O2. Zde potvrďte platbu.
    5. Na internetu se zobrazí výsledek proběhlé platby.
    Pro úspěšnou realizaci platby je nutné mít aktivní službu „O2 platba“. Služba je většinou aktivní automaticky, takže není třeba nejdřív nic aktivovat.

    Nápověda pro zákazníky Vodafone:

    1. Vyplňte Vaše číslo na mobil, zvolte jako operátora Vodafone a klikněte na POTVRDIT.
    2. Dojde k přesměrování na Vodafone portál.
    3. Potvrďte Vaše mobilní číslo kliknutím na DALŠÍ. .
    4. Na Váš mobilní telefon přijde SMS zpráva s kódem.
    5. Zadejte tento kód do formuláře, klikněte na OK.
    6. Objeví se Vám údaje o platbě, kterou potvrďte kliknutím na POKRAČOVAT.
    7. V té chvíli proběhne platba, o jejímž výsledku Vás informuje došlá SMS zpráva.
    Pro úspěšnou realizaci platby je nutné mít aktivní službu „M-peněženka“. Služba je většinou aktivní automaticky, takže není třeba nejdřív nic aktivovat.

    Nápověda pro zákazníky T-mobile:

    1. Vyplňte Vaše číslo na mobil, zvolte jako operátora T-mobile a klikněte na POTVRDIT.
    2. Dojde k přesměrování na T-mobile portál, potvrďte zde svůj souhlas s podmínkami platby.
    3. Pokud máte na T-zones účet, přihlaste se a pokračujte bodem 7.
    4. Pokud účet na T-zones nemáte, vepište do formuláře svoje mobilní číslo a klikněte na ODESLAT ČÍSLO.
    5. Přijde Vám SMS zpráva s kódem.
    6. Vepište kód jako heslo do formuláře a klikněte na PŘIHLÁSIT.
    7. Objeví se Vám údaje o platbě, které potvrďte kliknutím na tlačítko ZAPLATIT.
    8. V té chvíli proběhne platba, o jejímž výsledku Vás informuje došlá SMS zpráva.
    Pro úspěšnou realizaci platby je nutné mít aktivní službu „M-platba“. Služba je většinou aktivní automaticky, takže není třeba nejdřív nic aktivovat.
  2. Platit kartou 38 Kč

    Platba kartou. Pro započetí platebního procesu prosím vyplňte kontrolní kód a stiskněte tlačítko "Zaplatit"

    Po proběhnutí platby budete přesměrováni zpět na tuto stránku, kde najdete odkaz ke stažení práce.


    Po odeslání kontrolního kódu budete přesměrováni do platební brány ČSOB, kde zadáte údaje potřebné pro platbu. Platbu dokončíte stisknutím tlačítka "ZAPLATIT".

    Akceptované karty: VISA, VISA Electron, V PAY, MasterCard, Maestro.

  3. Koupit za kredity - 35 Kč >>> ZVÝHODNĚNÁ CENA!
    Jedním stiskem tlačítka, obratem a za výhodnou cenu!
    JEN PRO REGISTROVANÉ UŽIVATELE
    Cena za stažení je pouze 630 kreditů (=35Kč).
  4. SMS platba (Slovensko) - 1,70€
    Stahovací kód k této práci získáte do několika minut se službou mobilního operátora Premium Rate SMS.
    Zašlete SMS zprávu ve tvaru: SEMmezera4978
    - na telefonní číslo: 8877
    Cena jedné SMS je 1,70€ včetně DPH. Pro využití SMS platby je třeba mít aktivovanou službu Premium Rate SMS. Službu technicky zajišťuje Advanced Telecom Services, s. r. o.
    SMS musí být ve formátu TEXT, bez diakritiky a bez formátování (tj. základní velikost a typ písma). Stahovací kód je použitelný pouze pro tuto práci a je platný až do uzavření okna internetového prohlížeče.
    Stahovací kód přijde obratem na mobil, je platný 24 hodin a lze jej zadat celkem dvakrát.
    Pro stažení této práce zadejte stahovací kód (bez uvozovek):


Důležité informace: Provedením mobilní platby, odesláním SMS, platbou kredity, platbou kartou nebo převodem z účtu souhlasíte s Podmínkami stahování.
Veškeré informace o platbách si můžete přečíst zde.
Máte při placení nebo stahování práce problém? Odpovědi na časté problémy najdete zde nebo kontaktujte naší podporu.

Diskuse