Blog do Nappe

Neomotociclista

2011-08-09T09:10:00.002-03:00

Salve,

Praqueles quem acham que sou um motociclista recente, ou um neomotociclista, saibam que ando de moto a mais de 20 anos, já tive motos de vários estilos e marcas, já trabalhei de moto, andei e ando de moto em estrada de terra, asfalto e cidade. Meus números:

1 tombo, um enquanto saltava curvas de nível com uma "Xizelinha";
0 (ZERO) acidentes, nunca me envolvi em acidente de moto de qualquer natureza, nunca bati em ninguém, nunca atropelei animais e nunca bateram em mim;

Então não venham recém habilitados falar bobagem nos comentários do blog.

Té+

Mais do mesmo - Honda Hornet 2012

2011-08-04T11:10:00.003-03:00

Salve,

A Honda anunciou o modelo 2012 da CB 600F Hornet, a líder do segmento de 600cc no Brasil. Mecanicamente não houveram mudanças, foi apenas um face-lift. No entanto, a frente triangular não mudou muito, algo que particularmente acho que já estava na hora de acontecer. Apenas para citar exemplos, a Yamaha XJ6 tem uma frente muito mais bonita, bem como a Suzuki GSR 750 (não disponível no Brasil), acho que elas têm uma design mais condizente com os padrões atuais. Bem, mas isso é uma opinião pessoal, a maioria adora a Hornet, o que se nota pelo seu market share.

A traseira está mais afilida e empinada, remontando ao modelo da geração 1

Apesar da Honda ter feito pouco caso do Brasil - o mercado que mais vende Hornet no MUNDO - quando apresentou o novo modelo na Europa em meados de fevereiro, pelo menos ela não tardou a trazer a novidade para cá.

O modelo teve novidades visuais, mas a frente triangular foi mantida

A release da Honda pode ser lida aqui.

Té+

Hondeiro

2011-07-31T11:44:00.015-03:00

Salve,

Este post era pra ser uma resposta para o comentário do "anônimo", mas como ía ficar muito grande resolvi postá-lo para que todos leiam.

Bem, nesse comentário fui chamado de "hondeiro". Não tenho nenhum problema com relação a isso, respeito o ponto de vista do leitor, mas sinto dizer que ele está redondamente enganado.

Eu compro e uso produtos, não marcas. Esse lance de idolatria com relação a uma marca beira o ridículo. Mas tenho que confessar que tenho um problema com a Yamaha, e sabem por que? Simplesmente pq ela tem produtos ótimos, de qualidade indiscutível, mas vive mergulhada na própria arrogância e não investe no Brasil como deveria, ou que quando o faz, faz de forma errada. Aí acaba tomando "pau" das outras marcas e toma mais decisões erradas, um círculo vicioso.

Um exemplo disso é a XJ6-F, modelo carenado da XJ6, ela não vende!!! Se vende não aparece nas estatísticas. Enquanto a Kawa Ninja 650 é a 9ª mais vendida. Qual o erro da Yamaha?? Não ter trazido a XJ6 Diversion, um modelo SEMI carenado, que cai mais ao gosto do brasileiro. O que vai acontecer? Já-já A XJ6-F deixa de ser produzida. Por ser uma moto ruim? Claro que não!

XJ6 Diversion, melhor opção ao invés da XJ6 F, além de mais bonita

Outro exemplo disso é a FZ-16, uma moto linda, 150cc, um "tesãozinho" de moto, vendida na...Índia. Isso mesmo na Índia, e no Brasil não. Porque? Alguém tem dúvidas que esse "motinha" venderia muito aqui??

FZ 16, sonho de consumo dos brasileiros

Mais exemplos: permitir que a Honda trouxesse a Transalp antes dela trazer a Ténéré 660, não ter lançado um modelo flex ainda, mesmo tendo lançado a Fazer 250 em 2005 com injeção eletrônica. Precisa mais? Se quiser posso listar mais um monte...

Eu queria muito mesmo era que Yamaha desse um pouco mais de atenção ao mercado brasileiro, tão apaixonado por ela.

Abraços e té+

Mercado - fevereiro 2011

2011-03-11T22:26:00.008-03:00

Salve,

Seguem dados e comentários sobre os emplacamentos de motos acumulado até 02.2011.

Kasinski

Colocou sua Comet GTR 250 na primeira posição do ranking de esportivas, com 596 unidades emplacadas e 24,30% de market share. E nessa categoria entram motos de gabarito, como Ninja 250R e Suzuki GSX 650F. Parabéns para Kasinski! A reestruturação está dando certo.

BMW

Colocou o maxitrail G 650 GS na primeira posição dessa categoria, com 234 unidades emplacadas (31,92%), deixando pra trás Suzuki DL 650 V-Strom e Yamaha XT-660. A XT, diga-se de passagem, emplacou apenas 87 unidades, ficando com 11,87% do market share.

Kawasaki

Apresentou estagnação, não galgando nenhuma posição em especial. Sua Ninja 250 ficou atrás da Kasinski Comet e a Z750 segue atrás da XJ6 da Yamaha. Pelo menos não recuou.

Yamaha

Nada de especial também, segue segundona e boa. Essa semana estive lendo que ela não trás a Ténéré 660 pra o Brasil em função de ajustes na caixa de ar (sic). Eu prefiro nem comentar, senão vão achar que sou "hondeiro". Outra coisa que li, que também me chamou a atenção, é o fato dela (Yamaha) achar que a Ténéré 250 tá vendendo muito!! Não precisam da Ténéré 660! Realmente, 1.679 unidades emplacadas (4,07%) é um assombro! Como parâmetro a XRE vendeu apenas 4.362 unidades.

Honda

78,43% de market share. Não precisa dizer mais nada né.

Té+

Fontes:

www.fenabrave.com.br

www.motonauta.com.br

Suzuki Gladius 400

2011-02-04T00:05:00.014-02:00

Salve,

Como eu disse no meu post anterior, a Suzuki é outra marca que despreza o mercado brasileiro. Um exemplo é essa motoquinha aí embaixo, aposto que faria sucesso por aqui, quem sabe lá para 2020.

Ficha Técnica
Modelo:	Suzuki Gladius 400 ABS
Categoria:	Naked
Motor e Transmissão
Cilindrada:	398 cc
Tipo do Motor:	V2, DOHC
Potência:	54 HP a 11.000 RPM
Torque:	4.2 kgf.m a 8.500 RPM
Diâmetro x Curso:	72.0 x 49.0 mm
Válvulas por Cilindro:	4
Alimentação:	Injeção Eletrônica
Ignição:	Transistorizada
Refrigeração:	Líquida
Câmbio:	6 marchas
Transmissão Final:	Corrente
Embreagem:	Multidisco em banho de óleo
Chassi, Suspensão, Freios e Rodas
Tipo do Quadro:	Diamond
Pneu Dianteiro	120/70-ZR17
Pneu Traseiro:	160/60-ZR17
Freio Dianteiro:	Disco Duplo com ABS
Freio Traseiro:	Disco Simples
Dimensões e Capacidades
Peso Seco:	206.0 kg
Altura do Assento:	785 mm
Comprimento	2.130 mm
Distância mínima do solo:	135 mm
Entre-eixos:	1.455 mm
Tanque de Combustível:	14 litros
Óleo do Motor:	2 litros
Outras Especificações
Cores:	Vermelho, Branco, Preto

Té+

Curtas

2011-01-23T22:19:00.006-02:00

Salve,

Bem, antes de mais nada, eu não morri! Final de ano, muito trabalho, pouco tempo, além é claro de uma certa preguiça, por isso a ausência de postagens.

Mas resolvi abrir 2011 com uma nova sessão, ou melhor, uma nova tag, a "Curtas", onde escreverei testículos (ui) sobre os mais variados temas. Vou começar com o de motos, meu hobby.

HONDA

Continua dando uma baile nas demais. Com 78% do Market Share se movimenta o tempo todo, trazendo tecnologias de vanguarda, como a C-ABS e a tecnologia Flex (ou Mix). Investe em programas de treinamento e de segurança. Está cada vez mais líder.

YAMAHA

Tem produtos ótimos, tem!! Não discuto isso, mas como pode desprezar tanto o mercado brasileiro? Cadê a Ténéré? Os usúarios clamam, imploram, se humilham e nada! Cadê um modelo flex? O que a mantém na segunda posição do ranking é a YBR, senão estava frita. Um de seus grandes sucessos, a XT 660, já tem suas venda incomodadas pela BMW G 650 GS. A Fazer 250 fechou 2010 com 29.000 unidades licenciadas, contra 71.000 da Honda CB 300R. Se isso não foi uma surra, então eu não sei o que é. É bom se cuidar.

KAWASAKI

Não está pra brincadeira não, pelo menos nas motos de maior cilindrada. Tem política de preços agressiva e motos de ótima qualidade. A ER-6n chegou a vender mais que a Yamaha XJ6, a Z750 pode mesmo incomodar a Hornet. Tomara que continue assim.

SUZUKI

É outra marca que despreza o mercado brasileiro. Já passou da hora de ter uma fábrica de verdade por aqui e de ser administrada pela matriz japonesa. Ótimos produtos, mas concessionárias fracas e com péssimo pós-venda. Pra ser ter uma idéia, mandei um e-mail sobre um de seus modelos no dia 16.12.2010, hoje é 23.01.2011, me pergunte se obtive resposta. Sem mais comentários.

DAFRA

Ainda precisa amadurecer seus produtos, mas já apresenta alguns de respeito, como o Citycom 300. Faz parcerias estratégicas e tem administração eficiente, deve crescer muito ainda.

KASINSKI

Está melhorando depois de sua compra pelo grupo CR Zongshen. Produtos com melhor qualidade e acabamento, além de preços realistas. Assim com a Dafra, tende a crescer e se consolidar.

SUNDOWN

Essa perdeu o bonde. Esteve com a faca e o queijo na mão a alguns anos, mas foi lenta e não investiu como deveria. Já foi engolida pelas suas concorrentes diretas Kasinski e Dafra.

Por enquanto é isso, forte abraço aos leitores e um feliz 2011!

Té+

XT 660z Ténéré no Brasil

2010-09-29T09:53:00.013-03:00

Salve,

Já deve fazer um ano ou mais que se fala que a mítica XT 660z Ténéré vai aportar no Brasil. De concreto ainda não se tem nada, apenas especulações.

Particularmente acho que há uma grande chance disso acontecer, pois se antes a Yamaha navegava em céu de brigadeiro com sua CARÍSSIMA XT 660, agora o cenário mudou bastante com a chegada de pesos-pesados como a Kawasaki Versys 650, BMW G 650 GS e Suzuki V-Strom 650. Aí, pra quem vai pagar ABSURDOS R$ 28.000 numa XT 660 pé-de-boi, aperta mais um pouco e paga R$ 30.000 numa BMW ou R$ 34.000 numa Kawa ou numa Suzuki, que são muitos mais interessantes e equipadas.

Apenas para esclarecer, eu acho a XT 660 uma excelente moto, um trator de duas rodas, mas é muito, muito cara! Um preço JUSTO seria algo na faixa dos 21.000 ~ 22.000. Para o off-road a XT 660 é imbatível, mas geralmente quem compra um big-trail não vai fazer trilha, e sim viajar. Além do mais, para um "passeio" na terra, Versys, V-Strom e 650 GS dão conta do recado, e levam ampla vantagem sobre a XT no on-road.

Na minha opinião, se a Yamaha trazer a Ténéré para o Brasil, colocar ela no preço que é vendida a XT 660 hoje e rever o preço da XTzona (não precisa descontinuar esse modelo), vai nadar de braçada! Agora, se trazer a Ténéré e "aloprar" tacando o preço nas nuvens, pode esquecer, será mais um sonoro fracasso.

Vamos esperar.

Té+

Por enquanto, olhe as fotos:

Acabamento refinado

Painel moderno e completo

Lanterna de leds, bagageiro e escape duplo

Estradeira

Aventureira

XT 660x, uma outra opção para a Yamaha

Suzuki GSR 600

2010-09-25T00:19:00.008-03:00

Salve,

Apesar do mercado brasileiro apresentar hoje uma oferta bem ampla de produtos, máquinas interessantíssimas ainda não são vistas por aqui, infelizmente.

Exemplo disso é a Suzuki GSR 600, uma naked sport, lindíssima e com muitos atributos que a tornam uma moto dos "sonhos". Pena que a J.Toledo Suzuki, "conservadora" que é, não se interesse em montar esse modelo como esse em terras tupiniquins.

Logo aí embaixo temos a ficha técnica dessa bela moto, onde podemos ver que ela não é de brincadeira não: quadro de alumínio, motor apimentado, suspensões reguláveis, entre outras "cocitas mas".

Preta, a cor clássica

Branca

Ficha técnica

Dimensões / Chassi

Comprimento total:	2.090 mm
Distância entre eixos:	1.400 mm
Largura:	1.400 mm
Altura:	1.075 mm
Distância do solo:	130 mm
Altura do banco:	785 mm
Peso seco:	183 kg
Quadro:	Alumínio
Capacidade do tanque:	16,5 l
Motor / Transmissão

Motor:	4 tempos, 4 cilindros em linha, refrigerado a água, DOHC
Diâmetro x Curso:	67,0 x 42,5 mm
Cilindrada:	599,4 cc
Taxa de compressão:	12,5:1
Potência:	98 cv
Ignição:	Descarga capacitiva transistorizada - CDI
Alimentação:	Injeção eletrônica, 38 mm
Transmissão final:	Por corrente
Câmbio:	6 velocidades com engate constante
Suspensões

Suspensão dianteira:	Garfo telescópico 43 mm, com ajuste de precarga e altura
Suspensão traseiro:	Monoamortecida, conectada por links, com ajuste de precarga e altura
Freios

Freio dianteiro:	Disco duplo de 310 mm, pinça com 4 pistões
Freio traseiro:	Disco simples 240 mm, pinça simples
Pneus

Pneu dianteiro:	120/70ZR-17M/C (58W)
Pneu traseiro:	180/55ZR-17M/C (73W)

É isso aí, quem sabe um dia a Suzuki resolva tomar as rédeas de seu negócio aqui no Brasil, como fez a Kawasaki, aí as coisas podem melhorar.

Abraços e té+

Bandit Européia - GSF 650 e GSF 1250

2010-09-10T14:52:00.008-03:00

Salve,

Ontem estava dando uma olhada no site da Suzuki e notei que vários modelos já são 2011, enquanto as Bandit ainda continuam sendo oferecidas no modelo 2010, e ainda por cima em promoção (a versão semicarenada estava por 27.900).

Versão semicarenada

O mercado das 600cc está bastante aquecido no Brasil, com modelos pra vários gostos, bolsos e propósitos. Temos a veterana XT 660, uma bigtrail monocilíndrica, um "tratorzão", temos também as recém chegadas Yamaha XJ6 e Kawazaki ER-6N, tetra e bicilíndrica respectivamente. A "bandida" ainda vende muito bem, dado o seu excelente custo x benefício, já que se trata de uma moto polivalente, robusta e com preço acessível. Há ainda a expectativa de que outros modelos aportem por aqui, como a nova Yamaha Ténéré 660 e a Kawa Ninja 650.

Versão naked

Para não perder mercado nesse cenário é bem provável que a J. Toledo traga já como modelo 2011 a Bandit que é comercializada na Europa, com mudanças principalmente estéticas e equipada com ABS, nada mal se for confirmado. Mais uma vez, a boa oferta beneficia o consumidor, que tem a sua disposição vários modelos abaixo do 30.000 lulas.

Novo painel

Uma bela moto!

Bem, só nos resta aguardar.

Abraços e té+

Reiniciando as configurações do Visual Studio

2010-09-02T17:11:00.006-03:00

Salve,

