Jhonas

dentro da área de programação, existem muitos ramos ( c++, java, delphi, python, VB, ASP, Html ..etc ) depende de qual área voce prefere atuar, mas para começar pode ser com lógica de programação http://www.google.com.br/search?hl=pt&source=hp&q=curso+de+logica+de+programa%C3%A7%C3%A3o+online+gratis&gbv=2&o que=curso+de+logica+de&gs_l=heirloom-hp.1.5.0i19l4j0i22i30i19l4j0i22i10i30i19j0i22i30i19.602.8664.0.11403.20.16.1.3.3.0.317.2886.5j4j2j5.16.0.msedr...0...1ac.1.34.heirloom-hp..6.14.1335.da6hvvgWiQw abraço

1ª opção: function GetLocalComputerName : string; var c1 : dword; arrCh : array [0..MAX_PATH] of char; begin c1 := MAX_PATH; GetComputerName(arrCh, c1); if c1 > 0 then result := arrCh else result := ''; end; 2ª opção voce pode tentar ler o registro da chave HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\ComputerName\ComputerName 3ª opção pegar a string e trabalhar os caracteres, transformando em maiusculas e minusculas as letras abraço

O webtutoriais fechou ... veja mensagem do proprietário do site http://www.webtutoriais.com/atelogo.html abraço

esse poblema se corrige no Setup da BIOS .... clique em Load Optimized Defaults e depois em Save & Exit Setup ( deve voltar a funcionar normalmente ) se quiser saber mais a respeito, veja nesse link http://www.baboo.com.br/tutorial/setup-do-bios-seu-computador/ abraço

Limpe o histórico do seu navegador ou a pasta > Temporary Internet Files abraço

Qual é a diferença entre "class Teste(object)" e "class Test:" ? Classes são como moldes a partir dos quais criamos objetos. Uma classe representa a definição de quais métodos e variáveis de uma instância terá um objeto. Uma classe não é um objeto em si, é a descrição de como serão os objetos de um determinado tipo quando instanciados a partir da especificação da classe. Os objetos reais são obtidos instanciando-se classes predefinidas. Você pode instanciar muitos objetos de uma determinada classe, da mesma forma como pode criar diversos bolos a partir de uma receita. Em Object Pascal, classes são consideradas como tipos de dados compostos e assim definidas. A declaração de uma classe é muito parecida com a declaração de um record onde troca-se a palavra record pela palavra class. É importante chamar a atenção de que o emprego da letra "T" no inicio do nome classe é apenas uma convenção e não obrigatório. Costuma-se prefixar um "T" ao nome de qualquer tipo definido pelo usuário exemplo: Declaração de uma classe bem simples type TPoint = class(TObject) public X: float; /// variáveis de instância Y: float; end; Como mencionado, esta declaração define apenas o molde a partir do qual os verdadeiros objetos serão criados. Existem situações onde a existência de um construtor é fundamental. Um bom exemplo disso é quando o objeto que está sendo instanciado precisa, por sua vez, instanciar outros objetos. exemplo: type TRectangle = class private PointA: TPoint; PointB: TPoint; public construtor Create; { métodos entrariam aqui } end; construtor TRectangle.Create; begin inherited Create; PointA := TPoint.Create; PointB := TPoint.Create; end; Nesse exemplo, a presença de um construtor é de vital importância para garantir que dois objetos TPoint serão instanciados sempre que um objeto da classe TRectangle for instanciado. Caso os objetos não sejam instanciados, quando forem utilizados em outros métodos, dão origem a erros de execução. A utilização de um objeto não instanciado é na maioria das vezes o caminho mais rápido para se conseguir um erro do windows, o GPF ( General Protection Fault ). OBS: Esta definição vale para o Pascal, mas não é muito diferente do Python voce pode pesquisar mais sobre isso nesse link http://translate.google.com.br/translate?hl=pt-BR&sl=en&u=https://docs.python.org/2/tutorial/classes.html&prev=search abraço

informe qual dos links abraço

exemplo public string calcularQuadradoPerfeito() { int raiz = 0; raiz = (int)(Math.Sqrt(num)); if (Math.Pow(raiz, 2) == num) { return “Quadrado Perfeito”; } else { return “Não é quadrado perfeito”; } } http://pt.wikipedia.org/wiki/Quadrado_perfeito http://pt.stackoverflow.com/questions/54794/como-identificar-e-imprimir-quadrados-perfeitos-com-javascript abraço

exemplos: http://reader.centrodouniverso.com.br/?p=1573 https://www.passeidireto.com/arquivo/4725655/0-funcoes-e-procedimentos/5 http://pt.wikibooks.org/wiki/Programar_em_C%2B%2B/Operadores http://www.devmedia.com.br/calculando-o-quociente-e-o-resto-da-divisao/23747 abraço

programador em qual linguagem ?

veja https://www.google.com.br/webhp?ie=utf-8&oe=utf-8&gws_rd=cr&ei=NMAIVYrkJfCxsASkwYHYDg#q=loja+virtual+gratis abraço

Além das frequentes interrupções no serviço, quando está ativo, a conexão é de péssima qualidade, o que me faz desejar trabalhar prioritariamente offline e "sincronizando" os dados para uma base online. ainda não encontrei solução melhor do que esta, nesse caso. abraço

tem algo parecido nesse link, mas é em delphi https://www.scriptbrasil.com.br/forum/topic/178147-resolvidopegar-pesquisa-do-google/?p=676012 abraço

tem um Demo na pagina para testar http://jsfiddle.net/Starx/zZ7KT/ abraço

amigo, o intuíto do execício é para que voce aprenda a fazer sozinho unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} Function DATAVALIDA(Dado: string): Boolean; var SalvaFormato, DataExterna: string; DataInterna: TDateTime; Separador: string; begin Result := True; Separador := DateSeparator; while Pos(Separador, Dado) > 0 do Delete(Dado, Pos(Separador, Dado), 1); if Length(Dado) = 6 then Dado := Copy(Dado, 1, 2) + Separador + Copy(Dado, 3, 2) + Separador + '19' + Copy(Dado, 5, 2) else if Length(Dado) = 8 then Dado := Copy(Dado, 1, 2) + Separador + Copy(Dado, 3, 2) + Separador + Copy(Dado, 5, 4) else Result := False; if Result then begin SalvaFormato := ShortDateFormat; DataInterna := 0; try ShortDateFormat := 'd' + Separador + 'm' + Separador + 'y'; DataInterna := StrToDate(Dado); except on EConvertError do begin Result := False; ShortDateFormat := SalvaFormato; end; end; if Result then begin try ShortDateFormat := 'dd' + Separador + 'mm' + Separador + 'yyyy'; DataExterna := DateToStr(DataInterna); except on EConvertError do begin Result := False; ShortDateFormat := SalvaFormato; end; end; if Result and (DataExterna <> Dado) then Result := False; end; ShortDateFormat := SalvaFormato; end; end; procedure TForm1.Button1Click(Sender: TObject); begin if DATAVALIDA(trim(Edit1.Text)) then showmessage('Data Valida') else showmessage('Data Invalida') end; end. // Fonte: http://www.planetadelphi.com.br/dica/2796/verificar-se-uma-data-e-valida OBS: basta digitar a data no formato string no edit '29/02/1996' => Data Valida '29/02/1997' => Data Invalida abraço

veja http://www.visual.com.br/produtos/pain_atendimento/especificacoes_sistema_atendimento.pdf abraço

exemplo http://stackoverflow.com/questions/9698971/cut-down-a-string-in-text-area-within-particular-limit-in-jquery abraço

utilize o Ems QuickDesk com ele voce podera testar a instrução sql diretamente em suas tabelas ( fora do seu programa ) https://www.google.com.br/?gfe_rd=cr&ei=96YEVdmgMYvAqAW554C4Bg&gws_rd=ssl#q=ems+quickdesk+2.0 OBS: pode ser tambem em função da versão do seu FireBird ( use o Firebird 2.5 ou superior ) https://www.google.com.br/?gfe_rd=cr&ei=J44EVY_iNMOEqQX76IDoAQ&gws_rd=ssl#q=firebird+2.5 abraço

exemplo unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtnrs; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function GetBiosCheckSum: string; var s: Int64; i: longword; p: PChar; begin i := 0; s := 0; p := PChar($F0000); repeat inc(s,ord(^p)shl i); if i < 64 then inc(i) else i := 0; inc(p); until p > PChar($FFFFF); Result := IntToHex(s,16); end; procedure TForm1.Button1Click(Sender: TObject); var a,b,c,d: LongWord; CPUID: string; begin asm push EAX push EBX push ECX push EDX mov eax, 1 db $0F, $A2 mov a, EAX mov b, EBX mov c, ECX mov d, EDX pop EDX pop ECX pop EBX pop EAX end; CPUID:= inttohex(a,8) + '-' + inttohex(b,8) + '-' + inttohex(c,8) + '-' + inttohex(d,8); ShowMessage('SERIAL NUMBER PLACA MÃE : ' +CPUID); SHOWMESSAGE('SERIAL NUMBER DA BIOS : ' + GetBiosCheckSum); end; end. Nesse link tem uma Unit mais completa http://read.pudn.com/downloads162/sourcecode/delphi_control/734363/VersionId.pas__.htm ou http://forum.imasters.com.br/topic/114605-info-de-hardware/ abraço

amigo, não tenho certeza, mas acho que isso acontece quando o relogio ( data e hora ) da catraca esta desatualizado depois disso, deve-se entrar no modulo de programação e depois no modulo de ajuste geral a Henry ( sac@henry.com.br ) dá suporte a desenvolvedores abraço

voce tem que criar exceções no Firewall do Windows https://www.google.com.br/search?q=exce%C3%A7%C3%B5es+no+firewall+windows+7&ie=utf-8&oe=utf-8&gws_rd=cr&ei=ffQCVeiGNMGYgwT6ooLwBw abraço

qual é o banco de dados que esta usando ?

voce já pesquisou no forum ou no google ? https://www.scriptbrasil.com.br/forum/topic/161746-simular-pressionamento-de-tecla/ https://www.google.com.br/search?q=simular+pressionamento+de+tecla+delphi&ie=utf-8&oe=utf-8&gws_rd=cr&ei=B_MCVZnfHoGYgwSxsISwCQ abraço

é possivel que alguns HDs não tenham numero fisico ( mas todas as BIOS tem ) mas no prompt do DOS .. iniciar > executar > cmd.exe > vol esse comando exibe um rotulo e numero de serie do HD caso exista ou pode tentar esse http://www.devmedia.com.br/forum/numero-de-serie-fisico-do-hd-solucao/231252 abraço

//Salvar o registro F_Dados.Q_Secretarias.Post; F_Dados.Q_Secretarias.ApplyUpdates; ou F_Dados.Q_Secretarias.ApplyUpdates(-1); If Application.MessageBox('Tem certeza?', 'Confirma', MB_Yesno)=IDYes Then begin F_Dados.Q_Secretarias.Delete; F_Dados.Q_Secretarias.ApplyUpdates; ou F_Dados.Q_Secretarias.ApplyUpdates(-1); leia esse tutorial http://www.delphibr.com.br/artigos/transacoes.php