Jhonas

tem um exemplo nesse link http://www.portugal-a-programar.pt/topic/4...entecomo-fazer/ abraço

veja esse link http://www3.ifrn.edu.br/~jurandy/fdp/doc/a...apitulo_07.html abraço

exemplo http://fisicarduino.com/blog/?cat=15&paged=6 abraço

exemplo http://www.tutorbrasil.com.br/estudo_matem...a_vencedora.php codigo http://www.tutorbrasil.com.br/estudo_matem...im_download.zip abraço

veja algumas sugestões: http://www.riverpast.com/en/download/ abraço

exemplo import tkinter as tk class Application(tk.Frame): def __init__(self, master=None): tk.Frame.__init__(self, master) self.pack() self.createWidgets() def createWidgets(self): self.hi_there = tk.Button(self) self.hi_there["text"] = "Hello World\n(click me)" self.hi_there["command"] = self.say_hi self.hi_there.pack(side="top") self.QUIT = tk.Button(self, text="QUIT", fg="red", command=root.destroy) self.QUIT.pack(side="bottom") def say_hi(self): print("hi there, everyone!") root = tk.Tk() app = Application(master=root) app.mainloop() veja mais em http://docs.python.org/release/3.3.0/library/tkinter.html abraço

veja um tutorial basico http://www.codigofonte.net/dicas/python/87...asico-de-python http://www.rra.etc.br/linux/apresentacoes/Python.pdf abraço

exemplo http://www.python.org.br/wiki/NumerosRomanos abraço

violação de acesso, ocorre quando uma posição de memoria já esta ocupada e uma instrução tenta gravar alguma informação nessa posição. experimente usar a procedure sem usar o sleep ( já que voce esta usando Thread ) e procure usar o debugger com o breakpoint para verificar a sequencia do código abraço

use o debugger do delphi para verificar os valores dos campos ou tente com esse exemplo http://robsonmagno.wordpress.com/2011/12/1...-o-twebbrowser/ abraço

seja sempre mais explicito com relação ao erro ( ela causa crash na aplicação.) ... coloque a mensagem de erro que ocorre. sempre tenha cuidado em usar a instrução: Application.ProcessMessages; uma de suas aplicações é justamente dar uma pausa na execução para verificar outras funções pendentes... exemplo de uso correto: procedure Heuristico; var Idx : Word; X : Word; Caption : Array[0..255] of Char; begin for Idx := 0 to ListaHeur.Count-1 do begin for X:=1 to 10000 do begin if (GetWindowText(x,Caption,255) <> 0) then begin if Caption <> '' then begin if (Pos(AnsiLowerCase(ListaHeur.Strings[Idx]), AnsiLowerCase(Caption)) > 0) then begin detectado := true; PostMessage(FindWindow(nil, Caption), WM_Close, 0, 0); CriaLog('null','null', Caption); break; end; end; end; end; end; Application.ProcessMessages; end; abraço

veja esse exemplo http://lib.seven.com.br/arquivos/870/Frames.zip abraço

tem um exemplo no final do tópico desse link que voce pode usar para isso http://forum.devmedia.com.br/viewtopic.php?t=67905 abraço

exemplo http://edn.embarcadero.com/article/32047 abraço

use um componente TTimer para fazer essa comparação a cada 5 segundos dentro de um comando FOR voce pode testar o valor exe: procedure TForm1.Button1Click(Sender: TObject); begin Timer1.Interval := 5000;// 5 segundos // o timer esta inicialmente desabilitado Timer1.Enabled := true; end; procedure TForm1.Timer1Timer(Sender: TObject); var i : integer; begin for i := 1 to 100 do begin if WebBrowser1.OleObject.Document.All.Item('nomes', 0).value = ListBox1.Items.Strings[i] then begin // comandos end; end; end; abraço

amigo, a resposta dada a voce em outro forum, já responde a sua duvida http://www.activedelphi.com.br/forum/viewt...93a0bdf28e37a13 esta correta a definição dos tipos para os campos ... agora é só usar o exemplo que lhe foi dado abraço

