dotNETportal.cz

Dobrý den, mám ještě jednu otázečku. Na těchto stránkách jsem našel kód kalkulačky. Při dělení nulou píše kalkulačka jako výsledek nekonečno. Nevíte někdo jaká chyba je v tom kódu, popřípadě jak by se to dalo ošetřit ?

 Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim a As Integer = CInt(TextBox1.Text)
        Dim b As Integer = CInt(TextBox2.Text)
        Dim c As Double = a / b
        TextBox3.Text = CStr(c)
    End Sub

Není to chyba, je to standardní chování v .NET frameworku. Lze to ošetřit následovně:

Select Case c
  Case Double.Infinity ' dělení 1/0 apod.
    TextBox3.Text = "Nelze dělit nulou."
  Case Double.NaN ! dělení 0/0
    TextBox3.Text = "Nelze dělit nulu nulou."
  Case Else
    TextBox3.Text = c.ToString()
End Select

Porovnávání ke konstantám Infinity a NaN nemusí fungovat vždy, viz. http://www.vbnet.cz/blog-clanek--284-net...

Pro zjištění nekonečna a NaN je nutné použít funkce.

   If Double.IsNaN(c) Then
            Textbox3.text = "Dělení 0/0"
        ElseIf Double.IsInfinity(c) Then
            Textbox3.text = "Dělení nulou"
        Else
            Textbox3.text = c.ToString()
        End If

Opravdu moc děkuji, moc mi to pomohlo :)

Nevěděl byste ještě prosím jak ošetřit dělení desetinným číslem a naopak?

Keď budete pretypovávať text v textboxe na Double(System.Double), nie na Integer(System.Int32), pôjdu Vám aj desatinné čísla. Alebo ste chce li vedieť, ako z toho spraviť zlomok ?