Lime-tree Test 01: Default.aspx.vb

gistfile1.vb

    Private Sub calc()
        Dim _return As String = ""
        Try
            Dim dbl As Double = CDbl(sugarlevel.Text)

            Select Case cbolevel.SelectedValue
                Case 2
                    dbl *= 18.02
                    _return = String.Format("{0} [mg/dl]", Format(dbl, "0.00"))
                Case 1
                    dbl /= 18.02
                    _return = String.Format("{0} [mmol/l]", Format(dbl, "0.00"))
            End Select
        Catch ex As Exception
            _return = "Bitte nur numerische Werte eingeben"

        End Try
        txtresult.Text = _return
    End Sub