Jhonas

exemplos que voce pode adaptar ao seu execicio http://www.univasf.edu.br/~jose.valentim/aula3.pdf http://www.informarcia.pro.br/disciplinas/...resolvidos2.htm abraço

voce não disse qual é o modelo do seu note, mas tem outra coisa que voce deve ver antes ... abra o roteador e verifique se o fio da antena não está quebrado ou partido por dentro do fio... isso faz o sinal do wirelles ficar muito fraco... por isso so reconhece quando esta perto do roteador. outra coisa que pode fazer é instalar novamente os drives da placa wirelles sem precisar formatar o note abraço

Notebook so reconhece wireless perto do roteador o tecnico pode ter desligado a antena interna da placa wirelles quando mexeu no circuito abraço

utilizo o XP SP2 e não tenho problemas para configurar qualquer opção de encriptação veja na configuração do DHCP Clients List veja se aparece o endereço MAC e o ID de sua internet veja tambem as configurações do wirelles settings abraço

exemplos http://paginas.fe.up.pt/~ee06161/?page_id=527 http://paginas.fe.up.pt/~ee06161/wp-conten...nload.php?id=36 http://www.ece.ufrgs.br/~cpereira/sistema_sinais/dullius.htm abraço

sua pergunta está sem sentido algum primeiro, que código é esse ? segundo, porque voce quer saber isso ? abraço

compoedata:='01'+'-'+inttostr(combobox1.ItemIndex+1)+'-'+edit1.Text; data:=strtodate(compoedata); vamos supor que sua data seja data := '01-01-2012' // isso dependendo do banco de dados poderia ser '01/01/2012' se data tem o mesmo valor, ao executar a sql, os registros retornariam somente no intervalo de 1 dia ( ou seja, na mesma data ) Queryg.SQL.Clear; Queryg.SQL.Add('SELECT *'); Queryg.SQL.Add('FROM contrato'); Queryg.SQL.Add('WHERE data_inicio>=:data1' ); Queryg.SQL.Add('and data_fim <= :data2'); queryg.Params[0].AsDate:=data; queryg.Params[1].asdate:=data; queryg.Open; se quiser um intervalo maior deveria ser Queryg.SQL.Clear; Queryg.SQL.Add('SELECT *'); Queryg.SQL.Add('FROM contrato'); Queryg.SQL.Add('WHERE data_inicio>=:data1' ); Queryg.SQL.Add('and data_fim <= :data2'); queryg.Params[0].AsDate:=data; queryg.Params[1].asdate:=data + 30; // data inicial + 30 dias queryg.Open; OBS: Procure não usar o mesmo nome para os parametros abraço

(primeira parte: quero todas as vendas que não estão em mapa nenhum e não estejam canceladas) select * from venda v where V.MAPA IS NOT NULL and v.cancelado is not null (segunda parte: trazer as vendas das cidades que não sejam das cidades que coloquei no not in ) // correto and (v. not in ('53','54','28','8','18','22','27','110','101','111') or v.venda in (select v1.venda from venda v1 where v1.cidade in ('1','2','21','41') and V1.DATDOC >= (SELECT CURRENT_DATE FROM RDB$DATABASE))) sendo que pelo meu entender o que coloquei após o OR deveria não vir na consulta, alguma ideia? o comando OR fica implicito se por qualquer motivo a select anterior não for satisfeita o código seguinte sera executado no caso de colocar um AND, significa que alem da select anterior ser executada voce tambem quer que a proxima tambem seja executada OBS: sugiro voce a testar a select por partes ( vá testando e agregando as outras sentenças para ver o resultado ) abraço

O notebook reconhece a rede (via wi-fi), demora um bocado para conectar, mas logo aparece "Rede Nula ou Inativa", porém quando conecto um cabo no notebook e no roteador, a conexão fica ativa. a mensagem de rede nula ou inativa, significa que o notebook ou não esta recebendo o sinal ou não está configurado a rede sem fio corretamente no notebook veja se o led da rede sem fio do notebook esta ativo ( tecla de função < fn > + < F11 > ) abraço

