Hacker_Buiu

Neste tutorial que criei você vai aprender a tirar arquivos desnecessários do Windows sem usar programa: 1)Digite Executar na barra de espaço do Windows 10>Depois digite "prefetch" sem as aspas duplas,exclua todos os arquivos de dentro dessa pasta selecionando-os com Control+a.Se aparecer mensagem,assinale todos para a frase "Selecione tudo isso para todos os arquivos atuais" alguma coisa assim,delete/exclua tudo,se pedir para ignorar clique no botão ignorar todos. 2)Digite Executar de novo>Agora digite "temp" sem as aspas duplas,de novo selecione tudo apertando no teclado control+a.Delete Tudo.Faça o mesmo processo do que o primeiro. 3)Digite novamente Executar, só que agora,digite "%temp%" sem as aspas duplas,de novo selecione tudo apertando no teclado control+a,Delete tudo ignorando os arquivos,se tiver em algum desses 3 o arquivo vulkan ou nvidia não delete são os únicos primordiais para funcionar a placa de vídeo.Se deletou dá para restaurar na lixeira,por fim esvazie a lixeira para que o Windows fique mais leve.

Fiz os programas no Lazarus(Delphi 7 para Linux): Visualizador de imagem: Download do programa: https://gitlab.com/BuiuDeJaraguaDoSul/visualizadordeimagemslackware/-/raw/master/VisualizadorDeImagem-0.1.0-x86_64-1.txz Calculadora Completa: Download do programa: https://gitlab.com/BuiuDeJaraguaDoSul/calculadoracompletaslackware/-/raw/master/CalculadoraCompleta-0.1.0-x86_64-1.txz Calculadora De Décimo Terceiro Salário: Download do programa: https://gitlab.com/BuiuDeJaraguaDoSul/calculadoradedecimoterceirosalarioslackware/-/raw/master/CalculadoraDeDecimoTerceiroSalario-0.1.0-x86_64-1.txz Calculadora Empresarial: Download do programa: https://gitlab.com/BuiuDeJaraguaDoSul/calculadoraempresarialslackware/-/raw/master/CalculadoraEmpresarial-0.1.0-x86_64-1.txz Criptografador: Download do programa: https://gitlab.com/BuiuDeJaraguaDoSul/criptografadorslackware/-/raw/master/Criptografador-0.1.0-x86_64-1.txz Cronômetro: Download do programa: https://gitlab.com/BuiuDeJaraguaDoSul/cronometroslackware/-/raw/master/Cronometro-0.1.0-x86_64-1.txz Editor De Texto: Download do programa: https://gitlab.com/BuiuDeJaraguaDoSul/editordetextoslackware/-/raw/master/EditorDeTexto-0.1.0-x86_64-1.txz Gerador de Senha: Download do programa: https://gitlab.com/BuiuDeJaraguaDoSul/geradordesenhaslackware/-/raw/master/GeradorDeSenha-0.1.0-x86_64-1.txz

Fiz os programas no Lazarus(Delphi 7 para Linux): Cronômetro: Download do programa: https://gitlab.com/BuiuDeJaraguaDoSul/cronometrofedora/-/raw/master/Cronometro-1.0-1.x86_64.rpm Gerador De Senha: Download do programa: https://gitlab.com/BuiuDeJaraguaDoSul/geradordesenhafedora/-/raw/master/GeradorDeSenha-1.0-1.x86_64.rpm Criptografador: Download do programa: https://gitlab.com/BuiuDeJaraguaDoSul/criptografadorfedora/-/raw/master/Criptografador-2.0-1.x86_64.rpm Visualizador de Imagem: Download do programa: https://gitlab.com/BuiuDeJaraguaDoSul/visualizadordeimagemfedora/-/raw/master/VisualizadorDeImagem-1.0-1.x86_64.rpm Editor de Texto: Download do programa: https://gitlab.com/BuiuDeJaraguaDoSul/editordetextofedora/-/raw/master/EditorDeTexto-1.0-1.x86_64.rpm Calculadora Empresarial: Download do programa: https://gitlab.com/BuiuDeJaraguaDoSul/calculadoraempresarialfedora/-/raw/master/CalculadoraEmpresarial-1.0-1.x86_64.rpm Calculadora de décimo terceiro salário: Download do programa: https://gitlab.com/BuiuDeJaraguaDoSul/calculadoradedecimoterceirosalariofedora/-/raw/master/CalculadoraDeDecimoTerceiroSalario-1.0-1.x86_64.rpm Calculadora Completa: Download do programa: https://gitlab.com/BuiuDeJaraguaDoSul/calculadoracompletafedora/-/raw/master/CalculadoraCompleta-1.0-1.x86_64.rpm

