segunda-feira, 28 de dezembro de 2009

Construindo formulário simples com html

Pessoal,

Algumas pessoas estão me pedindo ajuda sobre como criar formulários em html, por isso resolvi fazer uma matéria bem simples sobre isso. A explicação está no próprio código em forma de comentário.

- Primeiro vamos relembrar a estrutura básica do html.
<!-- Isso é um comentário -->
<html>
 <head>              <!-- Cabeçalho -->
  <title>Título da Página</title>       <!-- Título da página -->
 </head>
  <body>   <!-- Corpo da página - Local onde deve ficar todo o conteúdo do site -->
    <form action=gravar.php method=post>  <!-- gravar.php será o arquivo feito em php para gravar os dados.   method= post significa que os dados não aparecerão na url -->
 <!-- aqui dentro você coloca os inputs, que são as caixas de texto onde os usuários irão preencher-->
  Nome Completo<input type="text" name="nome"><br>     <!-- A tag <br> serve para pular linha-->
  Data de Nascimento<input type="text" name="data"><br>     
  <!-- O atributo name possui o nome que você quer dar a caixa de texto (input)-->
  Telefone<input type="text" name="tel"><br>
  Endereço Completo:<br>
  Rua<input type="text" name="rua"><br>
  Nº<input type="text" name="n"><br>
  Bairro<input type="text" name="bairro"><br>
  Email<input type="text" name="email"><br>
<input type="submit" value="Enviar">          <!-- Para virar um botão basta mudar o atributo type para submit-->
<input type="reset" value="Limpar dados">  <!-- O atributo valor será o caption do botão-->


    </form>
 </body>       <!-- fechando as tags-->
</html>

Este foi um exemplo apenas utilizando caixas de texto e botões, sem qualquer formatação.
É um exemplo bem básico. Espero ter ajudado!

quarta-feira, 23 de dezembro de 2009

Enviando dados de formulário através de link

Pessoal,

Respondendo a dúvida de um leitor se teria como enviar dados de formulário html sem utilizar botão submit.
Por isso montei um exemplo bem simples de como fazer isso atravé de um link <a href.

<html>
    <head>

    </head>
<body>

    <form method="post" action="teste.php" name="formulario1">
        <a href="javascript:{document.formulario1.submit();}">Enviar</a>
        <input type="hidden" name="user" value="teste">
    </form>

</body>

</html>

O javascript possui a função submit() que faz o envio dos dados.
formulario1 é o nome dado ao form.
No exemplo coloquei um input com o nome="user" e valor="teste".
No action coloquei teste.php que será o arquivo que vai verificar se os dados foram enviados. Se você mudar o method para get, você verá as informações na URL.

Boa sorte!

segunda-feira, 21 de dezembro de 2009

Css - Menu Drop-down

Estou colocando os links dos exemplos abaixo. Os códigos dos exemplos podem ser baixados e você ainda pode personalizar seu menu e baixar o código. Experimente!


 http://www.cssmenumaker.com/builder/menu_info.php?menu=067


http://www.cssmenumaker.com/builder/menu_info.php?menu=001



http://www.cssmenumaker.com/builder/menu_info.php?menu=003



http://www.cssmenumaker.com/builder/menu_info.php?menu=004



http://www.cssmenumaker.com/builder/menu_info.php?menu=007



http://www.cssmenumaker.com/builder/menu_info.php?menu=061



http://www.cssmenumaker.com/builder/menu_info.php?menu=066

Material retirado do site: http://www.cssmenumaker.com/drop_down_css_menu.php

Css - Menu horizontal

Achei alguns exemplos interessantes de Menu horizontal feitos em css. Estou colocando os links dos exemplos abaixo. Os códigos dos exemplos podem ser baixados e você ainda pode personalizar seu menu e baixar o código. Experimente!



http://www.cssmenumaker.com/builder/menu_info.php?menu=010




http://www.cssmenumaker.com/builder/menu_info.php?menu=011




http://www.cssmenumaker.com/builder/menu_info.php?menu=012




http://www.cssmenumaker.com/builder/menu_info.php?menu=022




http://www.cssmenumaker.com/builder/menu_info.php?menu=030