Quando se usa o Microsoft Visual Studio pela primeira vez, ele pede para que se escolha o ambiente padrão (C# Development Settings, Visual Basic Development Settings, Web Development Settings, etc), a partir daí, toda vez que ele é iniciado esse ambiente é carregado, agilizando a carga e facilitando para o desenvolvedor. É um recurso interessante, porém, não é incomum ser necessário mudar essa configuração em algum momento, e aí a coisa complica, já que MS "escondeu" essa opção. Segue abaixo como mudar tais configurações:

Vá em Tools -> Import and Export Settings... e siga conforme a seguir:

Marque a opção "Reset all settings"

Marque a opção "No, just reset settings, overwriting current settings"

Pra finalizar, selecione a configuração desejada e clique "Finish"

É isso aí gente.

Té+

Restauração XL-125 S - Peças chegando

2010-07-20T21:27:00.002-03:00

Salve,

Depois de outra mineração, encontrei mais algumas peças. Por enquanto segue a lista, depois coloco fotos

- Paralamas dianteiro na cor, ORIGINAL

- Carenagem do farol na cor, ORIGINAL;

- Tampas laterais na cor, ORIGINAIS, uma com a faixa do ano, outra com as faixas da 85, basta trocar;

- Kit de travas, com tampa do tanque, trava do capacete, trava do guidão e ignição, ORIGINAL, com 2 chaves;

- Kit de adesivos TODOS;

- Alguns parafusos, guarnições e outras miudezas;

Por enquanto é isso, depois coloco as fotos.

Té+

Restauração XL-125 S - Procuro peças

2010-06-25T00:43:00.006-03:00

Salve Galera,

Quem acompanha o blog sabe que estou restaurando uma XL 125 ano 87, branca e estou precisando de várias pelas de acabamento. Tenho interesse apenas por peças ORIGINAIS, novas ou usadas em bom estado de conservação.

O que eu preciso:

- Paralamas dianteiro (é o mesmo da Xizelona);

- Carenagem do farol (é a mesma da Xizelona);

- Tampas laterais (filtro de ar e bateria), com ou sem faixas;

- Tampa do tanque e trava do capacete. Eu sei que tem uns kits com ignição + trava de capacete + trava de guidão + tampa do tanque, se tiver esse melhor ainda;

- Banco azul, com a inscrição XL;

Como eu disse, podem ser peças usadas desde que ORIGINAIS e em condições de uso ou com possibilidade de restauração.

Se alguém souber de algo serei grato. Pago preço justo e posso até dar uma bonificação a quem indicar.

Té+

Mercado - maio 2010

2010-06-20T22:49:00.004-03:00

Salve,

Alguns dados interessantes sobre o mercado de motos e automóveis depois fechamento do mês de maio de 2010.

A Fiat segue batendo a Volks, com 22,54% de participação de mercado*, contra 20,94%;
A Hyundai já ocupa a 7° posição* com 3,47%, superando Toyota (3,08%) e Peugeot (2,69%);
O Fiat Palio ocupa a 3° posição* nos mais vendidos, perdendo a 2° posição para o "irmão" Mille/Uno;
A Honda Motos ocupa a 1° posição* (jura??) com 77,24% de participação de mercado;
A Honda CB 300R ocupa a 4° posição no ranking das mais vendidas, com 31811 unidades*. A Yamaha Fazer 250 é a 5°, com 12530 unidades*;
Mesmo sendo vendida no modelo 2008, a Suzuki GS 500E, teve 118 unidades emplacadas*;

*: acumulado no ano de 2010

Só isso. Té+

Restauração XL-125 S - Parte 2

2010-06-19T16:52:00.007-03:00

Salve,

Seguindo a história da restauração da Xizelinha, as peças começam a chegar de várias partes do país (viva a internet!!). A seguir podem ver as caixas, as etiquetas de época, etc. Confesso que é excitante, é caro, dá trabalho, mas só quem começa a fazer uma restauração pode entender.

Por enquanto é isso, abraços e té+

Restauração XL-125 S - Parte 1

2010-06-15T21:18:00.012-03:00

Salve,

Minha história com motos é antiga, e tem uma moto em particular que está comigo de 1994 e que já me ajudou muito, e com a qual nunca tiver dor de cabeça, sempre valente e prestativa, essa é minha XL-125, que atualmente está abandonada numa garagem lá no sítio.

Por tudo que essa moto já me serviu, e pelo valor sentimental que ela tem, acho que estou sendo ingrato, por isso resolvi submetê-la a um processo de restauração. Obviamente, que não compensa em termos financeiros, pois as peças dessa moto, além de difíceis de achar, são caras, dadas a pouca disponibilidade. Com a grana que vou gastar comprava outra motinha, mas diz o ditado né :- "Mais vale o gosto de que o dinheiro no bolso".

Pelas minhas contas, devo gastar algo em torno de R$ 2.500,00 na restauração, somente com peças genuínas Honda, paralelo só em último caso mesmo, quando se esgotarem todas as fontes de busca. O que ajuda é que algumas peças de acabamento e periféricas são da XL-250, uma moto que teve bem mais saída que a XL-125, então dá pra usar. No motor é tranquilo, já que é o mesmo da ML e da Turuna. Porém, tem algumas que são específicas do modelo, e aí o bicho pega!

A seguir, algumas fotos atuais da XL-125, já em fase de desmontagem. Tá feio, eu reconheço, mas muita coisa é só sujeira, já que moto tá parada no sítio a mais de um ano. Detalhe, foi só por gasolina e dar umas 10 pedaladas, que pegou! Esse motorzinho é "soda"!

Após um primeiro levantamento, fiz a lista "grossa" da restauração:

Banco: o atual está podre não dá pra aproveitar e nem é mais original;
Amortecedores: são paralelos, não tem mais óleo, completamente estourados;
Escapamento: o atual é um "trail" barulhento e fora de padrão;
Carenagem do farol: ressecada e paralela, o da XL-250 é a mesma;
Tampas Laterais: estão boas fisicamente, mas são paralelas. Essas são difícies de achar!
Paralamas dianteiro: é ORIGINAL, mas está bem desgastado. Vou procurar um novo, em último caso eu restauro o dela mesmo;
Tampa do tanque: tá enroscando a trava, vibrando e vazando. Como é a mesma da XL-250 não deve dar muito trabalho pra achar;
Suporte e tampa de bateria: o suporte (caixa) precisa ser trocado, se eu não encontrar novo o que tem nela será submetido a uma funilaria de restauração. A tampa já encontrei e será trocada;
Miolo da chave: qualquer coisa abre ele, vou tentar encontrar o original e ver se tem compatilibilidade com o de outras motos, como a CG, por exemplo;
Aro traseiro: vou colocar o original. A medida é 18", o mesmo da Turuna/CG, relativamente fácil de achar;
Pneus: ainda não decidi se coloco os originais Pirelli MT-40 ou o Pirelli MT-70, mais moderninho, mais barato e mais On Road, vamos ver. Se for pelo lado da originalidade será o MT-40 mesmo;
Iluminação: as setas dianteiras precisam apenas de novas lentes, as traseiras serão substituídas, pois são paralelas. A lanterna traseira também não é genuína, é compatível com a da CG Titan de 90 a 00 e com a CBX Strada, será trocada. O farol ainda é o original;
Parte elétrica: o chicote ainda precisa ser inspecionado, mas está tudo funcionando, iluminação, buzina, sistema de carga, tudo certinho. Acho que será necessária apenas uma inspeção e limpeza dos contatos. Ví por aí que o pessoal costuma selar os conectores com silicone, talvez eu faça isso;
Motor: está bom ainda, já tem uma retífica (0,25 mm), vou apenas trocar alguns retentores e juntas. Se eu encontrar um cilindro original a preço bom eu compro e deixo guardado, e também um kit de pistão e anéis standard. Quando esse motor fundir troco tudo;
Pintura: vou fazer só o necessário, o que der retoque (quadro, por exemplo) não vou pintar. A idéia é não perder as marcas do tempo, e o que puder ser preservado da fábrica será mantido. O que for repintado será feito com alto padrão de qualidade;

Como dá pra ver, o trabalho será imenso, mas tenho certeza que o resultado será muito positivo, e daqui a alguns anos poderei me orgulhar da "magrela", e quem sabe, até colocar uma plaquinha preta na danada!

Té+

Yamaha 2010

2010-02-05T23:55:00.007-02:00

Salve,

Não deve ser novidade que a Yamaha lançou algumas novos modelos para esse ano. Aliás, um ano que está prometendo ser interessante para o consumidor que está interessado em subir um degrau na escala das duas rodas. Vamos a alguns comentários.

1. Crypton
A simpática cub (não é uma scooter) deve vir posicionada entre a medonha Honda Pop e a cara Honda Biz. É um modelo consagrado, que traz um novo motor de 115cc e algumas mudanças mecânicas para atender ao famigerado Promot3, além de um visual renovado.

2. Fazer 250
O excelente motor de 250cc, com camisas revestida de material cerâmico e pistão de alumínio forjado foi mantido. O novo modelo recebeu uma nova roupa, deixando seu visual mais atual. PESSOALMENTE eu não gostei, acho que ficou meio "frankenstein", parece que tem alguma coisa faltando, o conjunto não é harmonioso. É impossível não compará-la com a Honda CB300 e ver que esta última está muito, mas muito mais bonita. Pode ser que depois de vê-la pessoalmente meu conceito mude. O modelo antigo, por exemplo, não é nada fotogênico, fica horrível em fotos mas é muito bonito ao vivo. Independente do visual, é uma ótima moto, econômica, segura e com preço competitivo. Ah! Também recebeu freio a disco traseiro de série!

3. XJ6 N (nacked = nua) e XJ6 Diversion (carenada)
Bem, antes de mais nada, acho que a Yamaha está de parabéns ter tido um mínimo de ousadia (e um pouquinho menos de ganância) em lançar uma 4 cilindros com uma proposta mais multiuso, um motor mais manso e um preço relativamente justo, em se tratando do mercado brasileiro. Acho que o caminho é esse, nenhuma marca se torna líder de mercado ficando parada ou correndo atrás das demais. Visualmente eu a acho linda e mais bonita que a Fazer 600 (FZ6), tanto em sua versão N, quando em sua versão carenada. PESSOALMENTE eu acho que é um modelo que vai fazer muito sucesso, ainda mais se continuar com o preço sugerido (27.500 lulas) ou quem sabe, até menos. Eu acredito em Papai Noel pô!!

Té+

De olho no combustível

2009-12-12T16:49:00.002-02:00

Salve,

Eu sempre soube do problema que combustíveis adulterados ou de má qualidade podem causar a um veículo, hoje fui vítima dessa porcaria.

Aqui na minha cidade sempre abasteço o carro (que é flex) e a moto em postos de boa fama, e não tive nenhum problema até agora. Acontece que, no final de semana passado, fui a uma cidade vizinha e abasteci com álcool em um posto "desconhecido", apesar dele possuir a bandeira Shell. Vim embora e não notei nada demais.

Durante a semana comecei a notar que o carro não estava com o mesmo vigor de sempre, notei também um pequena vibração em marcha lenta, mas nada de alarmante, até hoje. De manhã quando liguei o carro, ele pegou mas falhando muito, e o barulho estava estranho, desempenho péssimo, pensei comigo: "fodeu!".

Fui dar uma volta pra ver se o negócio melhorava; nada! Aí fui até a concessionária, pois o carro tá na garantia, chegando lá o chefe da oficina ouviu o barulho do carro e deu o veredito: "é bico sujo ocasionado por combustível ruim!", declarou.

Honestamente, eu sabia que era problema de alimentação, mas poderiam ser várias outras coisas: vela, um cabo ruim, passagem de ar falsa, etc, etc. Então, pra desencargo, fui até um posto Shell aqui na minha cidade, de procedência (e de preço alto), e tasquei "cinquentão" de gasolina Shell V-Power. Rapaz! Vcs não imaginam o que aconteceu. O carro simplesmente ficou perfeito de novo. O barulho voltou ao normal, a falhação parou, o desempenho ficou ótimo. E olha que ainda tem bastante álcool no tanque, deve ter ficar meio a meio, entre a gasolina V-Power e a porcaria que coloquei antes. Vou terminar esse tanque e colocar V-Power de novo para limpar a coisa toda. Além do mais, vou economizar uma limpeza de bicos (desnecessária), pois isso não é coberto pela garantia.

Com isso cheguei a 2 conclusões:

Sempre abasteça em postos de procedência
Ao contrário do que dizem, gasolina aditivada vale a pena sim!

Eu sempre usei gasolina aditivada e vou continuar usando. Na minha moto anterior fiquei 3 anos sem mexer em carburador e agora estou em processo de recuperação da atual, já que peguei ela com marcha lenta instável, dando uns estouros e com desempenho péssimo. Depois de uns 2 meses usando gasolina aditivada (usava Texaco Plus com Techron, agora uso Shell V-Power) a marcha lenta é um piano, o desempenho está ótimo e o consumo lá embaixo. Enfim, ela limpou a garganta!

Fiquem de olho, combustível é coisa séria.

Té+

Salão Duas Rodas 2009

2009-10-15T20:51:00.006-03:00

Salve,

Depois de uma longa ausência, eis-me aqui novamente. No último domingo, dia 11, eu visitei o Salão Duas Rodas em SP; Menino, e como tinha gente! Não consegui registrar tudo que eu queria devido ao tumulto e ao tempo escasso. Abaixo tem algumas fotos, antes porém, algumas considerações:

Yamaha: cadê a Ténéré? Cadê a "nova" Fazer? De interessante só a V-Max e a moto do Rossi;
Suzuki: nada de novo, nadinha mesmo;
Kawazaki: das "grandes" uma das mais interessantes, modelos (a naked ER-6N e a motard D-Tracker 250) que prometem fazer sucesso;
Honda: como sempre, meio esnobe, os modelos já conhecidos e algumas propostas (como a CB3 para a CET) e a moto conceito Evo 6, com motor de Gold Wing;
BMW, Ducati, HD e cia: belas motos, como sempre;
Dafra: gostei da tal da Apache;
Sundown: tentando ressurgir, apresentou o modelo Fi 4 250cc, uma pequena esportiva pra concorrer com a Kasinski Comet GTR;

Seguem fotos:

Depois publico mais.

Té+

Cenário do mercado

2009-09-05T12:32:00.008-03:00

Salve,

Pois é, o preço não está sendo um entrave nas vendas da nova Honda CB 300R. Mesmo custando em torno de R$ 2.000 e R$ 3.000 a mais que a Fazer 2010, as vendas seguem em ritmo crescente. O que impressiona é que em apenas 2 meses de "vida" o modelo já vendeu mais que a Fazer durante todo o ano de 2009. E é bom a Yamaha se mexer, se vier mesmo a nova Suzukinha GSR 250 as coisas podem ficam ainda piores. Aliás, se o modelo vier mesmo e tiver garantia de um pós-venda eficiente, concessionárias preparadas e facilidade para se encontrar peças de reposição, certamente até a Honda será incomodada, pois o consumidor tem ficado mais consciente na hora da compra, e certamente vai crescer os olhos pra uma motoquinha bicilindrica, com um "rosnado" nervoso e alto desempenho.

Suzuki GSR 250 (projeção)

Vendas Julho/Agosto 2009

Vamos esperar.

Té +

Como é fabricado um capacete

2009-08-29T16:01:00.005-03:00

Salve,

Estou em uma saga à procura de um novo capacete. Como é meu costume, eu pesquiso muito antes de comprar QUALQUER, afim de não me arrepender depois. Em minhas andanças na internet encontrei o vídeo abaixo, que mostra o processo de fabricação de um capacete. Postei aqui pois é no mínimo interessante.

Té+

Cuidados ao se comprar uma moto usada

2009-08-28T14:49:00.016-03:00

Salve,

Como dizem por aí: a fila anda! Mais cedo ou mais tarde, seja por necessidade, paixão ou impulso acabamos "metendo o pé na jaca" e comprando uma nova motoca. Seja de particular ou de garagem (tô fora! e tenho bons motivos pra isso...) alguns cuidados precisam ser tomados para não ter dor-de-cabeça no médio ou (na maioria das vezes) curto prazo. Veja a seguir alguns detalhes a serem observados na hora da compra:

Aparência: analise a moto do ponto de vista estético, se não apresenta plásticos queimados de sol, particularmente olhe os dizerem dos punhos (ali onde ficam os controles de seta, luz, etc), painel e setas, que são as partes mais que mais "sentem" o sol. Se estiverem esbranquiçados é sinal de que a motoca tomava muito sol. Eu particularmente não gosto disso. Olhe também se não apresenta amassados e riscos no tanque, ralados indicam queda, riscos que atingiram apenas o verniz podem ser removidos com um polimento sem maiores problemas. Veja se o motor não está "lavado" demais por produtos químicos (solupan e cia) que são ótimos para enferrujar os parafusos com o tempo. E lembre-se: aparência é fundamental na hora da revenda! E será que o proprietário que não cuida da aparência cuida da mecânica?
Quilometragem: depende muito. Se estiver com alta quilometragem mas tiver sido bem cuidada então está tranquilo. Por cuidado entenda-se trocas de óleo (e filtro, se tiver) segundo o manual do proprietário e filtro de ar sempre limpo. O óleo principalmente, não pode faltar, é o sangue do motor. Pra saber se uma moto está muito rodada eu recomendo a você fazer a seguinte conta: 50 km por dia é uma média tranquila. Isso dá mais ou menos 1.500 Km mês, ou 18.000 Km ano. Logo se uma moto tiver 3 anos de uso e mais de 54.000 km pode ser problema, mas ainda assim isso depende muito. Aliás, engana-se quem pensa que pequenos trajetos "judia" menos da moto, muito pelo contrário, o óleo não atinge a temperatura ideal e não lubrifica direito, aí vc já sabe né. Sendo assim, motos "de rodovia" podem até estar mais rodadas que algumas motos "de cidade", porém o motor pode estar em melhores condições. Cuidado com quilometragens mentirosas, muita gente inescrupulosa altera isso. Moto com quilometragem muito baixa para o ano pode ser um sinal de alteração. Se desconfiar, analise as pedaleiras e as manetes, pois a menos que as tenham trocado também elas denunciam o uso.
Motor: bom mesmo é levar em um mecânico de confiança, mas e se não tiver um por perto? Esses tempos comprei uma moto uma cidade em que não conhecia nenhum mecânico, aí tiver que me virar. Vamos lá: motor é melhor se analisar quente, cuide pra que ele esteja aquecido para a inspeção. Deixe a moto funcionando em marcha lenta, ela deve ser firme e realmente lenta. Uma marcha lenta muito alta pode esconder uma compressão ruim (leia-se motor fraco). Se abaixe e ouça se não há barulhos metálicos no motor. Pequenos estalinhos fininhos do tipo "tec-tec" indicam válvulas desreguladas, não há motivo para pânico. Batidas mais fortes não são um bom sinal, podem ser uma infinidade de problemas, evite. Acelere (não precisa tirar de giro hein mané!) e desacelere o moto repetida e rapidamente, não adianta dar uma aceleradona só, tem que ficar bombando (ui), e note se ele "fuma". Fumaça branca indica queima de óleo, fumaça preta indica excesso de combustível, que se resolve com uma boa limpeza e regulagem do sistema de alimentação. Uma dica simples: passe o dedo no interior do escapamento (ui de novo) e limpe, se ficar oleoso e for difícil de limpar é pq tá queimando óleo, se limpar fácil e ficar apenas resíduos de carvão então tudo certo.
Transmissão: o preço da relação (coroa, pinhão e corrente) depende muito do modelo da moto, a dica é quanto mais nova melhor. O que pode ser problema é câmbio/embreagem, dê uma volta com a moto e veja como são as trocas de marcha. As trocas devem ser suaves e fáceis, e principalmente não devem fazer barulho de metal, um pequeno "clec" é absolutamente normal, estalos não. Se as trocas estiverem difíceis e duras pode ser embreagem ruim ou desregulada. Quando o óleo está velho, próximo da troca, as mudanças também podem ficar ruins, observem isso.
Pneus e rodas: assim como no caso da relação, varia muito, e vale a máxima do quanto mais novos melhor. Eles também podem denunciar quilometragem alterada. Ex: um pneu roda entre 10.000 e 20.000 Km, sendo que o dianteiro sempre roda mais que o traseiro. Assim, se a moto estiver digamos com 8.000 Km e já tenha trocado o pneu, suspeite, pode ter coisa errada aí. Se a moto tiver rodas de liga tome cuidado com amassados e reformas, podem esconder uma avaria anterior.
Quadro (chassi) e suspensão: observe nos pontos de solda quanto a oxidação (ferrugem) e possíveis trincas. Observe bem todo o quadro, se tiver como, remova o banco, e mesmo as laterais, para uma melhor inspeção. A suspensão não deve apresentar vazamentos, as bengalas dianteiras não devem estar riscadas. Ande com a moto em um terreno irregular, a moto não deve bater ou ter rangidos em excesso, não deve ser dura nem mole demais, isso demostra desgaste de componentes. O guidão deve ficar perpendicular à roda dianteira, se a roda ficar alinhada e o guidão ficar "apontando" para algum lado é sinal de que a moto pode ter sofrido alguma batida ou queda mais séria. Observe também se moto não faz dois rastros, ou seja, com ela andando em linha reta o pneu traseiro deve rodar na mesma linha que o dianteiro. Pra isso basta olhar ela por trás, obviamente andando.
Parte elétrica: o funcionamento da parte elétrica é o mais fácil de analisar. Basta olhar faróis, piscas, buzina, etc. Dê algumas (não muitas) partidas (se for elétrica, óbvio) para ver como a bateria se comporta. Se algo não funcionar bem chora aquele descontinho com o vendedor.
Documentação: uma consulta superficial pode ser feita em alguns sites na internet e mesmo no site do Detran, basta ter o nro. do Renavam. Para uma busca mais detalhada é melhor ir a um despachante, que pode fazer uma consulta completa, afim de ver registro de multas, alienação (dívida) financeira, roubo e etc.

Pra finalizar, o comprador precisa ter olho vivo. Por exemplo, na hora de levar num mecânico, leve num mecânico de confiança SEU, não do vendedor, procure analisar a moto longe do vendedor afim de evitar constrangimentos. Não podemos ser ingênuos nessas horas, não tenha pressa e não se iluda com preços muito abaixo do valor de mercado, eles podem esconder armadilhas. Bem, espero ter ajudado. Boa compra e boa sorte!

Té+

Fazer 2009 / 2010

2009-08-02T18:01:00.004-03:00

Salve,

Falaram, desfalaram, zuaram, apostaram que não era, mas podem se "conformar" essa é mesmo a Fazer 2009/2010, 100% certeza! Apesar de não estar ainda no site da Yamaha, hoje vi o modelo em uma ação de vendas da Yamaha.

Como eu estava com horário marcado, não pude parar para "espicular" os vendedores, mas pelo que pra notar as únicas mudanças foram mesmo o escapamento a la YBR Factor e setas da Fazer Limited Edition, além de mudança no fundo do painel e só! Pelo que se vê, esse ano vai ser difícil para as concessionárias Yamaha.

Como a esperança é última que morre, já-já os xiitas falarão que está vindo aí a Fazer 350, a FZ 250 ou algum outro modelo imaginário.

Té+

27 de julho - dia do motociclista

2009-07-27T21:39:00.002-03:00

Salve,

Pois é, hoje (27/07) é dia do Motociclista. Parabéns a todos o profissionais, amadores, pilotos e amantes das 2 rodas.

Té+

CB 300R Semeando a discórdia - Parte II

2009-07-10T09:07:00.006-03:00

Salve,

Aqui estou novamente falando da CB 300R e não vou negar, eu gostei dessa motoca! Eu não nenhum xiita apaixonado, não tenho marca preferida, compro o modelo (indepedente da marca) que oferece o melhor custo x benefício dentro daquilo que espero da moto, e pronto! E como quase-futuro-dono de uma CB300 estou pesquisando muito sobre ela, lendo foruns, analisando os testes (os sérios, sem jabá) e o que se vê de mer... escrita não tá no gibi. E não é só dos "mecânicos" de fim de semana não, a imprensa dita "especializada" tambem faz das suas.

No mês passado, uma importante publicação brasileira sobre motos dizia que comparar a Honda CB3 com a Yamaha Fazer 250 era covardia. A mesma publicação neste mês fez um comparativo entre as duas e meio que encheu a bola da Fazer 250. Estranho, né? Não tá querendo fica mal na fita com nenhuma fabricante, deve ser isso.

O que mais me impressiona é ver como a maioria das pessoas avaliam uma moto pela sua velocidade final. Eu me pergunto qual o percentual de uso de uma moto em velocidade máxima, 1%, 2%, 3%? Com certeza é bem pouco. Consumo, valor de revenda, liquidez, custo de manutenção, durabilidade, isso tudo é o de menos, eu quero é ver quando dá! Isso PRA MIM significa muito pouco, talvez pra maioria signifique alguma coisa.

Ainda com relação a minha pesquisa sobre a CB3, vi que a comparação com a Yamaha Fazer 250 é inevitável, e acho até saudável essa comparação, afinal a Fazer é um ótimo parâmetro de comparação, sendo a excelente moto que é. E nessa hora o que mais se compara é, adivinhem? Velocidade, claro.

Através de vídeos e testes, temos visto que a CB300 com certa dificuldade chega aos 150~155 Km/h, no VELOCÍMETRO, penso que ela deve atigir algo em torno de 130~135 Km/h REAIS, dependendo das condições, como peso do piloto, vento, etc., mas que ainda é pouco em relação a Twister ou Fazer, afinal elas são 250cc caramba! Se bobear a CB3 leva pau até de 150cc. É claro que isso é um exagero.

Eu não vou negar que, apesar de ter gostado da moto, fiquei frustrado com o desempenho (e com o preço!), mas antes de sair por aí esbravejando, eu fui investigar o porque disso. E descobri um culpado: PROMOT3. Com as regras antipoluição cada vez mais severas, o desempenho tem ficado cada mais prejudicado. E é nessa hora que os entendidos esquecem de uma coisa ao comparar a Fazer com a CB3: a Fazer NÃO SE ADEQUA ao PROMOT3. Ou por qual motivo a Yamaha estaria adiando tanto o lançamento da Fazer 2009/2010? Ela ainda está adequando/testando o modelo, e quando ela sair, aí sim poderemos comparar com igualdade (desconsiderendo-se as 41cc que separam seus motores) as duas motos. Lembrem-se que a YBR Factor PERDEU 1,5cv em relação ao modelo 2008, pois não é nada fácil manter o desempenho com o motor sendo estrangulado por um catalizador. E olha que a YBR ainda manteve o carburador, com injeção perderia ainda mais.

Mais um vez eu digo: não sou hondeiro, nem yamaheiro, e acho ridículo quem assume uma posição assim. Acho que devemos ser coerentes e conscientes antes de sair falando asneiras por aí. Comparações, testes e críticas são as armas que nós consumidores dispomos para escolher onde vamos pôr nosso suado dinheirinho, mas tudo isso deve ser muito bem embasado, sempre.

Té+

Sundown 250

2009-06-24T23:46:00.007-03:00

Salve,

Como diz o ditado, a corda sempre estoura do lado mais fraco, e com essa crise que assola as vendas (leia-se dificuldade em obter crédito) as marcas com menor participação no mercado andam sofrendo.

Veja o caso da Sundown, corre-se um boato de que ela pode se "fundir" com a Dafra, o que pode ser interessante pras duas. O mérito nesse caso é todo da Dafra, que em pouquissímo tempo já atropelou a mesma Sundown e ameaça até a Suzuki. Bem, vamos ver no que dá isso, tem que esperar mesmo, já que fala-se tanto

Ainda no campo das expeculações e falando de Sundown, (dizem que) está vindo por aí um novo modelo street com motor de 250cc flex. Se isso for acontecer mesmo será muito bom para o mercado, quanto mais modelos melhor.

Andam circulando algumas imagens, aí embaixo eu coloco uma. Se for essa aí mesmo, confesso que acho de gosto meio duvidoso, meio quadradona, não gostei não, mas gosto não se discute.

Suposta Sundown 250 com farol "não identificado"

Suposta Sundown 250 com farol redondo

Até+

Validando Campos no Delphi

2009-06-03T08:00:00.013-03:00

Salve,

Um coisa particularmente chata (porém fundamental) é a validação dos campos de um Dataset antes do salvamento. Afim de evitar o uso de estruturas condicionais (vulgo IF) desenvolvi uma rotina que faz essa validação de forma simples, bastando apenas a configuração de algumas propriedades e o uso de apenas um evento.

A primeira coisa a se fazer é setar através do FieldsEditor a propriedade Required dos campos que serão obrigatórios. Aproveite e ajuste também a propriedade DisplayLabel, que será usada pela rotina de validação para exibir uma mensagem amigável ao usuário. A seguir pode ser visto como deve ficar cada campo obrigatório no FieldsEditor:

Agora é necessário criar a function que fará a checagem dos campos. Abaixo temos seu código:

function TfrmExemplo.CheckFields(Dataset: TDataset): Boolean;
var i: Integer;
begin

i := 0;
Result := True;

for i := 0 to Dataset.Fields.Count - 1 do
begin
if (Dataset.Fields[i].Required) and (Dataset.Fields[i].IsNull) then
begin
MessageDlg('O campo ' + Dataset.Fields[i].DisplayLabel + ' não foi informado!', mtWarning, [mbOk], 0);
Result := False;
Break;
end;
end;

end;

Como podemos ver, a função recebe como parâmetro um TDataset, que pode ADO, DBX, BDE, ClientDataSet, enfim, um Dataset. Dentro dela o campos são varridos e aqueles que forem obrigatórios e tiverem valor = nulo será considerado inválido. Neste caso, a função retorna false.

Feito isso, o próximo passo é codificar o evento OnBeforePost do Dataset, para que através da nossa function, o salvamento seja impedido em caso de algum campo em branco.

procedure TfrmExemplo.cdsImpostoDespesaBeforePost(DataSet: TDataSet);
begin

if (CheckFields(Dataset) = False) then
begin
Abort;
end;

end;

Pronto! Agora, sempre antes do salvamento, os campos de nosso Dataset serão validados e, caso algum campo obrigatório tenha ficado em branco, uma mensagem será exibida. A figura a seguir mostra um cadastrinho onde o usuário tentou salvar e deixou um campo obrigatório em branco. Notem que o registro continuará em edição. Ah! Vc pode compartilhar o evento entre vários Datasets, assim a mesma função valida qualquer campo. Bacana né?

Té+

PS: o crédito pela formatação do código fonte é do programinha Delphi2Html, desenvolvido pelo colega Diego Silva.

CB 300R versus CBX 250 Twister

2009-06-01T23:55:00.039-03:00

Salvem,

Agora não é mais especulação. A Honda anunciou oficialmente as substitutas da Twister e da Tornado. São elas: CB 300 R e XRE 300 respectivamente.

Os modelos causaram muito alvoroço no meio motociclístico, despertando paixão e ódio antes mesmo de seus lançamentos. Aliás, há muito tempo esse é um dos assuntos mais "bombantes" nos fóruns e rodinhas de amantes das duas rodas. O que a Honda estaria planejando, como seriam os modelos, e a cilindrada?

Sem sombra de dúvidas o modelo mais esperado era o da substituta da Twister, uma moto que era (e talvez ainda seja) o primeiro patamar de quem quer dar o primeiro passo acima das 125/150cc. O novo modelo enfim chegou, e como não poderia ser diferente, trazendo um pacotão de mudanças, tanto em design, quando em mecânica e ciclística.

Na internet há fotos aos montes - aqui temos algumas - onde as mudanças de design podem ser vistas. Mas e o restante? Como ficou a mecânica da nova "motona"? Para acalmar um pouco a curiosidade fizemos um comparativo (bem limitado) entre as fichas técnicas da recém-nascida CB 300R e a saudosa CBX 250 Twister. Vamos aos números.

	CB 300 R	CBX 250 Twister
Motor	DOHC, 291,6cc, monocilíndrico, 4 tempos, 4 válvulas, arrefecido a ar, com radiador de óleo	DOHC, 249cc, monocilíndrico, 4 tempos, 4 válvulas, arrefecido a ar, com radiador de óleo
Potência Máxima	26,53 cv a 7.500 rpm	24 cv a 8.000 rpm
Torque Máximo	2,81 kgf.m a 6.000 rpm	2,48 kgf.m a 6.000 rpm
Diâmetro x Curso	79,0 x 59,5 mm	73,0 x 59,5 mm
Alimentação	Injeção eletrônica de combustível PGM-FI	Carburador VEA2A, Venturi de 30,1 mm
Relação de Compressão	9,0 : 1	9,3:1
Sistema de Lubrificação	Forçada, por bomba trocoidal	Forçada, por bomba trocoidal
Sistema de Ignição	Eletrônica	Eletrônica
Bateria	12V – 6 Ah	12V – 6 Ah
Farol (Alto/Baixo)	60/55W - lâmpada halógena	35/35W - lâmpada halógena
Sistema de Partida	Elétrica	Elétrica
Capacidade do Tanque	18 litros (3,0 litros de reserva)	16,5 litros (reserva 2,5 litros)
Óleo do Motor	2,0 litros (1,5 litro para troca)	1,8 litros
Transmissão	5 velocidades	6 velocidades
Embreagem	Multidisco em banho de óleo	Multidisco em banho de óleo
Suspensão Dianteira	Garfo telescópico com 130 mm de curso	Garfo telescópico com 130 mm de curso
Suspensão Traseira	Monoamortecida com 105 mm de curso	Monoamortecida com 100 mm de curso
Freio Dianteiro	Disco simples de 276 mm de diâmetro Cáliper de duplo pistão	Disco simples de 276 mm de diâmetro
Freio Traseiro	A tambor com 130 mm de diâmetro	A tambor com 130 mm de diâmetro
Pneu Dianteiro	110/70 – 17M/C 54H (sem câmara)	100/80 - 17 M/C 52S (sem câmara)
Pneu Traseiro	140/70 – 17M/C 66H (sem câmara)	130/70 - 17 M/C 62S (sem câmara)
Chassi	Berço semiduplo	Berço semiduplo
Altura do Assento	781 mm	782 mm
Altura Mínima do Solo	183 mm	162 mm
Dimensões (Comp. x Larg. x Alt.)	2.085 x 745 x 1.040	2.031 x 746 x 1.057 mm
Entre-eixos	1.402 mm	1.369 mm
Peso Seco	143 kg	139,7 kg

Vai aqui MINHA opinião sobre algumas das mudanças. Ela é PESSOAL, portanto pode não refletir o que a maioria pensa sobre elas:

Retrovisores cromados: nada a ver. Não há detalhes cromados na moto, de onde tiraram esse negócio?
Balança traseira em aço: um retrocesso, pq não deixaram a firme e bela balança em alumínio da Twister?
5 marchas: significa uma evolução. Muitos devem achar isso uma heresia, mas saibam que a Twister tem 6 marchas para poder compensar o torque e potência que chegam mais tarde (altos giros), já que seu motor de 4 válvulas privilegia altas rotações e é mais "chocho" em baixas. A injeção e o maior torque da CB 300 permitem o uso de apenas 5 marchas sem prejuízo para a velocidade final e dirigibilidade no cidade. Além disso, convenhamos que é um saco ficar trocando de marcha todo o tempo.
Farol: o da Twister é ruim, o da CB 300 tem quase o dobro da potência e um defletor aprimorado, certamente vai iluminar bem mais.
Escapamento: assim como o retrovisor, não combina com o conjunto. Deveria ser fosco (em tom alumínio) ou preto.
Painel: um primor! Aquele "conta-girão" (o nome certo é tacômetro) analógico no centro é show de bola. O velocímetro digital também é moderno e agradável.

Por enquanto o que dá pra comentar é isso. Vamos esperar chegar na concessionária pra dar uma volta e ter mais impressões.

Té+

2009-05-27T15:35:00.004-03:00

Salve,

Bem, política não é o foco deste blog, mas como cidadão, me sinto na obrigação de divulgar esse belo desabafo do Luiz Carlos Prates.

Pensem nisso.

CB 300R semeando a discórdia.

2009-05-27T08:16:00.021-03:00

Salve,

As vésperas dos lançamentos CB 300R e XRE300 as opiniões sobre as novidades da Honda se dividem. E o que mais se vê é fanatismo, tanto dos "hondeiros" quanto dos "yamaheiros", sobrando pouco espaço pra opiniões desprovidas de paixões.

CB 300R (Fonte: www.motokando.com)

De um lado estão os eternos "do contra" debochando e reclamando, acusando-as de não possuir tecnologia de ponta, de não ter freio a disco traseiro (no caso da CB300), de não ser flex, de ter pouca potência, de não ter isso, de não ter aquilo e assim vai. Isso é chatisse pura! Pode ter certeza que se as motos tivessem tudo isso eles ainda encontrariam outras coisas pra desqualificá-las.

Do outro lado estão os "paga-pau" apaixonados. Dizendo que as motos ficaram "lokas", que são o máximo em design, que serão indestrutíveis, resistindo até mesmo a ataques nucleares, que as venderão com 4 anos de uso e 300.000Km mais caras do que compraram, enfim, nonsense absoluto.

Vamos pontuar algumas coisas, a começar pelo conceito do belo. Algumas belezas são unanimidades, outras dependem unicamente dos olhos de quem vê. A beleza é subjetiva, não dá pra listar o que é preciso pra algo ser bonito. No caso das novas motos, elas impressionam no primeiro momento, dizer se são lindas ou horrorosas ainda é muito cedo, afinal ainda nem as vimos nas ruas, não as vimos rodando, os sentimentos certamente vão mudar muito, podem apostar.

Com relação a qualidade não sejamos hipócritas: motos Honda são sim duráveis e resistentes sim senhor! Não adianta querer provar o contrário. O que se vê de pobres CGs/Titans sendo usinadas, amassadas, raladas, surradas espancadas diariamente pelos motoboys não é mole, e ainda assim as vemos resistir bravamente. E igualmente vemos Yamahas sendo submetidas ao mesmo tratamento "carinhoso" e sobreviver incólumes.

E o desempenho? Bem, nas mesmas categorias (125, 250, 600, etc) nenhum modelo apresenta vantagem ou desvantagem gritante em relação a outro. Não consigo apontar qual é a melhor: CB600 Hornet ou Fazer 600? Twister ou Fazer? Meu, são detalhes que as diferenciam, e nem me venha com esse papo de que a Twister anda mais que a Fazer 250 e que Hornet "dá pau" em Fazer 600. O escambal! Já YBR 125 "despachar" Strada 200, que é considerada uma moto nervosa. Tudo depende: do peso do piloto, do estado da moto, da gasolina. Ah! Antes que eu me esqueça, já vi Fazer 250 que não passa de 130 no velocímetro, alguém explica?

E o mercado, como fica? Bem, dá pra argumentar contra 70% em favor da Honda? Mas esse ponto merece ainda mais uma consideração: quem corre atrás de quem? Pelamordedeus, não estou dizendo que a Honda é tão melhor assim que mereça esse percentual, só que a dona Yamaha é sim acomodada e pronto! Veja a Fazer 250, a Honda teve que voar em céu-de-brigadeiro com a Twister para a Yamaha se mexer. Além do mais, ela tem modelos show de bola lá fora que poderiam muito bem ser vendidos aqui. Que um exemplo? A lindinha FZ16 vendida na Índia, uma 150cc com cara de gente grande, linda. Ah, vão me dizer que não tem mercado, que não venderia por causa do preço, etc. Isso não justifica nada! Quer apostar quanto que essas novas motos da Honda vão vender feito água? E olha que preço (espera-se algo entre 12.000 e 13.000) não será melhor de seus atributos. Agora temos uma faixa entre 300 e 600cc que está completamente livre para exploração, onde temos apenas a vovó Suzuki GS500, uma ótima moto, mas beira a aposentadoria definitiva. Aí vem uma pergunta: cadê uma bicilindrica média? Ninguém tem, porque a (não) tão ousada Yamaha não nos surpreende?

FZ16 (Fazer 150)

Pra encerrrar, quer uma moto pequena e "fodona", pra deixar todo mundo lá pra trás no farol? Compre uma Kawazaki Ninja 250, mas se prepare para o preço. E para de reclamar seu xarope!

Kawazaki Ninja 250 (Baby Ninja)

Trânsito no interior - Parte 1: Os Pedestres

2009-05-26T19:15:00.009-03:00

Salve,

Já faz um tempo que venho notando um aumento da desordem no trânsito na cidade em que moro. Apesar de relativamente bem sinalizada, o número de acidentes cresce em ritmo acelerado, alguns sem maiores consequências, causando apenas uns esfolões, outros nem tanto. Dias atrás, um jovem perdeu a vida ao bater de moto atrás de uma camionete. Um acidente comum? Talvez. Mas poderia ter sido evitado se o jovem não estivesse a uma velocidade estimada entre 80~90 Km/h e se a camionete não trafegasse com as luzes apagadas. O que se passava na cabeça dessas "motoristas"?

Bem os veículos motorizados serão temas de outros posts, hoje quero falar do pedestre. Você deve estar pensando onde um pedestre pode ser imprudente nas ruas, num é mesmo? Simples: não andando nelas!

Na maioria da cidade temos calçadas largas e bem conservadas, mas exceto no centro da cidade, o que mais se vê é pedestre andando na RUA e não na CALÇADA. Eu fico me perguntando porque. Será o gosto por viver perigosamente? Será necessidade de altas doses de adrenalina e sustos? Ou será um cabo com de guerra com os veículos para ver quem pode mais? E pior é que os pedestres aqui são "fodões"! Vão pelas ruas e poucos se preocupam quando com os veículos, eles que desviem ora! Pra que calçada num é mesmo?

Um dia desses eu seguia tranquilo com meu carro em uma via de mão-única, e como eu ía fazer a conversão à direita mantive essa mão, enquanto do meu lado esquerdo outros carros passavam apressadamente, e lá na frente um "xaropão" desses vinha em sua despreocupada caminhada de encontro ao meu carro. Como não tinha pra onde desviar, praticamente tive que parar o carro na frente do imbecil, que se assustou e ainda falou um monte de asneiras pra mim. Além disso, quase fui abalroado pelo carro que vinha logo atrás. Deu vontade de acelerar e atropelar o folgado!

Portando aqui deixo meu protesto aos "transeuntes fodões que se lixam pras calçadas": as ruas foram feitas pros veículos motorizados seus manés! Para o pedestre civilizado tem calçada e faixa, então pra que andar na rua?? Se liga cabeção...

Twister 2009 será CB 300R

2009-05-21T15:19:00.004-03:00

Salve,

Parece que a cortina de fumaça começa a se dissipar. Após a apresentação da nova XRE 300 pelo Jornal da Tarde, o Jornal Estadão divulgou informações e fotos sobre a tão esperada CB 300R (ex-twister). Alguns fragmentos da motoca já eram conhecidos, só que desta vez foi divulgada uma foto da moto inteira. Pode-se dizer que ela é muuuuuito interessante.

Vamos aguardar, o lançamento oficial e até (sic) 31.05.

Abraços.

Fonte: www.motokando.com

CB300, sai ou não sai?

2009-05-14T20:37:00.005-03:00

Salve,

Bem, ontem (13/05) foi anunciado que hoje seria a apresentação das novas Honda CB300 e XRE 300, mas já são quase 21:00hr e até agora nada!

De qualquer forma, eu me cadastrei no tal e-mail para receber em "primeira-mão" essa novidade. Vamos aguardar, pelo menos agora a Honda se pronunciou ao consumidor.

Abraços.

Não perturbe ora!

2009-03-29T00:58:00.002-03:00

A Fundação Procon-SP disponibilizou nesta sexta-feira, 27 de março, canal em seu site para o consumidor se inscrever no Cadastro para Bloqueio do Recebimento de Ligações de Telemarketing, conforme estabelecido pela Lei 13.226/08, regulamentada pelo Decreto Estadual 53.921/08.

O consumidor já pode cadastrar, sem custo, números de telefones fixo ou móvel, do Estado de São Paulo, que estiverem em seu nome. Após 30 dias da inscrição, as empresas ficam proibidas de ligar, a não ser que tenham autorização por escrito (o padrão para essa autorização também está disponível no site). “A legislação fortalece o poder de escolha do consumidor. Quem não deseja receber ofertas de produtos e serviços agora passa a ter a opção de não ser incomodado em seus telefones. Já quem gosta não precisa fazer o cadastro”, salienta o diretor-executivo da Fundação Procon-SP, Roberto Pfeiffer.

As empresas de telemarketing, por sua vez, terão um ícone para se cadastrar e, assim, poder consultar os números dos consumidores que não desejam receber ligações – os demais dados serão mantidos sob sigilo. As empresas de outros estados também ficam proibidas de efetuar ligações para os números bloqueados.

Eu já cadastrei o meu! :)