Fiz os programas no Lazarus(Delphi 7 para Linux): Calculadora Completa: Download do programa: https://gitlab.com/BuiuDeJaraguaDoSul/calculadoracompletadebian/-/raw/master/CalculadoraCompleta.deb Calculadora de décimo terceiro salário: Download do programa: https://gitlab.com/BuiuDeJaraguaDoSul/calculadoradedecimoterceirosalariodebian/-/raw/master/CalculadoraDeDecimoTerceiroSalario.deb Criptografador: Download do programa: https://gitlab.com/BuiuDeJaraguaDoSul/criptografadordebian/-/raw/master/Criptografador.deb Gerador de Senha: Download do programa: https://gitlab.com/BuiuDeJaraguaDoSul/geradordesenhadebian/-/raw/master/GeradorDeSenha.deb Cronômetro: Download do programa: https://gitlab.com/BuiuDeJaraguaDoSul/cronometrodebian/-/raw/master/Cronometro.deb Visualizador de imagem: Download do programa: https://gitlab.com/BuiuDeJaraguaDoSul/visualizadordeimagemdebian/-/raw/master/VisualizadorDeImagem.deb Editor de Texto: Download do programa: https://gitlab.com/BuiuDeJaraguaDoSul/editordetextodebian/-/raw/master/EditorDeTexto.deb Calculadora Empresarial: Download do programa: https://gitlab.com/BuiuDeJaraguaDoSul/calculadoraempresarialdebian/-/raw/master/CalculadoraEmpresarial.deb

