Estava navegando pela Internet pesquisando rotinas para meus aplicativos em VB, já que nesse linguagem não sou tão íntimo da interface de desenvolvimento como sou da dupla Delphi/Pascal. Sempre que pensamos em VB vem logo a cabeça nosso amigo Macoratti, profissional e site com repositório imenso de rotinas e ensinamentos em VB que inclsuive já deixou sua marca várias vezes em nossas páginas.

Para mudar um pouco o foco, dessa vez vou falar do “Visual Basic em Português“, blog pessoal de Jorge Paulino sobre o mesmo assunto, acabei vendo um artigo sobre Banco de Dados e DataGridView muito didático, foi mais ou menos assim, copiei e colei para dentro do meu código, troquei o nome da base e das tabelas e rodou tudo! Parabéns pelo modo simples e prático de ensinar, outro grande lugar para o amantes e necessitados como eu em VB podem pesquisar.

Veja a reprodução na íntegra abaixo e não deixe de visitar o site.

abraço.

VB.NET: Utilizando o controle DataGridView

Leia mais »

O Aplicativo Banco

Vamos usar o conhecimento recém-adquirido para escrever um programa que servirá de banco privado, contendo alguma informação diferente. Quando o usuário introduzir em uma caixa combinada os montantes de todos os cheques emitidos durante um certo período, o programa avisará ao usuário sobre o valor médio por cheque. Para encontrar essa média, o programa irá acumular todos os valores e dividi-los pela quantidade de cheques – uma tarefa perfeita para um laço Do While.

Crie um novo projeto no Visual Basic. A interface do programa requer uma caixa combinada para armazenar o valor de todos os cheques, um botão de comando para calcular a média e um rótulo para exibir a média. Desenhe um form contendo esses objetos, configurando as suas propriedades de acordo com a Figura 6.13. O seu form deverá parecer-se com o mostrado na Figura 6.14.

Figura6.13 - Configuração de propriedades para o aplicativo Banco

Figura 6.14 - Projeto do form para o aplicativo Banco

Agora, você deve modificar ligeiramente a caixa combinada. Normalmente, uma caixa combinada oferece uma lista de opções para o usuário. Neste caso, você irá usá-la para construir uma lista de entradas do usuário. Cada vez que o usuário introduzir um valor na parte de texto da caixa combinada, o programa adicionará o valor aos itens da parte de lista. Para fazer isso, será necessário usar um procedimento de evento que foi citado no Capítulo 5, aquele baseado no evento KeyPress.

Leia mais »

O Aplicativo Caça-níqueis

Para explorar um pouco mais a instrução If, vamos construir uma simulação de um caça-níqueis. Com o botão de comando fazendo o papel de uma alavanca, o programa Caça-níqueis exibirá três ícones aleatoriamente toda vez que o botão de comando for acionado. Caso os três ícones sejam iguais, o usuário vence. O programa manterá um registro das vitórias do jogador.

Voltaremos a usar aqui os ícones Copas, Paus, Ouro e Espadas, encontrados, respectivamente, nos arquivos HEART.ICO, CLUB.ICO, DIAMOND.ICO e SPADE.ICO no diretório \PacoteVB\Icones\Misc do primeiro cd deste produto. O programa pegará aleatoriamente um desses ícones para cada uma das três janelas do visor. Cada jogada custará R$ 1, 00. Se os três ícones combinarem, o jogador ganhará R$ 10, 00. Se os três forem de Ouro, o jogador ganhará R$25,00.

Pensando a Respeito

Reveja com rigor todas as condições, quando estiver programando com instruções If. É preciso ser cuidadoso para não incluir acidentalmente opções inesperadas ou, inversamente, excluir condições que deveriam ser tratadas. Não seja precipitado em assumir que o seu primeiro impulso para escrever uma cláusula Else cubra somente as alternativas possíveis.

A codificação escrita para identificar os Três Patetas, por exemplo, assume que, se Curly e Moe foram eliminados, a única possibilidade que resta é Larry. Entretanto, como sabem os estudantes da arte cinematográfica, realmente há outras possibilidades, tais como Shemp ou Curly-Joe. (Para quem não está familiarizado com a arte cinematográfica, o trio Moe Howard, Larry Fine e Curly Howard protagonizou a maioria dos filmes dos Três Patetas. Entretanto, após Curly sofrer um acidente, os filmes posteriores foram feitos com outras pessoas no papel do terceiro Pateta.)

Leia mais »

Os pequenos programas que você escreveu são extremamente simples: executam instruções seqüenciais, realizam tarefas sem grandes desvios e, via de regra, são relativamente descomplicados. Este capítulo introduz conceitos que lhe ajudarão a ter um controle adicional sobre como um programa é executado, permitindo-lhe criar mecanismos que possam tratar de várias condições, repetidamente e com ampla variedade de dados.

Fazendo Escolhas

Os programas escritos nos capítulos anteriores eram formados exclusivamente por instruções e expressões, o equivalente a frases imperativas da língua portuguesa. Porém, ninguém, nem mesmo o mais exaltado ditador vitalício, pode passar a vida inteira apenas dando ordens. Na vida real, as pessoas precisam fazer escolhas. A ferramenta principal do Visual Basic para tratamento de escolhas é a instrução If.

A Instrução If

Suponhamos que você esteja ensinando a um amigo como obedecer aos sinais de tráfego. Em particular, o que deve ser feito quando se encontra um sinal de Atenção. Você pode explicar o sinal de Atenção da seguinte forma: “Reduza a velocidade para 20 Km/hora. Caso não venha ninguém, continue o seu caminho; do contrário, pare e deixe o carro passar”. Em Visual Basic, essas instruções poderiam ser transformadas em:

Leia mais »

Há situações em que você precisa de um campo a ser usado como identificador único e crescente para algum documento, porém sem deixar lacunas na numeração entre um documento e outro. No Access, campos de auto-numeração não são bons para isto, porque qualquer transação que adicione um registro, provoca o crescimento do campo em uma unidade, mesmo que a transação seja abortada. Se tiver uma tabela para conter o último número usado, você também terá que se preocupar em evitar que dois usuários peguem o mesmo número antes dele ser incrementado pela última rotina que o utilizou. A dica para resolver este problema é simples. A rotina que pega o número, deve realizar todas as suas ações no banco de dados dentro de uma transação. Antes de fechar a transação que usou o número, a tabela que o mantém é atualizada com uma instrução Update. Esta instrução adiciona 1 ao número apenas se ele ainda estiver com o mesmo valor que foi pego no início da transação, caso contrário, a transação é abortada e se reinicia pegando novamente o novo valor do número serial. Um exemplo deste esquema poderia ser como segue:

Dim rs As ADODB.Recordset, cn As
ADODB.Connection
Dim lngSerial As Long
Set cn = CreateObject(“ADODB.Connection”)
cn.ConnectionString = strConexao
cn.Open
Set rs = CreateObject(“ADODB.Recordset”)

INICIO: rs.Open “Select Numero From TabelaSerialUnico”, cn
‘Salva serial único
lngSerial = rs(“Numero”)
‘Inicia transação
cn.BeginTrans
‘faz tudo que tem de fazer

‘atualiza tabela TabelaSerialUnico somente

‘se o número não foi alterado por outra

Leia mais »