Fonte: http://www.procon.sp.gov.br/noticia.asp?id=1102

Ranking das Linguagens 2009

2009-03-03T09:13:00.003-03:00

Salve,

Periodicamente a TIOBE Software publica um ranking, uma lista, com a participação (rating) de mercado das linguagens mais usadas. Com relação ao Delphi, meu ganha pão, sua participação permaneceu inalterada entre 2008 e 2009, ocupando a 9º posição. Honestamente, acho uma posição muito boa, tendo em vista toda a nuvem de lambanças da Borland/Codegear/Embarcado/ETC.

Certamente essa posição é mantida pelo legado que o Delphi criou até sua versão 7. Bons tempos aqueles...

A lista pode ser vista nesse link.

Abraços

CG Valente

2009-03-02T00:00:00.007-03:00

Salve,

Não é atoa que a Honda CG 125 conquistou a fama de robustez que tem. Aqui vemos uma valente exemplar deste modelo. Notem o filtro de ar modelo "flanela", além é claro, do moderníssimo tanque modelo "pet". E tem mais: segundo o dono, essa magrela "dá 120". Agora eu pergunto: como ele descobriu isso? Cadê o velocímetro? Só por Jesus mesmo!

Abraços

Redução do IPVA em SP

2009-02-13T20:12:00.003-02:00

