CREATE FUNCTION [dbo].[NExtenso_Extenso](@Num INTEGER)
	RETURNS VARCHAR(50)
AS
BEGIN 
	-- Por Ycaro Afonso 03/12/2011
	-- V 0.1
	RETURN CASE @Num 
		WHEN 1000 THEN 'Mil' WHEN 1000000 THEN 'Milhões' WHEN 1000000000 THEN 'Bilhões'
		WHEN 100 THEN 'Cento' WHEN 200 THEN 'Duzentos' WHEN 300 THEN 'Trezentos' WHEN 400 THEN 'Quatrocentos' WHEN 500 THEN 'Quinhentos' WHEN 600 THEN 'Seiscentos' WHEN 700 THEN 'Setecentos' WHEN 800 THEN 'Oitocentos' WHEN 900 THEN 'Novecentos'
		WHEN 10 THEN 'Dez' WHEN 11 THEN 'Onze' WHEN 12 THEN 'Doze' WHEN 13 THEN 'Treze' WHEN 14 THEN 'Quartorze' WHEN 15 THEN 'Quinze' WHEN 16 THEN 'Dezesseis' WHEN 17 THEN 'Dezesete' WHEN 18 THEN 'Dezoito' WHEN 19 THEN 'Dezenove'
		WHEN 20 THEN 'Vinte' WHEN 30 THEN 'Trinta' WHEN 40 THEN 'Quarenta' WHEN 50 THEN 'Cinquenta' WHEN 60 THEN 'Sessenta' WHEN 70 THEN 'Setenta' WHEN 80 THEN 'Oitenta' WHEN 90 THEN 'Noventa' 
		WHEN 1 THEN 'Um' WHEN 2 THEN 'Dois' WHEN 3 THEN 'Tres' WHEN 4 THEN 'Quatro' WHEN 5 THEN 'Cinco' WHEN 6 THEN 'Seis' WHEN 7 THEN 'Sete' WHEN 8 THEN 'Oito' WHEN 9 THEN 'Nove' 
		ELSE NULL END
END
GO
 
CREATE FUNCTION [dbo].[NExtenso_Fator](@Num INTEGER)
	RETURNS INTEGER
AS
BEGIN 
	-- Por Ycaro Afonso 03/12/2011
	-- V 0.1
	IF @Num < 10 RETURN 1
	ELSE IF @Num < 100 RETURN 10
	ELSE IF @Num < 1000 RETURN 100
	ELSE IF @Num < 1000000 RETURN 1000
	ELSE IF @Num < 1000000000 RETURN 1000000
	ELSE IF @Num < 1000000000000 RETURN 1000000000
	RETURN NULL
END
GO
 
CREATE FUNCTION [dbo].[NExtenso_Convert](@Num DECIMAL(18, 6), @Fat DECIMAL(18, 6))
	RETURNS VARCHAR(1000)