exemplo: exportar dados do stringgrid para o excel uses ComObj; procedure TForm1.Button1Click(Sender: TObject); var excel: variant; lin,col : integer; begin excel := CreateOleObject('Excel.Application'); excel.Workbooks.add(1); excel.Cells.Select; excel.Selection.NumberFormat := '@'; for lin := 1 to StringGrid1.RowCount do for col := 1 to StringGrid1.ColCount do begin excel.cells[lin,col] := StringGrid1.cells[lin,col]; excel.columns.AutoFit; excel.cells[lin,col].Select; end; excel.visible := true; end; outros exemplos: http://scriptbrasil.com.br/forum/index.php?showtopic=90117 http://www.planetadelphi.com.br/dica/5329/...do-para-o-excel http://www.planetadelphi.com.br/dica/7014/...hi%20p/%20excel abraço

Não encontrei nenhum erro unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function CriaFormularioClientes:Boolean; begin With TForm.Create(Application) do begin Try Result := ShowModal = mrOk; Finally Free; end; end; end; function CriaFormModal(Formulario : TFormClass) : Boolean; begin With Formulario.Create(Application) do begin Try Result := ShowModal = mrYes; Finally Free; end; end; end; procedure TForm1.Button1Click(Sender: TObject); begin If CriaFormModal(TForm) then ShowMessage('Pressionou OK!') else ShowMessage('Pressionou Cancela!') end; procedure TForm1.Button2Click(Sender: TObject); begin If CriaFormularioClientes = true then ShowMessage('Pressionou OK!') else ShowMessage('Pressionou Cancela!') end; end. abraço

v_com_in := 'alter table '|| vTabela; if vTipo = 'ADD' then v_com_fi := v_com_in || ' add partition P_' || to_char(vAno)|| '_' || lpad(to_char(vMes),2,0) || ' VALUES LESS THAN (' || to_char(add_months(to_date(lpad(to_char(vMes),2,0) || vAno,'MMYYYY'),1),'YYYY') || ',' || to_char(add_months(to_date(lpad(to_char(vMes),2,0) || vAno,'MMYYYY'),1),'MM') || ') UPDATE INDEXES'; end if; if vTipo = 'DROP' then v_com_fi := v_com_in || ' Drop PARTITION P_' || vAno || '_' || lpad(vMes,2,0) || ' UPDATE INDEXES'; end if; if vTipo = 'TRUNCATE' then v_com_fi := v_com_in || ' Truncate PARTITION P_' || vAno || '_' || lpad(vMes,2,0) || ' UPDATE INDEXES'; end if; primeiro tente fazer separadamente os ifs abraço

veja http://www.4shared.com/rar/G1bmwwOC/RESET_EPSON_TX300F.html abrao

para entender como funciona uma soma de matrizes 2 X 2 program Project2; {$APPTYPE CONSOLE} uses SysUtils; var mat1: array [1..2] of integer; mat2: array [1..2] of integer; soma, x, y :integer; Begin soma:=0; writeln('digite os 2 valores da matriz 1'); for x:=1 to 2 do readln(mat1[x]); writeln('digite os 2 valores da matriz 2'); for y:=1 to 2 do readln(mat2[y]); for x:=1 to 2 do for y:=1 to 2 do begin soma:= mat1[x] + mat2[y]; writeln('Soma=',soma); sleep(2000); end; end. se voce digitar os valores 1 2 3 4 então teriamos atribuidos as matrizes os valores mat1(1) = 1 mat1(2) = 2 mat2(1) = 3 mat2(2) = 4 efetuando-se a soma teriamos mat1(1) + mat2(1) = 4 // 1 + 3 mat1(1) + mat2(2) = 5 // 1 + 4 mat1(2) + mat2(1) = 5 // 2 + 3 mat1(2) + mat2(2) = 6 // 2 + 4 entretanto veja a diferença com esse program Project2; {$APPTYPE CONSOLE} uses SysUtils; var mat: array [1..2,1..2] of integer; soma, x,y :integer; Begin soma:=0; writeln('digite os valores da matriz'); for x:=1 to 2 do for y := 1 to 2 do readln(mat[x,y]); for x:=1 to 2 do for y:=1 to 2 do begin soma:= soma + mat[x,y]; writeln('Soma=',soma); sleep(2000); end; end. ============================= matriz 3 x 3 var mat1: array [1..3] of integer; mat2: array [1..3] of integer; mat3: array [1..3] of integer; soma, x, y, z :integer; Begin soma:=0; writeln('digite os 3 valores da matriz 1'); for x:=1 to 3 do readln(mat1[x]); writeln('digite os 3 valores da matriz 2'); for y:=1 to 3 do readln(mat2[y]); writeln('digite os 3 valores da matriz 3'); for z:=1 to 3 do readln(mat3[z]); for x:=1 to 3 do for y:=1 to 3 do for z:=1 to 3 do begin soma:= mat1[x] + mat2[y] + mat3[z]; writeln('Soma=',soma); sleep(2000); end; end. veja tambem http://www.algosobre.com.br/matematica/mat...minantes-i.html http://matematiques.sites.uol.com.br/resumao/resumatriz.htm abraço

