Jiraspiom

Contar carácter Visual Base 6

jiraspiom — Wed, 01 Feb 2012 15:05:37 +0000

Estava procurando uma forma de contar a quantidade de um determinado caracter no Visual Base, e não achei uma função interna no VB6 que fazia isso.

Então essa função faz isso muito fácil.

Private Function ContaCaracter(wString As String, wCaracter As String) As Integer

Dim I As Integer, wQtd As Integer
For I = 1 To Len(wString)
If Mid(wString, I, 1) = wCaracter Then
wQtd = wQtd + 1
End If
Next
ContaCaracter = wQtd
End Function

Exemplo que como chamar ela.

Dim dtTeste As String
Dim intgbs As Integer
dtTeste = “01/02/2012″

intgbs = ContaCaracter(dtTeste, “/”)

no final a variável “intgbs” ficara preenchido com “2″.

Ideia para entrega de produto…

jiraspiom — Wed, 16 Nov 2011 22:24:06 +0000

Depois desta conversa abaixo com uma atentente de uma loja Varejista, que vendo produtos online, tive uma ideia, ou seja, todos os produtos comprado na internet deveria vir com a data prevista para entrega estampado bem grande, para que as empresas transportadora não fiquem com o produto acumulados por muito tempo em seu estoque, e não deixar o cliente na mão. Poderia ate organiza-los por data de entrega para saber o quanto de entrega tem de ser realizado em um determinado dia.

20:06:35 LUANA_GOMES diz:
Olá, Gilmar Borges. Por favor, anote o número do protocolo deste atendimento: 7432xxxxx. Como posso ajudá-lo(a)?

20:06:44 LUANA_GOMES diz:
Boa noite.
Em que posso ajuda-lo ?

20:07:05 Gilmar Borges diz:
Ola, é a respeito da entrega do meu produto que ate hoje nao chegou.

20:07:49 Gilmar Borges diz:
primeira mensaguem que recebi do ponto frio “Você receberá seu(s) produto(s) até o dia 09/11/2011.”

20:07:58 LUANA_GOMES diz:
nforme o CPF cadastrado ou pedido, por favor

20:08:20 Gilmar Borges diz:
12345678900

20:08:55 LUANA_GOMES diz:
Por favor, aguarde um momento enquanto verifico.

20:12:51 LUANA_GOMES diz:
Agradeço por ter aguardado e desculpe a demora

20:13:18 LUANA_GOMES diz:
Referente a sua entrega foi encaminhado para o setor responsavel para ser verificado e entrarão em contato em até 2 dias úteis

20:13:55 Gilmar Borges diz:
isso foi dito no dia 11/11/2011

20:14:31 Gilmar Borges diz:
ou segunda feira e hoje não é contado como dia util?

20:15:59 Gilmar Borges diz:
esse 2 dias uteis vai ser contado a partir de que data, amanha 17 e 18?

20:16:40 LUANA_GOMES diz:
Entendo senhor Gilmar referente a sua entrega o setor responsavel verificará e entrará em contato com o senhor

20:16:55 LUANA_GOMES diz:
Posso ajudá-lo em algo mais?

20:17:53 Gilmar Borges diz:
não chegou à ajudar muito não, ou seja o que vou ter de fazer e so esperar mesmo.

20:18:38 Gilmar Borges diz:
eu gostaria que você pegasse um pouco mais firme com as empresa que presta serviço de entrega, para você a trabalharem um pouco melhor.

20:18:53 LUANA_GOMES diz:
Entrarão em contato com o senhor

20:19:33 LUANA_GOMES diz:
Será verificado juntamente com a transportadora para que a sua entrega seja finalizada o mais breve possivel

20:19:40 Gilmar Borges diz:
e outra ideia… vocês colocar a data prevista para ser entregue escrita bem grande na embalaguem para que eles possam ver ate que dia deve ser entregue.