Nessa dica ensinarei a finalidade ou função de cada diretório do Linux,a explicação serve para a maioria das distros,não para todas.Serve de base para os novatos em Linux.O GoboLinux foge desse padrão de diretórios,dica aos administradores e moderadores, se puderem deixar essa dica fixada ou pinada, não sei como se diz para estudos futuros melhor ainda,e se criarem a área Linux,movam minhas dicas e artigos para lá. / =É a raiz,ou seja,o diretório principal do sistema. Todos os outros diretórios são,de fato,subdiretórios do root. /home = Armazena diretórios e arquivos de trabalho dos usuários comuns do sistema. /root = Armazena diretórios e arquivos de trabalho do super usuário (root). /boot= Contém o kernel e todos os arquivos necessários para a inicialização do sistema. /bin = Contém aplicativos e utilitários do sistema. /sbin= Contém ferramentas de configuração e manutenção do sistema. Alguns aplicativos acessíveis apenas ao superusuário são instalados neste diretório. /srv = Dados de serviços fornecidos pelo sistema. /lib = Contém as bibliotecas compartilhadas e os módulos do kernel. /media = Ponto de montagem para mídia removível. /dev = Contém todos os dispositivos do sistema, tais como: modem, HD, PenDrive, CD-ROM, entre outros. Esses diretórios são utilizados para troca de informações, não possuindo existência real.(dev vem do inglês, e é a abreviação de device, que significa dispositivo em inglês). /etc = Contém todos os arquivos de configuração do sistema. /tmp = Diretório reservado aos arquivos temporários utilizados por algumas aplicações. Como ocorre em muitos outros sistemas operacionais,durante o funcionamento são gerados arquivos temporários,inúteis após a conclusão do processo. Esse tipo de **Lixo** digital é colocado no diretório /tmp para que possa ser removido rapidamente,sem correr o risco de apagar os arquivos importantes. /mnt = Diretório reservado para montagem de dispositivos e sistemas de arquivos em partições e discos locais e de rede. /proc =Contém informações sobre os processos em execução no sistema. Assim como no diretório /dev, os arquivos e subdiretórios aqui contidos não são reais, sendo utilizados apenas como arquivos de troca. /usr = Programas de usuários, sistemas de janelas X, jogos entre outros. Os links de alguns programas costumam ser instalados aqui. /var = Contém arquivos de dados variáveis como log do sistema e diretórios de spool. /opt = Diretório reservado para instalação de aplicações de terceiros como OpenOffice, softwares pagos etc. /usr/bin=Contém ferramentas e aplicativos de cada usuário. Ao criar uma nova conta de usuário, o sistema cria automaticamente uma pasta /usr/bin. /usr/dict=Diretório em que são armazenados os dicionários (o nome dict deriva do inglês dictionary) e as listas de termos do usuário. /usr/doc=Esse diretório contém a documentação do sistema em uso. /usr/games=Quem disse que no Linux não se pode jogar? Esse diretório traz alguns aplicativos interessantes para a diversão dos usuários. /usr/info=Nesse diretório encontramos os arquivos para o sistema GNU Info,baseado em hipertextos. /usr/lib=Assim como o diretório bin da raiz contém as bibliotecas para a execução das ferramentas,desa vez,porém trata-se dos componentes da ferramentas que se encontram no diretório /usr/bin. /usr/local=Essa pasta contém arquivos locais,ou seja,exclusivos para cada sistema(ou aplicativo),que incluem documentação (/usr/local/doc) e os programas em si (/usr/local/bin). /usr/man=Diretório que agrupa os manuais que podem ser lidos com o comando man. /usr/share=Contém arquivos e componentes compartilhados por vários aplicativos. Nesse diretório,encontramos diversos subdiretórios com arquivos de ajuda,ícones,etc. /usr/src=Esse diretório contém o código fonte (source) dos softwares disponíveis no sistema. Esse código pode ser visualizado e alterado livremente por programadores experientes para aprimorar o funcionamento de ferramentas e aplicativos,inclusive acrescentando opções de funcionamento. /usr/tmp=É o diretório em que são colocados os arquivos temporários gerados pelo usuário ativo.

Os administradores e moderadores vão fixar ou pinar o tópico para estudos futuros?

Delphi está na área errada,não deveria ser numa área desktop,ao contrário de web?

