Jhonas

exemplo http://analysistabs.com/excel-vba/open-close-existing-workbook/ abraço

amigo, primeira coisa a se levar em conta é a definição dos campos da sua tabela no banco de dados obs: voce não disse qual é o banco de dados que esta usando Diretamente no banco consigo inserir registros normalmente. se no programa voce definiu alguma variavel como ex: ( y :variant; ) voce tem que trabalhar com o tipo especifico ou fazer a devida conversão de tipos usando o break point ( debugger ) do dephi voce chega extamente onde ocorre o erro no programa cria-se um registro em branco no DBGrid do formulário, mas não consigo inserir dados nesse registro. lembre-se que sempre depois de um comando Append ou Insert voce deve usar o comando Edit para que voce possa alterar o registro ( depende de quais componentes voce esta usando para acessar a tabela do banco de dados ) exemplo: dm_dadosSeduc.tbl_requerimentos.Append; dm_dadosSeduc.tbl_requerimentos.Edit; abraço

veja http://forum.clubedohardware.com.br/topic/1033420-resolvido-alterando-valor-de-radio-bottun/ abraço

tente esse link menu lateral https://www.google.com.br/?gfe_rd=cr&ei=JDO0VInrFsii8wfQy4DQCw&gws_rd=ssl#q=componentes+delphi+menu+lateral abraço

veja esse link https://www.google.com.br/?gfe_rd=cr&ei=JDO0VInrFsii8wfQy4DQCw&gws_rd=ssl#q=tutorial+php abraço

'Could not convert variant of type (Null) into type (Integer)'. Erro: Não foi possível converter variante do tipo (nulo) em tipo (Inteiro) exemplo do erro Procedure TForm1.Button1Click(Sender: TObject); var x : integer; y :variant; begin y := null; x := y + 1; showmessage(inttostr(x)); end; nesse código vai ocorrer esse erro: 'Could not convert variant of type (Null) into type (Integer)'. verifique o seu código abraço

isso tambem pode ser bug da versão ... obs: leve em consideração que existe diferença do VS 2010 para 32 e 64 bits http://www.baixaki.com.br/download/visual-studio-2010.htm abraço

esse codigo esta em delphi ... veja se consegue converte-lo para o C++ https://www.scriptbrasil.com.br/forum/topic/103910-alterar-propriedades-de-arquivos/ abraço

isso é erro de instalação do VS 2010 desinstale e limpe os registros do windows com o CCleaner ou outro e instale novamente abraço

veja nesse link https://www.google.com.br/search?q=forum+delphi&biw=1024&bih=635&source=lnms&tamb%C3%A9m=isch&sa=X&ei=2--uVM60I4yUNq20gNAH&sqi=2&ved=0CAcQ_AUoAg#tamb%C3%A9m=isch&q=planilhas+de+controle+de+manuten%C3%A7%C3%A3o abraço

veja esse post abraço

tente esse link https://www.google.com.br/?gfe_rd=cr&ei=SK6uVNHmHeGU8Qef5IC4DQ&gws_rd=ssl#q=get+file+properties+c%2B%2B abraço

exemplo http://www.vivaolinux.com.br/scripts/download.php?codigo=4858 abraço

qual é o tamanho da imagem que esta usando ?

neste site procure por Analista de sistemas / desenvolvimento http://exame.abril.com.br/carreira/ferramentas/tabela-de-salarios-rh/?empresa=ti nesse procure por um cargo especifico http://www.aquitemrh.com.br/salarios.php faça os calculos do valor que uma empresa no ramo paga mensalmente a seus funcionarios pelas horas de trabalho que voce gastou para executar o trabalho dessa forma voce estara acompanhando o valor de mercado para o seu serviço abraço

Utilize a logica desse programa feito em pascal ( converta para python ) program Project1; {$APPTYPE CONSOLE} uses SysUtils; var aluno : Array [1..5] of String [40]; alternativa : Array[1..5,1..5] of String[1]; i,j : Integer; nota: Array [1..5] of Real; begin for i := 1 to 5 do begin Writeln('Nome:'); ReadLn(aluno[i]); for j := 1 to 5 do begin Writeln('Questao',j,' alternativa:'); ReadLn(nota[j]); end; end; // Calcula nota da prova for i := 1 to 5 do begin nota [i] := 0; end; // Verifica se as alternativas estão corretas e computa o valor da nota for i := 1 to 5 do begin if alternativa[i,1] = 'a' then nota [i] := nota[i]+1; if alternativa[i,2] = 'e' then nota [i] := nota[i]+1; if alternativa[i,3] = 'c' then nota [i] := nota[i]+1; if alternativa[i,4] = 'b' then nota [i] := nota[i]+1; if alternativa[i,5] = 'd' then nota [i] := nota[i]+1; end; // Mostra notas for i := 1 to 5 do begin WriteLn ('Aluno',i,' nota ', nota[i]); end; end. abraço