http://www.cssmenumaker.com/builder/menu_info.php?menu=016




http://www.cssmenumaker.com/builder/menu_info.php?menu=015

Material retirado do site: http://www.cssmenumaker.com/horizontal_css_menu.php

CSS - Menu vertical

Achei alguns exemplos interessantes de Menu vertical feitos em css. Estou colocando os links dos exemplos abaixo. Os códigos dos exemplos podem ser baixados e você ainda pode personalizar seu menu e baixar o código. Experimente!



 http://www.cssmenumaker.com/builder/menu_info.php?menu=038#




http://www.cssmenumaker.com/builder/menu_info.php?menu=043




http://www.cssmenumaker.com/builder/menu_info.php?menu=044




http://www.cssmenumaker.com/builder/menu_info.php?menu=054




http://www.cssmenumaker.com/builder/menu_info.php?menu=050



Material retirado do site: http://www.cssmenumaker.com/vertical_css_menu.php

segunda-feira, 14 de dezembro de 2009

Comandos Delphi - Parte 2

Relação de comandos Delphi:




·      Now à Retorna a data e hora corrente;

Sintaxe:                      { Formato da data e hora }
Now: TDateTime;

Exemplo:
Procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := 'A data e hora é ' + DateTimeToStr(Now);  { Mostra a hora e data }
end;


·      Sqr à Retorna um número ao quadrado;

Sintaxe:
Sqr(X: Real): (Real);

Exemplo:
Procedure Tform1.Button1Click(Sender: TObject);
var
  S, Temp: String;
begin
  Str(Sqr(5.0):2:1, Temp);  { Retorna 25.0 }
  S := '5 ao quadrado é ' + Temp;
  MessageDlg(S, mtInformation, [mbOk], 0);
end;


·      Str à Converte um valor numérico para uma string;

Sintaxe:
Str(X [: Width [: Decimals ]]; var S);

Exemplo:
Procedure Tform1.Button1Click(Sender: TObject);
var
  X, Temp: String;
  A: Integer;
begin
  A:=A+1
  Str(A:2:1, Temp){ Transforma A em string de tamanho dois e uma casa decimal }
  X := 'O número é ' + Temp;
  MessageDlg(X, mtInformação, [mbOk], 0);
end;


·      Val à Converte um valor string para sua representação numérica;
    
    Sintaxe:
    Val(S; var V; var Code: Integer);

    Exemplo:
    Procedure Tform1.Button1Click(Sender: TObject);
    var
       I, Code: Integer;
    begin
       Val(Edit1.Text, I, Code);   { Converte o conteúdo de Edit1 para um valor }
    end;


·      If ... Then ... Else à If, then, e else especifica a condicional sobre a qual uma declaração será executado.
    
Sintaxe:
If then else ;

Exemplo:
     Procedure Tform1.Button1Click(Sender: TObject);
var
  idade:integer;
begin
  idade := Edit1.text;
  If (idade < 1) or (idade > 120) then
    Label2.caption := ‘Você não está dizendo a verdade.’  {Executa se idade<1 ou idade>120}
  Else
    Label2.caption := ‘Ok!’;   { Executa se idade não for < 1 ou > 120 }
end;
 

·      Case ... of à O procedimento Case é usado para ramificar um código dependendo do resultado ou valor encontrado neste código.

Sintaxe:
Case of
 
else
 

Exemplo:
Procedure Tform1.Button1Click(Sender: TObject);
var
  tecla:char;
begin
  tecla := Edit1.text;
  Case tecla of
    ‘A’..’Z’, ‘a’..’z’:Label2.caption:=‘Você digitou uma letra’;{Executa se digitado uma letra}
    ‘0’..’9’:Label2.caption:=‘Você digitou um número’   { Executa se digitado um número }
  else
    Label2.caption:=‘Você digitou um caracter especial’;  { Executa se digitado outra tecla }
end;


·      Repeat ... until à Os procedimentos entre Repeat e until é executado na seqüência enquanto uma condição seja satisfeita.

Sintaxe:
Repeat
 
until ;

Exemplo:
Procedure Tform1.Button1.Click(Sender: TObject);
var
  a, b : integer;
