
fernando_vip
Membros-
Total de itens
141 -
Registro em
-
Última visita
Tudo que fernando_vip postou
-
mANO ESTOU SEGUINDO AQUELA TUTOR SOBRE RELATÓRIOS SUA, PORÉM você TRATA DE UM TERMO "QUOTE", PORÉM NÃO o que você QUIZ DIZER COM ISSO, PODE SER MAIS ESPECÍFICO?
-
Mano Todos os códigos descritos aí são os mesmos que estão no meu programa...a única alteração que fiz, neste cód, foi as Aspas Manda o seu código que vou comparar, pode ser?
-
valeu mano pela força, apesar do programa ter compilado, gerado o executável, porém qd clico nele ele não roda, sabe o que pode ser?
-
Olá Cara eu estou usando o Delphi 7 e não consegui encontrar a palheta guia com os botoes dii quickReport, tem alguma coisa na configuração a fazer??? valeu
-
Brazlandiaonline Olá Pessoal!!! Estou querendo montar, ou melhor, montei um programinha com conexão com o access e quero imprimir relatórios numa arte do corel que já está no programa, porém não sei como usar o Qreport e não sei como usar, alguém pode ajjuddaaarrr??? Falow galera
-
Brazlandiaonline Olá!! Meu nome é Márcio Fernando e estou fazendo uns exercícios duma apostila, (Curso Delphi 3.02- Apostila 01) e estou com um problema. Segui todos os passos que foram deseignados pela tutor, porém não compila dando erro em duas linhas de código, vou mandar o cód inteiro e as linhas com erro vão logo em seguida. Se vc's puderem ajudar.. Grato O Código: unit UntCartao; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TF_Cartao = class(TForm) Image1: TImage; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; Memo1: TMemo; Timer1: TTimer; procedure FormShow(Sender: TObject); procedure Timer1Timer(Sender: TObject); private NumLinha:Integer; public { Public declarations } end; var F_Cartao: TF_Cartao; implementation {$R *.dfm} procedure TF_Cartao.FormShow(Sender: TObject); var i:Integer; begin For i:=ComponentCount - 1 downto 0 do if(componentsis TLabel)then (Components as TLAbel).Caption :="; NumLinha :=0; Timer1Timer(Sender); end; procedure TF_Cartao.Timer1Timer(Sender: TObject); function Monta : String; begin result:= Memo1.Lines[NumLinha]; inc(NumLinha); if NumLinha > 30 then NumLinha :=0; end; var i: Integer; begin NumLinha := NumLinha - 7; Label1.Caption := Monta; Label2.Caption := Monta; Label3.Caption := Monta; Label4.Caption := Monta; Label5.Caption := Monta; Label6.Caption := Monta; Label7.Caption := Monta; Label8.Caption := Monta; end; Os erros: 1- [Error] UntCartao.pas(44): Illegal character in input file: '"' ($22) (Components as TLAbel).Caption :="; 2- [Error] UntCartao.pas(74): Declaration expected but end of file found 3-[Fatal Error] Cartao.DPR(8): Could not compile used unit 'UntCartao.pas' UntCartao in 'UntCartao.pas' {F_Cartao}; É que esta é a primeira tutor minha neste programa e estou usando o Delphi 7
-
Olá pessoal!!! Baixei uma SDK(j2sdk1.4.2_08) e tmb uma tutor de como configurá-la, porém quando faço tudo o que pede na tutor e vou no prompt e digito "javac" dá o seguinte erro: 'javac' não é reconhecido comno comando interno ou externo, um programa operável ou um arquivo em lotes. Alguém pode ajudar??/ falow e obrigado
-
O Portal de Brazlândia
-
Olá Pessoal, Voltei!!!!! ..............hehe...................... Alguém pode me dizer como corrigir os erros existentes nesse código? unit Projeto1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TFrmCalc = class(TForm) Label1: TLabel; Btn1: TButton; Btn2: TButton; Btn3: TButton; Btn4: TButton; Btn5: TButton; Btn6: TButton; Btn7: TButton; Btn8: TButton; btn9: TButton; btn10: TButton; btn11: TButton; btn12: TButton; Btn13: TButton; Btn14: TButton; Btn15: TButton; Btn16: TButton; Edit1: TEdit; procedure Btn1Click(Sender: TObject); procedure Btn14Click(Sender: TObject); procedure Btn2Click(Sender: TObject); procedure Btn3Click(Sender: TObject); procedure Btn4Click(Sender: TObject); procedure Btn5Click(Sender: TObject); procedure Btn6Click(Sender: TObject); procedure Btn7Click(Sender: TObject); procedure Btn8Click(Sender: TObject); procedure btn9Click(Sender: TObject); procedure btn10Click(Sender: TObject); procedure Btn13Click(Sender: TObject); procedure btn12Click(Sender: TObject); procedure btn11Click(Sender: TObject); procedure Btn15Click(Sender: TObject); procedure Btn16Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var FrmCalc: TFrmCalc; ope : STRING; valor,valor2:Integer implementation {$R *.dfm} procedure TFrmCalc.Btn1Click(Sender: TObject); begin if edtval.Text<>'0'then edtval.Text:=edtval.Text+'1'; if edtval. Text='0'then edtval.Text:='1'; end; procedure TFrmCalc.Btn14Click(Sender: TObject); begin ope:='+'; valor:=strtoint(edtval.Text); edtval.Text:=''; Btn14.Enabled:=false; Btn13.Enabled:=false; btn11.Enabled:=false; btn12.Enabled:=false; end; procedure TFrmCalc.Btn2Click(Sender: TObject); begin if edtval.Text<>'0'then edtval.Text:=edtval.Text+'2'; if edtval. Text:='0'then edtval.Text:='2'; end; procedure TFrmCalc.Btn3Click(Sender: TObject); begin if edtval.Text<>'0'then edtval.Text:=edtval.Text+'3'; if edtval. Text:='0'then edtval.Text:='3' end; procedure TFrmCalc.Btn4Click(Sender: TObject); begin if edtval.Text<>'0'then edtval.Text:=edtval.Text+'4'; if edtval. Text:='0'then edtval.Text:='4' end; procedure TFrmCalc.Btn5Click(Sender: TObject); begin if edtval.Text<>'0'then edtval.Text:=edtval.Text+'5'; if edtval. Text:='0'then edtval.Text:='5' end; procedure TFrmCalc.Btn6Click(Sender: TObject); begin if edtval.Text<>'0'then edtval.Text:=edtval.Text+'6'; if edtval. Text:='0'then edtval.Text:='6' end; procedure TFrmCalc.Btn7Click(Sender: TObject); begin if edtval.Text<>'0'then edtval.Text:=edtval.Text+'7'; if edtval. Text:='0'then edtval.Text:='7' end; procedure TFrmCalc.Btn8Click(Sender: TObject); begin if edtval.Text<>'0'then edtval.Text:=edtval.Text+'8'; if edtval. Text:='0'then edtval.Text:='8' end; procedure TFrmCalc.btn9Click(Sender: TObject); begin if edtval.Text<>'0'then edtval.Text:=edtval.Text+'9'; if edtval. Text:='0'then edtval.Text:='' end; procedure TFrmCalc.btn10Click(Sender: TObject); begin if edtval.Text<>'0'then edtval.Text:=edtval.Text+'0'; if edtval. Text:='0'then edtval.Text:='0' end; procedure TFrmCalc.Btn13Click(Sender: TObject); begin ope:='-'; valor:=strtoint(edtval.Text); edtval.Text:=''; Btn14.Enabled:=false; Btn13.Enabled:=false; btn11.Enabled:=false; btn12.Enabled:=false; end; procedure TFrmCalc.btn12Click(Sender: TObject); begin ope:='*'; valor:=strtoint(edtval.Text); edtval.Text:=''; Btn14.Enabled:=false; Btn13.Enabled:=false; btn11.Enabled:=false; btn12.Enabled:=false; end; procedure TFrmCalc.btn11Click(Sender: TObject); begin ope:='/'; valor:=strtoint(edtval.Text); edtval.Text:=''; Btn14.Enabled:=false; Btn13.Enabled:=false; btn11.Enabled:=false; btn12.Enabled:=false; end; procedure TFrmCalc.Btn15Click(Sender: TObject); begin Btn15.Enabled:=true; Btn13.Enabled:= true; btn11.Enabled:= true; btn12.Enabled:= true; edival.Text:='0'; valor:= strtoint ('0'); valor2:= strtoint ('0'); end; procedure TFrmCalc.Btn16Click(Sender: TObject); begin valor2:= strtoint (edtval.Text); if ope='+' then edtval.Text:= inttostr(valor=valor2); if ope='-' then edtval.inttostr(valor+valor2); if ipe = '*' then edtval.inttosr (valor+valor2); if ipe = '/' then edtval.inttosr (valor+valor2); end; end. se precisarem de mais alguma informação : fernando_millenniuinfo@yahoo.com ou nandinho@mfs.eng.br MSN O Portal de Brazlândia-df
-
Já fiz isso mas não funciona
-
Olha quem Voltou???? .............rsrsrsrsrsrs........ Vamos ao que interessa. Estou estudando Java e sou leigo, então decidi ir pelo bloco de notas mesmo, segundo o conselho de um amigo aqui do forum, então, todo empolgado mandei ver no código: public class HelloWorldConsole { puclic static void main(String args []) { System.out.println("Hello, World!"); } } ...a tutor fala para digitar o "javac.HelloWorldConsole.java", fiz isso no prompt do MS-DOS e nada funciona. Ond estou pecando? Valeu
-
Outra dica é pegar o NetBeans 4.1 e instalar, nele você faz suas aplicações web sem precisar saber configurações , deployd e etc....mas é claro posteriormente você tem que estudar isso, para implementar um sistema bem feito!!! Onde posso pegar o netBeans 4.1??? Para download é claro rsrsrs fui
-
QUOTE (fernando_vip @ Feb 25 2005, 05:53 PM) Isso velho, de graça será que agora você pode me ajudar? mil desculpas, eu tambem estou começando agora... vamos ver se dois é melhor do que um... o gente vamos ai ajuda agente ae........ Foi mal veio Penssei que você fosse veterano e estivesse curtindo com a minha cara
-
Pô mano.... >>Esta tuto é massa, virou livro de consulta Muito boa mesmo parabens
-
Será qu alguém aqui sabe como baixar o Oracle no site www.oracle.com??? é que meu inglês está enferrujado
-
Isso velho, de graça será que agora você pode me ajudar?
-
E aê manos:0 Estou com uma pequena dúvida, no curso do IPED está pedindo para criar um movieclip, porém não ensina como devo fazer isso, será que alg pode ajudar? Valeu!!!!!:( :|
-
Estou aprendendo JSP numas tuto que baixei e queria saber como posso fazer para instalar um servidor JSP...
-
olha bicho ........................................... Se eu não emengano tem esta matéria já publi na área dos códigos:}
-
Olá... Como Devo fazer para instalar o JSP? Estou com umas tutor's mas não sei como começar, alguém pode me ajudar?
-
Como posso consegu-i-lo? Que site gratuito?
-
Olá Galera eu baixei o Jbuilder, porém não sei como usá-lo, pois tudo o que encontrei sobre ele está em inglês, será que alguém sabe de alguma tuto em portuga sobre ele? Valeu
-
Bicho Tem um tópico quente aqui no furum, área dos modera que tem um link para apostila de Java 2 em 3ª edição, vai lá tú vai ficar satifeito, o livro ainda não foi totalmente traduzido mas é legal pacas....
-
Olá!!!!!!! Estou qr programar em JSP, porém não sei nem como começar, alguém pode dar uma luz ai? Já manjo um pouco de J2SE, porém o que quero mesmo é me especializar em JSP nandinho@mfs.eng.br