Jump to content
Notícia
  • Adquira já o seu VIP!

dragonpool12

Bronze Member
  • Content Count

    202
  • Joined

  • Last visited

  • WCoins

    312 [ Donate ]

Community Reputation

2

2 Followers

About dragonpool12

  • Rank
    Especialista
  • Birthday 12/20/1993

Personal Information

  • Idade
    26

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Quando vou abrir esse UniverseGunz, o Xtrap dele trava meu windows 10, e reinicia.
  2. Gostaria de saber se tem como juntar as funções SelectDirectory com not(fileexists, por exemplo: begin if SelectDirectory('Selecione o Emulador', '', Directory) then FlatEdit1.Text:= Directory; // Adicionar o caminho no Edit Timer1.Enabled := true; // Ativar o Timer end; Com If not(fileexists('Directory')) then Showmessage('Arquivo inexistente'); tipo, verificar se um arquivo do "Directory", existe utilizando essa função de baixo?
  3. Oche, em lugar errado, "Programação > Dúvidas", cadê a área incorreta, me poupe!
  4. Bom, pretendo dividir os valores de TexBox1.Text por TexBox2.Text e resultar em TexBox3.Text Porém tenho problemas em variáveis, como faço para TexBox aceitar números sem problemas? Alguém poderia montar um exemplo para que possa ver como seria? Algum tutorial simplificado!? Deis de já, agradeço a todos!
  5. Consegui, vlw; Mais uma dúvida, como faço para centralizar o form1 na tela do computador? Ficando bem no centro e encima dos outros form2, 3 ... Que abriram juntos?
  6. Quando abrir form1, abrir o form2 automaticamente?Alguém pode me ajudar?
  7. Bom, o código foi passado para; procedure TForm1.sButton1Click(Sender: TObject);var N1, N2, N3, N4, N5, N6 : Double; begin N1 := StrToFloatDef(sEdit1.Text,0); // Salário Contratual N2 := StrToFloatDef(sEdit2.Text,0); // Hora Mensal N3 := StrToFloatDef(sEdit3.Text,0); // Carga Horária N4 := StrToFloatDef(sEdit7.Text,0); // Horário Integral N5 := (N1 / N2); // Divisão do Sal.Contratual com Hora Mensal N6 := (N1 - N4); // Salário Contratual - Quantidade de Faltas sEdit4.Text := FloatToStr(N5); // Ganhos em 1 hora de Trabalho sEdit7.Text := FloatToStr(N5 * N3); // Ganhos horário integral sEdit6.Text := FloatToStr(N6); // Caso Falte, será descontado o horário integral end; Funcionou perfeitamente, mas quando coloco 2 faltas na empresa, o salário continua 630,00, não está fazendo a subtração corretamente.
  8. Sim, todas estão com valores, e ele aceita assim, 630,00, var N1, N2, N3, N4, C, Dividir : real; begin N1 := StrToFloat(sEdit1.Text); N2 := StrToFloat(sEdit2.Text); N3 := StrToFloat(sEdit3.Text); N4 := StrToFloat(sEdit7.Text); Dividir := (N1/N2); C := N1 - N4; sEdit4.Text := FloatToStr(Dividir); sEdit7.Text := FloatToStr(Dividir * N3); sEdit6.Text := FloatToStr©; end; N1 = 630,00 N2 = 180 N3 = 8 N4 = Divisão do N1 / N2; Olha, você olhando bem, o código pode me ajudar?
  9. Bom, baseado neste código; procedure TForm1.sButton1Click(Sender: TObject); [font=lucida console]var[/font] [font=lucida console] N1, N2, N3, N4, Dividir : real;[/font] [font=lucida console] [/font] [font=lucida console]begin[/font] [font=lucida console] N1 := StrToFloat(sEdit1.Text);[/font] [font=lucida console] N2 := StrToFloat(sEdit2.Text);[/font] [font=lucida console] N3 := StrToFloat(sEdit3.Text);[/font] [font=lucida console] N4 := StrToFloat(sEdit7.Text);[/font] [font=lucida console] [/font] [font=lucida console] Dividir := (N1/N2);[/font] [font=lucida console] [/font] [font=lucida console] [/font] [font=lucida console]sEdit4.Text := FloatToStr(Dividir);[/font] [font=lucida console] [/font] [font=lucida console]sEdit7.Text := FloatToStr(Dividir * N3);[/font] [font=lucida console] [/font] [font=lucida console]sEdit6.Text := FloatToStr(N1 - N4);[/font] [font=lucida console] [/font] [font=lucida console]end;[/font] Estou querendo que sEdit6.Text := FloatToStr(N1 - N4); quero que o valor do N1, faça uma subtração do N4. Mas conforme tem outros códigos sEdit7.Text := FloatToStr(Dividir * N3); apresenta um erro quando tento apertar o botão 'Calcular', alguém saberia me dizer como utilizar uma função encima de outra? A mensagem do erro é 'is not a valid floating point value'.
  10. Cara, muito obrigado, funcionou perfeitamente, e ainda fez a divisão que eu queria! @Outra dúvida Bom, as divisões, estão com resultados assim : 38,445564345, dizima periódicas, como faço para corrigir isto? Já tentei com Var real, string, ...
  11. Bom, estou tendo um problema com a a divisão + soma, no Delphi 7, irei mostrar o código abaixo, e o que aparecer quando clico em compilar. [Error] Unit1.pas(75): Operator not applicable to this operand type [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas' Eu quero que o sEdit7, receba a divisão do "Dividir", e multiplique o "D", pegar o valor do "Dividir" e de imediato multiplicar por "D", tudo isso para aparecer no sEdit7. conseguiu entender? Sabe como corrigir? Por favor me ajude, grato deis de Já!
  12. Ta estou sabendo disso agora, agora me diga quem é que lê estas regras?? Me diga uma pessoa, tiram você é claro! Se o tópico não pode ser ressucitado, fala o mínimo de dar closed, faça me favor!
  13. Agora depende, Combat Arms roda até no pc da xuxa, agora MARS, tive que comprar uma GeForce gt 630...
  14. Bom, gostaria de fazer uma cosa, quando coisas no button, irá procurar o diretório da pasta, nesta pasta terá vários arquivos .txt, então no Edit1, aparecerá somente a linha desejada do arquivo .txt. tipo um editor de texto, porém seleciona a linha desejada, e aparecerá no edit. Como fazer isso?
  15. Se você não conhece os vírus, são vírus criados privadamente para ferrar seus computadores, eu não sou doido de baixar uma coisa dessa, além do que, o meu anti-vírus não deixaria nem executar!
×
×
  • Create New...