AS 
BEGIN 
	-- Por Ycaro Afonso 03/12/2011
	-- V 0.1
	DECLARE @Ret VARCHAR(1000), @_Num DECIMAL(18, 6)
	SET @Ret = ''
	SET @_Num = 0
 
	IF @Fat > 0 BEGIN 
		IF @Num = 1000000000 BEGIN 
			SET @Ret = @Ret + ' Um Bilhão'
		END ELSE IF @Num = 1000000 BEGIN 
			SET @Ret = @Ret + ' Um Milhão'
		END ELSE IF @Num = 1000 BEGIN 
			SET @Ret = @Ret + ' Um Mil'
		END ELSE IF @Num = 100 BEGIN 
			SET @Ret = @Ret + 'Cem'
		END ELSE IF @Num > 10 AND @Num < 20 BEGIN
			SET @Ret = @Ret + ISNULL(dbo.NExtenso_Extenso(@Num) + ' e ', '')
		END ELSE BEGIN 
			IF @Fat >= 1000 BEGIN 
				SET @_Num = CAST((@Num - (@Num % @Fat)) * (CAST(1 AS DECIMAL(18, 6)) / @Fat) AS INTEGER)
 
				IF @_Num = 1 BEGIN 
					SET @Ret = @Ret + ISNULL(dbo.NExtenso_Convert(@Fat, @Fat * .1), '')
				END ELSE BEGIN 
					SET @Ret = @Ret + ISNULL(dbo.NExtenso_Convert(@_Num, dbo.NExtenso_Fator(@_Num)), '') + ' ' + ISNULL(dbo.NExtenso_Extenso(@Fat), '')
				END 
 
				SET @_Num = @Num - (@_Num * @Fat)
 
				SET @Fat = dbo.NExtenso_Fator(@_Num)
 
				SET @Ret = @Ret + CASE WHEN (@Fat > 100 OR @Fat < 100) AND CAST((@_Num - (@_Num % @Fat)) * (CAST(1 AS DECIMAL(18, 6)) / @Fat) AS INTEGER) < 100 THEN ' e ' ELSE ', ' END + ISNULL(dbo.NExtenso_Convert(@_Num, @Fat), '')
			END ELSE BEGIN 
				SET @_Num = @Num - (@Num % @Fat)
				SET @Ret = @Ret + ISNULL(dbo.NExtenso_Extenso(@_Num) + ' e ', '') + dbo.NExtenso_Convert(@Num - @_Num, @Fat * .1)
			END 
		END
	END 
	RETURN REPLACE(REPLACE(@Ret + '.', ' e .', ''), '.', '')
END
GO 
 
CREATE FUNCTION [dbo].[NExtenso](@Num DECIMAL(15, 2))
	RETURNS VARCHAR(1000)
AS 
BEGIN 
	-- Por Ycaro Afonso 03/12/2011
	-- V 0.4
	DECLARE @Ret VARCHAR(500)
	IF @Num > 0 BEGIN 
 
		SET @Ret = ''
		SET @Ret = dbo.NExtenso_Convert(@Num, dbo.NExtenso_Fator(@Num)) + 
			CASE FLOOR(@Num) WHEN 0 THEN '' WHEN 1 THEN ' Real' ELSE ' Reais' END + 
			CASE FLOOR(@Num) WHEN 0 THEN '' ELSE ' e ' END
 
		SET @Num = @Num - FLOOR(@Num) 
		IF @Num > 0 BEGIN 
			--WHILE @Num - FLOOR(@Num) > 0 BEGIN
			--	SET @Num = @Num / .1
			--END 
 
			SET @Num = REPLACE(CAST(@Num AS VARCHAR(20)), '0.', '')
 
			SET @Ret = @Ret + dbo.NExtenso_Convert(@Num, dbo.NExtenso_Fator(@Num)) + CASE @Num WHEN 1 THEN ' Centavo' ELSE ' Centavos' END
		END
	END ELSE BEGIN
		SET @Ret = 'Zero Reais'
	END
	RETURN @Ret
END 
GO
 
-- Exemplo 
SELECT dbo.NExtenso(0)

/*
 02/09/2011
 by Ycaro Afonso
 */
 
#include 
 
LiquidCrystal lcd(12, 11, 5, 4, 3, 2);
 
int BotaoPino = 7;
int qtdeBotao = 0;
int ap = 0;
 
void setup() {
  lcd.begin(16, 2);
  lcd.print("oi");
 
  pinMode(BotaoPino, INPUT);
}
 
void loop() {
  if(digitalRead(BotaoPino) == 1){
    if(digitalRead(BotaoPino) != ap){
      ap = 1;
      qtdeBotao++;
    }
  }
  else if(ap == 1){
    ap = 0;
  }
 
  lcd.setCursor(5, 1);
  lcd.print(qtdeBotao);
}