20:21:04 Gilmar Borges diz:
ta ok, muito obrigado.

20:21:19 LUANA_GOMES diz:
Peço desculpas em nome do PontoFrio.com pelo transtorno causado, o setor responsavel vericará e entrará em contato com o senhor

20:21:23 LUANA_GOMES diz:
Algo mais ?

20:22:11 LUANA_GOMES diz:
Por falta de comunicação encerramos o contato

20:22:13 LUANA_GOMES diz:
O Pontofrio.com agradece o contato, tenha uma boa noite!

20:22:15 LUANA_GOMES diz:
Conversa encerrada.
Gilmar Borges, agradecemos seu contato.

20:22:19 Gilmar Borges diz:
Sua mensagem não pode ser enviada.

Programador?

jiraspiom — Wed, 19 Oct 2011 15:05:20 +0000

Fim do 13° Salário, Sera?

jiraspiom — Sat, 10 Sep 2011 13:03:32 +0000

APROVADO O FIM DO 13° SALÁRIO

So estou Repassando um email que recebi de um tal diney_caracas@hotmail.com

BOMBA!!!

Aprovado fim 13º salário

Fim do 13º já foi aprovado na Câmara – falta o Senado

Enquanto a gente se distrai com Olimpíadas e Copa do Mundo, o Congresso continua votando outros assuntos de nosso interesse e a gente nem percebe….. vejam essa: Fim do 13º já foi aprovado na Câmara (PFL, PMDB, PPB, PPS, PSDB ) Para conhecimento, O fim do 13º salário já foi aprovado na Câmara para alteração do art. 618 da CLT. Já foi aprovado na Câmara e encaminhado para o Senado. Provavelmente será votado após as eleições, é claro…. A maioria dos deputados federais que estão neste momento tentando aprovar no Senado o Fim do 13º salário, inclusive da Licença de Férias (pagas em 10 vezes) são do PFL e PSDB. As próprias mordomias e as vergonhosas ajudas de custo de todo tipo que recebem, eles não cortam. Conheça a cara dos safados que votaram a favor deste Projeto em todo Brasil. Por favor, repassem para o maior número de pessoas possíveis, afinal eles são candidatos fortes nas próximas eleições:
01- INOCÊNCIO OLIVEIRA – PFL
02- JOEL DE HOLLANDA – PFL
03- JOSÉ MENDONÇA BEZERRA – PFL

04- OSVALDO COELHO – PFL

Deputado OSVALDO COELHO” width=”114″ height=”139″ border=”0″ />
05- ARMANDO MONTEIRO – PMDB

06- SALATIEL CARVALHO – PMDB

07- PEDRO CORRÊA – PPB

08- RICARDO FIÚZA – PPB

09- SEVERINO CAVALCANTE – PPB

10- CLEMENTINO COELHO – PPS

11- CARLOS BATATA – PSDB

12- JOÃO COLAÇO – PSDB

13- JOSÉ MÚCIO MONTEIRO – PSDB

DIVULGUEM!!! Agora, enquanto isso, eles distraem a gente com referendos ridículos!!!! ! E, nas votações que realmente importam, não nos cabe participar?? ?? Cadê os caras pintadas???? Povo que derruba presidente?? ???? Gente é hora de acordar antes que seja tarde d+!!!!!!!!!!
NINGUÉM É TÃO FORTE QUANTO TODOS NÓS JUNTOS!!!!!! !!
Divulguem!!! E não fique só reclamando do nosso país!!!! .eu acho.

Novo firmware 6.60 PRO-B8 para PSP

jiraspiom — Wed, 24 Aug 2011 16:45:52 +0000

Mais um novidado PRO. O qual é uma excelente custom firmware para o PSP. Abaixo você pode conferir o changelog.

Para instalar, basta copiar para seu PSP e rodar via XMB.

Download firmware 6.60 PRO-B8 para PSP site oficial.

Net Movies Irresponsabilidade