O deputado federal Paulo Teixeira, numa ótima iniciativa, está colhendo assinaturas em um abaixo assinado virtual solicitando redução e a isenção temporária do IPVA para os carros populares. As assinaturas serão entregues ao governo paulista em março. Não custa nada assinar, e ainda e quebra podemos (quem sabe) ter uma redução nesse imposto sem vergonha.

Té+ e vamos assinar!

Nova Twister? Que inocência...

2009-02-11T22:58:00.004-02:00

Salve,

Bem, faz um tempão que não escrevo, o que posso dizer é que tive motivos pessoais para isso. Se bem que ninguém sentiu minha falta mesmo. :(

Quero marcar meu retorno ao blog com um pedido de desculpas, quero que me desculpem pela minha inocência. Calma, vou explicar.

No meu último post, isso lá pelos idos de agosto de 2008, afirmei que a "Twister 2009" estava confirmada, com I.E, maior cilindrada, etc, etc....Ledo engano. No fundo, não imaginava que uma publicação de veiculação nacional, com + de 30 anos em circulação (onde tomei conhecimento da nova moto) pudesse fazer uma MONTAGEM e publicar uma matéria infundada como aquela, mas foi exatamente isso o que aconteceu. No final de tudo, a Twister foi descontinuada, assim como a Falcon e a Tornado, e ainda estamos no aguardo na nova moto, que estão dizendo por aí que vai se chamar Kriva, mas isso é assunto pra um post futuro.

Mas posso dizer que aprendi a lição, e a partir de agora não publicarei mais NADA que não tenha uma fonte que eu considere CONFIÁVEL. Assim não pago mais mico.

Abraços e em breve postarei mais contéudo.

Té+

Honda Twister 2009: agora é oficial

2008-08-11T13:48:00.003-03:00

Salve,

Chega de rumores, agora é oficial! Uma importante publicação especializada em motociclismo revelou fotos da nova Honda Twister 2009.

Ao que tudo indica, ela continuará a se chamar Twister, mas as mudanças são, de fato, muitas. O visual é mesmo o que foi mostrado em uma foto aqui no blog, e o motor sofreu MESMO aumento de cilindrada (não revelado, mas certamente 300cc) e injeção eletrônica.

Dessa vez a Honda surpreendeu mesmo, e deve ter pego a concorrência (diga-se Yamaha Fazer 250) de "calça-curta", já que nenhuma mudança foi prevista para o modelo 2009. Quando levantar mais dados eu posto aqui.

Abraços

Dia do Motociclista

2008-07-27T00:36:00.004-03:00

Salve,

Bem, não sei se sabem, mas hoje, 27 de julho é o dia do Motociclista. Dessa forma, parabéns a todos, que como eu, admiram e usam essa maravilhosa máquina, que nos últimos tempos tem sido constantemente marginalizada por aqueles que não conhecem a sua essência, ou talvez, por usarem como referência o motoqueiro e não o motociclista. Você pode se perguntar: "Mas motociclista e motoqueiro não é a mesma coisa?". Pois eu não acho.
Os motoqueiros simplesmente usam a motocicleta, mas não a tem na alma. São os abusadinhos, os exibicionistas, os irresponsáveis, enfim, aqueles que denigrem os verdadeiros amantes das duas rodas. Motociclista é diferente. Usa a moto respeitando as leis de trânsito, não abusa dos limites de velocidade, não coloca em risco a vida, e tem na moto uma amiga, uma cúmplice nos momentos de liberdade e prazer.

Até+

Dafra

2008-07-23T22:24:00.005-03:00

Salve,

Os números de vendas de motocicletas não param de surpreender, tanto pela quantidade, quanto pelos modelos mais vendidos. Abaixo temos o Ranking dos 10 modelos mais vendidos no mês de Junho de 2008 segundo a Abraciclo. Correndo por fora, em primeiríssimo lugar, segue a inabalável Honda 150 Titan, isso não é novidade, a surpresa fica mesmo para o surpreendende 8° posto ocupado pela Dafra Speed 150 (que teve um aumento nas vendas de 30,46% em relação a maio). Ela superou marcas nacionais bem mais antigas no mercado, como a Sundown e a Kasinski. Desta última, o modelo mais vendido (Seta 150) aparece apenas na 29° posição, perdendo até mesmo para o modelo Kansas 150 da Dafra (que teve um aumento de mais de 380% em relação a maio), uma custom, que tem um mercado pouco expressivo no Brasil. Os números:

Honda CG 150 Titan - 42952 unidades;
Honda CG 125 FAN - 33238 unidades;
Honda Biz 125 - 20222 unidades;
Yamaha YBR 125 - 13008 unidades;
Honda NXR 150 Bros - 9116 unidades;
Honda CBX 250 Twister - 8309 unidades;
Honda POP 100 - 8058 unidades;
Dafra SPEED 150 - 6745 unidades;
Yamaha YS 250 Fazer - 3962 unidades;
Sundown Hunter / Max 125 - 3907 unidades;

Isso prova que a Dafra segue firme em seu objetivo de ter 10% do mercado em 2012, e se continuar nesse ritmo isso será moleza. Agora resta saber como vai se comportar o mercado dessa marca daqui a um ou dois anos, quandos suas motoquinhas começarem a envelhecer. Será que elas vão aguentar o tranco?

Abraços.

GP da Alemanha 2008

2008-07-20T11:48:00.003-03:00

Salve,

Após o GP da Alemanha, que marca a segunda metade do campeonato, parece mesmo que a ascensão da Mclaren não é circunstancial, assim como a queda de desempenho da Ferrari, que amarga dois resultados negativos consecutivos. Se esse cenário se manter, Lewis Hamilton leva o caneco com facilidade, mas ainda tem muito asfalto a ser percorrido.

Esse GP destacou o desempenho, tanto alto, quando baixo, de equipes e pilotos:

Lewis Hamilton: absoluto, tem talento e um carro excelente. Vive um momento em que se sente o deus da velocidade, e nessas circunstências é difícil de ser batido;
Felipe Massa: fez o que pode, tentou, mas não havia a menor possibilidade ante o carro prateado. O desempenho do carro era fraco, se fosse um pouco pior poderia até perder o pódio para Heidfeld, mas ainda é forte candidato ao título;
Nelsinho Piquet: guiou com maturidade, usou uma boa estratégia de corrida e ainda contou com a sorte. Parece mesmo ter dado uma guinada no seu destino, já que até alguns GPs atrás falava-se que estava com o dias contados na Renault;
Heidfeld: fez uma excelente corrida, saindo da 11° posição e chegando em 4º. Talvez uma resposta às críticas frente aos constantes "paus" que vem levando do companheiro de equipe, Robert Kubica;
Alonso: falou muito e fez pouco. Fez uma surpreendente classificação no sábado, mas na corrida foi fraco. Rodou sozinho, não foi competitivo e acabou em 11°. Um fato irônico foi ter dito que Nelsinho precisava fazer mais pelos resultados, acabou mordendo a língua;
Kubica: apagado. Com excessão da excelente primeira volta, onde ganhou três posições, teve um desempenho abaixo do que se esperava dele. Parece que a equipe não acertou nos ajustes do carro, mas isso não impediu seu companheiro de equipe de fazer uma excelente corrida. Kubica, alías, depois da vitória do Canadá tem tido um desempenho muito fraco, poderia ainda ser o líder do campeonato, se não tivesse abandonado no GP da Inglaterra;
Kovalainen: fez uma corrida normal, sem momentos brilhantes e nem besteiras. Sempre deixa a impressão que poderia ter ido um pouco além;
Haikkonen: chegou no mesmo lugar onde começou. Teve um bom início de prova, fez uma bela ultrapassagem em Alonso, parecia que se recuperaria, mas foi só.

Bem, agora é acompanhar e torcer, muita coisa ainda pode acontecer. Esse campeonato está um dos mais interessantes do últimos tempos, não resta dúvida, e muuuuita coisa ainda pode acontecer.

Abraços.

Honda Shadow 750

2008-07-17T09:19:00.006-03:00

Salve,

Depois de lançar a nova Hornet, injetada, com uma potência absurda (102cv) e totalmente remodelada, a Honda resolveu (ou foi forçada?) a dar uma "tapa" na Shadow 750.

Com grafismos de encher os olhos e com injeção eletrônica, o modelo 2009 se encontra a venda desde meados de junho, a preço sugerido de R$ 29.900, que na prática (leia-se agência) nunca se confirma, em virtude de frete, seguro, bla, bla, bla.

Uma curiosidade é a pequena diminuição na potência - 45,8 cv no modelo 2008 contra 45,5 no modelo 2009 - em virtude de um catalisador maior, uma consequência do Promot.

Té+

Honda Twister 2009, será?

2008-07-10T13:23:00.007-03:00

Salve,

Muito tem se especulado sobre quais serão as novidades da Honda Twister 2009, se virá com freio a disco traseiro, com injeção eletrônica de combustível, se terá 300cc e por aí vai.
Pra aguçar ainda mais as especulações, nos últimos dias "vazou" na internet uma foto da suposta Twister 2009 (abaixo), e como não poderia deixar de ser, o assunto tem rendido grandes debates nos foruns e blogs relacionados.
Se REALMENTE essa for a nova TW 2009, a Honda então terá dado um grande salto, principalmente no design, que pelo pouco que se vê na foto, fará a Tw parecer muito a nova Hornet, comprovando uma tendência de design, que remete a robustez e linhas angulosas. Mas e com relação à mecânica, o que se pode esperar?
A primeira pergunta que se faz é se ela virá com I.E. Muitos dizem que ela será necessária para diminuir a emissão de poluentes, que a partir de 2009 fica bem mais rigorosa com a fase 3 do PROMOT, mas isso por sí só não é motivo para a I.E, já que outras medidas tecnologicas podem ser tomadas visando essa diminuição. Provavelmente será injetada sim, não somente em virtude da emissão de poluentes, mas também por uma questão de mercado, já que a principal (e única) concorrente, a Yamaha Fazer, usa essa tecnologia desde 2005, e essa tem sido uma cobrança constante dos consumidores.
E o preço? Vai aumentar? Depende! Se as mudanças forem apenas de design e inclusão da I.E, mantendo o motor em 250cc, não deverá haver mudança radical de preço, apenas ajuste de tabela, já que a moto continua no mesmo nicho de mercado. Agora, se realmente o motor sofrer um upgrade de cilindrada, aí sim certamente haverá mudança de preço, e neste caso é bem provável que ocorra o mesmo que em 2001, onde a TW não foi a "CBX Strada modelo 2001", mas um modelo totalmente novo. Assim, se ocorrer o aumento da cilindrada essa então não será a TW 2009, mas uma nova moto.

Agora basta esperar, em meados novembro as fábricas mostrarão seus novos modelos, inclusive muito se especula também sobre a "nova" Yamaha Fazer 2009, já que a montadora não poderá ficar imóvel nesse movimento de mercado. E quem ganha com isso tudo? Nós consumidores!

Abraços

Preview Personalizado com Quick Report

2008-07-08T10:26:00.004-03:00

Salve,

Muitos não gostam dele, mas ainda acho que o QuickReport é um dos mais práticos (não disse um dos melhores) geradores de relatório para Delphi. Não precisa de nenhuma configuração especial, é levinho, funcional, e é por isso que eu ainda o utilizo ostensivamente em meus sistemas.

Pensando nos desenvolvedores que como eu usam o QReport, revolvi publicar o código e formulário de um Preview Personalizado que desenvolvi, que inclui algumas funcionalidades interessantes, como a possibilidade de se exportar o relatório para um arquivo CSV, que pode ser aberto DIRETAMENTE em planilhas eletrônicas sem a necessidades de codificações mirabolantes, e de ser totalmente em português, que ajuda muito aos usuários "monoglotas" :)

