1. Facade - Conhece quais classes do subsistema são responsáveis por uma solicitação.
   Delega os pedidos de clientes a objetos apropriados do subsistema.
2. SubSistema - Implementa as funcionalidades do subsistema; Trata o trabalho atribuído
   pelo objeto Facade e Não têm conhecimento do Facade e não mantêm nenhuma referência a ele.

namespace PadraoProjetoFacade
{
    public class Cliente
    {
        public string Nome { get; set; }
        public Cliente(string nome)
        {
            Nome = nome;
        }
    }
}

Public Class Cliente
	Public Property Nome() As String
		Get
			Return m_Nome
		End Get
		Set
			m_Nome = Value
		End Set
	End Property
	Private m_Nome As String
	Public Sub New(_nome As String)
		Nome = _nome
	End Sub
End Class

using System;

namespace PadraoProjetoFacade
{
    public class LimiteCredito
    {
        public bool PossuiLimiteCredito(Cliente cliente, double valor)
        {
            Console.WriteLine("Verificando o limite de crédito do cliente " + cliente.Nome);
            if (valor > 200000.00)
                return false;
            else
                return true;
        }
    }
}

Public Class LimiteCredito
    Public Function PossuiLimiteCredito(cliente As Cliente, valor As Double) As Boolean
        Console.WriteLine("Verificando o limite de crédito do cliente " & Convert.ToString(cliente.Nome))
        If valor > 200000.0 Then
            Return False
        Else
            Return True
        End If
    End Function
End Class

using System;

namespace PadraoProjetoFacade
{
    public class Serasa
    {
        public bool EstaNoSerasa(Cliente cliente)
        {
            Console.WriteLine("Verificando SERASA do cliente " + cliente.Nome);
            return false;
        }
    }
}

Public Class Serasa
    Public Function EstaNoSerasa(cliente As Cliente) As Boolean
        Console.WriteLine("Verificando SERASA do cliente " & Convert.ToString(cliente.Nome))
        Return False
    End Function
End Class

using System;
namespace PadraoProjetoFacade
{
    public class Cadin
    {
        public bool EstaNoCadin(Cliente cliente)
        {
            Console.WriteLine("Verificando o CADIN para o cliente " + cliente.Nome);
            return false;
        }
    }
}

Public Class Cadin
    Public Function EstaNoCadin(cliente As Cliente) As Boolean
        Console.WriteLine("Verificando o CADIN para o cliente " & Convert.ToString(cliente.Nome))
        Return False
    End Function
End Class

using System;

namespace PadraoProjetoFacade
{
    public class Facade
    {
        private LimiteCredito limite = new LimiteCredito();
        private Serasa serasa = new Serasa();
        private Cadin cadin = new Cadin();

        public bool ConcederEmprestimo(Cliente cliente, double valor)
        {
            Console.WriteLine("{0} esta pleitando um empréstimo no valor de {1:C}\n",cliente.Nome, valor);

            bool ConcederEmprestimo = true;

            if (serasa.EstaNoSerasa(cliente))
            {
                // Verifica o Serasa
                Console.WriteLine("Cliente " + cliente.Nome + " possui restrição no SERASA");
                ConcederEmprestimo = false;
            }
            else if (cadin.EstaNoCadin(cliente))
            {
                // Verifica o Cadin
                Console.WriteLine("Cliente " + cliente.Nome + " possui restrição no CADIN");
                ConcederEmprestimo = false;
            }
            else if (!limite.PossuiLimiteCredito(cliente,valor))
            {
                //verifica se o cliente tem limite de crédito para o valor requerido
                Console.WriteLine("O Cliente {0} possui limite de crédido inferior a {1:C}\n ", cliente.Nome, valor);
                ConcederEmprestimo = false;
            }
            //true-concede  false-nega
            return ConcederEmprestimo;
        }
    }
}

Public Class Facade
		Private limite As New LimiteCredito()
		Private serasa As New Serasa()
		Private cadin As New Cadin()

		Public Function ConcederEmprestimo(cliente As Cliente, valor As Double) As Boolean
			Console.WriteLine("{0} esta pleitando um empréstimo no valor de {1:C}" & vbLf, cliente.Nome, valor)

			Dim ConcederEmprestimo As Boolean = True

			If serasa.EstaNoSerasa(cliente) Then
				' Verifica o Serasa
				Console.WriteLine("Cliente " & Convert.ToString(cliente.Nome) & " possui restrição no SERASA")
				ConcederEmprestimo = False
			ElseIf cadin.EstaNoCadin(cliente) Then
				' Verifica o Cadin
				Console.WriteLine("Cliente " & Convert.ToString(cliente.Nome) & " possui restrição no CADIN")
				ConcederEmprestimo = False
			ElseIf Not limite.PossuiLimiteCredito(cliente, valor) Then
				'verifica se o cliente tem limite de crédito para o valor requerido
				Console.WriteLine("O Cliente {0} possui limite de crédido inferior a {1:C}" & vbLf & " ", cliente.Nome, valor)
				ConcederEmprestimo = False
			End If
			'true-concede  false-nega
			Return ConcederEmprestimo
		End Function
	End Class

Module Module1

    Sub Main()

        ' Cria uma instância do Facade
        Dim concedeCredito As New Facade()

        ' Cria uma instância de um  novo Cliente informando o nome
        Dim cliente1 As New Cliente("Macoratti")

        'Utiliza o Facade para verificar condições de concessão ou não
        Dim resultado As Boolean = concedeCredito.ConcederEmprestimo(cliente1, 199000.0)

        'exibe o resultado
        Console.WriteLine("O empréstimo pleiteado pelo cliente " + cliente1.Nome & " foi  " & (If(resultado, "Aprovado", "Negado")))

        'aguarda
        Console.ReadKey()

    End Sub

End Module

using System;

namespace PadraoProjetoFacade
{
    class Program
    {
        static void Main(string[] args)
        {
            // Cria uma instância do Facade
            Facade concedeCredito = new Facade();

            // Cria uma instância de um  novo Cliente informando o nome
            Cliente cliente1 = new Cliente("Macoratti");

            //Utiliza o Facade para verificar condições de concessão ou não
            bool resultado = concedeCredito.ConcederEmprestimo(cliente1, 199000.00);

            //exibe o resultado
            Console.WriteLine("O empréstimo pleiteado pelo cliente " + cliente1.Nome + " foi  " + (resultado ? "Aprovado" : "Negado"));

            //aguarda
            Console.ReadKey();
        }
    }
}