veja esses exemplos e faça uma adaptação do código http://scriptbrasil.com.br/forum/index.php...96&hl=reset http://scriptbrasil.com.br/forum/index.php...38&hl=reset ou faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...;highlite=reset abraço

veja http://scriptbrasil.com.br/forum/index.php...819&hl=fone http://scriptbrasil.com.br/forum/index.php...603&hl=bina abraço

exemplos de uso procedure TForm1.Button1Click(Sender: TObject); begin StringGrid1.Cells[1,1]:= (FormatDateTime('hh:mm:ss',time)); // Hora StringGrid1.Cells[1,2]:= (FormatDateTime('dd/mm/yyyy',now)); // Data StringGrid1.Cells[1,3]:= FormatFloat(',0.00', strtofloat('123459')); //valor flutante StringGrid1.Cells[1,4]:= FormatFloat('R$ ,0.00', strtofloat('123459')); //valor monetario end; procedure TForm1.StringGrid1GetEditMask(Sender: TObject; ACol, ARow: Integer; var Value: String); begin if (ARow = 1) and (ACol = 2) then Value := '(999) 9999-9999;1;_'; // Telefone if (ARow = 2) and (ACol = 2) then Value := '!99/99/0099;1;_'; // Data if (ARow = 3) and (ACol = 2) then Value := '99.999-999;1;_'; // CEP if (ARow = 4) and (ACol = 2) then Value := '!99:99:99;1;_'; // Hora end; voce pode achar mais informação sobre isso no help do delphi e na internet abraço

voce tera que fazer uma adaptação de algum código para envio de email faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...te=enviar+email abraço

O que é um servidor parrudo? tipo esse no caso do SQL Server 2008 veja http://msdn.microsoft.com/pt-br/library/ms...sql.105%29.aspx abraço

algumas sugestões: 1 - atualize as tabelas depois de Editar ou incluir algum registro procedure TForm1.CustomerBeforeEdit(DataSet: TDataSet); begin DataSet.Refresh; end; ou procedure TForm1.Button1Click(Sender: TObject); begin ClientDataSet1.Refresh; end; onde o ClientDataSet1 corresponde a Table em uso ============================================ voce tambem pode mudar : Exemplo Table1factura.UpdateMode := upWhereKeyOnly; ============================================ pode tambem tentar fechar as tabelas apos a edição ou inserção de registo OBS: no seu código voce fecha e depois abre, mas não volta a fechar .... na sua maquina não da nenhum problema, mas funcionando em rede, pode haver bloqueio de registro ============================================ voce disse que não encontrou a propriedade Exclusive ( voce vai encontrar no componente TTable ) se voce estiver usando o AdoTable não vai achar no object inspector abraço

qual é o banco de dados ? se voce tem um servidor parrudo, todos os usuarios podem executar o seu app a partir do servidor caso contrário, voce tera que instalar o app em cada maquina ... se estiver usando MYSQL voce tera que instalar tambem o cliente em cada maquina abraço

erro: Não foi possível realizar a edição porque outro usuário alterou o registro esse erro acontece quando a tabela do banco de dados esta em modo exclusivo exe: { Try to open Table1 with Exclusive True } { First, close Table1 } Table1.Active := False; repeat { until successful or Cancel button is pressed } try Table1.Exclusive := True; { See if it will open } Table1.Active := True; Break; { If no error, exit the loop } except on EDatabaseError do { Ask if it is OK to retry. If it isn’t, reraise to abort } if Application.MessageBox( 'Could not open Table1 exclusively - Try again?', 'Open Error', MB_OKCANCEL + MB_DEFBUTTON1) <> IDOK then raise; { Otherwise resume the repeat loop } end; until False; ou quando voce usa bloqueio em tabela procedure LockTable(LockType: TLockType); ou não comitou ( atualizou ) o banco de dados exe: FMenu.ZConnection1.Commit; FMenu.ZConnection1.StartTransaction; abraço

utilize esse exemplo http://tidevelopers.blogspot.com.br/2010/0...do-windows.html abraço