A primeira providência a se tomar é a atualização do QReport para a versão 3.5, pois a que acompanha o Delphi não é a versão mais atual do pacote, e por isso não inclui o componente QRPreview, fundamental nesse exemplo. As atualizações podem se baixadas no seguintes links: D5, D6 e D7. Após baixar o arquivo basta instalá-lo normalmente, o instalador atualizará o Delphi, não precisa se preocupar em reconfigurar nada.

Depois de instalada a atualização já pode executar a aplicação de exemplo (Delphi 7), que inclui um form com um ClientDataSet, um QuickReport e o formulário do Preview, além é claro, dos códigos utilizados na exibição do mesmo. Chamo a a atenção para o evento OnPreview do QuickReport, pois é onde reside a codificação que exibe o preview.

Importante: é necessário adicionar a Unit QRPrntr na unit do relatório.

Até +

Kubica obtém sua primeira vitória

2008-06-08T16:02:00.005-03:00

Se alguém quiser saber sobre o futuro é só consultar esse blog. :) Estou montando uma "consultoria futurológica"! Quem não entendeu, basta ler o post anterior, publicado antes da corrida.

Parabéns a Robert Kubica, pela consistência e competência. Agradecimentos especiais a Lewis Hamilton, pela lambança histórica.
Com esse resultado, o polonês saiu do GP do Canadá com sua primeira vitória e a liderança do campeonato, enquanto a BMW Sauber também conseguiu sua primeira vitória na F1. Nick Heidfeld chegando em 2º completou festa.

Grid de chegada:

Fonte: www.grandepremio.com.br

Até +

Kubica

2008-06-08T10:14:00.004-03:00

Salve,

Este é o primeiro post que escrevo sobre F1, um esporte que gosto muito. Aliás, gosto de tudo que é ligado a velocidade.

No último ano vários pilotos debutaram na categoria máxima do automobilismo, gerando assim a chamada "F1 da nova geração". Heikki Kovalainen, Lewis Hamilton, Sebastian Vettel, foram alguns dos que estrearam, mas teve um que passou meio despercebido, sem muita badalação ou especulações, um polônes magrelo e desajeitado, Robert Kubica.

Na verdade, Kubica iniciou oficialmente no meio da temporada 2006, substituindo Jacques Villenueve, e de cara foi o oitavo colocado. Na mesma temporada ainda subiria ao pódio no GP da Itália. Surpreendente.

Kubica em sua BMW Sauber

Em 2007, em partes, não atendeu as espectativas, que se justica por uma adaptação ao carro. Seu companheiro de equipe sempre levou a melhor, mas o "moleque" estava aprendendo e a coisa mudou.

Nessa temporada ele ocupa o 4º lugar no mundial e tem uma pole conquistada no GP do Bahrein, realmente é surpreendente. O que mais me agrada nele é o fato de ele não ser um piloto fabricado, ele é um piloto nato, rápido, uma pessoa simples e tímida, diferente da maioria dos pilotos, que costumam ser "topetudos", se achando a última bolacha do pacote.

Estou ansioso pelo GP do Canada, onde ele sai na primeira fila, ao lado de Lewis Hamilton, onde quem sabe o inglês sortudo (Ah, não é sortudo? Lembre-se: na primeira temporada com o melhor carro, ao lado de um dos melhores polotos, queridinho da equipe e lapidado por ela) não quebre e ele consiga sua primeira vitória. Vou torcer, pois o polonês desengonçado já merece.

Até

Erro ao instanciar SqlDataReader

2008-06-06T20:49:00.005-03:00

Salve,

Faz algum tempo que venho ensaiando ASP.NET (usando C#, obvio), mas esta semana mergulhei mesmo nesse negócio.
Na que na empresa em que trabalho está se cogitando a mudança de tecnologia - na verdade os Analistas estão querendo, já que para a empresa isso é indiferente, o que vale é o resultado - e nosso supervisor sugeriu que nós desenvolvessemos algo real, para que tenhamos argumentos para convencer nosso gerente (sic). Tem alguma coisa na contra-mão, não tem não? Mas deixa isso pra lá.

Pois bem, comecei do básico, e nesse caso o básico é o acesso e a manipulação de dados no SQL Server 2000, e aí veio aquele monte de dúvidas, sobre qual arquitetura usar, sobre qual meio de acesso usar (o ADO.NET oferece vários) , sendo que para a solução que eu precisava achei que o SqlDataReader seria interessante, já que eu precisava apenas recuperar um registro, e ele é bem levinho e simples. Porém chegou um momento, onde o eu recebia uma mensagem muito impertinente, que me avisava que eu já tinha um DataReader aberto, mas eu não tinha, ou melhor eu tinha, mas eram SqlDataReader diferentes! Porque então recebia a mensagem? Simples: eu estou usando o pattern Singleton para me retornar um objeto SqlConnection, ou seja, uma mesma conexão para os dois e eu NÃO POSSO ter dois SqlDataReader abertos ao mesmo tempo em uma mesma conexão. Mas como irritou aquela mensagem! :)

Esse é um problema comum de quando estamos aprendendo uma nova tecnologia, mas está sendo muito bacana essa nova "empreitada".

Abraços e até+

Zeos

2008-05-20T16:27:00.004-03:00

Salve,

Nas aplicações que desenvolvo sempre usei o Firebird, principalmente a versão 1.5, mas agora que a versão 2.0 (estou usando a 2.0.3) já está bem madura e consistente, decidi que é hora de migrar algumas aplicações já existentes e começar a usá-la nos novos produtos.

A primeira dúvida foi qual driver de acesso usar. Nas outras versões do FB, sempre usei DBExpress com Driver UIB (Unified Interbase), mas ele mudou muito, deixou de ser apenas um Driver e passou a ser um pacote de componentes, aí desanimei. Não sou fã desse negócio de configurar isso, compilar aquilo, sou simplista e ponto! Ainda mais porque uso o UserControl para controle de acesso, o que me faz pensar muito na ora de mudanças profundas.

Não precisei perquisar quase nada pra encontrar boas referências aos Zeos, que é usado principalmente pra acessar o PostgreSQL, decidi então testá-lo, e que maravilha! Ele só tem me trazido alegrias.

Primeiro, é fácil de instalar, bastou compilar os DPK's e pronto. Segundo, é facílimo de configurar e utilizar, principalmente em rede! Que tranquilidade. Como uso ClientDataSet, bastou trocar o SQLConnection do DBExpress pelo ZConnection do Zeos, configurar algumas propriedades e estabelecer a conexão com o FB 2.0.

Componentes da Palete Zeos Access

No entanto, ainda acho cedo pra aclamá-lo, vou fazer mais testes e postar os resultados aqui. Provavelmente, vou desenvolver uma "aplicaçãozinha" de exemplo.

Até+

Eu não morri!

2008-05-08T12:46:00.004-03:00

Salve,

Pra aqueles que já acendiam velas, sinto decepcioná-los, mas não morri! Estou passando por um momento de muita correria, e está difícil postar qualquer coisa.

Mas, como agora vou tirar uns dias de férias (nem acredito ainda), revolvi dar o ar da graça, não pra falar de Delphi e programação, mas pra tecer alguns comentários sobre o 6º Barretos Motorcycles, que aconteceu no último final de semana (1 a 4 de maio).

Como era previsto, o evento cresceu em relação à última edição. Nos 4 dias de evento, passaram pelo Parque do Peão aproximadamente 80.000 pessoas, uma marca impressionante para um evento motociclístico realizado no interior.

A organização foi muito boa, sem a aqueles patetas barulhentos roncando prá lá e prá cá, acabando com nossos ouvidos. Os eventos foram pontuais e superaram as expectativas, mesmo com São Pedro não ajudando muito, pois no segundo dia de evento só choveu.

A parte ruim é que essa organização custa caro: R$ 10,00 no primeiro e último dia, e R$ 15,00 na sexta e no sábado, fora o estacionamento, que custava R$ 10,00. Pra quem fizesse a inscrição com suas motos, o preço era menor, mas tinha que pagar. Acho que poderiam ter feito o negócio mais "popular". Mas valeu a pena.

Pra encerrar, fica uma foto de uma manobra feita pela equipe Jorge Negretti, fantásticos!

Até mais.

Habilitando e desabilitando Triggers no SQL Server via T-SQL

2008-01-30T17:12:00.000-02:00

Essa é uma "diquinha" bem simples, de um recurso que nem todos que lidam com o SQL Server conhecem. Através do Transact SQL (T-SQL) é possível habilitar e desabilitar triggers, sem a necessidade de excluí-las ou comentá-las (como a maiores do pessoal faz). A sintaxe é bem simples:

alter table nome_tabela
[disable, enable] trigger nome_trigger

Exemplo
Suponha que se tenha a tabela tab_venda, e nela uma trigger chamada trg_atualiza_limite_cliente. Para desabilitar essa trigger, a linha SQL ficaria como a seguir:

alter table tab_venda
disable trigger trg_atualiza_limite_cliente

Para habiltá-la novamente, substitua disable por enable. Simples não?

Até +

Exportando tabelas do MS Access para Excel ou HTML usando ADO

2008-01-26T14:40:00.001-02:00

Salve pessoal,

Um recurso bem interessante porém pouco conhecido sobre o ADO, é que ele permite através do JET (mecanismo usado para acessar bancos de dados Access) a possibilidade de exportação direta para planilhas do Excel (XLS) e arquivos HTML. Pensando nisso, revolvi postar um exemplo de como se fazer isso em Delphi, vamos lá!

Primeiramente, criamos um formulário com os elementos mostrados abaixo:

Temos aí:

3 Tbitbtn: btnAbrir, btnExportaXLS e btnExportaHTM;
1 TListbox: listTabelas, que seá usado para exibir as tabelas presentes no database;
1 TADOConnection: conAccess, responsável por estabelecer a conexão com o database;
1 TOpenDialog: openDialog, que será usado para selecionar o banco de dados a ser usado;

Codificação

Declare uma função na sessão private da unit, com o seguinte header:

function TabelasADO(ADOConnection: TADOConnection):TStringList;

Seu corpo deve ficar como abaixo:

function TfrmExemplo.TabelasADO(ADOConnection: TADOConnection): TStringList;
var ADODataSet: TADODataSet; Tabelas: TStringList;
begin
Tabelas := TStringList.Create;
ADODataSet := TADODataSet.Create(nil);
ADODataSet.Connection := ADOConnection;
ADOConnection.OpenSchema(siTables, EmptyParam, EmptyParam, ADODataSet);

//Filtra somente as tabelas
ADODataSet.Filter := adicionaFiltro(ADODataSet.Filter, '(TABLE_TYPE = ''TABLE'')');
ADODataSet.Filtered := True;

with ADODataSet do
begin
First;
while not EOF do
begin
Tabelas.Add(FieldByName('TABLE_NAME').AsString);
Next;
end;
end;

ADODataSet.Free;
Result := Tabelas;
end;

Precisaremos também de outra função:

function adicionaFiltro(string1, string2: string): string;

Com o código listado abaixo:

function TfrmExemplo.adicionaFiltro(string1, string2: string): string;
begin
if string1 <> '' then
Result := string1 + ' or ' + string2
else
Result := string2;
end;

O evento onClick do botão btnAbrir fica como a seguir:

procedure TfrmExemplo.btnAbrirClick(Sender: TObject);
var stringConexao: string;
begin
stringConexao := EmptyStr;

if openDialog.Execute then
begin
stringConexao := Format('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Persist Security Info=False',[openDialog.FileName]);
conAccess.ConnectionString := stringConexao;
conAccess.Connected := True;
listTabelas.Items := TabelasADO(conAccess);
end;
end;

Por fim, o evento onClick do botão btnExportaXLS, que também é compartilhado com o botão btnExportaHTM, reaproveitando código:

procedure TfrmExemplo.btnExportaXLSClick(Sender: TObject);
var nomeTabela, instrucaoSQL: string;
begin

nomeTabela := listTabelas.Items[listTabelas.ItemIndex];

if Sender = btnExportaXLS then
instrucaoSQL := 'select * into ' + nomeTabela + ' in "c:\doctemp\' + nomeTabela + 'FromAccess.xls" "Excel 8.0;" from ' + nomeTabela
else
instrucaoSQL := 'select * into [' + nomeTabela + '.htm] in "c:\doctemp" "HTML Export;" from ' + nomeTabela;

try
conAccess.Execute(instrucaoSQL);
MessageDlg('A tabela ' + nomeTabela + 'foi exportada com sucesso para o formato selecionado!', mtInformation, [mbOk], 0);
except
MessageDlg('Não foi possível exportar a tabela "' + nomeTabela + '"', mtError, [mbOK], 0);
end;

end;

