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

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

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!

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?

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. 

#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.

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

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

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 ? :)

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 :)

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 :))