<configuration>
  <system.webServer>
     <rewrite>
      <rules>
        <!-- Se possuir mais de um blog no servidor, mude a "name" da linha abaixo para um nome qualquer -->
        <rule name="wordpress" stopProcessing="true"> 
          <match url="^(.*)" />
            <conditions>
              <add input="{REQUEST_FILENAME}" matchType="IsFile" negate="true" />
              <add input="{REQUEST_FILENAME}" matchType="IsDirectory" negate="true" />
              <!-- Configure o dominio do blog de acordo com o exemplo da linha abaixo -->
	      <add input="{HTTP_HOST}" pattern="^(www.)?ycaro\.net" ignoreCase="true" /> 
            </conditions>
          <action type="Rewrite" url="index.php" />
        </rule>
      </rules>
    </rewrite>
  </system.webServer>
</configuration>

Imports DotNetXmlHttpRequest
 
Module Module1
 
    Sub Main()
        Dim ajax As New XMLHttpRequest
 
 
        ' Teste com GET
        ajax.Open(XMLHttpRequest.EnumMethod.GET, "http://site.ycaro.net/teste.php?teste=123")
        ajax.Send()
        If ajax.readystate = 4 Then
            If ajax.Status = 200 Then
                Console.WriteLine("Teste1: " & ajax.responseText)
            End If
        End If
        ajax.Dispose()
 
 
        ' Teste com POST
        ajax = New XMLHttpRequest
        ajax.Open(XMLHttpRequest.EnumMethod.POST, "http://site.ycaro.net/teste.php")
        ajax.Send("teste=123")
        If ajax.readystate = 4 Then
            If ajax.Status = 200 Then
                Console.WriteLine("Teste2: " & ajax.responseText)
            End If
        End If
        ajax.Dispose()
 
 
        Console.ReadLine()
    End Sub
 
End Module

Module Module1
    Sub Main()
        Console.WriteLine("----------------- Exemplo com Queue -----------------")
        Dim queueList As New Queue
        queueList.Enqueue("Item1")
        queueList.Enqueue("Item2")
        queueList.Enqueue("Item3")
        queueList.Enqueue("Item4")
        Console.WriteLine("* Queue: O primeiro a ser inserido é o primeiro a sair.")
        Console.WriteLine("* O primeiro da fila é o -> " & queueList.Peek)
        Console.WriteLine("* O primeiro da fila foi pego e removido -> " & queueList.Dequeue)
        Console.WriteLine("* Agora o primeiro da fila é o -> " & queueList.Peek)
 
        Console.WriteLine("* Atualmente contem os itens: ")
        For Each item As String In queueList
            Console.WriteLine(item)
        Next
 
        Console.ReadLine()
    End Sub
End Module

Module Module1
    Sub Main()
        Console.WriteLine("----------------- Exemplo com Stack -----------------")
        Dim _stack As New Stack
        _stack.Push("item1")
        _stack.Push("item2")
        _stack.Push("item3")
        _stack.Push("item4")
 
        Console.WriteLine("Stack: O primeiro a ser inserido é o ultimo a sair.")
        Console.WriteLine("O primeiro da pilha é o -> " & _stack.Peek())
        Console.WriteLine("O primeiro da pilha foi pego e removido -> " & _stack.Pop())
        Console.WriteLine("Agora o primeiro da pilha é -> " & _stack.Peek())
 
        Console.WriteLine("Atualmente contem os itens:")
        For Each item As String In _stack
            Console.WriteLine(item)
        Next
 
        Console.ReadLine()
    End Sub
End Module

using System.Web.UI.WebControls;
using System.Web.UI;
 
// Isso serve para adicionar o arquivo .js no controle. 
// Para usar isso, deve mudar o valor da propriedade "Build Action" para "Embedded Resource" do arquivo.
// E o nome é: Nome do projeto . nome do arquivo . extensão do arquivo
[assembly: WebResource("CSharp_Controle_TextBox.ControleTextBox.js", "application/x-javascript")]
 