Algumas consideração a fazer: meu formulário se chama frmExemplo; eu possuo uma pasta chamada "doctemp" em minha máquina, que é para onde eu exporto meus arquivos, uso isso no código e é provável que precisem modificar isso.

Bem, quem estiver precisando, pode fazer o teste e, em caso de dúvidas sobre algum trecho do código, é só comentar.

Abraços e até a próxima.

Comentários

2008-01-23T23:36:00.000-02:00

Quando iniciei este blog nunca tive a pretenção de torná-lo um "hit" na blogosfera, e por isso mesmo estou surpreso com o número de acessos que ele tem tido nos últimos meses. Uma de minhas preocupações sempre foi a de publicar tópicos para os quais eu não encontrava nada relacionado na net, afinal, tem alguns assuntos que já são "arroz de festa", ou seja, e vê em tudo o que é site, e ficar falando sobre eles é no mínimo redundante. Parece que a receita deu certo, já que os tópicos aqui publicados estão sendo bastante acessados.

Para se ter uma idéia mais precisa sobre o público que visita o blog, gostaria de pedir um favor a todos que se utilizarem dos tópicos aqui relacionados: comentários! Isso mesmo, comentários!

Sempre que fizerem uma visita, deixem um comentário, com o nome, o que faz e o que achou do tópico, assim posso direcionar, aumentar e melhorar o nível das postagens.

Desde já um abraço a todos e obrigado pela visita, voltem sempre!

Mobilidade

2007-12-29T17:20:00.001-02:00

Salvem,

Depois de uma longa ausência, eis-me aqui novamente; o que não é grande coisa. Não sei se isso interessa a alguém, mas agora entrei na era da mobilidade, adquiri meu primeiro notebook!

Ele não é "aquele" notebook, mas é uma maquininha de respeito: Dell Vostro 1000, processador AMD Turion 64 x2, 1 GB de RAM, HD de 120 GB, Wireless, gravador de DVD; dá pra brincar sem passar raiva.

Aqui vai uma fotinha dele tirada com o celular, ainda com os plásticos de fábrica, que por sinal, me conhecendo como conheço, sei que vão ficar alí por um bom tempo!

Até mais!

Update usando Case

2007-11-25T14:52:00.002-02:00

Dias atrás um colega meu de trabalho precisava realizar um UPDATE condicional, ou seja, atualizar o campo em função de outro campo. Ele logo disparou: "Dá pra usar CASE em UPDATE?".

Ficamos naquela, dá, não dá? Procuramos na net, fizemos um teste e vimos que era mesmo possível fazer isso. Confesso que nunca tinha usado isso, mas a instrução funciona que é uma beleza.

Pra mostrar como ficou a solução, vamos fazer um exemplo. Imagine que temos uma tabela de preços e precisamos ajustá-la da conforme abaixo

Produtos com preço até R$ 100 sofrem reajuste de 5%;
Produtos com preço de R$ 101 a R$ 500 sofrem reajuste de 3%;
Produtos com preço acima de R$ 500 sofrem reajusto de 1,5%;

A intrução ficaria parecida como abaixo:

update tab_preco
set preco =
case
when preco <= 100 preco * 1.05
when preco > 100 and preco <= 500 then preco * 1.03 when preco > 500 then preco * 1.015
end

Como se vê, é muito simples e extremamente funcional. Poderia ter sido usado o valor de outro campo para a condição. Exemplo:

update tab_preco
set preco =
case grupo
when 'LIMPEZA' then preco * 1.05
when 'ALIMENTACAO' then preco * 1.1
when 'VESTUARIO' then preco * 1.05
else preco * 1.02
end

Até +

Máscara em Campos Agregados - Alternativa

2007-11-22T18:19:00.000-02:00

Salve,

Não me lembro de ter feito isso antes, e hoje precisei colocar máscara (DisplayFormat) em um campo Agregado (TAggregate) de um ClientDataSet, e não sei por que cargas d'água não consegui. O negócio simplesmente não funciona de jeito nenhum! Tentei várias máscaras, mudei propriedades, mas nada.

Como estava com pressa, não "googlei" muito, e acabei resolvendo o problema de forma caseira. A solução foi implementar o evento OnGetText do campo agregado e depois compartilhar o evento entre os agregados. Ficou assim:

procedure TfrmMeuFormulario.cdsExemplototal_pesoGetText(Sender: TField; var Text: String; DisplayText: Boolean);
begin
//Outras mascaras podem ser usadas
Text := FormatFloat('#,##0', Sender.Value);
end;

Aliás, quem tiver a solução definitiva para esse problema podem apresentar à vontade, pois eu também gostaria de saber.

Versões mais usadas de Delphi

2007-09-26T09:57:00.000-03:00

Salve Pessoal,

Há alguns dias estava no ar no meu blog uma enquete sobre a versão mais utilizada do Delphi, que foi submetida à votação de desenvolvedores de todo o país, que participam de comunidades e foruns relacionados ao Delphi. O resultado está a seguir, e confesso que não fiquei surpreso.
Abraços.


Versão     Utilização
Delphi 7       57,35%
Delphi 2006    16,18%
Delphi 5/6      8,82%
Delphi 2007     7,35%
Outra versão    5,88%
Delphi 2005     4,41%

Criptografia sem frescura

2007-09-08T16:28:00.001-03:00

Hoje precisei criptografar uma string, nada muito sofisticado, apenas não deixar que ela ficasse totalmente exposta na tabela do banco de dados. Dei uma procurada na WEB e encontrei várias soluções, mas a que usei foi uma que encontrei no site Planeta Delphi, enviada pelo colega Roberto Oliveira, que me atraiu pela simplicidade de uso, sem frescura, mas com total funcionalidade. Abraço a todos e segue abaixo a função.

function Criptografar(wStri: String): String;
var Simbolos: array [0..4] of String;
x : Integer;
begin

Simbolos[1]:= 'ABCDEFGHIJLMNOPQRSTUVXZYWK ~!@#$%^&*()\';
Simbolos[2]:= 'ÂÀ©Øû×ƒçêùÿ5Üø£úñÑªº¿®¬¼ëèïÙýÄÅÉæÆôöò»Á';
Simbolos[3]:='abcdefghijlmnopqrstuvxzywk1234567890';
Simbolos[4]:='áâäàåíóÇüé¾¶§÷ÎÏ-+ÌÓß¸°¨·¹³²Õµþîì¡«½';

for x := 1 to Length(Trim(wStri)) do
begin
if pos(Copy(wStri,x,1),Simbolos[1]) > 0 then
Result := Result + Copy(Simbolos[2],Pos(copy(wStri,x,1),Simbolos[1]),1)
else if Pos(Copy(wStri,x,1),Simbolos[2]) > 0 then
Result := Result + Copy(Simbolos[1],Pos(copy(wStri,x,1),Simbolos[2]),1)
else if Pos(Copy(wStri,x,1),Simbolos[3]) > 0 then
Result := Result + Copy(Simbolos[4],Pos(copy(wStri,x,1),Simbolos[3]),1)
else if Pos(Copy(wStri,x,1),Simbolos[4]) > 0 then
Result := Result + Copy(Simbolos[3],Pos(copy(wStri,x,1),Simbolos[4]),1);
end;
end;

Abraços

Tim WEB

2007-09-06T23:02:00.000-03:00

Como já comentei, recentemente contratei um pacote do plano TIM WEB, que permite acesso móvel à internet em qualquer área coberta pela Tim.
Já fazia um tempo que buscava um opção viável, principalmente no aspecto econômico, de poder acessar a WEB da minha propriedade rural, que fica a no interior paulista, mais precisamente em Barretos, a 30 Km da cidade, onde não há telefonia cabeada e que fica fora de alcance de Internet via rádio.

Minha propriedade não fica em um local muito alto, e ainda possui muitas árvores em torno, o que causa uma forte atenuação de sinais de radiofrequência, mas que não impede que sinais de telefonia celular cheguem até lá, e foi justamente isso que me deixou "na pilha" quando eu soube desse plano, me fazendo adquirí-lo as cegas e as pressas, já que segundo informação da loja credenciada Tim, apenas 2 modens vieram no primeiro "lote", o que fez com que eu fosse a cobaia desse serviço em minha cidade.
A Tim oferece 3 pacotes no plano WEB: um de 40MB de tráfego, com mensalidade de R$ 9,90 e modem por R$ 399, um de 250MB, com mensalidade de R$ 19,90 e modem por R$ 199 (o que optei), e o último, que permite até 1GB de tráfego, com mensalidade nos 6 primeiros meses de R$ 49,90 e modem grátis.

Por falar em modem, há 2 opções, mas sem escolha para o usuário, dependendo da região e do lote; um da brasileira Telsec e outro da chinesa Huawei. No meu caso fui "sorteado" com o da empresa chinesa, e como não tinha escolha, nem levei isso em consideração, mesmo não tendo encontrado boas indicações de seus usuários, mas confesso que ou tive sorte mesmo ou o aparelhinho é bom, pois até agora não tive problemas. A instalação foi tranquila, e já fiz isso em 3 máquinas, eu navego e faço downloads a boas taxas, na casa de 4-6 KB/s, mesmo com um sinal fraquinho, taxa que até supera a do acesso discado.

Estatísticas e velocidade da conexão do plano TIM WEB

Portanto, pra encerrar vamos a uma resumo:

Plano/Valor: 250MB / R$19,90 mensais;
Modem: Huawei e220;
Velocidade: 4-6 KB/s;
Intensidade do sinal: fraca;
Local: difícil acesso;
Grau de satisfação (nessas condições): muito satisfeito!

Até a próxima!

Enquete

2007-08-31T10:30:00.000-03:00

Essa semana me perguntaram: "qual é a versão mais usada do Delphi? " Honestamente, não tive resposta, já que o que possuía eram apenas respostas aleatórias de um e outro colega. Pensando nisso e aproveitando esse novo recurso do Blogger, decidi montar uma enquete para que a comunidade possa responder a essa pergunta, e assim também servir de amostra para o que acontece no mercado. Um abraço e obrigado a todos que responderem.

Internet Móvel

2007-08-30T23:09:00.000-03:00

Já fazia um tempão que eu não postava nada aqui no blog, e não era por falta de motivação ou de assunto, mas sim, por falta de oportunidade. É que desde março que sou um "sem teto", pois estou reformando minha casa e estou ficando na sítio do meu pai, e lá, internet nem pensar. Do trabalho não achava legal postar, por vários motivos: tempo, privacidade e até mesmo ética, afinal não sou pago pra escrever blogar.

Pra minha sorte a TIM lançou um novo serviço chamado TIM WEB, que permite se conectar à internet em qualquer local onde haja cobertura dessa operadora. A conexão se dá através de um modem USB, e pode ser conectado em desktops e notebooks de maneira muito simples.

No meu próximo post comentarei sobre o serviço, os preços, a velocidade e como estou usando essa tecnologia. Até lá!

Brasil só ganha da Colômbia em uso da internet na América Latina

2007-07-27T17:23:00.001-03:00

O Brasil lidera na América Latina em número de usuários da Internet, mas só supera a Colômbia em penetração, ou seja, na relação entre a quantidade de pessoas que freqüentam a web e a população total do país.

Alguns números de junho de 2007:

15,8 milhões de brasileiros visitaram pelo menos uma página da Internet neste período;
Isso representam 11% da população do Brasil. Enquanto no Chile esse número foi de 45%, na Argentina, 24%, no México, 14%, e, na Colômbia (a pior colocada), 9%;
32 horas por mês, esse é o tempo médio que o brasileiro navega, acima da média mundial que é de 25 horas/mês;
O brasileiros visitam em média 3371 páginas/mês, 44% a mais que a média da América Latina e 33 acima da média mundial;
O Brasil aprensentou 18 mi de usuários ativos de Internet, ou seja, que acessaram regularmente nos últimos 30 dias;

A expansão no Brasil deve ser impulsionada pelo aumento na venda de computadores, estimulada pela redução do preço após corte de impostos.

Os dados foram levantados pela empresa comScore, uma das mais respeitadas no setor de pesquisas do mundo digital, sendo que essa é a primeira vez em que ela faz um levantamento sobre o uso de internet na América Latina.

Fonte Folha de S.Paulo

Velório Virtual

2007-07-17T08:29:00.000-03:00

Muitas vezes ouvimos dizer que a Internet está na infância em se tratando de aplicações disponíveis, o que significa que ainda há muito que a se explorar de suas possibilidades de uso. Dias atrás tive certeza disso, pois, em São José dos Campos a empresa organizadora municipal Urbam está transmitindo velórios em tempo real, via Internet.
Num primeiro momento pode até parecer mórbido, mas de fato não é. Pode acontecer de perdermos subitamente pessoas queridas e não termos condições de ir pessoalmente até o velório, por causa de uma viagem, por exemplo. Neste caso, o "Velório Virtual" pode ser uma alternativa para uma último adeus.

No mínimo, triste....

2007-06-29T17:13:00.000-03:00

Hoje de manhã, na consulta matinal a minha Caixa de Entrada, para minha surpresa recebi a notícia que o site jornalístico No Minimo estava sendo descontinuado. Corri para acessar o site para ver se era verdade e, de fato, o site estava sendo fechado, e o motivo: falta de interesse de patrocinadores.
É uma pena, uma pena mesmo, não só porque o conteúdo do site era ótimo, com excelentes colunistas, que usavam de criatividade e bom humor para tratar dos mais diversos assuntos, mas também, por ver que em nosso belo país, conteúdo não desperta interesse, enquanto banalidades e assuntos sem valor arrastam centenas de anunciantes para sites que nada acrescentam.
Fica aqui nosso agradecimento a equipe do site No Minimo e o desejo de que tenham sucesso em suas novas empreitadas.

De mãozinhas dadas

2007-06-22T20:24:00.000-03:00

Salve,

Acharam que eu tinha abandonado esse blog né? Estavam enganados! Pra alegria geral (acho que só minha) estou de volta.

Quero retomar meus posts comentando, para quem ainda não sabe, a parceria firmada no dia 1 de maio entre o projeto Ubuntu Linux, mantido pelo Canonical, e a Dell computadores. Como devem saber, a Dell é uma gigante mundial em venda direta de computadores, e o projeto Ubuntu é uma ousada iniciativa de distribuição gratuíta, em nível mundial, do sistema operacional do pinguim, que envia CD's diretamente a quem solicitar.

Em minha humilde opinião, a Microsoft deveria olhar atentamente para essa parceria, pois o Ubuntu Linux é uma distribuição fantástica. Leve, bonita, intuitiva, que pode até mesmo ser executada sem instalação, e que agora, com essa parceria, certamente vai ganhar visibilidade e muitos usuários. Você pode estar perguntando: quem ganha com isso? A Dell? Que poderá vender seus computadores com preço mais acessível ainda? O Ubuntu Linux? Que agora pode ganhar mercado e deixar de ser um projeto "filantrópico"?

Certamente que as duas ganharão com a parceria, no entanto, mais alguém pode sair ganhando: o usuário de computador, que poderá agora experimentar um SO alternativo veloz, eficiente, seguro e que, o melhor de tudo, não custa nada

Férias

2007-04-21T12:04:00.000-03:00

No período de 23 de abril a 13 de maio estarei de férias, por isso escreverei menos (isso é possível?) :)
Vai ser um período de descanso e reciclagem. Espero voltar com novidades.
Té+

Semana de Informática da ETE Cel Raphael Brandão

2007-04-21T11:57:00.001-03:00

Acontece de 23 a 26 de abril a Semana de Informática da ETE Cel Raphael Brandão, onde serão realizadas palestras dos mais diversos temas relacionados a informática, desde de o seu uso na educação, até as modernas linguagens de desenvolvimento. Quem tiver oportunidade, visite. Maiores informações: www.etebarretos.com.br

IV Barretos Motorcycles

2007-04-13T17:51:00.001-03:00

Para quem, como eu, passa grande parte do tempo sobre duas rodas, seja a trabalho, seja a lazer, acontece em Barretos de 27 a 29 de abril o IV Barretos Motorcyles. Atualmente já é considerado o segundo maior encontro de motociclistas do país. Sintam-se convidados.

Será que já não vi esse filme?

2007-04-10T21:35:00.001-03:00