Coloquei os códigos fontes no GitLab por ser Open Source,sigo essa filosofia Open Source,por isso não coloquei no GitHub. Visualizador de imagem Delphi Coloque um OpenPictureDialog no Form e digite o código abaixo no botão:Não se esqueça de adicionar um TImage para ver a imagem. Código: if OpenPictureDialog1.Execute then Image1.Picture.LoadFromFile(OpenPictureDialog1.Filename); Editor de Texto Novo Memo1.Clear; Memo1.SetFocus; ----------------------------------------- Abrir if openDialog1.Execute then begin memo1.Lines.LoadFromFile(OpenDialog1.Filename); memo1.setfocus; end; ----------------------------------------- Botão Salvar if save.execute then begin memo1.Lines.SaveToFile(save.Filename); end; ----------------------------------------- Copiar Memo1.CopytoClipBoard; ----------------------------------------- Colar Memo1.PasteFromClipboard; ; ----------------------------------------- Recortar Memo1.CutToClipBoard ----------------------------------------- Fonte FontDialog1.Font:=Memo1.Font; if FontDialog1.Execute then begin Memo1.Font:= FontDialog1.Font; Memo1.SetFocus; end; Gerador de Senha var i:integer; const str='1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ@!#$%&*'; max=14; begin Edit1.Text:=''; for i:=1 to max do begin Edit1.Text:=Edit1.Text+str[random(length(str))+1]; end; Cronômetro unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, Buttons, ExtCtrls; type { TForm1 } TForm1 = class(TForm) Cronometrar: TBitBtn; Parar: TBitBtn; Edit1: TEdit; Timer1: TTimer; procedure CronometrarClick(Sender: TObject); procedure PararClick(Sender: TObject); procedure Timer1Timer(Sender: TObject); private public end; var Form1: TForm1; HoraInicial:TDateTime; implementation {$R *.lfm} { TForm1 } procedure TForm1.CronometrarClick(Sender: TObject); begin HoraInicial := Now; Timer1.Enabled := True; end; procedure TForm1.PararClick(Sender: TObject); begin HoraInicial := Now; Timer1.Enabled := False; end; procedure TForm1.Timer1Timer(Sender: TObject); begin Edit1.Text := FormatDateTime('hh:mm:ss',Now-HoraInicial); end; end. Criptografador (conceito de criptografia) unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls; type { TForm1 } TForm1 = class(TForm) Button1: TButton; Button2: TButton; edtcriptografado: TEdit; edttexto: TEdit; edtdescriptografado: TEdit; edtkey: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure FormCreate(Sender: TObject); private function criptografar(const key, texto:String):String; function descriptografar(const key, texto:String):String; public end; var Form1: TForm1; implementation {$R *.lfm} { TForm1 } procedure TForm1.Button1Click(Sender: TObject); begin edtcriptografado.Text:=criptografar(edtkey.Text,edttexto.Text); end; procedure TForm1.Button2Click(Sender: TObject); begin edtdescriptografado.Text:=descriptografar(edtkey.Text, edtcriptografado.Text); end; function TForm1.criptografar(const key, texto: String): String; var I: Integer; C: Byte; begin Result := ''; for I := 1 to Length(texto) do begin if Length(Key) > 0 then C := Byte(Key[1 + ((I - 1) mod Length(Key))]) xor Byte(texto[I]) else C := Byte(texto[I]); Result := Result + AnsiLowerCase(IntToHex(C, 2)); end; end; function TForm1.descriptografar(const key, texto: String): String; var I: Integer; C: Char; begin Result := ''; for I := 0 to Length(texto) div 2 - 1 do begin C := Chr(StrToIntDef('$' + Copy(texto, (I * 2) + 1, 2), Ord(' '))); if Length(Key) > 0 then C := Chr(Byte(Key[1 + (I mod Length(Key))]) xor Byte(C)); Result := Result + C; end; end; end. Calculadora Empresarial procedure TForm1.CalcularCicloDoProcessoClick(Sender: TObject); var n1,n2,resultado:real; //declaração de variáveis do tipo real(aceita numero inteiro e com vírgula) begin n1:=StrToFloat(TempoTrabalhadoEmHoras.Text);// converte n1(numero1) para numero flutuante n2:=StrToFloat(NumeroDeProdutosBons.Text);//converte n2(numero2)para numero flutuante resultado:=n1/n2; //Dividi a variável n1(numero1) e n2(numero2 ResultadoDoCicloDoProcesso.Text:=FloatToStr(resultado);//mostra o resultado convertendo numero flutuante(Float) para texto(String) procedure TForm1.CalcularTaxaDeProducaoClick(Sender: TObject); var n1,n2,resultado:real; begin n1:=StrToFloat(TempoTrabalhado.Text); n2:=StrToFloat(NumeroDeProdutosBons.Text); resultado:=n2/n1; ResultadoTaxaDeProducao.Text:=FloatToStr(resultado); procedure TForm1.CalcularTaxaDeProducaoPorRecursoClick(Sender: TObject); var n1,n2,resultado:real; begin n1:=StrToFloat(TaxaDeProducao.Text); n2:=StrToFloat(NumeroDeFuncionarios.Text); resultado:=n1/n2; ResultadoTaxaDeProducaoPorRecurso.Text:=FloatToStr(resultado); procedure TForm1.CalcularGiroDeEstoqueClick(Sender: TObject); var n1,n2,n3,resultado:real; begin n1:=StrToFloat(NumeroDeProdutosBons.Text); n2:=StrToFloat(TotalDeMateriais.Text); n3:=StrToFloat(TotalDeProdutos.Text); resultado:=n1*12/n2/n3; ResultadoDoGiroDoEstoque.Text:=FloatToStr(resultado); procedure TForm1.CalcularFaltaDeQualidadeClick(Sender: TObject); var n1,n2,resultado:real; begin n1:=StrToFloat(NumeroDeProdutosComDefeitos.Text); n2:=StrToFloat(TotalProduzido.Text); resultado:=n1/n2; ResultadoDaFaltaDeQualidade.Text:=FloatToStr(resultado); procedure TForm1.SairClick(Sender: TObject); begin Form1.Close; procedure TForm1.CalcularCPVClick(Sender: TObject); var n1,n2,resultado:real; begin n1:=StrToFloat(NumeroDeProdutosBons.Text); n2:=StrToFloat(ValorUnitario.Text); resultado:=n1*n2; ResultadoCPV.Text:=FloatToStr(resultado); procedure TForm1.CalcularCustoDaFaltaDeQualidadeClick(Sender: TObject); var n1,n2,resultado:real; begin n1:=StrToFloat(NumeroDeProdutosComDefeitos.Text); n2:=StrToFloat(ValorUnitario.Text); resultado:=n1*n2; ResultadoDoCustoDaFaltaDeQualidade.Text:=FloatToStr(resultado); Botão Apagar: TempoTrabalhado.Text:=''; TempoTrabalhadoEmHoras.Text:=''; NumeroDeProdutosBons.Text:=''; resultadoDoCicloDoProcesso.Text:=''; TaxaDeProducao.Text:=''; ResultadoTaxaDeProducao.Text:=''; NumeroDeFuncionarios.Text:=''; ResultadoTaxaDeProducaoPorRecurso.Text:=''; TotalDeMateriais.Text:=''; TotalDeProdutos.Text:=''; ResultadoDoGiroDoEstoque.Text:=''; NumeroDeProdutosComDefeitos.Text:=''; TotalProduzido.Text:=''; ResultadoDaFaltaDeQualidade.Text:=''; ResultadoCPV.Text:=''; ResultadoDoCustoDaFaltaDeQualidade.Text:=''; Form1. close; //Fecha o Form procedure TForm2.CalcularCustoDeCarregarEstoqueClick(Sender: TObject); var n1,n2,n3,resultado:real; begin n1:=StrToFloat(EstoqueDeProducaoEmProcesso.Text); n2:=StrToFloat(ValorUnitario.Text); n3:=StrToFloat(TaxaDeJuros.Text); resultado:=n1*n2*n3; ResultadoDoCustoDeCarregarEstoque.Text:=FloatToStr(resultado); end; procedure TForm2.CalcularCustoFixoClick(Sender: TObject); var n1,n2,resultado:real; begin n1:=StrToFloat(SalarioDoColaborador.Text); n2:=StrToFloat(DespesasGerais.Text); resultado:=n1+n2; ResultadoDoCustoFixo.Text:=FloatToStr(resultado); end; procedure TForm2.CalcularCustoTotalClick(Sender: TObject); var n1,n2,n3,n4,resultado:real; begin n1:=StrToFloat(CPV.Text); n2:=StrToFloat(CustoDaQualidade.Text); n3:=StrToFloat(CustoDoEstoque.Text); n4:=StrToFloat(CustoFixo.Text); resultado:=n1+n2+n3+n4; CustoTotal.Text:=FloatToStr(resultado); end; procedure TForm2.CalcularCustoUnitarioClick(Sender: TObject); var n1,n2,resultado:real; begin n1:=StrToFloat(CustoTotal.Text); n2:=StrToFloat(NumeroDeProdutosBons.Text); resultado:=n1/n2; ResultadoDoCustoUnitario.Text:=FloatToStr(resultado); end; procedure TForm2.SairClick(Sender: TObject); begin Form2.Close;// Fecha o Form2 end; procedure TForm2.ApagarClick(Sender: TObject); begin EstoqueDeProducaoEmProcesso.Text:=''; ValorUnitario.Text:=''; TaxaDeJuros.Text:=''; ResultadoDoCustoDeCarregarEstoque.Text:=''; SalarioDoColaborador.Text:=''; DespesasGerais.Text:=''; ResultadoDoCustoFixo.Text:=''; CPV.Text:=''; CustoDaQualidade.Text:=''; CustodoEstoque.Text:=''; CustoFixo.Text:=''; CustoTotal.Text:=''; NumeroDeProdutosBons.Text:=''; ResultadoDoCustoUnitario.Text:=''; end; Calculadora de décimo terceiro salário unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls; type { TForm1 } TForm1 = class(TForm) Calcular: TButton; Apagar: TButton; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Sair: TButton; procedure ApagarClick(Sender: TObject); procedure CalcularClick(Sender: TObject); procedure SairClick(Sender: TObject); private { private declarations } public { public declarations } end; var Form1: TForm1; implementation { TForm1 } procedure TForm1.CalcularClick(Sender: TObject); var n1,n2,resultado:real;//n1(numero1),n2(numero2),resultado(resultado do calculo) begin n1:=StrToFloat(Edit1.text); n2:=StrToFloat(Edit2.text); resultado:=n1*n2/12; Edit3.text:=FloatToStr(resultado); end; procedure TForm1.SairClick(Sender: TObject); begin Form1.Close; end; procedure TForm1.ApagarClick(Sender: TObject); begin Edit1.text:=''; Edit2.text:=''; Edit3.Text:=''; end; initialization {$I unit1.lrs} end. Calculadora completa com porcentagem unit UnitCalculadora; {$mode objfpc}{$H+} interface uses Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls, Menus; type { TForm1 } TForm1 = class(TForm) BtnDivisao: TButton; BtnMultiplicacao: TButton; BtnSete: TButton; BtnOito: TButton; BtnNove: TButton; BtnC: TButton; BtnQuatro: TButton; BtnCinco: TButton; BtnSeis: TButton; BtnDois: TButton; BtnTres: TButton; BtnSubtracao: TButton; BtnAdicao: TButton; BtnUm: TButton; BtnPonto: TButton; BtnIgual: TButton; BtnPorcentagem: TButton; BtnZero: TButton; Edit1: TEdit; Label1: TLabel; MainMenu1: TMainMenu; MenuItem1: TMenuItem; MenuItem2: TMenuItem; Panel1: TPanel; procedure BtnAdicaoClick(Sender: TObject); procedure BtnCClick(Sender: TObject); procedure BtnCincoClick(Sender: TObject); procedure BtnDivisaoClick(Sender: TObject); procedure BtnDoisClick(Sender: TObject); procedure BtnIgualClick(Sender: TObject); procedure BtnMultiplicacaoClick(Sender: TObject); procedure BtnNoveClick(Sender: TObject); procedure BtnOitoClick(Sender: TObject); procedure BtnPorcentagemClick(Sender: TObject); procedure BtnQuatroClick(Sender: TObject); procedure BtnSeisClick(Sender: TObject); procedure BtnSeteClick(Sender: TObject); procedure BtnSubtracaoClick(Sender: TObject); procedure BtnTresClick(Sender: TObject); procedure BtnUmClick(Sender: TObject); procedure BtnPontoClick(Sender: TObject); procedure BtnZeroClick(Sender: TObject); private public end; var Form1: TForm1; valor1, valor2, porcentagem:real; tipoconta:string; implementation {$R *.lfm} { TForm1 } procedure TForm1.BtnAdicaoClick(Sender: TObject); begin tipoconta:='Adição'; valor1:=strtofloat(Edit1.text); Edit1.Text:=''; Label1.Caption:='+'; end; procedure TForm1.BtnCClick(Sender: TObject); begin Edit1.text:=''; valor1:=0; valor2:=0; tipoconta:=''; Label1.Caption:=''; end; procedure TForm1.BtnCincoClick(Sender: TObject); begin Edit1.text:=Edit1.text+'5'; end; procedure TForm1.BtnDivisaoClick(Sender: TObject); begin tipoconta:='Divisão'; valor1:=strtofloat(Edit1.text); Edit1.Text:=''; Label1.Caption:='/'; end; procedure TForm1.BtnDoisClick(Sender: TObject); begin Edit1.text:=Edit1.text+'2'; end; procedure TForm1.BtnIgualClick(Sender: TObject); begin if tipoconta = 'Adição' then begin valor2:=StrToFloat(edit1.text); edit1.text:=FloatToStr(valor1+valor2); end; if tipoconta = 'Subtração' then begin valor2:=StrToFloat(edit1.text); edit1.text:=FloatToStr(valor1-valor2); end; if tipoconta = 'Divisão' then begin valor2:=StrToFloat(edit1.text); edit1.text:=FloatToStr(valor1/valor2); end; if tipoconta= 'Multiplicação' then begin valor2:=StrToFloat(Edit1.Text); Edit1.Text:=FloatToStr(Valor1 * Valor2); end; end; procedure TForm1.BtnMultiplicacaoClick(Sender: TObject); begin tipoconta:='Multiplicação'; valor1:=strtofloat(Edit1.text); Edit1.Text:=''; Label1.Caption:='X'; end; procedure TForm1.BtnNoveClick(Sender: TObject); begin Edit1.text:=Edit1.text+'9'; end; procedure TForm1.BtnOitoClick(Sender: TObject); begin Edit1.text:=Edit1.text+'8'; end; procedure TForm1.BtnPorcentagemClick(Sender: TObject); var resultado:real; begin if tipoconta ='Multiplicação' then begin valor2:=strtofloat(edit1.text); resultado:=valor1*valor2/100; Edit1.text:=FloatToStr(resultado); Label1.Caption:='%'; end; if tipoconta = 'Adição' then begin porcentagem:=strtofloat(edit1.text); porcentagem:=porcentagem/100; porcentagem:=porcentagem*valor1; edit1.text:=floattostr(valor1+porcentagem); end; if tipoconta = 'Subtração' then begin porcentagem:=strtofloat(edit1.text); porcentagem:=porcentagem/100; porcentagem:=porcentagem*valor1; edit1.text:=floattostr(valor1-porcentagem); end; if tipoconta = 'Divisão' then begin porcentagem:=strtofloat(edit1.text); porcentagem:=porcentagem/100; porcentagem:=porcentagem*valor1; edit1.text:=floattostr(valor1/porcentagem); end; end; procedure TForm1.BtnQuatroClick(Sender: TObject); begin Edit1.text:=Edit1.text+'4'; end; procedure TForm1.BtnSeisClick(Sender: TObject); begin Edit1.text:=Edit1.text+'6'; end; procedure TForm1.BtnSeteClick(Sender: TObject); begin Edit1.text:=Edit1.text+'7'; end; procedure TForm1.BtnSubtracaoClick(Sender: TObject); begin tipoconta:='Subtração'; valor1:=strtofloat(Edit1.text); Edit1.Text:=''; Label1.Caption:='-'; end; procedure TForm1.BtnTresClick(Sender: TObject); begin Edit1.text:=Edit1.text+'3'; end; procedure TForm1.BtnUmClick(Sender: TObject); begin Edit1.text:=Edit1.text+'1'; end; procedure TForm1.BtnPontoClick(Sender: TObject); begin Edit1.text:=Edit1.text+'.'; end; procedure TForm1.BtnZeroClick(Sender: TObject); begin Edit1.text:=Edit1.text+'0'; end; end.

