-
Total de itens
9.657 -
Registro em
Tudo que Jhonas postou
-
Se a propriedade Enabled do Edit estiver como False, voce não conseguira digitar nada nele abraço
-
(Resolvido) Fechar form modal ao abrir outro form modal
pergunta respondeu ao renanbg de Jhonas em Delphi, Kylix
Gostaria de fechar o form da senha assim que chamo o de usuarios, mas o comando close só fecha ele quando eu fechar o form de usuarios. voce não consegue fechar o form senha ( Form1 ) visto que foi ele quem chamou o form de usuários ( Form2 ) o que voce pode fazer é deixar o form senha ( Form1) invisivel quando o ( Form2 ) for ativado, e só fecha-lo ( Form1.Close ) quando Fechar o Form2. exemplo usando um Form1 e um Form2. O Form1 ( senha ) chama o Form2 ( usuarios ) e assim que o Form2 é ativado o Form1 fica invisivel para o usuario. Codigo do Form1 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses Unit2; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin Form2.showmodal; end; end. Código Form2 unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm2 = class(TForm) procedure FormActivate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } public { Public declarations } end; var Form2: TForm2; implementation uses Unit1; {$R *.dfm} procedure TForm2.FormActivate(Sender: TObject); begin Form1.Visible := false; end; procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction); begin Form1.Close; end; end. Abraço -
siga os passos acima, se não funcionar, explique melhor o que esta acontecendo.
-
Eu tenho usado o formato 'dd/mm/yyyy hh:nn:ss.zzz' para milisegundos, está errado ? Está correto. http://www.delphibasics.co.uk/RTL.asp?Name=formatdatetime abraço
-
tem varios exemplos na internet https://www.google.com.br/search?ei=5ZQlW7-vAYL-wQT987HwDg&q=gerenciador+de+atualização+de+programas+delphi&o que=gerenciador+de+atualização+de+programas+delphi&gs_l=psy-ab.3..33i160k1.3025.7652.0.8546.7.7.0.0.0.0.126.689.0j6.6.0....0...1c.1.64.psy-ab..1.6.688....0.BxK4EUAvjOc abraço
-
Tente esse link Como descobrir fonte da Letra https://bruno9988.wordpress.com/2013/06/07/como-descobrir-fonte-da-letra/ abraço
-
(Resolvido) Converter Resultado Real, para Resultado Inteiro
pergunta respondeu ao valSistemasDelphi de Jhonas em Delphi, Kylix
amigo, não vejo onde está a sua dificuldade com isso procedure TForm1.Button1Click(Sender: TObject); var num : real; begin num := strtofloat(Edit1.Text); // 105,90 num := num * strtofloat(Edit2.Text); // 0,664230 CurrencyEdit1.Value := num; // resultado R$ 70,34 end; procedure TForm1.Button2Click(Sender: TObject); begin CurrencyEdit1.Value := CurrencyEdit2.Value * CurrencyEdit3.Value; end; O componente MaskEdit funciona como um Edit, com a diferença que voce pode colocar a mascara nele ( propriedade EditMask ) abraço -
A idéia pode ser simples, mas é bem mais complexa do que isso Toda programação que envolve o controle de algum wardware, não é simples No caso da idéia de uma Mini Geladeira, o controle não deveria ser sobre o Cooler ( ventilador ) mas sim em cima de uma Pastilha Termoeletrica ( do tipo usado em mini geladeiras portateis ) https://www.google.com.br/search?source=hp&ei=QykhW97mIombwgSU1piQAg&q=mini+geladeira+pastilha+peltier&o que=mini+geladeira+pastilha+&gs_l=psy-ab.1.0.0.1279.9138.0.10973.24.13.0.11.11.0.197.1447.7j6.13.0....0...1c.1.64.psy-ab..0.24.1560...0i131k1.0.A-uUEnX1ebQ mas nada impede de usar esse controle no Cooler. Vou te passar alguns links sobre controle de luminosidade ( controle de variação de tensão eletrica ) que voce pode usar para controlar a velocidade do Cooler , usando programação C++ mas isso vai envolver o uso de algum circuito eletronico ( tipo arduino ) para o controle https://www.google.com.br/search?ei=_yUhW_SRNYb9wQSgsJyIDA&q=controle+de+luminosidade+c%2B%2B&o que=controle+de+luminosidade+c%2B%2B&gs_l=psy-ab.3...10630.24477.0.25328.5.4.1.0.0.0.150.375.0j3.3.0....0...1c.1.64.psy-ab..1.2.223...0j0i22i30k1.0.Ov72qp0z3GM abraço
-
(Resolvido) Converter Resultado Real, para Resultado Inteiro
pergunta respondeu ao valSistemasDelphi de Jhonas em Delphi, Kylix
OK... o evento OnKeyPress do Edit é acionado toda vez que voce digita algum caracter nele no entanto, esse edit vai receber apenas numeros if not (key in ['0'..'9',',', #8]) then key := #0 /// Se não for numero não aceita o caracter no Edit else FNUMD(Edit1,trim(Edit1.text),key,20,2); /// Se for numero executa a função A função FNUMD, vai fazer a mesma coisa como se voce estivesse digitando numeros em uma calculadora. function FNUMD(Objeto: TEdit; Texto, VKey: String; Espaco, Decimal: Integer): String; FNUMD(Edit1,trim(Edit1.text),key,20,2); Então voce vai passar os valores dos parametros que a função esta pedindo - que é o texto do Edit, - o valor de Key ( chave ) que esta no parametro do evento OnkeyPress do Edit procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); - o tamanho maximo do espaço que voce quer digitar - e o valor decimal do numero, depois que voce digitar a virgula ou ponto quando voce finalizar a entrada do numero com a tecla Enter, então o numero é formatado procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); if key = #13 then begin Edit1.text := format('%20s',['R$ '+ trim(Edit1.text)]) ; exit; end; OBS: Se voce quiser usar dessa maneira, voce tem que fazer isso em cada Edit mas como te falei, fica mais facil usar o MaskEdit ou o CurrencyEdit ( nesse caso é só fazer o calculo e jogar o resultado dentro deles. Se voce tem duvidas quanto ao usar o comando Format veja no help do delphi ( F1 ) sobre o comando Format e FormatStrings -
(Resolvido) Converter Resultado Real, para Resultado Inteiro
pergunta respondeu ao valSistemasDelphi de Jhonas em Delphi, Kylix
voce esta usando edits para colocar o valor .... veja esse link mas se quiser menos trabalho, voce pode usar o componente MaskEdit1da paleta Additional ( nele voce já coloca a mascara que voce precisa ) ou o componente CurrencyEdit da paleta RxControl da biblioteca RXLIb... nesse componente voce não precisa fazer nada http://www.planetadelphi.com.br/download/870/componente/rxlib-para-delphi-7 OBS: se a versão do seu delphi não for o delphi 7 , voce pode procurar os componentes para a versão que voce esta usando abraço -
(Resolvido) Converter Resultado Real, para Resultado Inteiro
pergunta respondeu ao valSistemasDelphi de Jhonas em Delphi, Kylix
É só modificar o código exemplo: procedure TForm1.Button1Click(Sender: TObject); var num : real; begin num := strtofloat(Edit1.Text); // 105,90 num := num * strtofloat(Edit2.Text); // 0,664230 Edit3.Text := formatfloat('R$ ,0.00',num); // resultado R$ 70,34 end; abraço -
(Resolvido) Converter Resultado Real, para Resultado Inteiro
pergunta respondeu ao valSistemasDelphi de Jhonas em Delphi, Kylix
exemplo: procedure TForm1.Button1Click(Sender: TObject); var num : real; begin num := 105.90 * 0.664230; Edit1.Text := formatfloat(',0.00',num); // resultado 70,34 end; abraço -
(Resolvido) Converter Resultado Real, para Resultado Inteiro
pergunta respondeu ao valSistemasDelphi de Jhonas em Delphi, Kylix
é melhor voce passar um exemplo... fica mais facil te responder -
(Resolvido) Converter Resultado Real, para Resultado Inteiro
pergunta respondeu ao valSistemasDelphi de Jhonas em Delphi, Kylix
se é para ficar só a parte inteira, voce vai usar o comando int var num : real; begin num := 69.456546; Edit1.Text := floattostr(int(num)); // resultado = 69 end; abraço -
Olá Leandro320 ... Seja bem vindo ao Forum Voce pode começar estudando Lógica de Programaçao ... isso independe que qual linguagem voce quer usar, pois ela vai servir para qualquer uma delas. Esses links vão te dar uma idéia sobre esse assunto: https://www.google.com.br/search?source=hp&ei=cN0aW43FBsK4wATR06RQ&q=logica+de+programação+pdf&o que=logica+de+&gs_l=psy-ab.1.1.0l10.1155.2557.0.4696.10.10.0.0.0.0.158.1133.3j7.10.0....0...1c.1.64.psy-ab..0.10.1129...0i131k1.0.xF8cl0AljWI abraço
-
ainda não consegui me decidir se devo mesmo fazer faculdade ou não. um diploma de faculdade na mão faz muita diferença, se voce for disputar um emprego em uma grande empresa. considero apenas estudar para tirar algumas certificações e tentar conseguir um emprego só com isso. somente a certificação não garante o emprego, mas ajuda ... o que pesa mesmo é a experiência que voce tem na programação. abraço
-
(Resolvido) Formatar numero telefone evento onchange
pergunta respondeu ao renanbg de Jhonas em Delphi, Kylix
use o componente MaskEdit da paleta Additional na propriedade EditMask coloque !\(999\) #0000-0000;1;_ Obs: Quando quiser um digito a menos na mascara, basta dar um espaço com a Barra de espaços no inicio do numero do telefone ( # ) abraço -
veja esse link ou tente QuotedStr(FormatDateTime('dd/mm/yyyy hh:nn:ss.999')); abraço
-
Qual é o seu Banco de Dados ?
-
Quanto cobrar por um banco de dados simples?
pergunta respondeu ao Fyrion de Jhonas em Delphi, Kylix
Amigo, isso varia muito de programador para programador ... hoje um programador tambem acumula a função de Analista ( como programar um sistema em função do Usuário ) Depende tambem do tipo de Banco de dados que voce pretende usar... se o programa irá rodar em uma rede e com quantos micros. Que tipo de micro será usado como servidor do Banco de Dados Com o passar do tempo, o sistema pode evoluir para outras funções, então use modularidade ( ou seja, monte o seu programa em modulos ) Se voce for usar apenas 3 tabelas e um Form para cada Tabela ( incluíndo as opções de Inserir, alterar, excluir e imprimir relatórios ) o valor inicial pode começar em torno de R$ 600,00 e ir crescendo a medida que seu cliente for exigindo mais coisas no programa. abraço -
É uma boa prática se vôce estiver trabalhando em rede . abraço
-
voce não informou qual a versão do delphi esta usando... se for o delphi 7 veja na pasta Demos tem o exemplo teedemo.exe C:\Arquivos de programas\Borland\Delphi7\Demos\TeeChart ou voce pode procurar nesses links outros componentes que atendam ao seu requisito https://www.google.com.br/search?source=hp&ei=qkoDW-yiGIWswASYlraQDw&q=delphi+chart+components&o que=chart+delphi&gs_l=psy-ab.1.9.0j0i22i30k1l7j0i22i10i30k1j0i22i30k1.1778.6143.0.13797.16.14.2.0.0.0.214.1548.2j9j1.12.0....0...1c.1.64.psy-ab..2.14.1566...0i131k1j0i3k1j0i10k1.0.RDz4VeZIgu8 abraço
-
existe direfença entre chiado e chuvisco ... a qual dos 2 voce se refere ? chiado refere-se ao som ... chuvisco refere-se a imagem se for chuvisco.. verifique o circuito integrado do video. ( voce não passou o modelo da placa mãe ) esse circuito gera calor e possivelmente existe um dissipador de calor sobre ele. se estiver muito quente ao toque da mão, o que voce pode tentar é : tirar o dissapador de calor e colocar uma camada de pasta termica, entre o dissipador e o componente, e ver se resolve. outra sugestão: use uma placa de video Offboard... se o chuvisco sumir, então voce sabera que o video Onboard esta com problema. abraço
-
voce fez o contrário.. deveria ter instalado primeiro o Ubuntu e depois o windows 10... na instalação do windows 10 ele iria reconhecer outro sistema operacional na maquina e criar o dual boot se voce tivesse 2 HD e instalasse um sistema operacional em cada um, na tela inicial apareceria uma opção para voce escolher qual deles usar. voce até pode ficar alterando o modo UEFI na BIOS, mas vai descobrir que isso vai ficar muito chato de se ficar fazendo isso o tempo todo. abraço
-
para que é a biblioteca Stdio.h do c/c++?
pergunta respondeu ao Eduardo_Santos_ de Jhonas em Grupo de Estudos
nesses links tem vários exemplos de uso https://www.google.com.br/search?source=hp&ei=5Dn8WvpMicHABNa5g-AH&q=%23include+stdio.h+examples&o que=stdio.h+samples&gs_l=psy-ab.1.1.0i13i30k1j0i13i5i30k1j0i8i13i30k1.1656.12637.0.17916.15.11.0.4.4.0.155.1279.0j11.11.0....0...1c.1.64.psy-ab..0.15.1309...0j0i131k1j0i10k1j0i22i30k1.0.Al3LRhasKdo Tutorial https://www.google.com.br/url?sa=t&rct=j&q=&esrc=s&source=web&cd=8&ved=0ahUKEwit2dmOs4rbAhXFkpAKHVdLBXMQFghtMAc&url=http%3A%2F%2Fwww.unimep.br%2F~vmdzilio%2Fturboc%2Farquivos%2Ftutorial&usg=AOvVaw1dPG9s3IEO8V2dcfbpOqX- ou https://www.google.com.br/search?ei=Vjr8WqDzIIGewAT15LKwCQ&q=%23include+stdio.h+tutorial&o que=%23include+stdio.h+tu&gs_l=psy-ab.1.0.0i22i30k1l2.6443.6590.0.10149.2.2.0.0.0.0.141.261.0j2.2.0....0...1c.1.64.psy-ab..0.2.259...0i13k1j0i13i30k1.0.l40gh03ci70 abraço