Ir para conteúdo
Faça parte da equipe! (2024) ×
Conheça nossa Beta Zone! Novas áreas a caminho! ×

lídernolinux1987

Membro Avançado
  • Total de Posts

    27
  • Registro em

  • Última visita

  • WCoins

    70

Sobre lídernolinux1987

  • Aniversário 26/01/1987

Titulo do usuário

  • TItulo de usuário
    ViciadoEmLinux
  • 538617600

Últimos Visitantes

469 visualizações

lídernolinux1987's Achievements

Participativo

Participativo (2/15)

  • Açúcar ou adoçante? Rara
  • É para a viagem? Rara
  • De grão em grão... Rara
  • Olá, mundo!
  • Agora que já nos conhecemos... Rara

Emblemas Recentes

24

Reputação

  1. Gostaria de saber: Como eu entro no meu discord ou eu tenho que me cadastrar no discord? Já registrei no discord,gostaria de saber qual é o discord da webcheats?
  2. Qual a melhor linguagem para aprender lógica de programação?
  3. int main() { int opcao; float n1, n2, resultado; // Apresenta o menu printf("Calculadora\n"); printf("1. Soma\n"); printf("2. Subtração\n"); printf("3. Multiplicação\n"); printf("4. Divisão\n"); printf("5. Sair\n"); printf("Escolha uma opção: "); scanf("%d", &opcao); // Lê os números printf("Digite o primeiro número: "); scanf("%f", &n1); printf("Digite o segundo número: "); scanf("%f", &n2); // Realiza a operação switch (opcao) { case 1: resultado = n1 + n2; break; case 2: resultado = n1 - n2; break; case 3: resultado = n1 * n2; break; case 4: if (n2 != 0) { resultado = n1 / n2; } else { printf("Divisão por zero não é permitida.\n"); } break; case 5: return 0; default: printf("Opção inválida.\n"); break; } // Exibe o resultado printf("O resultado é %.2f.\n", resultado); return 0; }
  4. Meu blog sobre Linux,espero que gostem: Meu blog
  5. Visualizador de imagem,é preciso ter o TImage para funcionar a imagem e um OpenPictureDialog1. Código: if OpenPictureDialog1.Execute then Image1.Picture.LoadFromFile(OpenPictureDialog1.Filename); Editor de texto Código: Novo Memo1.Clear; Memo1.SetFocus; ----------------------------------------- Abrir if OpenDialog1.Execute then begin memo1.Lines.LoadFromFile(OpenDialog1.Filename); memo1.setfocus; end; ----------------------------------------- Botão Salvar if SaveDialog1.execute then begin memo1.Lines.SaveToFile(SaveDialog1.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 Código: 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 Código: 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 Código: 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 Código: 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 Decimo Terceiro Salário Código: 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.[/B] Algum administrador tira o [/B] da Calculadora de decimo terceiro salário,fazendo favor para mim Calculadora completa com porcentagem Código: 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.
  6. É que eu tenho uma vídeo aula que ensina a como instalar o LOL no Linux na área League Of Legends do fórum em tutoriais,pode ver lá se tu quiser?.
  7. Alguém está conseguindo jogar league of legends no Linux?Parece que está com algum bug no Linux.
×
×
  • Criar Novo...

Informação Importante

Nós fazemos uso de cookies no seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies , caso contrário, vamos supor que você está bem para continuar.