senhor_unix

Pessoal fiz o botão adição da seguinte maneira TextBox3.Text = TextBox1.Text + TextBox2.Text Porém o resultado é 3 +3 =33 deveria ser 3+3=6 O que posso fazer para corrigir o problema?

Neste tutorial ensinarei a criar uma calculadora empresarial no Lazarus, baseado nas fórmulas de logística. Criando o primeiro Form Para quem não sabe o que é logística, vou explicar de maneira simples, a logística é uma área que envolve planejamento, estratégia, armazenamento, estoque, marketing, vendas, transporte e filosofia Just In Time objetivando a satisfação do cliente. Devido às várias fórmulas que teremos dentro dessa calculadora, tomei a decisão de dividir esse programa em dois Form (formulários) no Lazarus, vamos calcular as seguintes fórmulas: * Ciclo do Processo * Taxa de Produção * Taxa de Produção por recurso * Giro de Estoque * Falta de Qualidade (em relação aos produtos) * Custo do Produto Vendido (CPV) * Custo da Falta de Qualidade * Custo de carregar Estoque * Custo Fixo * Custo Total * Custo Unitário Componentes necessários no primeiro Form, siga os componentes em ordem de cima para baixo. * Edit1 (Tempo trabalhado em Horas) * Edit2 (Número de Produtos bons) * Button1 (Calcula o ciclo do Processo) * Edit3 (Resultado do Ciclo do Processo) * Button2 (Calcula a Taxa de Produção) * Edit4 (Resultado da Taxa de Produção) * Edit5 (Taxa de Produção) * Edit6 (Número de funcionários) * Button3 (Calcula a Taxa de Produção por recurso) * Edit7 (Resultado da Taxa de Produção por recurso) * Edit8 (Total de Materiais) * Edit9 (Total de Produtos) * Button4 (Calcula o Giro de Estoque) * Edit10 (Resultado do Giro de Estoque) * Edit11 (Produtos com Defeitos) * Edit12 (Total Produzidos) * Button5 (Calcula a Falta de Qualidade) * Edit13 (Resultado da Falta de Qualidade) * Edit14 (Valor Unitário) * Button6 (Calcula o Custo do Produto Vendido) * Edit15( Resultado do Custo do Produto Vendido,abreviação CPV) * Button7 (Calcula o Custo da Falta de Qualidade) * Edit16( Resultado da Falta de Qualidade, abreviação CFQ) * Button8 (Apagar) * Button9 (Sair) Para quem não sabe o símbolo "//" representa o comentário sobre o código. Código fonte: Primeiro Form 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(result ado);//mostra o resultado convertendo numero flutuante(Float) para texto(String) Através dos códigos e comentários escritos acima você terá compreensão dos códigos seguintes. 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(Sende r: 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(resultad o); 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(resul tado); 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:=FloatToSt r(resultado); Clique no "Button8 (Apagar)" e digite o seguinte código para apagar os dados do primeiro Form: TempoTrabalhado.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:=''; Clique no Button9(Sair) digite o seguinte código para fazer a função do botão (Sair): Form1. close; //Fecha o Form Salve o programa. Criando o segundo Form Componentes necessários para o segundo Form: * Edit17 (Estoque de Produção em Processo) * Edit18 (Valor unitário) * Edit19 (Taxa de Juros) * Button10 (Calcula o Custo de Carregar Estoque) * Edit20 (Resultado do Custo de Carregar Estoque) * Edit21 (Salário do Colaborador) * Edit22 (Despesas Gerais) * Button11 (Calcula o Custo Fixo) * Edit23 (Resultado do Custo Fixo) * Edit24 (Custo do Produto Vendido) * Edit25 (Custo da Qualidade) * Edit26 (Custo do Estoque) * Edit27 (Custo Fixo) * Button12 (Calcula o Custo Total) * Edit28 (Resultado do Custo Total) * Edit29 (Número de Produtos Bons) * Button13 (Calcula o Custo Unitário) * Edit30 (Resultado do Custo Unitário) * Button14 (Sair) * Button15 (Apagar) Código fonte: Segundo 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(resultad o); end; procedure TForm2.SairClick(Sender: TObject); begin Form2.Close;// Fecha o Form2 end; Códigos necessários para apagar todos os dados do Segundo Form: 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; Salve o programa e execute.

