Visual Basic - ošetření chyb

Try
'Code that may raise an error.
Catch
'Code to handle the error.
Finally
'Code to do any final clean up.
End Try
--------->>

Try
vysledek.Text = 2 * 3,141592 * polomer.Text
Catch
MsgBox "Lucinka nikdy nezadava znaky misto cislic"
Finally
/nic/prazdno/dokonceni
End Try

Podle google...

Taky good ale trochu dlouhé

jak nefunguje? pro desetiná cisla - jsi si jistej oddělením tečka/čárka/dvojtečka..?
Každopdáně používej hostovo řešení is numer.

Funkce isnumeric()

http://msdn2.microsoft.com/en-us/library/6cd3f6w1(V S.80).aspx

pravda, čistější řešení (ošetřit oboji na zápornej poloměr)

Mně to dojde až to uvidím na příkladu (jsem asi blbec)
Takže :
polomer = textové pole, kam se zadává polomer
tlacitko = po stisknuti se provede vypocet
vysledek = Výsledek výpočtu

Ved na tom msdn mas aj priklad.
Pred vypoctom pouzijes if a testovat budes ze ci IsNumeric(polomer.Text) je TRUE (vtedy robis vypocet), inac nerobis vypocet ale vypises chybu.
P.S. dobre by bolo potom aj testovat ze ci je to mensie ako nula, ak ano tak tiez vypises chybu kedze zaporny polomer je tiez blbost.

If IsNumber(polomer.text) Then
vysledek=Math.PI*polomer.text*2
Else
MsgBox "spatne"
End If

nejak tak.. visual neumim

Uf, jestli si nedokážeš najít použití funkce v helpu nebo na webu, tak to budeš mít v životě jako programátor těžký.

If IsNumeric(polomer.Text) and (Val(polomer.Text) > 0) Then
    vysledek.Text = 2 * 3,141592 * polomer.Text
  Else
    MsgBox("Špatně zadaný poloměr")
End If

OOOOOOOOOOOO Už to chápu . Dneska jsem vygumovanej.

Bože! Ten VB má ale prasacký syntax...

Moje pocity euforie nahrazuje zlost. Ono to nefunguje pro desetinná čísla. No nic, prostě zadám, že když to bude větší než 0 a menší než 10000 tak to bude počítat, pokud ne = chyba

co to konkretne dela/nedela hodi to tu hlasku nebo je spatnej vysledek?

Ono to nefunguje

Ono to je totiž asi špatně naprogramované.

Kdybys alespoň napsal, co nefunguje?! Funkce isnumeric() samozřejmě pracuje i s desetinnými čísly. Pokud máš na mysli funkci Val(), tak ta vyžaduje desetinné číslo zadané s tečkou - nikoliv čárkou.

If IsNumeric(vykon.Text) Then
If IsNumeric(syceni.Text) Then
dopprurez.Text = Sqr((vykon.Text / 0.8) / syceni.Text)
Else
MsgBox ("Zadaná hodnota musí být číslo s desetinnou čárkou!")
End If
Else
MsgBox ("Zadaná hodnota musí být číslo s desetinnou čárkou!")
End If

Prasácky uděláno ale jde to

dobré je používat nějaký logický operátor typu: OR/AND:

If isNumeric(vykon.text) AND IsNumeric(syceni.Text) Then
vypocet
Else
MsgBox("Musi byt cislo")
End if