Jhonas

veja http://www.sbf1.sbfisica.org.br/eventos/sn...mos/T0242-1.pdf abraço

a logica Inicio inteiro: i, j; m: vetor[1..4, 1..4] de inteiro; para i de 1 até 4 faça para j de 1 até 4 faça imprima(“Digite um número:”); leia(m[i, j]); fim para; fim para; para i de 1 até 4 faça para j de 1 até 4 faça imprima (m[i, j]); fim para; fim para; fim. abraço

para te ajudar abraço

a melhor linguagem seria assembler, mas não seria a mais indicada por ser em liguagem de maquina ... então voce pode partir para uma linguagem de alto nivel, tipo c++, visual c++, delphi, java ... etc o uso da linguagem, depende do que voce pretende fazer ... abraço

veja http://www.google.com.br/search?hl=pt-BR&a...405l2-6.2.1l9l0 abraço

exemplo: http://www.planetadelphi.com.br/dica/5329/...do-para-o-excel abraço

como voce pode perceber, a definição dos campos da sua tabela, e os campos que servirão de indices tem que estar corretos. veja o manual do mysql http://dev.mysql.com/doc/refman/5.1/en/ abraço

veja na terceira pagina http://continuepensando.files.wordpress.co...pplication1.pdf abraço

Faça uma pesquisa no Forum ... já tem varios posts sobre a sua duvida http://scriptbrasil.com.br/forum/index.php...e=resolu%E7%E3o abraço

pesquise no forum por ECF ou NFE http://scriptbrasil.com.br/forum/index.php...2067&hl=ecf abraço

veja se nesse cd (curso de windows xp) na parte central, proximo ao eixo de rotação, existe um código de barra ou um codigo escrito

no forum tem posts relacionados ... vej se ajuda https://www.scriptbrasil.com.br/forum/lofiv....php/t6667.html abraço

veja http://sites.google.com/site/xhcode/programas abraço

exemplos para te ajudar http://www.ee.usyd.edu.au/tutorials_online...xtras/plot.html abraço

exemplo: program teste; uses crt; var num,i,cont:integer; begin cont:=0; readln(num); if num>3 then for i:=1 to num do begin if num mod i=0 then cont:=cont+1; end; if (cont=2) or (cont=0) then writeln('O numero ',num,' é primo') else writeln('O numero ',num,' não é primo'); readkey; end. abraço

pode ate causar, pois esta alterando o registry do windows no final esta reportando para esta pagina www.gempi.com.br abraço

voce esta gravando em CD ou DVD ?

se voce esta indexando o seu campo cod_cliente, voce não pode preencher com ZEROFILL ... ele tem que ficar em branco abraço

DBX Error: Unsupported field type. Tipo de campo não suportado OBS: Veja as definições de campos para o MYSQL http://help.scibit.com/mascon/masconMySQL_Field_Types.html abraço

a melhor maneira seria assim... exemplo: StatusBar1.Panels[0].Text := IBDataSet1ASSIST.Value; no seu caso IBDataSet1.Active := false; IBDataSet1.SelectSQL.Clear; IBDataSet1.SelectSQL.Add(strSql); IBDataSet1.Active := true; StatusBar1.Panels[0].Text:= 'INC: ' + IBDataSet1data_inc.Value; StatusBar1.Panels[1].Text:=' ALT: ' + IBDataSet1data_alt.Value; StatusBar1.Panels[3].Text:= ' ' + IBDataSet1ID.Value; abraço

No MCI device open pode ser um arquivo de som no topo da pop-up está escrito moinho.treinamento (este arquivo não existe, só existe cdviewer.exe) limpe a lista do pop_up ( se for um componente que voce esta usando ) copie do HD para o CD .... OBS: pode ter arquivos ocultos que não são copiados, se voce não não torna-los visivel abraço

Colega, antes de postar, faça uma pesquisa no forum, para saber se já existe algo a respeito sobre sua dúvida http://scriptbrasil.com.br/forum/index.php...st&p=251307 abraço

use o QuickDesk, ou outro para verificar o estado da tabela http://www.freedownloadscenter.com/Program...k_Download.html abraço

O código funciona perfeitamente ... o evento OnDrawDataCell funciona como um loop infinito ... ele é acionado assim que o form é ativado, e fica sendo executado, até que o form seja desativado ou fechado. vale lembrar que a figura deverá ser do tipo bmp ( obs: a figura deverá ter o tamanho do dbgrid, para que o mesmo seja preenchido totalmente )... outro tipo causará erro obs: acabei de testar aqui... está funcionando unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, DBTables, Grids, DBGrids, jpeg, ExtCtrls; type TForm1 = class(TForm) Panel1: TPanel; Image1: TImage; DBGrid1: TDBGrid; Query1: TQuery; DataSource1: TDataSource; procedure DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState); procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState); var Text: string; Rct: TRect; begin Text := Field.AsString; Rct:= Rect; DBGrid1.Canvas.Brush.Color := clWhite; DBGrid1.Canvas.FillRect (Rct); BitBlt(DBGrid1.Canvas.handle, Rct.left, Rct.top, Rct.right - Rct.left, Rct.bottom - Rct.top, Image1.Canvas.Handle, Rct.left + DBGrid1.Left + Panel1.Left, Rct.Top + DBGrid1.Top + Panel1.Top, SRCCOPY); SetBkModE(DBGrid1.Canvas.Handle, TRANSPARENT); inc(Rct.Top ,2); inc(Rct.Left ,2); DBGrid1.Canvas.Font.Color := clBlack; DrawtextEx(DBGrid1.Canvas.Handle, PChar(Text), Length(Text), Rct, DT_WORDBREAK, nil); end; procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ReleaseCapture; Panel1.Perform(WM_SYSCOMMAND, $F012, SC_MOVE); Application.ProcessMessages; BitBlt(GetDc(Panel1.Handle), 0, 0, Panel1.Width, Panel1.Height, Image1.Canvas.Handle , Panel1.Left, Panel1.Top, SRCAND); DBGrid1.refresh; end; end. abraço abraço

mas o código esta correto http://delphitutorial.info/how-to-make-tra...ent-dbgrid.html abraço