Coisas que raciocinei: 1)Qualquer um pode aprender,desde o idiota até o Gênio,então não devemos dar bola para o aprendizado,porque qualquer um pode aprender. 2)Conhecimento não é sinal de inteligência(Aprendi/descobri com 9 anos de idade),porque conhecimento e inteligência são conceitos diferentes,conhecimento é o conjunto de informações e inteligência é um poder mental,capacidade mental ou processo mental. 3)Enganar é sinal de burrice e não de inteligência,porque enganar é errado,e o inteligente não faz coisa errada,o inteligente só faz coisa certa,quem faz coisa errada é o burro,por isso enganar o outro é sinal de burrice. 4)Raciocínio é a base da inteligência,se você raciocina és inteligente,raciocinar é interligar um ponto a outro ponto,ou seja interligar uma coisa a outra coisa,isso se chama raciocínio. Minhas frases filosóficas do site pensador.uol: 1)O Silêncio e o tempo são os donos da verdade. 2)O principio da filosofia é a dúvida,pois só a dúvida te faz pensar. 3)A solidão faz mentes brilhantes,pois a solidão te faz pensar,costumamos pensar quietos e sozinhos. 4)O ser humano não é nada sem o ser e o agir,o ser é o que tu é,e o agir é sua atitude. 5)O Gênio pensa diferente do senso comum,porque o senso comum é o pensamento/conhecimento do povo. Para mais frases digite no google: Pensador João Santos Vieira Junior(Sou eu). Enfim aprendi coisas que nenhum ser humano no mundo aprenderia,talvez por isso meu endocrinologista pediátrico quando eu tinha 14 anos,disse que como sou portador da síndrome de Noonan(Dr.Jacqueline Noonan),o mesmo disse que eu nasci para ser o mestre dos mestres,o Professor dos professores,por ter essa doença rara,e outro que estuda minha doença disse que eu tenho inteligência mais técnica do que os outros. Coloquem aqui coisas que vocês raciocinaram,tá ok.

