Modelos Prontos – Conferir Jogos da Loteria

Dizer que o fórum está dando frutos já virou cliché por aqui. Mas desta vez vou compartilhar, com a permissão do autor, um dos modelos de planilha mais caprichados que passaram pelas minhas mãos.

O colega Erikson postou em nosso fórum e deixou todos boquiabertos. Trata-se de uma planilha (se é que é possível reconhecê-lo como uma planilha) que é um verdadeiro canivete suíco para quem acompanha jogos na Loteria, especialmente a MegaSena.

Além de poder cadastrar suas apostas em uma interface mais do que bacana, ele gera número aleatórios para novas apostas. Dá até para conferir o jogo online, sem sair do aplicativo!

Abaixo vocês conferem um pouco do visual do aplicativo, que acredito falar por si.

Loteria Tela Inicial

Loteria Tela Inicial

Surpresinha

Surpresinha

Conferindo o Jogo

Conferindo o Jogo

Conferindo o Jogo Online!

Conferindo o Jogo Online!

O download do arquivo pode ser feito no link abaixo:

http://www.tomasvasquez.com.br/forum/download/file.php?id=1084

A discussão no fórum sobre a planilha e atualizações pode ser conferida aqui:

http://www.tomasvasquez.com.br/forum/viewtopic.php?f=23&t=1593

Bom proveito a todos!

VBA – Fazendo o download de um arquivo

A pergunta veio do fórum, mas decidi colocar aqui para compartilhar com todos, até porque, esse código estava perdido em algum canto do meu HD faz muito tempo.
😀

O código abaixo realiza o download de um arquivo de uma URL informada em uma pasta também informada:

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
    (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, _
    ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
 
Public Sub Download()
    On Error GoTo Err
    Dim Auxiliar As Long
    Dim URL As String, CaminhoLocal As String
    URL = "http://www.tomasvasquez.com.br/downloads/modelocadastro.zip"
    CaminhoLocal = "C:\modelocadastro.zip"
    Auxiliar = URLDownloadToFile(0, URL, CaminhoLocal, 0, 0)
    MsgBox "Download efetuado com sucesso!"
    Exit Sub
Err:
    MsgBox "Erro no download do arquivo"
End Sub

No caso, estou usando como exemplo o link do Modelo de Cadastro deste site. Basta colar o código em um novo módulo e executar, para em seguida ver que o Modelo de Cadastro é salvo no caminho “C:\modelocadastro.zip”.

Obviamente, a macro é adaptável a outras necessidades, URLs e tipos de arquivos.

Bom proveito!

Web – Coloque qualquer fonte em seu site, mesmo que o usuário não a tenha instalada

CSS
CSS

Desenvolvedores Web e Web Designers normalmente lidam com o fato de não poder usar qualquer tipo de fonte em seus layouts, já que não há a garantia que a fonte esteja instalada no computador que acessa o site, o que é necessário para sua renderização (ou seu usuário verá aquele texto lindo em Arial ou Verdana).

Ok, existem alguns truques para saber isso, mas nada saudáveis para a aplicação e muito menos recomendáveis.

A solução inevitável é produzir o texto com a fonte não padrão como uma imagem. Uma saída efetiva, mas não viável. Há porém uma solução desde o nascimento do CSS 2.0, mas que pouco vi ser utilizada.

Com a tag font-face, você pode declarar uma nova fonte que pode ser utilizado no seu CSS, e também, qual o arquivo de fonte respectivo. Por exemplo, o código abaixo declara a fonte Rugged Ride e aponta para um endereço do servidor onde ela está intalada:

@font-face {
    font-family: "Rugged Ride";
    src: url("http://www.tomasvasquez.com.br/fonts/Rugged Ride.ttf") format("truetype");
}

Depois dessa declaração, é possível fazer o seguinte:

<h1 style="font-family: 'Rugged Ride'">Texto com a Fonte Rugged Ride</h1>

Abaixo segue o HTML respectivo:

Texto com a Fonte Rugged Ride

Como é uma fonte pouco comum, existe uma grande chance de não tê-la instalada em seu computador, mas ela aparece corretamente. Lembrando que seu navegador precisa ter suporte a CSS 2.0, ou essa técnica não funcionará.

Claro que nem tudo são vantagens. Na primeira vez que o usuário acessar o site, ele vai precisar fazer o download da fonte. A depender de seu tamanho, o texto pode aparecer sem fonte até que ela seja baixada totalmente.

Agora é aproveitar essa vantagem de desenhar seus sites!

Abraços!

VBA – Criando um navegador de pasta simples em rápido com o controle WebBrowser

Mais um fruto do nosso fórum. Proeza do colega Rafael, valeu muito pela belíssima idéia.

O colega publicou no fórum uma maneira simples de criar praticamente um Windows Explorer dentro do Excel com VBA. Nada melhor do que mostrar como ficou:

Windows Explorer no VBA usando o controle WebBrowser
Windows Explorer no VBA usando o controle WebBrowser

Tá, parece simples, mas na verdade, construir algo assim dá um bocado de trabalho. Porém, o Rafael teve uma sacada de mestre. Se o Windows Explorer e o Internet Explorer são praticamente a mesma coisa, porque não usar o controle WebBrowser para visualizar as pastas do computador? Simples!

Crie um UserForm, adicione um controle WebBrowser, aponte para um caminho existente no computador e pronto! Está funcionando, com uma quantidade de código minúscula!

Para fazer o download do modelo e conferir a discussão sobre ele, confira o tópico do nosso fórum:

http://www.tomasvasquez.com.br/forum/viewtopic.php?t=1514&p=7443

Bom proveito e os agradecimentos da comunidade ao colega Rafael!