Názory ke článku VB.NET - díl 3. – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama

Názory ke článku VB.NET - díl 3. – Programujte.comNázory ke článku VB.NET - díl 3. – Programujte.com

 

Názory ke článku VB.NET - díl 3.

philips   NOVÝ
24. 8. 2009

Jenom takový menší detail, neměl by ten obsah krychle být místo ( 6 * 4 * a ) spíš ( 6 * a ^ 2 ) ?

NOclipus   NOVÝ
24. 8. 2009

Reagoval na komentář od uživatele philips :
Ech, himlhergot. No jasně že jo. Jinak doufám, že nikdo na tento kurz nezapomněl, čtvrtý díl čeká na korekturu!

kotlas6667   NOVÝ
26. 3. 2012

Module Module1

    Sub Main()
        Console.WriteLine("Zadaj hodnotu 1-4(1 pre ctvorec, 2 pre kruh, 3 krychlu , 4 pre gulu ): ")
        Dim vyber As Integer = Convert.ToInt32(Console.ReadLine())
        'Console.WriteLine()
        Select Case vyber
            Case 1
                Console.WriteLine("Zadaj stranu stvorca(cm)")
                Dim p As Integer = Integer.Parse(Console.ReadLine())
                Console.WriteLine()
                Console.WriteLine("Obvod stvorca je" & vypocet.obvodStvorca(p) & "cm")
                Console.WriteLine("Obsah stvorca je" & vypocet.obsahStvorca(p) & "cm")
                Console.ReadLine()

            Case Else
                Console.WriteLine("Vyber od 1 do 4 !!")
                Console.ReadLine()
        End Select

    End Sub

End Module

Module vypocet
    Function obvodStvorca(ByVal a As Double) As Double
        Return a ^ 2
    End Function

    Function obsahStvorca(ByVal a As Double) As Double
        Return a * 4
    End Function

End Module

takto som zacal ale vsimnite si ze som namiesto: Dim choice As Integer = Integer.Parse(Console.ReadLine()) ,ako mas v priklade,  pouzil to co tam je .Inak mi pri zadani hodnoty vyberu 1 ukazoval ze je 49! Vie mi to niekto vysvetlit?

Fík   NOVÝ
24. 11. 2012

Jen dotaz. Když dělám ten "domácí úkol", tak si nevím rady s podmínkou pro vyhodnocení jaký je diskriminant. 

Napsal jsem funkci "diskriminant" která má vrátí správnou hodnotu, ale jak to napsal do podmínky? 

If Diskriminant() > 0 Then

Při tomto zápisu mi to hodí tuhle chybu "Chyba 1 Není zadán argument pro parametr a metody Public Function Diskriminant(a As Double, b As Double, c As Double, x As Double) As Double.

Co mám do tý závorky napsat? Díky moc. 

Jakub   NOVÝ
16. 3. 2013

#4 Fík
Do tej zatvorky by si mal napisat vstupne hodnoty pre vypocet diskriminatu,

a najlepsie si tu funkciu priradit do premenej napr takto.

Dim diskriminant as Integer = Diskriminant(a,b,c)

If diskriminant>0 then  atd.

Bohuslav Bartůněk   NOVÝ
7. 4. 2013

No, je to sice už dlouho od vydání článku, ale já sem přece jenom svůj výtvor umístím. Nevím, jestli je to správně, ale něco to počítá :-)

Module DruhaLekce

    Dim d As Integer
    Dim x1 As Double
    Dim x2 As Double

    Sub Main()
        'nejdříve zadám 3 proměnné A,B,C
        Console.Write("Zadejte hodnotu a=")
        Dim zadaniA As Integer = Integer.Parse(Console.ReadLine())
        Console.Write("Zadejte hodnotu b=")
        Dim zadaniB As Integer = Integer.Parse(Console.ReadLine())
        Console.Write("Zadejte hodnotu c=")
        Dim zadaniC As Integer = Integer.Parse(Console.ReadLine())
        d = ((zadaniB * zadaniB) - (4 * zadaniA * zadaniC))
        Console.WriteLine("Diskriminant je: " & d & "Stiskem klávesy pokračuj.")
        Console.ReadLine()

        'výpočet kvadratické rovnice
        Select Case d
            Case Is < 0
                Console.WriteLine("Kvadratická rovnice nemá žádné řešení.")
            Case Is = 0
                Console.WriteLine("Kvadratická rovnice má jedno řešení.")
                x1 = (zadaniB * (-1)) / (2 * zadaniA)
                Console.WriteLine("x1,x2 = " & x1)
            Case Is > 0
                Console.WriteLine("Kvadratická rovnice má dvě řešení.")
                x1 = ((zadaniB * (-1)) + Math.Sqrt(d)) / (2 * zadaniA)
                x2 = ((zadaniB * (-1)) - Math.Sqrt(d)) / (2 * zadaniA)
                Console.WriteLine("x1 = " & x1)
                Console.WriteLine("x2 = " & x2)
            Case Else
        End Select

        Console.WriteLine("Stiskem klávesy ukonči.")
        Console.ReadLine()
    End Sub
End Module

S   NOVÝ
5. 3. 2014

Hm ja myslim, ze kdyz je hodnota deklarovana jako Integer, tak neni nutne v tom prikladu psat Integer.Parse, ale pouze Console.ReadLine().

S   NOVÝ
8. 3. 2014

Napadlo me zkusit vyzkouset jak ten priklad v lekci funguje a nechapu proc funkce pro prevod,

parse, v tomto tvaru:

Console.WriteLine("zadani ...")

Dim a As Integer = Integer.parse(Console.ReadLine())

Vypise zadanou hodnotu na radku Console.Writeline.

Dokozal by me to nekdo vysvetlit ? :)

S   NOVÝ
8. 3. 2014

Omlouvam se :) ... aktualni zustava muj prvni prispevek, ve skutecnosti jsem testoval vypis kodu nad mymi prispevky a nevsiml jsem si zapisu Console.Write misto Console.WriteLine :)

petrt   NOVÝ
16. 7. 2015

no, serial super, az na Kvadratickou rovnici, u ktere absolutne nedavam co to je, k cemu to je a ani podle navodu, jak se to pocita :-/ Sice jsem se ji kdysi na skole ucil, ale uz tenkrat mi prisla naprosto k nicemu, a za cely zivot jsem ji nepochopil a ziju bez ni celkem obstojne :))

Přidej svůj názor

×Vložení zdrojáku

×Vložení obrázku

Vložit URL obrázku Vybrat obrázek na disku
Vlož URL adresu obrázku:
Klikni a vyber obrázek z počítače:
 
Podporujeme Gravatara.
Zadej URL adresu Avatara (40 x 40 px) nebo e-mailovou adresu pro použití Gravatara.
Email nikam neukládáme, po získání Gravatara je zahozen.
-
Reaguješ na příspěvek:
Pravidla pro psaní příspěvků, používej diakritiku. ENTER pro nový odstavec, SHIFT + ENTER pro nový řádek.
Sledovat nové názory e-mailem (pouze pro přihlášené)
Sleduj názory ke článku a v případě přidání nového příspěvku o tom budeš vědět mezi prvními.



Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032016 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý