Jhonas

para quem ainda tem interesse: http://www.youtube.com/watch?v=naFsqJVLaho http://www.sabereletronica.com.br/secoes/subsecao/1/6 abraço

Valeu amigo... precisando de ajuda é só postar abraço

voce deveria dizer que esta querendo um Vu Meter ... um indicador para as variações do som nesse caso veja: http://www.torry.net/vcl/sound/mixer/vumeter.zip http://www.torry.net/vcl/indicat/indicators/fbvumeter.zip abraço

meio confuso isso ... explique melhor abraço

Em relação a programação (no Delphi) terá que ser alterado muitas coisas? Quase nada ... se voce já usou query ou table, é praticamente a mesma coisa ( muda apenas a sintaxe das instruções sql ) mas é so olhar no help e os componentes de ligação, quais utilziar, quais são melhores? Use os componentes Zeos para a versão do seu delphi ... abaixo é para o delphi 7 http://sourceforge.net/projects/zeoslib/fi...le.zip/download abraço

coloque em um Form 1 - TrackBar 1 - Gauge 1 - Media Player No Media Player deixe a propriedade AutoOpen = true propriedade Display = TrackBar na propriedade FileName = caminho para um arquivo de musica No Gauge na propriedade MaxValue = 15 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, MPlayer, Gauges; type TForm1 = class(TForm) TrackBar1: TTrackBar; MediaPlayer1: TMediaPlayer; Gauge1: TGauge; procedure TrackBar1Change(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} uses MMSystem; procedure TForm1.TrackBar1Change(Sender: TObject); var Count, i: integer; begin Count := waveOutGetNumDevs; for i := 0 to Count do begin waveOutSetVolume(i,longint(TrackBar1.position*4369)*65536+longint(TrackBar1.position*4369)); Gauge1.Progress := TrackBar1.position; end; end; end. é só testar abraço

uses MMSystem; procedure TForm1.tbVolumeChange(Sender: TObject); // TrackBar var Count, i: integer; begin Count := waveOutGetNumDevs; for i := 0 to Count do begin waveOutSetVolume(i,longint(tbVolume.position*4369)*65536+longint(tbVolume.position*4369)); end; end; OBS: colocar na propriedade Max do TrackBar = 15 o Gauge é só adaptar abraço

legal ... veja outra maneira procedure TForm1.Button1Click(Sender: TObject); const N = 10; var I, L, M: Integer; Num: array[0..N - 1] of Integer; begin // GERAR NUMEROS ALEATORIOS SEM REPETIÇÃO Memo1.Clear; for I := 0 to N - 1 do Num[I] := I; for I := N - 1 downto 1 do begin M := Random(I + 1); while M = 0 do // EXCLUIR O ZERO M := Random(I + 1); L := Num[I]; Num[I] := Num[M]; Num[M] := L; memo1.Lines.Append( inttostr(Num[i])); end; end; abraço

esqueci um detalhe... tente: procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); var S : Variant; texto, cod : string; begin Memo1.Clear; S := WebBrowser1.Document; texto := S.Body.OuterHTML; if pos('www751',texto) > 0 then cod := copy(texto,pos('www751',texto),134); memo1.Clear; Memo1.Lines.Append(cod); end; procedure TForm1.Button1Click(Sender: TObject); var URL : String; Begin URL := ''; URL := 'http://megaupload.com/?d=R4ATX7DQ'; webbrowser1.navigate(url); end; o resultado sera: abraço

da mesma forma procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); var S : Variant; texto: string; begin S := WebBrowser1.Document; texto := S.Body.OuterHTML; if pos('www751',texto) > 0 then copy(texto,pos('www751',texto), pos('></a></div>',texto)); memo1.Clear; Memo1.Text := texto; end; procedure TForm1.Button1Click(Sender: TObject); var URL : String; Begin URL := ''; URL := 'http://megaupload.com/?d=R4ATX7DQ'; webbrowser1.navigate(url); end; OBS: voce não pode usar o ' <a href= ' pois haveria outros no código, então voce deve pegar somente a parte do texto que não aparece em nenhum outro lugar abraço

amigo, a lógica é a seguinte: 1 - definir um array 2 - gerar os numeros aleatorios 3 - se o numero gerado for 0 gerar outro 4 - guardar os numeros no array 5 - comparar os numeros desse array 6 - se diferente dos outros guardar 7 - se igual, gerar outro 8 - no final mostrar num memo a sequencia gerada OBS: tente fazer, para treinar o raciocinio lógico ... se não conseguir eu posto para voce abraço