coloque o seu código que fica mais facil te ajudar o erro de "Acess Violation". pode estar acontecendo se voce colocar o comando no OnCreate do form abraço

melhor começar do zero para voce entender veja o exemplo program vet_soma; {$APPTYPE CONSOLE} uses SysUtils; var v: array [1..5] of integer; soma,cont:integer; Begin soma:=0; writeln('digite os 5 valores'); for cont:=1 to 5 do readln(v[cont]); for cont:=1 to 5 do begin soma:=soma + v[cont]; writeln('Soma=',soma); sleep(2000); end; end. nesse exemplo voce vai digitar 5 numeros e coloca-los em uma matriz unidimensional de 5 elementos então voce digita 1 2 3 4 5 então na matriz ficará : v[1] := 1 v[2] := 2 v[3] := 3 v[4] := 4 v[5] := 5 na etapa seguinte será feita a soma desses valores ( ou seja de cada indice da matriz ) soma:=soma + v[cont]; que seria soma := soma + v[1]; // 1 soma := soma + v[2]; // 1 + 2 = 3 soma := soma + v[3]; // 3 + 3 = 6 soma := soma + v[4]; // 6 + 4 = 10 soma := soma + v[5]; // 10 + 5 = 15 o comando sleep(2000); vai manter o resultado de cada soma na tela durante 2 segundos OBS: Voce tem que entender o basico para poder avançar veja que no seu código soma é um array e depois voce trata soma como um inteiro soma: array [1..10] of real; soma:=soma+produto[j][l] // aqui da erro de tipos incompativeis ( array com integer ) se soma é um array voce tem que colocar o tipo array soma[j]:= soma[j] + produto[j][l]; abraço

o comando sleep(10) // pausa de 10 segundos é usado para dar uma pausa ( em segundos ) no programa .... se todos os comandos forem executados o programa termina e fecha abraço

eu falei para usar o tradutor do google para poder entender isso: >>> help (while) é diferente disso: python --help While OBS: No tutorial está bem explicado ( traduza para o portugues ) abraço

ok.. exemplo http://www.async.com.br/projects/python/pnp/node12.html abraço

leia a apostila a partir da pagina 12 http://www.fis.unb.br/UM_RESUMO_DA_LINGUAG..._FORTRAN_77.pdf abraço

Pesquise no forum por INNER JOIN http://scriptbrasil.com.br/forum/index.php...lite=inner+join abraço

eu já utilizei o exemplo e funciona perfeitamente veja http://forum.idimager.com/download/file.ph...96187adb42bb445 abraço

como é que voce vai linkar esses ClientDataSets ao demais componentes ?

exemplos http://www.devmedia.com.br/dicas-como-cria...amicamente/2558 http://www.ramosdainformatica.com.br/art_r...s01.php?CDA=584 abraço

exemplos http://www.forum-invaders.com.br/vb/showth...ogger-em-Delphi http://blogprogramadores.blogspot.com.br/2...o-delphi-7.html http://dynamicspy.wordpress.com/2011/10/19...avel-no-delphi/ abraço