Hoje, em uma lista de discussão sobre Delphi onde participam alguns funcionários da CodeGear, perguntei sobre o futuro dos Turbos, a sua linha de ferramentas populares e, como já imaginava, a resposta que tive não foi das mais animadoras, pois fiquei sabendo de que eles só serão atualizados depois do lançamento do BDS 2007 (codinome Highlander).
No fundo compreendo que a CodeGear tenha um interesse maior em seu "top de linha", pois, pra se ter uma idéia, o BDS 2006 Professional (D2006, C++Builder 2006 + C# Builder 2006) para novos usuários (a versão mais barata) custa hoje, em promoção, R$ 2.452,50, enquanto que qualquer um dos Turbos sai por R$ 1.200,00, ou seja, metade do preço. Será que já não vimos esse filme com o Kylix (alguém se lembra dele)?
Honestamente, acho que a CodeGear deveria focar mais nessa linha, afinal, quantos de nós desenvolvemos comercialmente em mais de uma linguagem? Eu pessoalmente, uso o Delphi e comecei agora a "brincar" com o C#, então pra quê eu quero Delphi, C++ e C# no mesmo pacote?
Tudo bem, se o preço fosse acessível como o do Visual Studio, que custa entre R$ 1.200,00 e R$ 1.700,00 e vem com IDE para C# e VB.NET. E com todo respeito a CodeGear, o VS dá um banho em termos de produtividade.

Cursos OnLine Gratuítos

2007-04-02T16:16:00.001-03:00

O Next Generation é um site de atualização on-line, que oferece cursos gratuitos pela Internet. Os cursos são modulares e com certificado de conclusão, muito bom para você se manter atualizado .

Vale a pena conferir

Operador Ternário em C#

2007-03-30T08:24:00.001-03:00

Como já comentei, comecei minha aventura rumo ao badalado C#. Apesar de já ter lido uma coisa ou outra sobre ele e de conhecer a base da programação orientada a objetos, preferi partir do zero, estudando o seu "core", ou seja, seus comandos básicos e suas sintaxes. Também estou procurando me livrar dos vícios de programador orientado a ambientes RAD, não que não se possa programar orientado a eventos em C#, mas se fizer isso, não se pode usufruir de todos os benefícios da POO.
O primeiro recurso diferente que encontrei foi o operador ternário. Para quem já usou o MS Excel, o operador ternário pode ser comparado à função "SE", onde em uma única instrução podemos escolher entre dois valores. A sintaxe do operador ternário é:

condicao ? valor_se_verdadeiro : valor_se_falso

Abaixo eu mostro um exemplo; nele declaro 3 variáveis A, B e C. A e B recebem valores quaisquer, enquanto C vai receber o maior valor entre A e B.

Para os valores sugeridos no exemplo o resultado será:

Neste exemplo usei o Turbo C# da Code Gear, uma excelente ferramenta.

Abraços.

Yahoo lançará e-mail ilimitado

2007-03-29T12:21:00.000-03:00

A partir de Maio, o Yahoo Mail, que hoje oferece 1 GB de espaço por conta, passará a oferecer gradativamente a seus usuários espaço ilimitado. Com isso, o Yahoo Mail ultrapassará o GMail (Google), que lançou seu serviço há alguns anos com capacidade inicial de 1 GB e teve sua capacidade expandida a 2,8 GB.

A novidade foi divulgada por John Kremer, vice-presidente do Yahoo Mail, em post no blog Yodel Anecdotal.

Resta saber agora como será a reação dos concorrentes, mas uma coisa é certa: com essa "briga", quem certamente sairá ganhando serão os usuários.

Até +

Quanto cobrar pelo seu sistema?

2007-03-22T16:00:00.001-03:00

Hoje, em uma das listas de discussão que assino, ocorreu um debate ferrenho sobre quanto e como cobrar por um sistema. Lá eu vi de tudo; há quem cobre por hora, por licença, por módulo, por pacote, etc.

O preço depende, é claro, da complexidade do sistema, mas discrepância é que não faltou, sendo que uns cobram R$100,00 por sistema e R$ 0,00 de manutenção (acreditam nisso?), outros cobram R$1.000,00 de implantação mais R$ 150,00 por licença mensalmente, o que é um valor no mínimo razoável. Há aqueles que cobram exageros, que acho melhor nem comentar.

Um texto muito bom, publicado pelo colega José Carlos Macoratti, pode ser lido aqui. Neste texto ele faz uma explanação séria e muito coerente sobre tema, vale a pena ler.

TADOQuery trabalhando com dados em cache

2007-03-21T12:08:00.001-03:00

Esse é um recurso do TADOQuery pouco conhecido, mas bastante útil. Assim como já se fazia nos tempos do TQuery + TUpdateSQL, onde os dados ficavam no cache local é só eram enviados para o banco através do método ApplyUpdates, o TADOQuery também pode manter os dados localmente e só enviar os dados ao banco no momento desejado e não após o método Post, comportamento que ele tem por padrão.

Isso é muito bom quando trabalhamos com tabelas do tipo mestre-detalhe, onde na maioria das vezes é necessário setar os campos relacionados antes do envio dos dados ao banco. O processo fica ainda mais tranquilo se for usado TADOConnection para controlar a transação, pois, você pode "commitar" os dados da tabela mestre e em seguida os da tabela detalhe e, caso ocorra algum erro, pode abortar, tratar o erro e tentar a gravação novamente sem que o usuário perca seu trabalho.

Bem, vamos ao que interessa! Para isso tudo funcionar primeiro altere a propriedade LockType do TADOQuery para ltBatchOptimistic, isso já fará com que os dados fiquem no cache local. Agora, para postar efetivamente os dados no banco, chame o método UpdateBatch(), que é semelhante ao método ApplyUpdates do TQuery. Fácil, não? :)

Como eu já disse, esse é um recurso muito útil, mas pouco conhecido. Espero que gostem da dica.
Até a próxima.

Salvando o seu formulário como imagem

2007-03-20T11:22:00.001-03:00

Dia desses, um colega de uma lista de discussão precisava gerar um JPEG a partir de um formulário de seu sistema, algo como um "Print Screen" para usuários menos íntimos com a coisa. Postei lá a solução e, como achei a solicitação interessante, decidi postá-la aqui também. Vamos a solução:

Imaginemos o exemplo clássico, um formulário "Form1" e um botão "Button1", o evento OnClick do botão ficaria como abaixo:

procedure TForm1.Button1Click(Sender: TObject);
var JPEG: TJPEGImage;
begin

JPEG := TJPEGImage.Create;
JPEG.Assign(form1.GetFormImage);
JPEG.SaveToFile('caminho\meuform.jpg');

end;

Fácil né? :) Vocês podem dar um rebuscada na solução usando um TSaveDialog para que o usuário possa escolher o local e o nome do arquivo a ser salvo.

Até a próxima.
Ah! Não esqueçam de declarar o unit JPEG na cláusula Uses.

Code Gear - Delphi Tour

2007-03-13T21:19:00.001-03:00

De 20 a 30 de março estará ocorrendo o Code Gear - Delphi Tour, um evento gratuíto cuja finalidade é apresentar as novas ferramentas da Code Gear: o Delphi 2007 for Win32 (com suporte ao Windows Vista) e o Delphi for PHP.

Este é um evento que, para quem tiver oportunidade de ir, pode ser bem interessante. É claro que se trata de um evento puramente comercial, mas entre uma apresentação e outra um novo recurso pode ser avaliado.

As inscrições e a consulta das cidades em que o acontecerá o evento podem ser feitas no site aqui.

Abraços

Declaração de Imposto de Renda 2007

2007-03-13T08:32:00.001-03:00

Declaração IR 2007

Neste ano, mais uma vez, sentirei a mordida do leão da Receita Federal. Juntamente com o IPVA, esse é um dos impostos que mais protesto na hora do pagamento, mas, infelizmente, não há como fugir dele. Aliás, ter até tem, mas não quero que diminuam meu salário :), e tentar evitar seu pagamento através de certas "técnicas" não faz o meu tipo, mais cedo ou mais tarde acabamos tendo problema.

Hoje dando uma vasculhada na Internet sobre as formas de declaração, encontrei um artigo bem interessante e resolvi transcrevê-lo aqui. Acredito que pode ser valia para muitos que estejam fazendo a declaração pela primeira vez.

Diferença entre Declaração simplificada ou completa

Quem ainda não fez a declaração do IR, tem duas opções para prestar contas à Receita Federal: a declaração simplificada ou a completa.

A declaração simplificada é indicada para que tem deduções abaixo de R$ 11.177,20. Serve para quem não têm muitas deduções a fazer ou que não têm como comprovar os gastos. Além disso, o contribuinte terá um desconto de 20% nos rendimentos tributáveis. Contribuintes com ganhos
acima de R$ 55.886,00 também poderão fazer a declaração simplificada, mas terão apenas o desconto limite.

Já a declaração completa é para os contribuintes que têm deduções comprovadas acima de R$11.177,20 ou que superem os 20% de rendimentos tributáveis. Neste caso, o desconto será maior que os 20% da declaração simplificada.

Podem ser deduzidos do IR gastos com dependentes, médicos, dentistas, hospitais, clínicas, escola, faculdade, pensão alimentícia, previdência privada, pagamento de advogados, engenheiros, arquitetos, aluguéis, arrendamento rural e outros.

A entrega da declaração pode ser feita pela Internet até o dia 30 de abril. Para enviar as informações à Receita Federal pela Web é necessário utilizar outro programa, o Receitanet.

Não há previsão para prorrogação do prazo por isso é importante não deixar para a última hora. Além de enviar pela Web, o contribuinte também pode mandar por disquete ou formulário. O pagamento da restituição - aos contribuintes que têm esse direito - acontece por ordem de entrega, priorizando idosos com 60 anos ou mais e declarações entregues por meio magnético

Fonte: Yahoo Notícias

Incursões em C#

2007-02-28T15:08:00.000-03:00

Salve,

Como profissionais em desenvolvimento de software, precisamos sempre
ficar atentos as novas tecnologias e linguagens que surgem de tempos
em tempos. Confesso que sou um pouco cético (ou conservador, como
queiram) com relação a novas tecnologias, não costumando ir na onda de
modismos ou de entusiastas que elegem uma tecnologia como
revolucionária e bradam aos quatro cantos que ela é melhor, sem que
uma análise profunda seja feita.

Claro que muitas tecnologias boas emergem nesse meio fecundo que é a
área da tecnologia da informação, mas prefiro me nortear pelo
movimento do mercado, ou seja, me orientar pelas tecnologias que as
empresas estão usando ou naquelas que elas estão investindo, pois
sejamos francos: a coisa só vai pra frente quando há grana na parada,
num é mesmo?

Vejam por exemplo o caso do Java. Tenho certeza que ela só chegou onde
está, se tornando uma das tecnologias mais difundidas e usadas no
mundo, graças ao investimento e apoio de grandes como IBM e Oracle.

Partindo desse cenário, estou iniciando uma reciclagem, pois como não
deve ser novidade para ninguém, programo "fluentemente" em Delphi, e
vejo que já está na hora de respirar novas sintaxes. :)

Ao longo deste ano quero estudar seriamente C# e Java, e se até o ano
que vem os ventos continuarem soprando a favor do Ruby on Rails, que em 2006
foi eleita a linguagem do ano pelo TPC Index, certamente ela será uma
das eleitas para 2008.

Um abraço e até a próxima.
--
Nappe

Dica de Delphi - Exportar dataset para arquivo texto de largura fixa

2007-02-07T15:34:00.001-02:00

Saudações,

Vez ou outra sempre há a necessidade de se gerar um arquivo texto de
largura fixa, seja para enviar para algum, lugar seja para exportação
para outro sistema. A rotina a seguir faz isso, usando como referencia
para a largura das colunas o próprio tamanho do campo. Detalhe: no
caso de campos Float, eles serão formatados com 3 casas após a
virgula, mas basta uma "mexidinha" no código para adequar à sua
necessidade.

Divirtam-se!

GeraTextoLarguraFixa(Dataset: TDataset; Separador: Char);
var
intI, intII, intIII: Integer;
strLista: TStringList;
strLinha: string;
dlgSalvar: TSaveDialog;
vetLarguraColuna: array of Byte;
begin

if Dataset.Active = False then
begin
MessageDlg('O arquivo texto não poderá ser gerado porque o
Dataset está fechado!',
mtWarning, [mbOk], 0);
Exit;
end;

dlgSalvar := TSaveDialog.Create(Self);
dlgSalvar.Title := 'Salvar Arquivo Texto';
dlgSalvar.Filter := 'Arquivos Texto|*.txt|Todos os arquivos|*.*';

strLista := TStringList.Create;
strLinha := EmptyStr;

SetLength(vetLarguraColuna, Dataset.FieldCount);

for intI := 0 to Dataset.FieldCount - 1 do
if Dataset.Fields[intI].DisplayWidth >
Length(Dataset.Fields[intI].DisplayLabel) then
vetLarguraColuna[intI] := Dataset.Fields[intI].DisplayWidth
else
vetLarguraColuna[intI] := Length(Dataset.Fields[intI].DisplayLabel);

//Cria a primeira linha com os nomes das colunas
for intI := 0 to Dataset.Fields.Count - 1 do
begin
strLinha := strLinha + Dataset.Fields[intI].DisplayLabel;

if vetLarguraColuna[intI] >
Length(Dataset.Fields[intI].DisplayLabel) then
for intII := Length(Dataset.Fields[intI].DisplayLabel) to
vetLarguraColuna[intI] do
strLinha := strLinha + ' '
else
strLinha := strLinha + ' ';
end;

strLista.Add(strLinha);
strLinha := EmptyStr;

for intI := 1 to Dataset.RecordCount do
begin
for intII := 0 to Dataset.Fields.Count - 1 do
begin

if Dataset.Fields[intII].DataType in [ftFloat, ftCurrency,
ftBCD, ftFMTBcd] then
begin
for intIII := Length(FormatFloat('##0.000',
Dataset.Fields[intII].AsFloat)) to vetLarguraColuna[intII] - 1 do
strLinha := strLinha + '0';

strLinha := strLinha + FormatFloat('##0.000',
Dataset.Fields[intII].AsFloat) + ' ';
end
else
begin
strLinha := strLinha + Dataset.Fields[intII].AsString;

for intIII := Length(Dataset.Fields[intII].AsString) to
vetLarguraColuna[intII] do
strLinha := strLinha + ' ';
end;

end;

strLista.Add(strLinha);
strLinha := EmptyStr;
Dataset.Next;
end;