amigo, não tem comparação ... o mysql é muito melhor mas baixe essa versão ... é mais estavel http://www.4shared.com/file/DwV0mC4a/MySQL_5141.html OBS: mas existem outras versões mais recentes ... mas essa esta funcionando legal voce vai precisar tambem do Mysql-Front para criar as suas tabelas e outras coisas http://mysql-front.softonic.com.br/download abraço

var valor : real; venc : double; parcelas, i, mes, dia : integer; // acrescente a variavel dia Present: TDateTime; Year, Month, Day: Word; begin valor := StrToFloat(Edit1.text); Venc := StrToDate (DateEdit1.text); parcelas := StrToInt(Edit3.text); memo1.Clear; Query1.Active := false; ClientDataSet1.Active := false; Query1.Active := true; ClientDataSet1.Active := true; Present:= venc; // coloque a data inicial aqui ( no lugar do now ) DecodeDate(Present, Year, Month, Day); mes := month; // atribui o mes atual dia := Day; for i := 1 to parcelas do begin ClientDataSet1.Last; // ultimo registro ClientDataSet1.Append; // adicionar novo registro ClientDataSet1.Edit; // editar registro // Atribuir os valores das variaveis aos campos do registro na tabela if mes > 11 then begin mes := 1; Year := Year + 1; end else inc(mes); if (mes = 2) and (Day > 28) then Day := 28 else Day := dia; ClientDataSet1parcelas.Value := inttostr(i) +'/'+inttostr(parcelas); // campo String ClientDataSet1Valor.Value := valor; // campo Float ClientDataSet1Vencimento.Value := strtodate(IntToStr(Day) + '/' + FloatToStr(mes) + '/' + IntToStr(Year)); // campo Data ClientDataSet1.Post; // salvar o registro ClientDataSet1.ApplyUpdates(-1);// atualizar o registro end; Query1.Active := false; ClientDataSet1.Active := false; Query1.Active := true; ClientDataSet1.Active := true; end; voce não esta sabendo fazer coisas básicas ... então sugiro que voce leia as apostilas disponiveis no forum, ou outras que voce encontra na Net. abraço

se as partições forem no mesmo hd é possivel... ( por exe: voce tem um hd de 100Gb, voce pode colocar uma de 20 e outra de 80, ou fazer a variação que desejar ) usando o Particion Magic 8 em hds diferentes não dá abraço

faça assim var valor : real; venc : double; parcelas, i, mes : integer; Present: TDateTime; Year, Month, Day: Word; begin valor := StrToFloat(Edit1.text); Venc := StrToDate (DateEdit1.text); parcelas := StrToInt(Edit3.text); memo1.Clear; Query1.Active := false; ClientDataSet1.Active := false; Query1.Active := true; ClientDataSet1.Active := true; Present:= venc; // coloque a data inicial aqui ( no lugar do now ) DecodeDate(Present, Year, Month, Day); mes := month; // atribui o mes atual for i := 1 to parcelas do begin ClientDataSet1.Last; // ultimo registro ClientDataSet1.Append; // adicionar novo registro ClientDataSet1.Edit; // editar registro // Atribuir os valores das variaveis aos campos do registro na tabela if mes > 11 then begin mes := 1; Year := Year + 1; end else inc(mes); if (mes = 2) and (Day > 28) then Day := 28; ClientDataSet1parcelas.Value := inttostr(i) +'/'+inttostr(parcelas); // campo String ClientDataSet1Valor.Value := valor; // campo Float ClientDataSet1Vencimento.Value := strtodate(IntToStr(Day) + '/' + FloatToStr(mes) + '/' + IntToStr(Year)); // campo Data ClientDataSet1.Post; // salvar o registro ClientDataSet1.ApplyUpdates(-1);// atualizar o registro end; Query1.Active := false; ClientDataSet1.Active := false; Query1.Active := true; ClientDataSet1.Active := true; end; Copie o código como esta aqui OBS: quando o ano for bissexto, o mes de fevereiro é 29 ... pesquise no forum http://scriptbrasil.com.br/forum/index.php...amp;hl=bissexto abraço

experimente procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); var S : Variant; texto: string; begin S := WebBrowser1.Document; texto := S.Body.OuterHTML; if pos('onclick="gbar',texto) > 0 then copy(texto,pos('onclick="gbar',texto),100); memo1.Clear; Memo1.Text := texto; end; procedure TForm1.Button1Click(Sender: TObject); var URL : String; Begin URL := ''; URL := 'www.google.com.br'; webbrowser1.navigate(url); end; abraço

