Webmarketing e programação

Pessoal, segue uma pequena função para fechar todos os formulários abertos na screen do Fox.
Muito simples.

************************************************************
*! Fecha todos os forms abertos
************************************************************
Function CloseForms
Local nForm As Integer
For nForm = _Screen.FormCount To 1 Step -1
_Screen.Forms(nForm).Release
Endfor
Endfunc

A Copel Telecom, companhia de telecomunicações de sociedade anônima cujo capital pertence 100% à Copel – Companhia Paranaense de Energia, lançará em 2011 um serviço de acesso a internet de alta velocidade chegando a 100Mbps.

A princípio este serviço será disponibilizado para alguns bairros de Curitiba e somente para empresas, se estendendo posteriormente para pessoas físicas e empresas de todo o estado.

A companhia não divulgou valores deste serviço, uma tabela de preços será divulgada numa data próxima ao lançamento.

Leia a notícia na íntegra clicando aqui.

Segue uma função para validação de CNPJ ou CPF no Visual Foxpro.
A função é bem simples. Segue o código:

************************************************************
*! O nome já diz tudo, é uma função para validar cnpj ou cpf
************************************************************
Function ValidaCnpj(_Value As String)
_Value = Alltrim(_Value)
If Empty(Alltrim(Strtran(Strtran(Strtran(_Value, ‘.’, ”), ‘-’, ”), ‘/’, ”))) Then
Return Evaluate(‘.T.’)
Endif
**************
Private s1, s2, m1, m2, i, l, v, d1, d2, ehcpf, st, dv, dv2, texto
**************
If “/” $ _Value And “-” $ _Value Then && trata-se de um CNPJ
st = Substr(_Value, 1, (Len(_Value) – 3))
ehcpf = .F.
Else
st = Substr(_Value, 1, (Len(_Value) – 3))
ehcpf = .T.
Endif
*********************
Store 0 To s1, s2
m2 = 2
For i = Len( st ) To 1 Step -1
l = Substr( st, i, 1 )
If l $ “0123456789″
m1 = m2
If ehcpf .Or. m2 < 9
m2 = m2 + 1
Else
m2 = 2
Endif
v= Val( l )
s1 = s1 + v * m1
s2 = s2 + v * m2
Endif
Next
s1 = s1 % 11
If s1 < 2 Then
d1 = 0
Else
d1 = 11 – s1
Endif
s2 = ( s2 + 2 * d1 ) % 11
If s2 < 2 Then
d2 = 0
Else
d2 = 11 – s2
Endif

texto = Iif(ehcpf, “O CPF “, “O CNPJ “)

If Str( d1, 1 ) + Str( d2, 1 ) # Right(_Value, 2) Then
*! CNPJ ou CPF incorreto
Messagebox(_Value + Chr(13) + texto + ” está incorreto”, “Erro!”, 16)
Release s1, s2, m1, m2, i, l, v, d1, d2, ehcpf, st, dv, dv2, texto
Return Evaluate(‘.F.’)
Else
*! CNPJ ou CPF correto
Release s1, s2, m1, m2, i, l, v, d1, d2, ehcpf, st, dv, dv2, texto
Return Evaluate(‘.T.’)
Endif
EndFunc

Download valida_cpf.prg

Não esqueça de deixar seu comentário abaixo ! Ele é muito importante para todos nós !

Livro altamente recomendado para quem quer aprender a programar em C++.

Deitel, H.m. é um dos melhores e mais respeitados autores de livros de programação em C++, suas edições são simplesmente espetaculares.

Guia  indispensável para quem quer aprender efetivamente.

Dados do exemplar:

C ++ Como Programar – Com CD-ROM – 5ª Edição

A melhor e mais respeitada introdução a C++, programação orientada a objetos (POO) e projeto orientado a objetos (OOD) com UML 2 utilizando o Deitel Live-Code. O C++ é uma das mais populares linguagens de programação orientada a objetos. Esta nova edição do livro-texto de C++ mais utilizado no mundo baseia-se na introdução a classes e objetos.

Clique aqui para adquirí-lo.

Não esqueça de deixar seu comentário abaixo ! Ele é muito importante para todos nós !

De: R$ 799,00
Por: R$ 599,00
ou 12 x de R$ 49,92

Frete grátis para todo o Brasil.

PS.: Promoção sugeita a alteração sem aviso prévio.

Veja mais detalhes aqui.

Uma das grandes características dos temas do Theme Junkie é que nossos temas são internacionalizados (I18n). Em uma linguagem simples, quer dizer que você pode traduzir qualquer de nossos temas para seu idioma! Aqui, eu explico como você pode traduzir um tema.

1. Baixe e instale PoEdit.

Nós precisamos do PoEdit para traduzir o tema. É um software gratuito e está disponível para Mac, Windows e Linux. Baixe PoEdit desta página.

2. Crie um novo catálogo (arquivo de idioma local)

Inicie PoEdit e clique no menu Arquivo e selecione a opção Novo catálogo de arquivo POT.

Será aberta a caixa de diálogo de arquivo. Vá até a pasta de idiomas do tema. Selecione All file na caixa de diálogo, e abra o arquivo en_US.po na pasta languages.

PoEdit

Agora PoEdit irá perguntar por várias opções de configuração. A coisa mais importante aqui é escolher o país e idioma corretos.

PoEdit

Nos campos restantes, preencha com a informação necessária ou deixe em branco.

Agora clique na tab Caminhos e mude a variável caminhos para o local onde estão localizados os arquivos do tema.

