Maicon_iniciante

Cara isso me ajudou um monte valeu mesmo.

beleza galera ? Bom como o titulo diz tudo, alguém ai sabe como fazer isso com certeza que vai funcionar? Por que eu já fui atraz de um monte de lugar e até agora não consegui fazer nada funcionar aqui. Eu não quero o código pronto e sim uma dica. Pode ser tanto no FrontPage ou no Dreamweaver, sou iniciante e estou aprendendo com essas ferramentas. Desde agradeço você pela ajuda que me deram até agora com as outras duvidas que eu tive veleu.

http://detudoumpoucotem.blogspot.com/2007/...n-web-2007.html http://www.microsoft.com/expression/produc....aspx?key=blend existem muitos outros em ingles abraço Valeu pela ajuda cara .

Obrigado amigo isso já me ajudou um pouco mais valeu.

É o seguite meus amigos do fórum, quero fazer uma proteção em dvd de video. Sei que é inutil fazer isso mais temos que penssar que existe pessoas com o tico e teco e outras com um ou outro. Não quero que seja impossivel de copiar meus dvds quero apenas dificultar um pouco paras pessoas do tico e teco. Faço parte de um projeto chamado Dentista cidadão que existe no brasil inteiro é um projeto que vai cuidar da saude bucal no pais por isso já viu com quais pessoas estaremos trabalhando. Por isso quero apenas dificultar um pouco mais. já vi que é inutil fazer isso mais fazer o que, quem sabe sabe. Qualquer coisa manda por e-mail tokoman@brturbo.com.br Desde já agradeço sua atenção. :D

Estou iniciando no microsoft expression blend e preciso de ajuda se alguém souber de sites que tem alguma apostila ou algo que possa me ajudar ficarei grato se alguém me ajudar . Desde já agradeço atenção de vocês.

Eu tive que fazer algo parecido. Você pode usar o case é mais ou menos assim. program listaCategoria; var idade:integer; begin write('Digite a idade:'); read(idade); case idade of 5,6,7 :begin write('Infantil(A)'); end; 8,9,10,11:begin write('Infantil(B)') end; end. Mais ou menos assim. Se isso te ajudou beleza se não ajudei fiz o que pude.

Gostaria de saber como fazer uma pesquisa em pascal onde o usuario não sabe o nome completo e digite apenas o primeiro nome ou as primeiras letras sei que tem que usar um comando POS que ele vai varrer a STRING e vai dizer a posição daquilo que eu escolhi mais não sei como tratar esta imformação se alguém puder me ajudar agradeço.