begin
  b := 1;
  Repeat
    a := a + b;
    Label3.caption := str (a) + str(b);
  until a = 1000;    { Se a <>  de 1000    , senão  }
end;


·      While .. Do à A declaração While controla a execução repetida de uma declaração simples ou composta.

Sintaxe:
While do

Exemplo:
Procedure Tform1.Button1Click(Sender: TObject);
var
  a, b : integer;
begin
  b := 1;
  While a < 1001 Do   { Enquanto a for < que 1001 executa o bloco, senão }
  begin
    a := a + b;
    Label3.caption := str (a) + str(b);
  end;
end;


·      For .. Do à O loop For .. Do é uma declaração que será executada até que a variável de controle seja satisfeita.

Sintaxe:
For := To ou Downto Do
Exemplo:
Procedure Tform1.Button1Click(Sender: TObject);
var
  cont, x : integer;
begin
  For cont := 1 To 100 Do   { Repete o bloco 100 vezes }
    begin
      x := x + cont;
      Label4.caption := str(x);
    end;
end;


·      Goto / Label: à A instrução Goto permite que você salte de onde está no momento para um linha rotulada específica. Um rótulo é definido usando-se a palavra label.

Sintaxe:
Goto ;
Label ;

Exemplo:
Procedure Tform1.Button1Click(Sender: TObject);
var
  resp : char;
  a, b : integer
begin
  b := 1;
  Label inicio:   { A linha é rotulada como inicio }
  a := a +b;
  Label2.caption := str(a);
  Label3.caption := ‘Deseja somar mais um’;
  Edit1.visible := True;
  resp := Edit1.text;
  If (resp = ‘S’ or ‘s’ or ‘Y’ or ‘y’) then Goto inicio;   { Volta para o rótulo }
end;


·      RunError à Este comando emite  um número de erro que você introduz como motivo de falha de programa.

Sintaxe:
RunError [ ( Errorcode: Byte ) ];

Exemplo:
Procedure Tform1.Form1Load(Sender: TObject);
var
  I : Char;
  Cont : Integer;
begin
  repeat
    I := Edit1.text;
    If  I := ‘Q’ then RunError (230);   { Emite ao usuário o erro 230 }
  until FALSE;
end;


·      ShowWindow à A função ShowWindow modifica o estado de visibilidade da janela.

Sintaxe:
ShowWindow(Wnd: HWnd; CmdShow: Integer): Bool;

Parâmetro   Descrição
Wnd           Identifica a janela.
CmdShow  Especifica como a janela será mostrada. Este parâmetro pode ser um dos seguintes valores:

Valor                                              Significado
SW_HIDE              Esconde a janela atual e ativa uma outra janela.
SW_MINIMIZE    Minimiza a janela específica.
SW_RESTORE      Ativa e mostra uma janela. Se a janela está minimizada ou maximizada, o Windows restaura ela para o tamanho e posição original.
SW_SHOW           Ativa uma janela e mostra ela na posição e tamanho corrente.
SW_SHOWMAXIMIZED            Ativa uma janela e mostra ela como uma janela maximizada.
SW_SHOWMINIMIZED  Ativa uma janela e mostra ela como um ícone.
SW_SHOWMINNOACTIVE         Mostra uma janela como um ícone. A janela que está atualmente ativada permanece ativa.
SW_SHOWNORMAL        Ativa e mostra uma janela. Se a janela estiver minimizada  ou maximizada o Windows restaura ela para a posição e tamanho original.

Exemplo:
Procedure Tform1.Form1Load(Sender: TObject);
  ShowWindows (Tform2 : Hwnd ;  SW_SHOW : integer)

Comandos Delphi - Parte 1

Relação de comandos Delphi:





·      AnsiLowerCase à Converte todos os caracteres de uma string para minúsculo;

Sintaxe:
AnsiLowerCase(const S: string): string;

Exemplo:
Procedure Tform1.Button1Click(Sender: TObject);
Var
  X:String;
Begin
  X:=Label1.caption;
  Label1.caption:=AnsiLowerCase(X);  { Label1 ficará tudo em letras minúsculas }
End;


·      AnsiUpperCase à Converte todos os caracteres de uma string para maiúsculo;

