[Manual]Calendário Fantasma

Calendario Fantasma - Parte 1

O que mais tenho visto durante estes anos de programação são iniciantes querendo iniciar sua jornada, usando visual basic partindo de conceitos avançados como bases de dados.
Parece simples para alguns que dizem "entender" sobre o assunto, mais base de dados inclui um vasto preparo. E neste aplicativo veremos muita coisa boa que poderao ajuda-los mais a frente tanto em BD quanto em varios outros sistemas futuros.

Lembre-se: Para aprender a andar é preciso cair

Bem, vamos la entao.
Nessa primeira parte iremos aprender a manipular datas de forma simples

Para se usar datas no visual basic bastaria usarmos a seguinte sintase:
Text1.Text = Date <------- 31/05/2007

Onde:
text1 é o nome de nosso objeto textbox
e date é o meio usado para recebermos a data do dia

Ja para recebemos estes dados separadamente usariamos:
Devolve o dia
Text1.Text = Day(Date) <------------ 31
text1.text = format(now,"dd") <--------- 31
Text1.Text = Day(Now) <--------------- 31
Devolve o mes
Text1.Text = Month(Date) <------------ 5
text1.text = format(now,"m") <--------- 5
Text1.Text = Month(Now) <--------------- 5
Devolve o ano
Text1.Text = Year(Date) <------------ 2007
text1.text = format(now,"yyyy") <--------- 2007
Text1.Text = Month(Now) <--------------- 2007

Viu como é simples !!!

Bem ja teriamos so nesta parte meios de:

- Identificar o dia atual
- Identificar o mes atual
- Identificar o ano atual

Calendario Fantasma - Parte 2

Na primeira parte de nossos sistema vimos como obter a data corrente de duas formas
-Data Inteira
-Dia, Mes e Ano

Antes de continuarmos vamos falar um pouco sobre array.

Bem, o que vem ser array e qual sua utilização ?
Vemos array claramente quando tentamos adicionar dois controles de mesmo nome em um form.
Suponhamos que tivessemos dois command buttons. Se quisessemos adiciona-los como o mesmo nome
ambos passariamos a se chamar:
Command1(0)
Command(1)

Isso em programação nos ajuda muito:

Imagine que você quer dar ao usuario a possibilidade de mudar as cores dos botoes
Bastaria você usar um loop simples

Dim Cor as string <------ Declaramos uma variavel

cor= text1.text <------------ Fazemos nossa variavel obter um valor

for i=0 to 1 < --------------- Contamos de 0 a 1 e atribuimos a cor escolhida a nosso botão
command(i).backcolor= Cor
next

Imagine se você tivesse 15 botoes. Acho que nao seria bacana usar
command1.backcolor = cor
command2.backcolor = cor
......
..
..
..
..
.....
command15.backcolor = cor

E isso se aplica nao so a botoes, mais em picture, label, textbox, checkbox etc....
É como disse: Simples conceitos que tornam nosso codigo menor e mais profissional

E isso nao se aplica so a objetos, podemos usar em variaveis tambem
Exemplo:

dim Nome(2) as string

Nome(0)= "Jonas"
Nome(1)="PlugMaster"
Nome(2)="Tubarão Branco"

Pronto, suas variaveis ja possuem valores. Para mostrar bastariamos usar:
text1.text = nome(0) <-------------- Jonas

E para limpar os dados usariamos o que fizemos com os botões:

for i=0 to 2
nome(i) = ""
next


Prestem muita atenção no que foi ensinado nesta Parte2 pois, na proxima iremos usar todos esses conceitos e montarmos nosso calendario