namespace CSharp_Controle_TextBox
{
    public class ControleTextBox : TextBox
    {
 
        //O Enum cria uma lista de opções
        public enum EnumTipo { 
            Nomal, 
            SoNumero, 
            CPF 
        }
 
        public EnumTipo Tipo
        {
            get;
            set;
        }
 
        protected override void OnPreRender(System.EventArgs e)
        {
            base.OnPreRender(e);
 
            // Chama o arquivo .js para a pagina.
            Page.ClientScript.RegisterClientScriptResource(GetType(), "CSharp_Controle_TextBox.ControleTextBox.js");
 
            switch(Tipo) 
            {
                case EnumTipo.SoNumero:
                    base.Attributes.Add("onkeydown", "Formata_SoNumero(this, event);");
                    base.Attributes.Add("onkeyup", "Formata_SoNumero(this, event);");
                    break;
                case EnumTipo.CPF:
                    base.Attributes.Add("onkeydown", "Formata_CPF(this, event);");
                    base.Attributes.Add("onkeyup", "Formata_CPF(this, event);");
                    base.MaxLength = 14;
                    base.Width = 90;
                    break;
            }
        }
    }
}

'Isso serve para adicionar o arquivo .js no controle. Para usar isso, deve mudar o valor da propriedade "Build Action" para "Embedded Resource" do arquivo.
<Assembly: WebResource("VB.Net_Controle_TextBox.ControleTextBox.js", "application/x-javascript")> 
 
Public Class ControleTextBox
    Inherits TextBox
 
    Private _Tipo As EnumTipo = EnumTipo.Nomal
 
    'O Enum cria uma lista de opções
    Public Enum EnumTipo
        Nomal
        SoNumero
        CPF
    End Enum
 
    Public Property Tipo() As EnumTipo
        Get
            Return _Tipo
        End Get
        Set(ByVal value As EnumTipo)
            _Tipo = value
        End Set
    End Property
 
    Public Overrides Property Text() As String
        Get
            Return MyBase.Text
        End Get
        Set(ByVal value As String)
            'Ao passar um valor pro TextBox, será automaticamente formatado.
            Select Case Tipo
                Case EnumTipo.CPF
                    MyBase.Text = Regex.Replace(String.Format("{0,-11}", value), "^(\d{3})(\d{3})(\d{3})(\d{2})$", "$1.$2.$3-$4")
                Case Else
                    MyBase.Text = value
            End Select
        End Set
    End Property
 
    Protected Overrides Sub OnPreRender(ByVal e As System.EventArgs)
        MyBase.OnPreRender(e)
 
        'Chama o arquivo .js para a pagina.
        Page.ClientScript.RegisterClientScriptResource(GetType(ControleTextBox), "VB.Net_Controle_TextBox.ControleTextBox.js")
 
        Select Case _Tipo
            Case EnumTipo.SoNumero
                Me.Attributes.Add("onkeydown", "Formata_SoNumero(this, event);")
                Me.Attributes.Add("onkeyup", "Formata_SoNumero(this, event);")
 
            Case EnumTipo.CPF
                Me.Attributes.Add("onkeydown", "Formata_CPF(this, event);")
                Me.Attributes.Add("onkeyup", "Formata_CPF(this, event);")
                Me.MaxLength = 14
                Me.Width = 90
 
        End Select
    End Sub
 
End Class

function Formata_SoNumero(th) {
    th.value = th.value.replace(/[^\d]/gi, "");
}
 
function Formata_CPF(th, e) {
    th.value = th.value.replace(/[^\d{1}]$/gi, "");
    if ((window.event ? e.keyCode : e.which) != 8) {
        if (th.value.length == 3) th.value = th.value + '.';
        if (th.value.length == 7) th.value = th.value + '.';
        if (th.value.length == 11) th.value = th.value + '-';
    }
}