sl@ckw@re

Gostaria de saber: Alguém poderia disponibilizar o Código-Fonte de qualquer site simples feito em AJAX? Como salvo um site feito em AJAX?

Esse Tutorial é para o Kurumin,mas se alguém conseguir instalar e executar o Lazarus em outra distro melhor ainda. Vamos a explicação da instalação: Instale o Lazarus clicando em: Menu k>configuração do sistema>Clica-aqui(Painel de controle do Kurumin>Ìcones Mágicos(Instalar novos programas)>aba instalar novos programas>Utilitários e ferramentas de escritório>Aba programação>Lazarus>Clique em Instalar. O download do Lazarus está divido em duas partes: 1-parte:68MB 2-parte:42MB Depois da segunda parte o Lazarus abrirá sozinho,mais mesmo assim não será possível executa-lo,nem tente executar qualquer programa no Lazarus ainda,pois falta adicionar novas linhas para a execução. Para executar qualquer programa no Lazarus faça o seguinte: 1-Abra o Terminal(Konsole) e entre como root 2-Digite kedit /etc/fpc.cfg 3-Depois dentro desse arquivo você terá que adicionar as novas Linhas: -Fu/usr/lib/fpc/$fpcversion/units/target -Fu/usr/lib/fpc/$fpcversion/units/target/* -Fu/usr/lib/fpc/$fpcversion/units/target/rtl Essas Linhas serão adicionadas embaixo de: # searchpath for units and other system dependent things -Fu/usr/lib/fpc//units/ -Fu/usr/lib/fpc//units/ -Fu/usr/lib/fpc//units//* -Fu/usr/lib/fpc//units//rtl Você também pode tirar o #(Sustenido) da seguinte Linha: #-Fu~/fpc/packages/base/*/units/;~/fpc/fcll/units/;~/fpc/rtl/units/ Essa Linha está em baixo dessas linha que eu mencionei acima,tirar o #(sustenido)dessa linha não fará mal algum,bem vocês chamam isso daqui (#) como (tralha)mas o nome real disso é sustenido. Depois de adicionar essas Linhas salve,clicando no desenho do disquete,em seguida feche esse editor. O Lazarus está corretamente instalado e pronto para ser usado.

Esse programa pode ser feito tanto no Delphi quanto no Lazarus esses são os componentes necessários: Label1,Labe2,Label3,Edit1,Edit2,Edit3,Button1,Button2,Button3. Primeiramente vamos nomear os componentes: Label1=Nome Label2=Sobrenome Label3=Resultado Button1=Concatenar Button2=Limpar Button3=Sair unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Button1: TButton; Button2: TButton; Button3: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin Edit3.text := Edit1.text+ ' '+Edit2.text; end; procedure TForm1.Button2Click(Sender: TObject); begin Edit1.text :=' '; Edit2.text :=' '; Edit3.text :=' '; end; procedure TForm1.Button3Click(Sender: TObject); begin Form1.close end;

Componentes necessários: Label1=SALÀRIO Label2=MESES DE TRABALHO Label3=RESULTADO Button1=CALCULAR Button2=APAGAR Button3=SAIR Código-Fonte: unit UdecimoTerceiro; {$mode objfpc}{$H+} interface uses Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Buttons, StdCtrls; type { TForm2 } TForm2 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); private { private declarations } public { public declarations } end; var Form2: TForm2; implementation { TForm2 } procedure TForm2.Button3Click(Sender: TObject); begin Form2.Close; end; procedure TForm2.Button2Click(Sender: TObject); begin Edit1.text:=''; Edit2.text:=''; Edit3.text:=''; end; procedure TForm2.Button1Click(Sender: TObject); var n1,n2,calculo:real; begin n1:=StrToFloat(Edit1.text); n2:=StrToFloat(Edit2.text); calculo:=n1*n2/12; Edit3.text:=FloatToStr(calculo); end; initialization {$I udecimoterceiro.lrs} end.

Essa calculadora básica pode ser feita tanto no Delphi como no Lazarus: Componentes necessários: Código-Fonte: unit Ucalculadora; {$mode objfpc}{$H+} interface uses Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls, Buttons; type { TForm1 } TForm1 = class(TForm) ADICAO: TButton; SUBTRACAO: TButton; DIVISAO: TButton; MULTIPLICACAO: TButton; APAGAR: TButton; SAIR: TButton; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; procedure ADICAOClick(Sender: TObject); procedure APAGARClick(Sender: TObject); procedure DIVISAOClick(Sender: TObject); procedure MULTIPLICACAOClick(Sender: TObject); procedure SAIRClick(Sender: TObject); procedure SUBTRACAOClick(Sender: TObject); private { private declarations } public { public declarations } end; var Form1: TForm1; implementation { TForm1 } procedure TForm1.ADICAOClick(Sender: TObject); var n1,n2,calculo:real; begin n1:=StrToFloat(Edit1.text); n2:=StrToFloat(Edit2.text); calculo:=n1+n2; Edit3.text:=FloatToStr(calculo); end; procedure TForm1.APAGARClick(Sender: TObject); begin Edit1.text:=''; Edit2.text:=''; Edit3.text:=''; end; procedure TForm1.DIVISAOClick(Sender: TObject); var n1,n2,calculo:real; begin n1:=StrToFloat(Edit1.text); n2:=StrToFloat(Edit2.text); calculo:=n1/n2; Edit3.text:=FloatToStr(calculo); end; procedure TForm1.MULTIPLICACAOClick(Sender: TObject); var n1,n2,calculo:real; begin n1:=StrToFloat(Edit1.text); n2:=StrToFloat(Edit2.text); calculo:=n1*n2; Edit3.text:=FloatToStr(calculo); end; procedure TForm1.SAIRClick(Sender: TObject); begin Form1.Close; end; procedure TForm1.SUBTRACAOClick(Sender: TObject); var n1,n2,calculo:real; begin n1:=StrToFloat(Edit1.text); n2:=StrToFloat(Edit2.text); calculo:=n1-n2; Edit3.text:=FloatToStr(calculo); end; initialization {$I ucalculadora.lrs} end.

È isso mesmo estou usando Kdevelop,gostaria de saber como que tu fez para colocar avatar.

Eu tenho o Kurumin 7,e tentei compilar um programa na linguagem C,mas apareceu a seguinte mensagem de erro: cd '/home/kurumin/teste' && WANT_AUTOCONF_2_5="1" WANT_AUTOMAKE_1_6="1" make -f Makefile.cvs && mkdir '/home/kurumin/teste/debug' && cd '/home/kurumin/teste/debug' && CXXFLAGS="-O0 -g3" "/home/kurumin/teste/configure" --enable-debug=full && cd '/home/kurumin/teste/debug/src' && WANT_AUTOCONF_2_5="1" WANT_AUTOMAKE_1_6="1" make -k teste.lo aclocal aclocal: configure.in: 8: macro `AM_PROG_LIBTOOL' not found in library make: ** [all] Erro 1 *** Saiu com estado: 2 *** Alguém pode me ajudar?