Essa história é de uma investigação suprema que estudo há anos,via livros e internet: O que é investigação suprema? Diferente da investigação normal que precisa de tecnologia e testemunhas como pessoas para comprovar o fato,a investigação suprema não usa de tecnologia e testemunhas como pessoas,só de inteligência seguindo pistas ou indícios para comprovar o fato,assim como toda investigação suprema devemos montar peça por peça afim de montar um quebra-cabeça do caso. O que é fato? Fato não é a verdade em si,nem a verdade propriamente dita,se algum investigador falar isso,ele está errado,fato é a realidade que pode ser comprovada.Pronto já sabemos o significado de Fato na investigação. Indícios ou pistas desse continente perdido: O Continente de MU ficava no meio do oceano pacifico,e se estendia por todas as ilhas do mesmo oceano,então a ilha do Havaí e a de Pascoa fizeram parte do continente de MU(Jardim do Éden),esse continente submergiu em um cataclismo terrestre(Tsunamis e terremotos significado de cataclismo),o mesmo submergiu há mais ou menos 10 mil anos na ultima era glacial(Era do Gelo para quem não sabe),todas as etnias faziam parte desse continente perdido,antes desse acidente, as etnias saíram do continente para migrar em diferentes continentes ao redor do globo para refazer sua própria colônia,índios foram para a América,negros foram para a africa e assim por diante,no continente perdido era falado o idioma primitivo do homem(Símbolos e desenhos),depois que as etnias migraram para continentes diferentes para refazer sua própria colônia,as etnias criaram seus próprios idiomas(Línguas),depois que as tsunamis pararam naquele oceano e se acalmaram como se estivessem satisfeitas pelo ocorrido,o homem nomeou ironicamente aquele oceano de oceano pacifico.Hoje as piramides de Yonaguni no sul de um mar no Japão podem comprovar se tal continente existiu,as piramides são misteriosas e grandes como era o continente de MU(Jardim do Éden),Berço da humanidade,lembre-se aonde há fumaça há fogo,eu apresentei a fumaça(Indicio ou pista),só faltam achar o fogo(Prova). Será que as piramides de Yonaguni seriam o fogo? O que acham dessa investigação suprema?

Porque quando vou curtir seu comentário, dá erro?

Porque demora para aprovar meus tópicos?Porque quando tento curtir dá erro,e perco o direito de criar um novo tópico?

Qual sistema operacional você usa ou gosta?