jiraspiom — Fri, 03 Jun 2011 03:36:47 +0000

Comprei uma tv com NetCast da LG, achei uma ótima idéia a poder alugar os filme online através da Tv. O que fiz foi assinar logo a Net Movies, ai minha surpresa, a minha cidade não e atendida pelo servido de entrega de mídia, por mim tudo bem eu só quero ver os filmes online mesmo. Só que tem um porem, os filme são todos antigos, e não tem tantos filme assim. no maximo 1000 filmes online.

Depois disso, o que fiz?

Cancelei uai.

Mas não foi cancelado, recebi uma notificação que foi cobrado 9.99 do meu cartão de credito.

Que coisa feia, por favor alguém seja responsável e cancele minha assinatura, ja se passaram 11 dias apos eu solicitar o cancelamento da minha assinatura, e não aconteceu nada.

seja responsavel NetMovies.

Yahoo mail beta

jiraspiom — Sat, 16 Apr 2011 23:24:30 +0000

Nova cara, yahoo mail está rapido e não poderia deixar de faltar e integração com redes sociais como o Twitter e o Facebook.

Assinar com iTunes podcast para ouvir

jiraspiom — Sat, 29 Jan 2011 20:46:54 +0000

Abra o Itunes, vá no Menu Avançado e depois clique em Assinar Podcast… :

Na janela a seguir, adicione os link abaixo um de cada vez, dê um OK:

Cafe brasil podCast http://podcast.lucianopires.com.br/feed/

Guanabara Cast http://www.guanabara.info/guanacast-aac.xml

Jovem Nerd http://feed.nerdcast.com.br/

LagCast http://lagcast.com.br/podcast

MRG http://feeds.feedburner.com/matandorobosgigantes

Meia LuaX http://meialuax.com/feed

MonaLisa de Pijamas http://www.monalisadepijamas.com.br/?feed=podcast

Nerdrops http://www.nerdrops.com/category/podcast/nerdrops/feed/rss/

OrionCast http://www.oriongames.com.br/xml/orioncast.rss

Papo de Gordo http://feeds.feedburner.com/papodegordo

NewsInside http://feeds.feedburner.com/podcastni

Radio Fobia http://feeds.feedburner.com/radiofobia_itunes

Rapadura Cast http://www.cinemacomrapadura.com.br/rapaduracast/rapaduracast.xml

Tosco Chanchada http://feeds2.feedburner.com/toscochanchada

Wergeeks http://feeds.feedburner.com/wergeeks/podcast

De Volta para o Futuro game, referencia de Livro.

jiraspiom — Mon, 27 Dec 2010 00:15:34 +0000

Referencia ao livro 1984 – George Orwell, de explodir a cabeça.

Comprei o jogo, depois de uns 20 minutos de jogo me deparo com essa perola.

De Volta para o Futuro game, Promoção Blu-Ray

jiraspiom — Sat, 16 Oct 2010 01:04:06 +0000

Noticia bombástica, no dia 26 Outubro será lançado a nova Box em Blu-Ray de De Volta para o Futuro Trilogia, e para quem comprar esta box, adivinha o que vai ganhar, alem de um dos melhores filmes Nerd da atualizada, vai poder fazer Download do primeiro capitulo do Jogo “De Volta para o Futuro“, de Grátis, e sem paga nada. Só para lembrar, o jogo terá 5 capítulos.

A promoção consiste em divulgar o novo Blu-ray do Filme, e terá um código especial, para ter acesso ao download do primeiro capitulo do jogo.

Eu quero jogar, olha so as imagens.

Aproveitando o Gancho, Michael J. Fox refez o traler de De Volta para o Futuro.

http://www.youtube.com/watch?v=uM6Ms621898

E olha só, ficou igualzinho ao traler de 1985.

Site official http://www.bttfmovie.com/ de comemoraçao as 25 anos.

Por JiraspioM.