if dlgSalvar.Execute then
try
strLista.SaveToFile(dlgSalvar.FileName);
MessageDlg('O arquivo "' + dlgSalvar.FileName + '" foi gerado
com sucesso!',
mtInformation, [mbOK], 0);
except
on Erro: Exception do
MessageDlg('Não foi possível gerar o arquivo ' +
dlgSalvar.FileName + '.' +
#13#13 + 'Erro:' + #13 + Erro.Message, mtError, [mbOk], 0);
end;

dlgSalvar.Destroy;
strLista.Free;

end;

--
Fernando D. Nappe
Analista de Sistemas

Ranking das Linguagens mais usadas

2007-01-23T09:40:00.000-02:00

Salve PessoALL,

Para aqueles que são desenvolvedores é sempre importante saber a quantas andam as linguagens de programação, assim é possível decidir em quais delas vale a pena investir estudos.

Baseado em pesquisas nos mecanismos de busca e atualizado mensalmente, o TPC Index é uma espécie de índice de popularidade das linguagens de programação.

Anotem o link aí e fiquem de olho: http://www.tiobe.com/tpci.htm

Abraços

Dica de Delphi - Ativando e desativando objetos em formulários

2007-01-18T18:46:00.000-02:00

Salve Galera,

É muito comum precisarmos habilitar e desabilitar objetos em um formulário em função de outro objeto. Veja o exemplo abaixo:

O Edit do conjuge só poderá ser habilitado se a opção "Casado" for selecionada. Nestes casos é muito comum fazer algo do tipo:

If GroupBox.ItemIndex = 1 then
edtConjuge.Enabled := True

else

edtConjuge.Enabled := False;

É uma forma que funciona, mas poderia ser bem mais simples:

edtConjuge.Enabled := GroupBox.ItemIndex = 1;

Neste caso, estamos condicionando o a propriedade Enabled à igualdade ItemIndex = 1. Desta forma, além de ser mais elegante exige menos código.

É isso aí Galera, espero que curtam a dica. Se tiverem dúvidas é só postar.

Abraços

Gafe fenomenal

2006-11-24T10:09:00.000-02:00

Saudações,
Não é o principal tema desse blog, mas encontrei um vídeo que é o máximo, desafio vc a assistir e não rir.
Abraços.

Assista

Dica de Delphi - Mudando de célula com ENTER no dbGrid

2006-10-27T17:46:00.000-03:00

Quando o usuário está editando dados em um dbGrid, ele sempre espera que ao se pressionar a tecla "ENTER", a ação seja mudar para a célula seguinte (a da direita), mas o dbGrid não tem esse comportamento por padrão.

Pensando nisso, elaborei uma rotina, que deverá ser escrita no evento OnKeyUp do dbgrid. Sempre que se atinge a última célula em uma linha, automaticamente ele passa para a linha seguinte e, se estiver na última, uma nova será inserida.

Segue a rotina:

if Key = #13 then
begin
if dbgrid.SelectedIndex = dbgrid.Columns.Count - 1 then
//verifica se e a ultima celula
begin
if DatasetConectadoNoGrid.Eof then
DatasetConectadoNoGrid.Insert
else
DatasetConectadoNoGrid.Next;
//se for o ultimo registro insere um novo,
//caso contrario ele passa para o proximo
registro
dbgrid.SelectedIndex := 0;
//Posiciona na primeira celula
end
else
dbgrid.SelectedIndex := dbgrid.SelectedIndex + 1;
//Se nao estive na ultima celula passa a proxima
end;

Como sempre, em caso de dúvidas, escrevam.

--
Fernando D. Nappe
Analista de Sistemas

Colocando zeros a esquerda em valor

2006-10-19T14:03:00.000-03:00

Hoje, um dos meus colegas de trabalho estava precisando colocar zeros a esquerda no resultado de uma consulta no MS SQL Server, e ao invés de se mostrar o valor inteiro, por exemplo o nro. 10, ele precisa mostrar 00010. Aí veio a pergunta como fazer isso? Acabamos montando um "solução", não muito elegante eu confesso, mas que resolveu o problema.

Usamos a função STUFF, que insere uma string em outra, e que recebe como parâmetros a string a ser "estufada", o valor inicial aonde a outra string será inserida, o valor a ser deletado e por fim, a string a ser inserida na original.

Abaixo transcrevemos um trechinho que pode ser usado como exemplo para mais alguém que tenha o mesmo problema.

/* Variaveis do exemplo */
declare
@valor_inteiro int,
@valor_string char(6),
@string_com_zeros char(6)

/* Atribucao dos valores */
select
@valor_inteiro = 151,
@valor_string = convert(char(6), @valor_inteiro),
/* Funcao STUFF , esse é o pulo do gato! */
@string_com_zeros = stuff('00000', 7 - Len(@valor_string), Len(@valor_string), @valor_string)

select
@valor_inteiro valor_inteiro,
RTrim(@string_com_zeros) campo_preenchido

Dúvidas é só escrever...abraços
--
Fernando D. Nappe
Analista de Sistemas

Turbos

2006-10-17T14:09:00.000-03:00

Após a iniciativa de vender os direitos sobre suas IDE's, a Borland lançou as versões Turbo (http://www.turboexplorer.com) para várias linguagens. Há o Turbo C++, Turbo Delphi, Turbo Delphi for .NET e Turbo C#. As versões que estão no site podem ser baixadas e usadas sem limitação, inclusive comercialmente. A única restrição é que não se pode adicionar componentes de terceiros nas IDE's, no entanto, eles podem instanciados via programação. Seguem alguns screenshots do Turbo Delphi:

Splash

IDE

Code Explorer

--
Fernando D. Nappe
Analista de Sistemas

Sonho de consumo

2006-10-16T18:27:00.000-03:00

Honda CB-500 Four!
Ainda compro uma dessas...
hehehehe

Motos clássicas

2006-10-16T14:23:00.000-03:00

Pra quem curte motos clássicas (década de 70 pra trás), um excelente site é o www.motosclassicas70.com.br. Vale a pena!

Obtendo as impressoras instaladas II - Dica de Delphi

2006-06-06T21:03:00.000-03:00

Mais uma "rotininha" pra obter as impressoras instaladas na máquina. Essa é cortesia do site www.guiadodelphi.com.br

// Esta rotina lê todas as impressoras instaladas no windows
// e coloca dentro de um ComboBox e não se esqueça de adicionar
// na cláusula uses a unit Printers

procedure TForm1.FormShow(Sender: TObject);
var I : Integer;
begin
ComboBox1.Items.Clear;
For I:= 1 to Printer.Printers.Count do
Begin
if Pos('LPT', printer.Printers.Strings[I-1]) > 0Then
ComboBox1.Items.Add('LPT1')
Else if Pos('\\', printer.Printers.Strings[I-1]) > 0 Then
ComboBox1.Items.Add(Copy(printer.Printers.Strings[I-1],
Pos('\\', printer.Printers.Strings[I-1]),
length(printer.Printers.Strings[I-1]) -
Pos('\\', printer.Printers.Strings[I-1]) + 1));
End;
End;
// e quando apertar o botao imprimir, o evento pega qual a impressora
// que você escolheu atravéz do ComboBox e Imprimi.
procedure TForm1.btImprimirClick(Sender: TObject);
var I:Integer;
Arquivo : TextFile;
begin
AssignFile(Arquivo,ComboBox1.Value);
Rewrite(Arquivo);
WriteLn(Arquivo, 'TESTE DE IMPRESSAO - 1');
WriteLn(Arquivo, 'TESTE DE IMPRESSAO - 2');
WriteLn(Arquivo, 'TESTE DE IMPRESSAO - 3');
WriteLn(Arquivo, 'TESTE DE IMPRESSAO - 4');
CloseFile(Arquivo);
end;

Obtendo as impressoras instaladas - Dica de Delphi

2006-06-06T20:50:00.000-03:00

Quando vamos imprimir diretamente para a impressora é necessário saber quais são as que estão instaladas na máquina, sejam elas locais ou de rede. A rotina abaixo tem essa finalidade. Ela foi obtida através do colega Mgrasser, do Forum Active Delphi.

unit VerificaImpressora;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, Printers, Buttons, WinSpool;

type
TPrinterInfo = record
SeverName : PChar;
PrinterName : PChar;
ShareName : PChar;
PortName : PChar;
DriverName : PChar;
Comment : PChar;
Location : PChar;
DeviceMode : PDeviceModeA;
SepFile : PChar;
PrintProcessor : PChar;
DataType : PChar;
Parameters : PChar;
SecurityDescriptor: PSecurityDescriptor;
Attributes : Cardinal;
DefaultPriority : Cardinal;
StartTime : Cardinal;
UntilTime : Cardinal;
Status : Cardinal;
Jobs : Cardinal;
AveragePPM : Cardinal;
end;

TForm1 = class(TForm)
// Memo1: TMemo;
// ComboBox1: TComboBox;
Memo1: TMemo;
ComboBox1: TComboBox;
procedure FormShow(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

function GetCurrentPrinterInformation: TPrinterInfo;
function GetCurrentPrinterHandle: THandle;

var
Form1: TForm1;

implementation

{$R *.dfm}

function GetCurrentPrinterHandle: THandle;
var
Device, Driver, Port : array[0..255] of char;
hDeviceMode: THandle;
begin
Printer.GetPrinter(Device, Driver, Port, hDeviceMode);
if not OpenPrinter(@Device, Result, nil) then
RaiseLastWin32Error;
end;

function GetCurrentPrinterInformation: TPrinterInfo;
var
hPrinter : THandle;
pInfo: PPrinterInfo2;
bytesNeeded: DWORD;
begin
hprinter := GetCurrentPrinterHandle;
try
Winspool.GetPrinter( hPrinter, 2, Nil, 0, @bytesNeeded );
pInfo := AllocMem( bytesNeeded );
try
Winspool.GetPrinter( hPrinter, 2, pInfo, bytesNeeded, @bytesNeeded );
Result.SeverName := pInfo^.pServerName;
Result.PrinterName := pInfo^.pPrinterName;
Result.ShareName := pInfo^.pShareName;
Result.PortName := pInfo^.pPortName;
Result.DriverName := pInfo^.pDriverName;
Result.Comment := pInfo^.pComment;
Result.Location := pInfo^.pLocation;
Result.DeviceMode := pInfo^.pDevMode;
Result.SepFile := pInfo^.pSepFile;
Result.PrintProcessor := pInfo^.pPrintProcessor;
Result.DataType := pInfo^.pDatatype;
Result.Parameters := pInfo^.pParameters;
Result.SecurityDescriptor := pInfo^.pSecurityDescriptor;
Result.Attributes := pInfo^.Attributes;
Result.DefaultPriority := pInfo^.DefaultPriority;
Result.StartTime := pInfo^.StartTime;
Result.UntilTime := pInfo^.UntilTime;
Result.Status := pInfo^.Status;
Result.Jobs := pInfo^.cJobs;
Result.AveragePPM := pInfo^.AveragePPM;
finally
FreeMem( pInfo );
end;
finally
ClosePrinter( hPrinter );
end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
ComboBox1.Items.Assign(Printer.Printers);
ComboBox1.ItemIndex := 0;
ComboBox1.OnChange(nil);
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
var
PrinterInfo: TPrinterInfo;
begin
Printer.PrinterIndex := ComboBox1.ItemIndex;
PrinterInfo := GetCurrentPrinterInformation;
memo1.Clear;
with memo1.Lines do
begin
Add('GENERAL INFORMATION');
Add('');
Add('ServerName: ' + PrinterInfo.SeverName);
Add('PrinterName: ' + PrinterInfo.PrinterName);
Add('ShareName: ' + PrinterInfo.ShareName);
Add('PortName: ' + PrinterInfo.PortName);
Add('DriverName: ' + PrinterInfo.DriverName);
Add('Comment: ' + PrinterInfo.Comment);
Add('Location: ' + PrinterInfo.Location);
Add('SepFile: ' + PrinterInfo.SepFile);
Add('PrintProcessor: ' + PrinterInfo.PrintProcessor);
Add('DataType: ' + PrinterInfo.DataType);
Add('Parameters: ' + PrinterInfo.Parameters);
Add('Attributes: ' + IntToStr(PrinterInfo.Attributes));
Add('DefaultPriority: ' + IntToStr(PrinterInfo.DefaultPriority));
Add('StartTime: ' + IntToStr(PrinterInfo.StartTime));
Add('UntilTime: ' + IntToStr(PrinterInfo.UntilTime));
Add('Status: ' + IntToStr(PrinterInfo.Status));
Add('Jobs: ' + IntToStr(PrinterInfo.Jobs));
Add('AveragePPM: ' + IntToStr(PrinterInfo.AveragePPM));
Add('');
Add('DEVICEMODE INFORMATION');
Add('');

Add('DeviceName: ' + PrinterInfo.DeviceMode.dmDeviceName);
Add('SpecVersion: ' + IntToStr(PrinterInfo.DeviceMode.dmSpecVersion));
Add('DriverVersion: ' + IntToStr(PrinterInfo.DeviceMode.dmDriverVersion));
Add('Size: ' + IntToStr(PrinterInfo.DeviceMode.dmSize));
Add('DriverExtra: ' + IntToStr(PrinterInfo.DeviceMode.dmDriverExtra));
Add('Fields: ' + IntToStr(PrinterInfo.DeviceMode.dmFields));
Add('Orientation: ' + IntToStr(PrinterInfo.DeviceMode.dmOrientation));
Add('PaperSize: ' + IntToStr(PrinterInfo.DeviceMode.dmPaperSize));
Add('PaperLength: ' + IntToStr(PrinterInfo.DeviceMode.dmPaperLength));
Add('PaperWidth: ' + IntToStr(PrinterInfo.DeviceMode.dmPaperWidth));
Add('Scale: ' + IntToStr(PrinterInfo.DeviceMode.dmScale));
Add('Copies: ' + IntToStr(PrinterInfo.DeviceMode.dmCopies));
Add('DefaultSource: ' + IntToStr(PrinterInfo.DeviceMode.dmDefaultSource));
Add('PrintQuality: ' + IntToStr(PrinterInfo.DeviceMode.dmPrintQuality));
Add('Color: ' + IntToStr(PrinterInfo.DeviceMode.dmColor));
Add('Duplex: ' + IntToStr(PrinterInfo.DeviceMode.dmDuplex));
Add('YResolution: ' + IntToStr(PrinterInfo.DeviceMode.dmYResolution));
Add('TTOption: ' + IntToStr(PrinterInfo.DeviceMode.dmTTOption));
Add('Collate: ' + IntToStr(PrinterInfo.DeviceMode.dmCollate));
Add('LogPixels: ' + IntToStr(PrinterInfo.DeviceMode.dmLogPixels));
Add('BitsPerPel: ' + IntToStr(PrinterInfo.DeviceMode.dmBitsPerPel));
Add('PelsWidth: ' + IntToStr(PrinterInfo.DeviceMode.dmPelsWidth));
Add('PelsHeight: ' + IntToStr(PrinterInfo.DeviceMode.dmPelsHeight));
Add('DisplayFlags: ' + IntToStr(PrinterInfo.DeviceMode.dmDisplayFlags));
Add('DisplayFrequency: ' + IntToStr(PrinterInfo.DeviceMode.dmDisplayFrequency));
Add('ICMMethod: ' + IntToStr(PrinterInfo.DeviceMode.dmICMMethod));
Add('ICMintent: ' + IntToStr(PrinterInfo.DeviceMode.dmICMIntent));
Add('MediaType: ' + IntToStr(PrinterInfo.DeviceMode.dmMediaType));
Add('DitherType: ' + IntToStr(PrinterInfo.DeviceMode.dmDitherType));
Add('ICCManufacturer: ' + IntToStr(PrinterInfo.DeviceMode.dmICCManufacturer));
Add('ICCModel: ' + IntToStr(PrinterInfo.DeviceMode.dmICCModel));
Add('PanningWidth: ' + IntToStr(PrinterInfo.DeviceMode.dmPanningWidth));
Add('PanningHeight: ' + IntToStr(PrinterInfo.DeviceMode.dmPanningHeight));
end;
end;

end.

Carta de David I à comunidade Delphi do Brasil

2006-05-31T18:01:00.000-03:00

Recentemente a notícia de que a Borland estava vendendo suas IDE's, entre elas o Delphi, gerou uma série de especulações, como a do fim do Delphi e até uma certa histeria.

Na verdade, a Borland pretende focar em desenvolvimento de outras ferramentas do ciclo de desenvolvimento, deixando o desenvolvimento das IDE's para uma outra empresa. Mas isso não significa o fim de nenhumas das plataformas já consagradas da Borland.

Veja a seguir a carta de David I, vice presidente de Relacionamento com Desenvolvedores da Borland:

"Para a nossa maravilhosa e amável comunidade de desenvolvedores do Brasil.

Por vários anos vocês tem recebido a Borland (e eu) como parte da família brasileira de desenvolvedores. Nós compartilhamos o sucesso do seu e do nosso negócio. Nós aprendemos e crescemos juntos a fim de endereçar tecnologias e oportunidades de negócio desafiadoras. Passamos o tempo juntos nas reuniões e nas conferências anuais dos desenvolvedores. Minha viagem ao Brasil em novembro (BorCon 2005) foi maravilhosa. Obrigado por todas as palavras amáveis, pelas fotos, pelas sugestões e os abraços (especialmente os abraços).

A recente notícia de que estamos criando uma nova companhia focada em desenvolvedores é para ser comemorada. Nós estamos criando uma companhia 100% focada no sucesso de vocês. Sim, esta notícia significa uma mudança de nome e existem perguntas que só terão respostas com o tempo. Nós temos trabalhado juntos por muitos e muitos anos e estaremos trabalhando juntos por muito mais tempo.. As soluções de desenvolvimento foram nosso negócio durante estes 22 anos desde a versão 1.0 do Turbo Pascal.

Nós continuamos no mercado e focados no seu sucesso. Nós temos um roadmap (cronograma de versões), nós estamos executando o roadmap e continuaremos focados em auxiliar nossos clientes. Estamos trabalhando para escolher o mais rápido possível o investidor, e o mais importante é que estamos concentrados em encontrar o investidor certo. A Borland continuará no negócio de desenvolvimento de software, isso não vai mudar. A Borland apenas não estará mais criando IDEs. Nós estaremos em conjunto com outras empresas, como a nova companhia focada em IDEs para continuar inovando nesse setor. Os desenvolvedores possuem um papel crucial no processo de desenvolvimento, portanto a Borland irá trabalhar próxima a companhias como a nossa enquanto avançam sua estratégia ALM. Temos a continuidade de diversas frentes: vendas continuando vendendo, o orçamento de marketing está intacto, o suporte continua atendendo os chamados, BDN continua ativo e R&D(equipe de desenvolvimento) continua desenvolvendo. Todo nosso programa está sendo executado. Tod Nielsen e nosso conselho diretor tem sido muito transparente, tanto que estamos procurando por um investidor que esteja interessado em fazer coisas do interesse de nossos clientes, nossos produtos, nossos funcionários e não apenas aquele que tenha a melhor oferta.

Seu investimento em nossos produtos, seus projetos, seu conhecimento e seu tempo está preservado.

Eu sei que nós tivemos que ganhar sua confiança ao longo dos anos. Nós continuamos a trabalhar duramente para continuar merecendo sua confiança no futuro. Eu serei parte desta nova companhia. Eu continuarei como um líder para os desenvolvedores do mundo todo. Mantenha sua fé na Borland e em nossos produtos. Este período terminará logo e você verá que nós continuamos aqui e focados no seu sucesso.

Sinceramente,
David I "

Como veem, a modificação será pra melhor...

Até+

Zipmail

2006-05-30T20:03:00.000-03:00

Hoje eu estava dando uma "geral" em minhas contas de email e me lembrei de uma conta, na verdade, a minha primeira conta de email, criada em meados de 1997, estou de uma conta do ZipMail!!!

Eu nem lembrava quando tinha sido meu último acesso, muito menos da senha! Mas para minha surpresa, consegui logar tentando uma série de senhas "default", vê se pode!

O que me impressiona é a mensagem na tela e abertura:

"Veja o que você só tem no ZIPMAIL
1Mb de espaço para guardar suas mensagens"

Kra, o que se faz com uma caixa postal de 1MB, alguém pode me dizer??? Na época, o Zipmail foi um dos pioneiros no fornecimento de webmail, vejam de lá pra cá quanto coisa mudou. De qualquer forma, foi bacana acessar novamente o zipmail, pois me fez lembrar de um bom tempo, o tempo da faculdade, onde tudo era novo, onde um punhado de idéia afloravam e os desafios se desdobravam diante da gente. Hoje vejo que podia ter explorado mais esse tempo, um tempo que ficou...

Valeu Zipmail! Realmente tem que coisas que só o Zipmail tem pra você!!

No início...

2006-04-10T15:12:00.000-03:00

Não havia mais como evitar, tive que criar meu Blog! Eu já estava me sentindo meio ET, todo mundo tinha esse negócio, só se fala nisso, eu não podia mais ficar fora dessa "mania". No entanto, não pretendo colocar fotos do meio cotidiando, pra sorte de vocês! :-)

A idéia e publicar as experiências do meu dia-a-dia como desenvolvedor de software, vamos ver no que dá! Terei que reservar um tempinho diário para isso...espero conseguir.

Valeu