Hola vanels:
Según entiendo, lo que quieres es pasarle dos valores a la funcion y si no que te de error.
Se me ocurren dos formas (imagínate que llamamos a la funcion Semaforo, ok?):
1º: Antes de llamar a la funcion semaforo comprueba que la variable qeu le vas a pasar es Verde o Rojo. En caso contrario, error!! Seria algo asi:
Cita: if parametro1='rojo' or parametro1='verde' then
semaforo(parametro1);
else
Error (y aquí haces lo que desees)
end if;
2º En la propia funcion haces esa comprobación:
llamas a la funcion:
Cita: private sub semaforo(parametro1 as string)
{
If parametro1="verde" then
.....
elseif parametro1="rojo" then
....
else
ERROR
end if
}
Bueno, te lo he puesto como si fuesen procedimientos, pero si es una funcion se haria igual sólo que devolviendo valores.
Era esto lo qeu querías??????
A ver si acertammos ahora.
Un saludo.