PoEdit

Então pressione OK.

Agora PoEdit irá perguntar pelo nome do arquivo. É muito importante escrever um nome correto. O padrão de nomes para estes arquivos é códigoIdioma_códigoPaís. O código do idioma tem que ser em minúsculas enquanto que o código do país tem que ser em maiúsculas. Então, se você está traduzindo o tema para português do Brasil, o nome do arquivo será pt_BR. Igualmente, para traduzir para o francês, será fr_FR e assim por diante. Você pode encontrar uma lista de códigos de idiomas nesta página e de países aqui.

3. Traduzir o tema

Estes são os passos que nós realmente traduziremos o tema. Depois do passo 2 acima, você verá a interface padrão do PoEdit onde o painel esquerdo contém os caracteres do idioma original e o painel direito contém as traduções. O painel direito estará vazio enquanto nós não iniciamos a tradução.

Inicie traduzindo linha por linha. Clique na primeira linha e pressione Tab. Isto irá levá-lo a caixa de tradução abaixo. Traduza aqui. Sua alteração será exibida imediatamente no painel direito. Uma vez que tenha terminado a linha, selecione a segunda linha. Repita este procedimento até que todo o texto tenha sido traduzido. Depois de terminar, salve o arquivo.

PoEdit

4. Suba os arquivos para seu servidor

Quando você salvar o arquivo de catálogo no passo 3 acima, PoEdit criará dois arquivos, um arquivo .po e um .mo. Suba ambos arquivos para a pasta de idiomas do seu tema e terá terminado. Se você estiver usando uma versão local do WordPress, seu modelo poderá ser traduzido automaticamente.

5. Perguntas? Questões?

Esta é uma tradução literal do site http://www.theme-junkie.com/

Se tiver qualquer dúvida sinta-se a vontade para usar o formulário de comentários do site. Se a questão é sobre um tema específico, então use o fórum de suporte. Happy Translating!

Não esqueça de deixar seu comentário abaixo ! Ele é muito importante para todos nós !

Então pessoal,

um dos sites com maior autoridade no Google é o Youtube, sendo assim, o que for postado lá tem muito mais chances de ser visto pela engine do Google, além das milhares de pessoas que acessam diariamente o site é obvio.

Saiba como divulgar seu site no youtube e aumentar suas visitas.

Então vamos lá.

Comece criando uma conta no youtube.

Acesse sua conta e clique em meus vídeos.

Clique em enviar vídeos e faça o upload do seu vídeo. Seu vídeo não tem que ser necessariamente filmado por você, se vc não sabe como gravar um vídeo de sucesso(o que acontece com a maioria das pessoas portanto não se preocupe, vc é normal como eu, hehe), baixe um vídeo que tem muitas visitas e use-o para gerar acessos para vc.

Depois de enviado clique no botão “Editar” que fica logo ao lado da miniatura do vídeo.

Clique em “Annotations”, edite o vídeo conforme desejar e clique em salvo e em publicar.

O vídeo deve ficar assim:

Para ver uma vídeo aula com detalhes sobre como divulgar no youtube ou em outras mídias como Orkut, Twitter, Facebook, etc. clique aqui em webmarketing.

Segue um script muito simples desenvolvido pelo Gilles Patrick, cujo site já não está mais no ar, para encryptação de MD5 em VFP.

Baixe o arquivo md5.prg

A forma de uso é extremamente simples, segue o código:

Set Procedure To md5 && Define a procedure para ler o arquivo md5.prg
md5 = CreateObject(‘md5′) && Cria o objeto md5 a partir da classe contida no prg
Set Procedure To && Retorna a definição de procedure para o padrão
md5.tohash(“abc123″) && Informa a sequencia de caracteres a serem criptografados
?md5.Compute() && Retorna a sequencia md5

Fácil, fácil.

Qualquer dúvida por favor comente este post.

Acabei de ver no site “Criar Sites” um excelente e-book criado pelo Celso Lemes que explica de forma prática como você deve divulgar seu site no google.

A única consideração que tenho é com relação ao adsense que não uso e não recomendo, é um sistema que paga pouquíssimo por clique e você estará levando o seu “cliente” para o concorrente. O adsense coloca links relevantes ao conteúdo do seu site, ou seja, os links que aparecerão são do mesmo conteúdo que o seu, sendo assim, são links de sites concorrentes, você não deve temer a concorrência, mesmo porque não adianta nada, ela está aí e você só pode tentar ser melhor mas você não tem que divulgar o site do seu concorrente no seu próprio site.

Prefira os programas de afiliados, onde você poderá monetizar seu site vendendo produtos que sejam relacionados ao conteúdo do seu site. No meu caso, divulgo produtos eletrônicos, como celulares, produtos de informática e livros.

Quanto ao e-book em si, tem um conteúdo excelente e vale a pena ler.

Segue o link para download: http://www.criarsites.com/Arquivos/apostilas/divulgacaodesites.zip

O CGS 0.8 Pré já está disponível para download, esta versão é estável e pode ser usado em produção sem problemas.

Realizamos todos os testes necessários para que o sistema possa ser usado em produção.

A única diferença da versão Pré para a versão Final é que nesta ainda não está disponível a Nota Fiscal Eletrônica que estava prevista para lançamento juntamente com a versão 0.8.

Ainda não finalizamos a NFe, faltam alguns ajustes e testes mas já disponibilizamos para nossos clientes as outras funções desta nova versão que são muitas, clique no link abaixo e confira.

Clique aqui para baixar.