Excepções (há delas para cada regra)

Um pequeno projecto para demonstrar o funcionamento das excepções em VB.NET (para Windows) e MonoDevelop (para Windows e Linux).

A parte mais importante do código está no click do botão verificar:

Versão VB.NET

        Dim n As Integer

        Dim nome As String

        Dim cp As String

        Try

            n = TextBox1.Text

            nome = TextBox2.Text

            cp = TextBox3.Text

            If nome.Length < 3 Then

                Throw New ArgumentException("Erro no preenchimento dos dados! O campo nome tem de ter pelo menos 3 caracteres.")

            End If

            'caso o código postal não tenha 4 caracteres iniciar uma excepção

            If cp.Length <> 4 Then

                Throw New ArgumentException("Erro no preenchimento dos dados! O campo código postal tem de ter 4 caracteres.")

            End If

        Catch ex As Exception

            MessageBox.Show("Erro! " & ex.Message)

        End Try

Versão C#

int n;
string nome,cp;

try{
n=Convert.ToInt16(entry1.Text);
nome=entry2.Text;
cp=entry3.Text;
if(nome.Length<3) {
throw new ArgumentException("Erro no nome. Tem de ter pelo menos 3 letras!");
}
if(cp.Length!=4){
throw new ArgumentException("Erro no codigo postal. Tem de ter 4 caracteres!");
}
}catch(Exception ex)
{
projeto_excepcoes.mensagem aviso= new projeto_excepcoes.mensagem();
aviso.Title="Erro";
aviso.texto="Erro!\n " + ex.ToString();
aviso.Run();
}

Downloads: Projecto VB Projecto MonoDevelop