Pessoal estou com um grande problema estou fazendo um programa que localiza em espaço fisico um cd ou dvd que foi cadastrado no sistema mais no código esta dando erros que eu nunca vi alguns eram bestas e já resolvi mais outros já arrumei tu identei tudo mais nada de funcionar revisei todos os begin , end mais nada vou por o código aqui quem puder me ajudar serei grato. Qualquer coisa se alguém conseguir me ajudar pode mandar um e-mail ou posta aqui mesmo. Meu e-mail program loja; uses crt; type Tarmario = record titulo : string; artista : string; nro_musica: integer; duplo : char; preço : real; genero : string; ano : integer; tempo : real; diretor : string; armario : char; end; var a : array [1..10] of Tarmario; b : array [1..10] of Tarmario; c : array [1..10] of Tarmario; d : array [1..10] of Tarmario; e : array [1..10] of Tarmario; f : array [1..10] of Tarmario; arq : file of Tarmario; nro_produto: integer; max_prod : integer; procedure VerificaArquivo; begin assign(arq,'c:\windows\loja.dat'); {$I-} reset(arq); {$I+} if ioresult <> 0 then begin rewrite(arq); end; end; procedure GravaProdutos; var cont: integer; begin VerificaArquivo; for cont:= 1 to nro_produto do begin write(arq,a[cont]); write(arq,b[cont]); write(arq,c[cont]); write(arq,d[cont]); write(arq,e[cont]); write(arq,f[cont]); end; close(arq); end; procedure LeProduto; var cont: integer; begin VerificaArquivo; cont := 1; while not eof(arq) do begin read(arq,a[cont]); read(arq,b[cont]); read(arq,c[cont]); read(arq,d[cont]); read(arq,e[cont]); read(arq,f[cont]); cont := cont + 1; nro_produto := nro_produto + 1; end; close(arq); end; procedure MenuInsereProdutocd; var opcaoum: integer; nome_digitado : string; begin writeln('DIGITE A OPÇÃO:'); writeln('- 1 CADASTRAR NO ARMARIO (A) -'); writeln('- 2 CADASTRAR NO ARMARIO (B) -'); writeln('- 3 CADASTRAR NO ARMARIO (C) -'); writeln('- 4 PARA SAIR -'); read(opcaoum); while opcaoum <> 4 do begin case opcaoum of 1:begin writeln(nro_produto +1, '|',max_prod); write(' DIGITE O TITULO DO CD OU ENTER PARA SAIR:'); readln(nome_digitado); while (nro_produto < max_prod) and (nome_digitado <> '') do begin nro_produto := nro_produto + 1; a[nro_produto].titulo := nome_digitado; write('DIGITE A BANDA OU O CANTOR:'); readln(a[nro_produto].artista); write('NUMERO DE MUSICAS:'); readln(a[nro_produto].nro_musica); write('CD DUPLO ?:'); readln(a[nro_produto].duplo); write('PREÇO:'); readln(a[nro_produto].preço); write('DIGITE O ARMARIO:'); readln(a[nro_produto].armario); end; end; 2:begin writeln(nro_produto +1, '/',max_prod); writeln('---------------------------------------'); write(' DIGITE O TITULO DO CD OU ENTER PARA SAIR:'); readln(nome_digitado); while (nro_produto < max_prod) and (nome_digitado <> '') do begin nro_produto := nro_produto + 1; b[nro_produto].titulo := nome_digitado; write('DIGITE A BANDA OU O CANTOR:'); readln(b[nro_produto].artista); write('NUMERO DE MUSICAS:'); readln(b[nro_produto].nro_musica); write('CD DUPLO ?:'); readln(b[nro_produto].duplo); write('PREÇO:'); readln(b[nro_produto].preço); write('DIGITE O ARMARIO:'); readln(b[nro_produto].armario); end; end; 3:begin writeln(nro_produto +1, '/',max_prod); writeln('---------------------------------------); write(' DIGITE O TITULO DO CD OU ENTER PARA SAIR:'); readln(nome_digitado); while (nro_produto < max_prod) and (nome_digitado <> '') do begin nro_produto := nro_produto + 1; c[nro_produto].titulo := nome_digitado; write('DIGITE A BANDA OU O CANTOR:'); readln(c[nro_produto].artista); write('NUMERO DE MUSICAS:'); readln(c[nro_produto].nro_musica); write('CD DUPLO ?:'); readln(c[nro_produto].duplo); write('PREÇO:'); readln(c[nro_produto].preço); write('DIGITE O ARMARIO:'); readln(c[nro_produto].armario); end; end; writeln('--------------------------------------------'); writeln(nro_produto +1, '/',max_prod); writeln('DIGITE A OPÇÃO:'); writeln('- 1 CADASTRAR NO ARMARIO (A) -'); writeln('- 2 CADASTRAR NO ARMARIO (B) -'); writeln('- 3 CADASTRAR NO ARMARIO (C) -'); writeln('- 4 PARA SAIR -'); read(opcaoum); end; end; procedure MenuInsereProdutodvd; var opcao2: string; nome_digitado1 : string; begin writeln('DIGITE A OPÇÃO:'); writeln('- 1 CADASTRAR NO ARMARIO (D) -'); writeln('- 2 CADASTRAR NO ARMARIO (E) -'); writeln('- 3 CADASTRAR NO ARMARIO (F) -'); writeln('- 4 PARA SAIR -'); read(opcao1); while (opcao1 <> 3) do begin case opcao1 of 1:begin writeln(nro_produto +1, '/',max_prod); writeln('---------------------------------------); write(' DIGITE O TITULO DO DVD OU ENTER PARA SAIR:'); readln(nome_digitado1); while (nro_produto < max_prod) and (nome_digitado1 <> '') do begin nro_produto := nro_produto + 1; d[nro_produto].titulo := nome_digitado; write('DIGITE O GENERO DO FILME:'); readln(d[nro_produto].genero); write('TEMPO DE FILME:'); readln(d[nro_produto].tempo); write('DVD DUPLO ?:'); readln(d[nro_produto].duplo); write('DIRETOR:'); readln(d[nro_produto].direto); write('PREÇO:'); readln(d[nro_produto].preço); write('DIGITE O ARMARIO:'); readln(d[nro_produto].armario); end; end; 2:begin writeln(nro_produto +1, '/',max_prod); writeln('---------------------------------------); write(' DIGITE O TITULO DO DVD OU ENTER PARA SAIR:'); readln(nome_digitado); while (nro_produto < max_prod) and (nome_digitado <> '') do begin nro_produto := nro_produto + 1; e[nro_produto].titulo := nome_digitado; write('DIGITE O GENERO DO FILME:'); readln(e[nro_produto].genero); write('TEMPO DE FILME:'); readln(e[nro_produto].tempo); write('DVD DUPLO ?:'); readln(e[nro_produto].duplo); write('DIRETOR:'); readln(e[nro_produto].direto); write('PREÇO:'); readln(e[nro_produto].preço); write('DIGITE O ARMARIO:'); readln(e[nro_produto].armario); end; end; 3:begin writeln(nro_produto +1, '/',max_prod); writeln('---------------------------------------); write(' DIGITE O TITULO DO DVD OU ENTER PARA SAIR:'); readln(nome_digitado); while (nro_produto < max_prod) and (nome_digitado <> '') do begin nro_produto := nro_produto + 1; f[nro_produto].titulo := nome_digitado; write('DIGITE O GENERO DO FILME:'); readln(f[nro_produto].genero); write('TEMPO DE FILME:'); readln(f[nro_produto].tempo); write('DVD DUPLO ?:'); readln(f[nro_produto].duplo); write('DIRETOR:'); readln(f[nro_produto].direto); write('PREÇO:'); readln(f[nro_produto].preço); write('DIGITE O ARMARIO:'); readln(f[nro_produto].armario); end; end; writeln('DIGITE A OPÇÃO:'); writeln('- 1 CADASTRAR NO ARMARIO (A) -'); writeln('- 2 CADASTRAR NO ARMARIO (B) -'); writeln('- 3 CADASTRAR NO ARMARIO (C) -'); writeln('- 4 PARA SAIR -'); read(opcao1); end; end; procedure Listaroduto; var cont: integer; opcao2:integer; i : integer; begin writeln('DIGITE A OPÇÃO PARA LISTAR O PRODUTO:'); writeln('- 1 PARA CD -'); writeln('- 2 PARA DVD -'); writeln('- 3 PARA SAIR-'); read(opcao2); while (opcao2 <> 3) do begin case opcao2 of 1: begin writeln('- 1 PARA ARMARIO (A) -'); writeln('- 2 PARA ARMARIO (B) -'); writeln('- 3 PARA ARMARIO (C) -'); writeln('- 4 PARA SAIR -'); read(opcao2); end; while (opcao2 <> 4) do begin case opcao2 of 1: begin for 1 := 1 to max_prod do begin writeln('ARMARIO (A)'); writeln('TITULO:',a[nro_produto].titulo); writeln('BANDA|CANTOR:',a[nro_produto].artista); writeln('NUMERO DE MUSICAS:',a[nro_produto].nro_musica); writeln('DUPLO ?:',a[nro_produto].duplo); writeln('PREÇO:',a[nro_produto].preço); writeln('ARMARIO:',a[nro_produto].armario); end; end; 2: begin for 1 := 1 to max_prod do begin writeln('ARMARIO (B)'); writeln('TITULO:',b[nro_produto].titulo); writeln('BANDA|CANTOR:',b[nro_produto].artista); writeln('NUMERO DE MUSICAS:',b[nro_produto].nro_musica); writeln('DUPLO ?:',b[nro_produto].duplo); writeln('PREÇO:',b[nro_produto].preço); writeln('ARMARIO:',b[nro_produto].armario); end; end; 3: begin for 1 := 1 to max_prod do begin writeln('ARMARIO (C)'); writeln('TITULO:',c[nro_produto].titulo); writeln('BANDA|CANTOR:',c[nro_produto].artista); writeln('NUMERO DE MUSICAS:',c[nro_produto].nro_musica); writeln('DUPLO ?:',c[nro_produto].duplo); writeln('PREÇO:',c[nro_produto].preço); writeln('ARMARIO:',c[nro_produto].armario); end; end; writeln('- 1 PARA ARMARIO (A) -'); writeln('- 2 PARA ARMARIO (B) -'); writeln('- 3 PARA ARMARIO (C) -'); writeln('- 4 PARA SAIR -'); read(opcao2); end; writeln('DIGITE A OPÇÃO PARA LISTAR O PRODUTO:'); writeln('- 1 PARA CD -'); writeln('- 2 PARA DVD -'); writeln('- 3 PARA SAIR-'); read(opcao2); 2: begin writeln('- 1 PARA ARMARIO (D) -'); writeln('- 2 PARA ARMARIO (E) -'); writeln('- 3 PARA ARMARIO (F) -'); writeln('- 4 PARA SAIR -'); read(opcao2); end; while (opcao2 <> 4) do begin case opcao2 of 1: begin writeln('ARMARIO (D)'); writeln('TITULO:',d[nro_produto].titulo); writeln('DIRETOR:',d[nro_produto].diretor); writeln('GENERO:',d[nro_produto].genero); writeln('TEMPO:',d[nro_produto].tempo); writeln('PREÇO:',d[nro_produto].preço); writeln('ARMARIO:',d[nro_produto].armario); end; 2: begin writeln('ARMARIO (E)'); writeln('TITULO:',e[nro_produto].titulo); writeln('DIRETO:',e[nro_produto].diretor); writeln('GENERO:',e[nro_produto].genero); writeln('TEMPO:',e[nro_produto].tempo); writeln('PREÇO:',e[nro_produto].preço); writeln('ARMARIO:',e[nro_produto].armario); end; 3: begin writeln('ARMARIO (F)'); writeln('TITULO:',f[nro_produto].titulo); writeln('DIRETOR:',f[nro_produto].diretor); writeln('GENERO:',f[nro_produto].genero); writeln('TEMPO:',f[nro_produto].tempo); writeln('PREÇO:',f[nro_produto].preço); writeln('ARMARIO:',f[nro_produto].armario); end; writeln('- 1 PARA ARMARIO (D) -'); writeln('- 2 PARA ARMARIO (D) -'); writeln('- 3 PARA ARMARIO (F) -'); writeln('- 4 PARA SAIR -'); read(opcao2); end; writeln('DIGITE A OPÇÃO PARA LISTAR O PRODUTO:'); writeln('- 1 PARA CD -'); writeln('- 2 PARA DVD -'); writeln('- 3 PARA SAIR-'); read(opcao2); end; end; procedure listapesquisacd; var pesquisa:string; linha:integer; opcao2:integer; begin writeln('DIGITE A OPÇÃO PARA LISTAR A PESQUISA:'); writeln('- 1 PARA CD -'); writeln('- 2 PARA DVD -'); writeln('- 3 PARA SAIR-'); read(opcao2); while opcao2 <> 3 do begin case opcao2 of 1: begin writeln('PESQUISA DE CD:'); write('DIGITE O NOME PARA PESQUISAR OU ENTER PARA SAIR:'); read(pesquisa); while (nome_digitado <> '') do begin for linha := 1 to max_prod do if pesquisa = a[linha].titulo then begin writeln('ARMARIO (A)'); writeln('TITULO:',a[linha].titulo); writeln('BANDA|CANTOR:',a[linha].artista); writeln('NUMERO DE MUSICAS:',a[linha].nro_musica); writeln('DUPLO ?:',a[linha].duplo); writeln('PREÇO:',a[linha].preço); writeln('ARMARIO:',a[linha].armario); else writeln('NOME NÃO ENCONTRADO'); readkey; end; if pesquisa = b.[linha].titulo then begin writeln('ARMARIO (B)'); writeln('TITULO:',b[linha].titulo); writeln('BANDA|CANTOR:',b[linha].artista); writeln('NUMERO DE MUSICAS:',b[linha].nro_musica); writeln('DUPLO ?:',b[linha].duplo); writeln('PREÇO:',b[linha].preço); writeln('ARMARIO:',b[linha].armario); else writeln('NOME NÃO ENCONTRADO'); readkey; end; if pesquisa = c[linha].titulo then begin writeln('ARMARIO (C)'); writeln('TITULO:',c[linha].titulo); writeln('BANDA|CANTOR:',c[linha].artista); writeln('NUMERO DE MUSICAS:',c[linha].nro_musica); writeln('DUPLO ?:',c[linha].duplo); writeln('PREÇO:',c[linha].preço); writeln('ARMARIO:',c[linha].armario); else writeln('NOME NÃO ENCONTRADO'); end; end; writeln('PESQUISA DE CD:'); write('DIGITE O NOME PARA PESQUISAR OU ENTER PARA SAIR:'); read(pesquisa); end; end; end; 2:begin writeln('PESQUISA DE DVD:'); write('DIGITE O NOME PARA PESQUISAR OU ENTER PARA SAIR:'); read(pesquisa); while (nome_digitado <> '') do for linha := 1 to max_prod do if pesquisa = d[linha].titulo then begin writeln('ARMARIO (D)'); writeln('TITULO:',d[linha].titulo); writeln('DIRETOR:',d[linha].diretor); writeln('GENERO:',d[linha].genero); writeln('TEMPO:',d[linha].tempo); writeln('PREÇO:',d[linha].preço); writeln('ARMARIO:',d[linha].armario); else writeln('NOME NÃO ENCONTRADO'); end; if pesquisa = e[linha].titulo then begin writeln('ARMARIO (E)'); writeln('TITULO:',e[linha].titulo); writeln('DIRETOR:',e[linha].diretor); writeln('GENERO:',e[linha].genero); writeln('TEMPO:',e[linha].tempo); writeln('PREÇO:',e[linha].preço); writeln('ARMARIO:',e[linha].armario); else writeln('NOME NÃO ENCONTRADO'); end; if pesquisa = f[linha].titutlo then begin writeln('ARMARIO (F)'); writeln('TITULO:',f[linha].titulo); writeln('DIRETOR:',f[linha].diretor); writeln('GENERO:',f[linha].genero); writeln('TEMPO:',f[linha].tempo); writeln('PREÇO:',f[linha].preço); writeln('ARMARIO:',f[linha].armario); else writeln('NOME NÃO ENCONTRADO'); end; end; writeln('PESQUISA DE DVD:'); write('DIGITE O NOME PARA PESQUISAR OU ENTER PARA SAIR:'); read(pesquisa); end; end; end; begin max_prod : = 10 end.

Queria sa ber como fazer um programa que mande determinado arquivo por e-mail exemplo um arquivo HTML mais que ele mande automaticamente mais ele tenha como cadastrar e-mail , excluir , alterar tudo isso se alguém puder me ajudar serei grato.

Muito obrigado isto me ajudou muito.

Boa tarde a todos gostaria de saber se alguém tem algum programa que mande e-mail em php pois preciso por isto no site que estou fazendo queria que funcionace +ou- assim a pessoa bota o e-mail o nome e o texto que ela bem enteder e manda sem abrir o outlook do windows e mande direto pro me e-mail se alguém puder me ajudar serei grato xau. Ou mande o programa pro meu e-mail tokoman@brturbo.com.br

Valeu isso já me ajudou muito .

alguém saberia me dizer como eu faço para imprimir algo via PROCEDIMENTO ou FUNÇÃO em pascal pois já procurei muito sobre isso é que vou fazer um programa de abertura de chamado e agendamento e preciso de algo para imprimir os chamados se alguém puder me ajudar estou muito agradecido.