O que se ganha com Código Aberto? 1-Experiência prática.Há creditos para todos os programadores responsáveis pelas atualizações,o que enriquece o currículo. 2-É possível continuar contribuindo com esses projetos no trabalho,já que cada vez mais empresas estão se beneficiando e apoiando tais iniciativas. 3-Convívio estimulante,já que esse universo é riquíssimo em talentos.Fora a internet,acontecem também encontros de grupo e conferências. 4-Para os altruístas,realização por doar seu trabalho e transformá-lo em algo útil e livre,que pode ser usufruído por qualquer um. Onde e como contribuir? Como começar A triagem de bugs é um bom começo para se familiarizar com um projeto open source.É necessário criar uma conta no sistema de registro de bugs,no site do projeto(geralmente,bugzila.nomedosite.org).Depois, ler os relatórios de bugs dos usuários,agrupar as ocorrências repetidas,já que usários descrevem os bugs de maneira diferente,e encaminhar para um dos desenvolvedores,seguindo a lista de prioridades de correção de bugs. Patches Ao isolar um erro no código-fonte e corrigi-lo,é necessário criar um patch,um arquivo que contém as diferenças em relação ao código original.Depois é preciso enviar esse patch para a mailing-list de desenvolvedores do projeto.Se vários outros desenvolvedores aprovarem sua sugestão(e o critério costuma ser bem elevado),incluindo o responsável,ela pode ser incorporada a uma nova versão do programa.De acordo com o número de patches aceitos,sua moral vai subindo no grupo e você pode se tornar um desenvolvedor oficial. CVS Em projetos grandes,é necessário estar familiarizado com programas de gerenciamento de versões do código-fonte em rede,responsáveis por automatizar os processos envolvidos na criação e envio de patches.Os mais usados são CVS(www.cvshome.org) e Subversion(www.subversion.tigris.org). Onde contribuir Distros GNU/Linux e os servições em torno delas formam o setor open source que mais cresce,com dezenas de milhares de desenvolvedores.O trabalho necessário divide-se entre o kernel Linux (www.tux.org/lkml),as ferramentas GNU (www.gnu.org)que completam o sistema e as centenas de distros (http://distrowatch.com),links úteis são a documentação sobre como colaborar (www.debian.org/devel/join),o site dos novos mantenedores (http://nm.debian.org) e o repositório de subprojetos(http://alioth.debian.org). Ajuda para outras áreas 1-Documentação Esse é um dos setores que mais precisam de colaboradores.Caso você se interesse por algum projeto,mas está com dificuldades de por a mão na massa por falta de documentação,essa é uma boa área para começar. 2-Tradução O processo de internacionalização de um sistema é outra área chave,já que pode aumentar a base de usuários e,conseqüentemente,mais desenvolvedores serão atraídos,acelerando a evolução do sistema. 3-Design As interfaces gráficas vêm evoluindo,devido ao crescente aumento de designers e artistas que contribuem.Mas há uma necessidade crescente desse tipo de trabalho.Créditos e reconhecimento são dados da mesma maneira para designers ou programadores.

Alguém já criou algum programa para Linux no formato (.deb) ou (.rpm)?

Gambas no Linux=Visual basic Kdevelop no Linux=Programar em C,pascal etc...

Parabéns....continue assim...

Parabéns...

Parabéns novo monitor.

Linux contra a pirataria Neste texto apresento como o Linux ajuda as empresas a combater a pirataria de softwares e os motivos pelos quais as empresas o utilizam. O problema O Brasil é apontado como um dos países com maior índice de pirataria de software no mundo. Um dos grandes impulsionadores dessa situação são os altos preços cobrados pelos desenvolvedores de software, que em muitos casos inviabilizam os negócios. O Windows é o maior exemplo de pirataria de software. Os técnicos em informática fazem cópias do Windows em vez de comprar o Windows original, sem mencionar o custo elevadíssimo do licenciamento desse sistema para as empresas. Como solucionar o problema As empresas desejam sistemas adaptados às suas necessidades, que sejam baratos, principalmente porque as empresas têm como objetivo reduzir custos, e ao mesmo tempo procuram suporte técnico. Algumas empresas são especializadas em criar um sistema operacional robusto, com aplicativos de escritório e que possam satisfazer o cliente. Através de um Linux adaptado para sua empresa é possível economizar até 70% do que seria gasto com licenciamento do Windows e do Microsoft Office. Ao colocar um sistema livre de acordo com as necessidades da sua empresa, o gasto com licenciamento será zero. A empresa somente investirá na adaptação do sistema, aplicativos e treinamento especializado. Aliando transição rápida e eficaz a mínimo investimento. No momento em que você contrata uma empresa para criar um sistema adequado a sua empresa, você estará reduzindo custos ao mesmo tempo em que estará dizendo não a pirataria de software. Considerações finais Inúmeras empresas famosas no mundo são a favor do Linux, entre elas a IBM, NASA, Canonical, DreamWorks, Pixar, DownJones (bolsa de valores dos estados unidos) etc. A NASA utiliza Linux em seus computadores, Pixar e a DreamWorks criam filmes com o Linux, como por exemplo: Titanic, Senhor dos anéis, Shrek etc. Motivos para utilizar o sistema Linux na sua empresa: * Redução de custos; * Crescimento de profissionais qualificados através de treinamento; * Maior segurança; * O custo com licenciamento é zero; * Suporte técnico com a empresa especializada na criação do sistema; * Sistema leve e robusto; * Tudo isso a mínimo investimento.

package programadesorteio; import javax.swing.*; public class Sorteio { public static Object Sorteio; private int numero; Sorteio() { numero = (int) (1 + (Math.random() * 10)); //sorteia numeros entre 1 e 10 } public int getNumero() { return this.numero; } public void setNumero(int n) { numero = n; } public static void main(String args[]) { Sorteio Sorteio1 = new Sorteio(); int resposta = Integer.parseInt(JOptionPane.showInputDialog("Informe o valor entre 1 e 10")); if (resposta == Sorteio1.getNumero()) { JOptionPane.showMessageDialog(null, "Você acertou o primeiro sorteio"); } else { JOptionPane.showMessageDialog(null, "Você errou o primeiro sorteio. \n O valor sorteado foi " + Sorteio1.getNumero()); } { Sorteio Sorteio2=new Sorteio(); int resposta2=Integer.parseInt(JOptionPane.showInputDialog("Informe um valor entre 1 e 10")); if (resposta2 ==Sorteio2.getNumero()){ JOptionPane.showMessageDialog(null,"Você acertou o segundo sorteio"); }else{ JOptionPane.showMessageDialog(null,"Você errou o segundo sorteio. \n O valor sorteado foi " +Sorteio2.getNumero()); } } { Sorteio Sorteio3=new Sorteio(); int resposta3=Integer.parseInt(JOptionPane.showInputDialog("Informe um valor entre 1 e 10")); if (resposta3==Sorteio3.getNumero()){ JOptionPane.showMessageDialog(null,"Você acertou o terceiro sorteio"); }else{ JOptionPane.showMessageDialog(null,"Você errou o terceiro sorteio. \n O valor sorteado foi "+Sorteio3.getNumero()); } System.exit(0); } } }

package calculadoradecimo; import javax.swing.JOptionPane; public class CalculadoraDeDecimoTerceiro { public static void main (String args[]){ String Salario,MesesDeTrabalho; Salario=JOptionPane.showInputDialog("Digite o seu Salário:"); MesesDeTrabalho=JOptionPane.showInputDialog("Digite a quantidade de Meses que Trabalhou:"); String MostreResultado = String.valueOf(Float.parseFloat(Salario) / 12 * Float.parseFloat(MesesDeTrabalho)); String msg="Seu Decimo Terceiro é:" + MostreResultado; JOptionPane.showMessageDialog(null,msg); System.exit(0); } }

package calculadorabasica; import javax.swing.JOptionPane; public class Main { public static void main(String[] args) { String numero1=JOptionPane..showInputDialog("Digite o primeiro número:"); String numero2=JOptionPane.showInputDialog("Digite o segundo número"); String operador=JOptionPane.showInputDialog("Digite o operador"); String MostreResultado = null; { if ( operador.equals ("+") ) MostreResultado = String.valueOf(Float.parseFloat(numero1) + Float.parseFloat(numero2)); else if ( operador.equals ("-") ) MostreResultado =String.valueOf(Float.parseFloat(numero1) - Float.parseFloat(numero2)); else if ( operador.equals ("/") ) MostreResultado =String.valueOf(Float.parseFloat(numero1) / Float.parseFloat(numero2)); else if ( operador.equals ("*") ) MostreResultado =String.valueOf(Float.parseFloat(numero1) * Float.parseFloat(numero2)); JOptionPane.showMessageDialog(null,"O Resultado é:"+ MostreResultado); System.exit( 0 ); } } }

Para que serve : em C?

você já testou com uma variável do tipo real?

Estou disponibilizando meus programas que fiz em Delphi7,testei eles no Wine do Mandriva conectiva 2010,porém no Windows XP irá funcionar muito melhor.Cada instalador do programa está em português para facilitar a instalação,apenas clique em OK>avançar.Espero que vocês gostem do meu trabalho. Calculadora Empresarial Download http://www.4shared.com/file/226343281/61da...mpresarial.html Calculadora de décimo terceiro salário Download http://www.4shared.com/file/226346325/cd83..._13_salrio.html Tocador de mp3(música) Download http://www.4shared.com/file/226344126/fd07...dor_de_mp3.html Visualizador de Imagens Download http://www.4shared.com/file/226345313/1d78...de_Imagens.html Visualizador de Imagens: Visualiza imagens (.bmp,ícones,jpg),visualiza também os Wallpapers do Windows em C:\\Windows\Web\wallpapers.

#include <stdio.h> #include <conio.h> #include <math.h> main (){ float a,b,c,resultado; printf("\n Digite o valor de a:"); scanf ("%f",&a); printf("\n Digite o valor de b:"); scanf ("%f",&b); printf("\n Digite o valor de c:"); scanf ("%f",&c); resultado=(a*b)/c; printf ("\n O resultado e : %f",resultado); getch(); }

#include <stdio.h> #include <conio.h> #include <math.h> main (){ float n1,n2; float resultado; printf ("\n Digite o primeiro numero:"); scanf ("%f",&n1); printf ("\n Digite o segundo numero:"); scanf ("%f",&n2); resultado=(n1+n2)/2; printf (" O resultado sera: %f ",resultado); getch(); }

Calculadora feita no Dev-C++. #include <stdio.h> #include <conio.h> #include <math.h> main () { float n1,n2,resultado; char operador; printf("\n Digite o primeiro numero:"); scanf ("%f",&n1); printf("\n Digite o segundo numero:"); scanf ("%f",&n2); printf("\n Digite o operador:"); scanf ("%s",&operador); getch(); if (operador=='+') { resultado=n1+n2; printf ("\n O resultado e: %f",resultado); } else if (operador=='-') { resultado=n1-n2; printf ("\n O resultado e: %f",resultado); } else if (operador=='/') { resultado=n1/n2; printf ("\n O resultado e: %f",resultado); } else if (operador=='*') { resultado=n1*n2; printf ("\n O resultado e: %f",resultado); } getch(); }

Aqui no fórum scriptbrasil. Em qual área coloco o código-fonte dos meus programas?

Gostaria de saber Onde coloco o código-fonte dos meus programas?

Muito bom material,continuem assim.

Gostaria de saber 1-)Alguém já contribui com a criação de algum programa para Linux? 2-)Alguém já pensou em criar um FormatFactory para Linux?

Gostaria de saber 1-)Onde tem skin para delphi 7? 2-)Como faço para instar a skin?

MLeandroJr!,citou o Camtasia Studio e o Wine,porém isso está errado,pois o Wine é um simulador que trabalha com as APIs do Windows,e o Camtasia Studio é para gravação de desktop.É lógico que o Wine não pode ser chamado de Simulador ou Emulador,porém é assim que chamamos. Windows =Camtasia Studio Linux = Recordmydesktop ou Xvidcap.

Sim,apenas as empresas inteligentes utilizam Linux,pois reduz custos e maximiza lucros,as empresas que possuem Windows são obrigadas a pagar a licença do Windows e do Microsoft Office,e isso gera muitos custos para as empresas,porém as empresas que não pagam a licença do Windows e do Microsoft Office estão contribuindo para a pirataria de software.