faltou definir as variaveis var valor : real; venc : double; parcelas, i, mes : integer; Present: TDateTime; Year, Month, Day: Word; abraço

isso é uma caracteristica do sistema operacional, para que quando o seu programa estiver consumindo muita memória, voce pode suspender o processo, liberando memória, e sem perder os seus dados, retomando o processamento mais tarde. pode ser que exista uma maneira, mas voce terá que pesquisar na net abraço

o correto é a linha do dbgrid mudar de cor, e não ficar piscando ... tornaria cansativo a visualização coloque o código no evento OnDrawColumnCell do DBgrid if (Column.FieldName = 'LUCRO_PREJU') then begin if CDS_ClientDataSet1.FieldByName('LUCRO_PREJU').Value < 0 then begin DBGrid1.Canvas.Font.Color := clRed;; DBGrid1.Canvas.FillRect(Rect); DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end else begin DBGrid1.Canvas.Font.Color := clBlack; DBGrid1.Canvas.FillRect(Rect); DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end; end; abraço

amigo, sua dúvida está muito vaga... mas de qualquer modo veja http://pt.wikipedia.org/wiki/GS1-128 abraço

Esse é um erro de paginação do banco de dados.... faça um restore database; caso não consiga, então delete o banco e crie-o novamente abraço

qual é a versão do seu delphi ?

a idéia é a mesma, mas lembre-se que o panel ( caption ) não aceita quebra de linha, mas um outro componente dentro dele ( ex: o memo ) sim... e outra coisa: a justificação de linha só é possivel se usar fonte Courier, que tem espaçamentos iguais entre os caracteres. abraço

var valor : real; venc : double; parcelas, i, mes : integer; begin valor := StrToFloat(Edit1.text); Venc := StrToFloat (Edit2.text); parcelas := StrToInt(Edit3.text); memo1.Clear; Query1.Active := false; ClientDataSet1.Active := false; Query1.Active := true; ClientDataSet1.Active := true; Present:= Now; // coloque a data inicial aqui ( no lugar do now ) DecodeDate(Present, Year, Month, Day); mes := month; for i := 1 to parcelas do begin ClientDataSet1.Last; // ultimo registro ClientDataSet1.Append; // adicionar novo registro ClientDataSet1.Edit; // editar registro // Atribuir os valores das variaveis aos campos do registro na tabela if mes > 11 then begin mes := 1; Year := Year + 1; end else inc(mes); ClientDataSet1parcelas.Value := inttostr(i) +'/'+inttostr(parcelas); // campo String ClientDataSet1Valor.Value := valor; // campo Float ClientDataSet1Vencimento.Value := strtodate(IntToStr(Day) + '/' + IntToStr(Mes) + '/' + IntToStr(Year))); // campo Data ClientDataSet1.Post; // salvar o registro ClientDataSet1.ApplyUpdates(-1);// atualizar o registro end; Query1.Active := false; ClientDataSet1.Active := false; Query1.Active := true; ClientDataSet1.Active := true; end; abraço

Vamos montar um relogio falante: baixe o arquivo Realspeak-português+brasil+Raquel ... é gratis http://www.4shared.com/get/dUzBBzIt/realsp..._sapi5_-_p.html 1º instale 2º Vá em Painel de controle/Fala 3º Selecione como padrão: ScanSoft Raquel_Full_22KHz Crie um form no delphi e coloque um componente Timer, 2 Label e um botão agora vamos ao código: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Label1: TLabel; Timer1: TTimer; Label2: TLabel; procedure Timer1Timer(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} uses COMOBJ; procedure TForm1.Timer1Timer(Sender: TObject); var Presente: TDateTime; Hour, Min, Sec, MSec: Word; begin Presente := Now; DecodeTime(Presente, Hour, Min, Sec, MSec); // DATA POR EXTENSO Label1.Caption := 'Hoje é, '+ (FormatDateTime('dddddd',Now)); // HORA POR EXTENSO Label2.Caption := 'São ' + IntToStr(Hour) + ' horas, '+ IntToStr(Min) + ' minutos ' + ' e ' + IntToStr(Sec) + ' segundos'; end; procedure TForm1.Button1Click(Sender: TObject); var texto : string; voz: OLEVariant; begin texto := Label1.Caption + Label2.Caption; voz := CreateOLEObject ('SAPI.SpVoice'); voz.Speak (texto, 0); end; end. OBS: Ao clicar no botão, a data e a hora serão pronunciadas em portugues pela Raquel ( sintetizador de voz em portugues ) Esse é um exemplo bem simples, que pode ser melhorado. abraços