Sintaxe:
AnsiUpperCase(const S: string): string;

Exemplo:
Procedure Tform1.Button1Click(Sender: TObject);
Var
  X:String;
Begin
  X:=Label1.caption;
  Label1.caption:=AnsiUpperCase(X); { Label1 ficará tudo em letras maiúsculas }
End;


·      Break à Interrompe totalmente o loop das condições for, while, ou repeat;

Sintaxe:
Break;

Exemplo:
Procedure Tform1.Button1Click(Sender: TObject);
var
  S: String;
begin
  While true Do
  begin
    S := Edit1.text;
    If S = '  ' Then Break{ Interrompe o loop }
    Label1.Caption := S;
  end;
end;

·      CloseFile à Fecha um arquivo aberto;

Sintaxe:
CloseFile(var F);

Exemplo:
Procedure Tform1.Button1Click(Sender: TObject);
var
  F: TextFile;
begin
  if OpenDialog1.Execute then
  begin
    AssignFile(F, OpenDialog1.FileName);
    Reset(F);
    Edit1.Text := Str(FileSize(F));
    CloseFile(F);   { Fecha  o arquivo }
  end;
end;


·      Continue à Continua na próxima condição for, while, ou repeat;

Sintaxe:
Continue;

Exemplo:
Procedure Tform1.Button1Click(Sender: TObject);
var
  S: String;
begin
  While true Do
  begin
    S := Edit1.text;
    If S = '  ' Then Continue{ Voltará para o próximo loop }
    Label1.Caption := S; 
  end;
end;


·      Eof à Retorna um valor lógico se fim de arquivo;

Sintaxe:
Eof(var F): Boolean;

Exemplo:
Procedure Tform1.Button1Click(Sender: TObject);
var
  F1, F2: TextFile;
  Ch: Char;
begin
  if OpenDialog1.Execute then begin
    AssignFile(F1, OpenDialog1.Filename);
    Reset(F1);
    if SaveDialog1.Execute then begin
      AssignFile(F2, OpenDialog1.Filename);
      Rewrite(F2);
      While not Eof(F1) Do  { Executa enquanto não for fim do arquivo F1 }
      begin
        Read(F1, Ch);
        Write(F2, Ch);
      end;
      CloseFile(F2);
    end;
    CloseFile(F1);
  end;
end;


·      Exit à Sai imediatamente de um bloco corrente;

Sintaxe:
Exit;

Exemplo:
Procedure Tform1.Button1Click(Sender: TObject);
begin
   repeat
     if KeyPressed then Exit{ Se alguma tecla pressionada sairá do bloco repeat }
     Memo1.Lines := ‘Xx’;
   until False;
end;


·      FileOpen à Abre um arquivo específico;

Sintaxe:
FileOpen(const FileName: string; Mode: Word): Integer;

Exemplo:
Procedure Tform1.Button1Click(Sender: TObject);
begin
  MyFileHandle := FileOpen(EXISTS.TXT){ Abre o arquivo EXISTS.TXT }
end;



·      GotoXY à Move o cursor para as coordenadas dadas dentro da tela;

Sintaxe:
GotoXY(X, Y: Byte);

Exemplo:
Procedure Tform1.Button1Click(Sender: TObject);
begin
  GotoXY(10,25){ Posiciona o ponteiro do mouse no pixel 10 , 25 }
end;


·      Int à Retorna a parte inteira de um argumento;

Sintaxe:
Int(X: Real): Real;

Exemplo:
Procedure Tform1.Button1Click(Sender: TObject);
var
  R: Real;
begin
  R := Int(123. 456);    { Mostra “123.0” }
  R := Int(-123.456);   { Mostra “-123.0” }
end;


·      KeyPressed  à Determina se uma tecla foi pressionada no teclado;

Sintaxe:
KeyPressed: Boolean;

Exemplo:
Procedure Tform1.Button1Click(Sender: TObject);
var
  A,B:integer;
begin
  B:=1;
  repeat
     A:=A+B;
     Label1.Caption := str(A);
  until KeyPressed{ Repetirá até alguma tecla ser pressionada }
end;

Links

Related Posts with Thumbnails