utilize a logica desse programa feito em pascal ( converta para o python ) program Project1; {$APPTYPE CONSOLE} uses SysUtils; var aluno : Array [1..5] of String [40]; alternativa : Array[1..5,1..5] of String[1]; i,j : Integer; nota: Array [1..5] of Real; begin for i := 1 to 5 do begin Writeln('Nome:'); ReadLn(aluno[i]); for j := 1 to 5 do begin Writeln('Questao',j,' alternativa:'); ReadLn(nota[j]); end; end; // Calcula nota da prova for i := 1 to 5 do begin nota [i] := 0; end; // Verifica se as alternativas estão corretas e computa o valor da nota for i := 1 to 5 do begin if alternativa[i,1] = 'a' then nota [i] := nota[i]+1; if alternativa[i,2] = 'e' then nota [i] := nota[i]+1; if alternativa[i,3] = 'c' then nota [i] := nota[i]+1; if alternativa[i,4] = 'b' then nota [i] := nota[i]+1; if alternativa[i,5] = 'd' then nota [i] := nota[i]+1; end; // Mostra notas for i := 1 to 5 do begin WriteLn ('Aluno',i,' nota ', nota[i]); end; end. abraço

exemplo http://linuxcpdti.blogspot.com.br/2013/11/correcao-de-gabarito-com-python-simplecv.html abraço

para colocar uma imagem no forum, voce deve fazer um upload da imagem para algum site de imagem e depois colocar o caminho na url

Você pode usar Shell "RunDLL32.exe C: \ Windows \ System32 \ Shimgvw.dll, ImageView_Fullscreen C: \ My Pictures" para iniciar a imagem e Fax Viewer em uma pasta específica, ou Shell "RunDLL32.exe C: \ Windows \ System32 \ Shimgvw.dll, ImageView_Fullscreen C: \ My Pictures \ file.jpg" para abrir um arquivo específico. Você pode usar uma variável em vez de um nome de arquivo literal: Shell "RunDLL32.exe C: \ Windows \ System32 \ Shimgvw.dll, ImageView_Fullscreen C: \ My Pictures \" & strFilename exemplo ( não tenho certeza quanto ao lugar da aspas no final ( teste ) Dim Path As String Path = "C:\Documents and Settings\Nous-Tous\Mes documents\Mes images\ListProg.jpg" Shell "rundll32.exe C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen " & Path, vbNormalFocus ou Dim Path As String Path = "C:\Documents and Settings\Nous-Tous\Mes documents\Mes images\ListProg.jpg" Shell "rundll32.exe C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen & Path", vbNormalFocus abraço

Shell ("C:\Windows\System32\shimgvw.dll & " " & "D:\clinica\fotosin\preview\foto.jpg"), vbMaximizedFocus tente assim Shell "rundll32.exe C:\WINDOWS\system32\shimgvw.dll " & "D:\clinica\fotosin\preview\foto.jpg" abraço

veja esses links https://social.msdn.microsoft.com/Forums/pt-BR/2b0523a1-bfc5-4d06-96e1-9fc797c6d612/ajustar-meu-form-de-acordo-com-a-resoluo-da-tela?forum=vscsharppt http://forum.clubedohardware.com.br/topic/984593-macro-para-ajustar-planilha-de-acordo-com-a-resolu%C3%A7%C3%A3o-do-computador/ http://support.microsoft.com/kb/182070/pt-br abraço

Veja se isso te ajuda http://www.macoratti.net/vbn_cform.htm abraço

tente isso: va no Menu do delphi > Tools > Debugger Options... desmarque Integrated debugging compile e rode o programa com isso somente as mensagens do AppEvent é que serão mostradas abraço

deveria ser assim então unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; ComboBox1: TComboBox; procedure Edit1Exit(Sender: TObject); procedure Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} //Chame Focused para determinar se a caixa de combinação é atualmente o //destinatário de entrada do teclado. Quando Focused retorna true, a caixa //de combinação é o controle ativo e mensagens de teclas são enviados a ele. //Quando Focused é false, a caixa de combinação não está ativa (embora possa ser selecionada). procedure TForm1.Edit1Exit(Sender: TObject); begin if (edit1.Focused) and (not ComboBox1.Focused) then showmessage('deu caca'); end; procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin case key of vk_return, vk_tab: ComboBox1.SetFocus; end; end; end. obs: leve em consideração, que o evento OnExit do componente sempre será chamado abraço