Ir para conteúdo
Fórum Script Brasil

Urso_Polar

Membros
  • Total de itens

    10
  • Registro em

  • Última visita

Sobre Urso_Polar

  • Data de Nascimento 05/07/1984

Contatos

  • Website URL
    http://www.geocities.com/mauricio_inva
  • ICQ
    0

Perfil

  • Gender
    Male
  • Location
    Niterói

Urso_Polar's Achievements

0

Reputação

  1. Amigos, estou para entregar um trabalho e empaquei numa parte da lógica. A questão é: Sem ordenar um vetor de 10 elementos pesquise o maior e menor elemento de um vetor gerado com números aleatórios de semente igual a 280. Em seguida coloque o menor elemento na 1ª posição e o maior na última. O que fiz até o momento: #include <iostream> #include <time.h> using namespace std; int main() { int vet[10], i, aux1=0, aux2=0, maior=0, menor=vet[1]; srand(time(NULL)); for (i=0; i<10; i++) { vet=rand()%280; cout<<vet<<" "; } for (i=0; i<10; i++) { if (vet>maior) { maior=vet; } if (vet<menor) { menor=vet; } } aux1=vet[1]; aux2=menor; // muita duvida nesse bloco aux3=maior; vet[1]=vet[10]; vet[10]=aux; cout<<endl; for (i=1;i<=10;i++) { cout<<vet<<" "; } cout<<maior<<endl; cout<<menor<<endl; cout<<endl; system ("pause"); } Alguém tem alguma ideia? Grato desde já!
  2. Bom dia amigos! estou num dilema. Estou criando um instalador/configurador em BATCH para o BROFFICE, aqui na empresa. segue meu prog: :MENU CLS @ECHO OFF TITLE MENU DE INSTALACAO DO BROFFICE SUITE - 4 TECH @COLOR 17 ECHO ============================================ ECHO = 4 TECH - SOLUCOES EM INFORMATICA = ECHO ============================================ ECHO = INSTALACAO DO BROFFICE SUITE = ECHO ============================================ @ECHO. ECHO ============================================ ECHO = ESCOLHA UMA OPCAO: = ECHO ============================================ ECHO = 1 - LIBERACAO DE CACHE DE INSTALACAO = ECHO = 2 - AJUSTE NA INSTALACAO = ECHO = = ECHO = 3 - INSTALACAO DO CORRETOR ORTOGRAFICO = ECHO = 4 - INSTALACAO DOS DICIONARIOS TEMATICOS = ECHO = = ECHO = 5 - CRIACAO DOS DIRETORIOS = ECHO = 6 - INSTALACAO DOS JORNAIS DE CONSULTA = ECHO = = ECHO = 7 - INSTALACAO DOS OPEN-CLIPARTS = ECHO = 8 - INSTALACAO DAS APOSTILAS = ECHO = = ECHO = S - SAIR DO MENU DE INSTALACAO = ECHO ============================================ @ECHO. SET Choice= SET /P Choice= DIGITE A OPCAO: IF NOT '%Choice%'=='' SET Choice=%Choice:~0,1% IF /I '%Choice%'=='1' GOTO 1 IF /I '%Choice%'=='2' GOTO 2 IF /I '%Choice%'=='3' GOTO 3 IF /I '%Choice%'=='4' GOTO 4 IF /I '%Choice%'=='5' GOTO 5 IF /I '%Choice%'=='6' GOTO 6 IF /I '%Choice%'=='7' GOTO 7 IF /I '%Choice%'=='8' GOTO 8 IF /I '%Choice%'=='S' GOTO S @ECHO. @ECHO. @ECHO "%Choice%" não E UMA OPCAO VALIDA - TENTE NOVAMENTE!! @ECHO. @PAUSE GOTO MENU :S @COLOR 27 CLS @ECHO ON @TITLE S - SAIR DO MENU DE INSTALACAO @ECHO. @ECHO OBRIGADO POR UTILIZAR O BROFFICE!! @ECHO. @ECHO "PRESSIONE QUALQUER TECLA PARA SAIR >>" @PAUSE > NUL @ECHO. EXIT :1 @COLOR 87 CLS @ECHO ON @TITLE 1 - LIBERACAO DE CACHE DE INSTALACAO @ECHO. @PAUSE @ECHO. @CD\ @C: @RD /S /Q BROFFICE @ECHO. @ECHO LIBERACAO DE CACHE DE INSTALACAO CONCLUIDA. @ECHO. @PAUSE GOTO MENU :2 @COLOR 07 CLS @ECHO ON @TITLE 2 - AJUSTE NA INSTALACAO @ECHO. @PAUSE @ECHO. @ECHO ESTA OPCAO REMOVE A ASSOCIACAO DA PASTA COMPACTADA COM O WINDOWS XP, POR QUESTOES DE SEGURANCA NO BROFFICE. RECOMENDA-SE A INSTALACAO DE UM COMPACTADOR-DESCOMPACTADOR, DO TIPO WINRAR OU 7-ZIP. @ECHO. @PAUSE @ECHO. @regsvr32 /u %windir%\system32\zipfldr.dll @ECHO. @PAUSE @ECHO. @ECHO AJUSTE FEITO COM SUCESSO. @ECHO. @PAUSE GOTO MENU :3 @COLOR 87 CLS @ECHO ON @TITLE 3 - INSTALACAO DO CORRETOR ORTOGRAFICO @ECHO. @PAUSE @ECHO. @IF NOT EXIST C:\ARQUIV~1\BROFFI~1.3\SHARE\DICT\OOO ECHO O CAMINHO não FOI ENCONTRADO!! VERIFIQUE SE O MESMO EXISTE!! APERTE CRTL+C PARA ABORTAR E DIGITE S!! @ECHO. @PAUSE @ECHO. @ECHO DIGITE A LETRA DA UNIDADE DE CDROM (EXEMPLO: D:): @ECHO. @SET /P UNICD= @ECHO. @%UNICD% @ECHO. @CD ORTO\ @ECHO. @PAUSE @ECHO. @COPY *.* C:\ARQUIV~1\BROFFI~1.3\SHARE\DICT\OOO /Y @ECHO. @ECHO ARQUIVOs COPIADOS COM SUCESSO. @ECHO. @PAUSE @ECHO. @ECHO ATENCAO!! AGORA ABRA O BROFFICE.ORG WRITER, VA EM FERRAMENTAS - OPCOES - CONFIGURACOES DE IDIOMA - IDIOMA. NA OPCAO OCIDENTAL, DEVE ESTAR EM PORTUGUES (BRASIL). @ECHO. @PAUSE @ECHO. @ECHO DICIONARIO INSTALADO COM SUCESSO. não ESQUECA DE FAZER A VERIFICACAO DA MENSAGEM ANTERIOR!! @ECHO. @PAUSE GOTO MENU :4 @COLOR 07 CLS @ECHO ON @TITLE 4 - INSTALACAO DOS DICIONARIOS TEMATICOS @ECHO. @PAUSE @ECHO. @IF NOT EXIST C:\ARQUIV~1\BROFFI~1.3\SHARE\WORDBOOK\PT-BR\ ECHO O CAMINHO não FOI ENCONTRADO!! VERIFIQUE SE O MESMO EXISTE!! APERTE CRTL+C PARA ABORTAR E DIGITE S!! @ECHO. @PAUSE @ECHO. @ECHO DIGITE A LETRA DA UNIDADE DE CDROM (EXEMPLO: D:): @ECHO. @SET /P UNICD2= @ECHO. @%UNICD2% @ECHO. @CD DICIONARIOS\ @ECHO. @PAUSE @ECHO. @COPY *.* C:\ARQUIV~1\BROFFI~1.3\SHARE\WORDBOOK\PT-BR\ /Y @ECHO. @ECHO ARQUIVOS COPIADOS COM SUCESSO. @ECHO. @PAUSE @ECHO. @ECHO NO BROFFICE.ORG WRITER, EM FERRAMENTAS - OPCOES - RECURSOS DE VERIFICACAO ORTOGRAFICA - DICIONARIOS DEFINIDOS PELO USUARIO, MARQUE TODOS. @ECHO. @PAUSE @ECHO. @ECHO REALIZOU O PROCEDIMENTO ANTERIOR? @ECHO. @PAUSE @ECHO. @ECHO OS DICIONARIOS TEMATICOS ESTAO PRONTO PARA USO. @ECHO. @PAUSE GOTO MENU :5 @COLOR 87 CLS @ECHO ON @TITLE 5 - CRIACAO DOS DIRETORIOS @ECHO. @PAUSE @ECHO. @IF NOT EXIST C:\ARQUIV~1\BROFFI~1.3\SHARE\ ECHO O CAMINHO não FOI ENCONTRADO!! VERIFIQUE SE O MESMO EXISTE!! APERTE CRTL+C PARA ABORTAR E DIGITE S!! @ECHO. @PAUSE @ECHO. @CD\ c: @ECHO. @CD ARQUIV~1\BROFFI~1.3\SHARE\ @ECHO. @MD APOSTILAS-BROFFICE @ECHO. @MD JORNAIS-DE-CONSULTA-BROFFICE @ECHO. @CD GALLERY @ECHO. @MD CLIPARTS @ECHO. @ECHO DIRETORIOS CRIADOS COM SUCESSO. @ECHO. @PAUSE GOTO MENU :6 @COLOR 07 CLS @ECHO ON @TITLE 6 - INSTALACAO DOS JORNAIS DE CONSULTA @ECHO. @PAUSE @ECHO. @IF NOT EXIST C:\ARQUIV~1\BROFFI~1.3\SHARE\JORNAIS-DE-CONSULTA-BROFFICE\ ECHO O CAMINHO não FOI ENCONTRADO!! VERIFIQUE SE O MESMO EXISTE!! APERTE CRTL+C PARA ABORTAR E DIGITE S!! @ECHO. @PAUSE @ECHO. @ECHO DIGITE A LETRA DA UNIDADE DE CDROM (EXEMPLO: D:): @ECHO. @SET /P UNICD3= @ECHO. @%UNICD3% @ECHO. @CD JORNAL\ @ECHO. @PAUSE @ECHO. @COPY *.* C:\ARQUIV~1\BROFFI~1.3\SHARE\JORNAIS-DE-CONSULTA-BROFFICE\ @ECHO. @ECHO JORNAIS COPIADOS COM SUCESSO. @ECHO. @PAUSE @ECHO. @ECHO. @C: @ECHO. @CD C:\ARQUIV~1\BROFFI~1.3\SHARE\JORNAIS-DE-CONSULTA-BROFFICE\ @ECHO. @COPY *.LNK C:\ @ECHO. @PAUSE @ECHO. @ECHO FORAM CRIADOS LINKS DOS JORNAIS DE CONSULTA DO BROFFICE EM C:\. VOCE PODE COPIAR ESTES ATALHOS PARA AREA DE TRABALHO. @ECHO. @PAUSE @ECHO. @ECHO OS JORNAIS DE CONSULTA FORAM INSTALADOS COM SUCESSO. @ECHO. @PAUSE GOTO MENU :7 @COLOR 87 CLS @ECHO ON @TITLE 7 - INSTALACAO DOS OPEN-CLIPARTS @ECHO. @PAUSE @ECHO. @IF NOT EXIST C:\ARQUIV~1\BROFFI~1.3\SHARE\GALLERY\CLIPARTS\ ECHO O CAMINHO não FOI ENCONTRADO!! VERIFIQUE SE O MESMO EXISTE!! APERTE CRTL+C PARA ABORTAR E DIGITE S!! @ECHO. @PAUSE @ECHO. @ECHO DIGITE A LETRA DA UNIDADE DE CDROM (EXEMPLO: D:): @ECHO. @SET /P UNICD4= @ECHO. @%UNICD4% @ECHO. @CD OPENCLIPARTS\ @ECHO. @PAUSE @ECHO. @ECHO AGUARDE. COPIANDO OS OPEN-CLIPARTS... APROVEITE PARA IR TOMAR UM CAFE ; ) @ECHO. @PAUSE @ECHO. @xCOPY /E /C /H /Y *.* C:\ARQUIV~1\BROFFI~1.3\SHARE\GALLERY\CLIPARTS\ @ECHO. @ECHO OPEN-CLIPARTS COPIADOS COM SUCESSO. @ECHO. @CD .. @ECHO. @ECHO LEIA COM ATENCAO O ARQUIVO EXPLICATIVO A SEGUIR. @ECHO. @PAUSE @ECHO. @ABRE OPENCLIPARTS.RTF @ECHO. @PAUSE @ECHO. @ECHO SEGUIU AS ORIENTACOES DO ARQUIVO ? @ECHO. @PAUSE @ECHO. @ECHO INSTALACAO DOS OPEN-CLIPARTS CONCLUIDO. @ECHO. @PAUSE GOTO MENU :8 @COLOR 07 CLS @ECHO ON @TITLE 8 - INSTALACAO DAS APOSTILAS @ECHO. @PAUSE @ECHO. @IF NOT EXIST C:\ARQUIV~1\BROFFI~1.3\SHARE\APOSTILAS-BROFFICE\ ECHO O CAMINHO não FOI ENCONTRADO!! VERIFIQUE SE O MESMO EXISTE!! APERTE CRTL+C PARA ABORTAR E DIGITE S!! @ECHO. @PAUSE @ECHO. @ECHO DIGITE A LETRA DA UNIDADE DE CDROM (EXEMPLO: D:): @ECHO. @SET /P UNICD5= @ECHO. @%UNICD5% @ECHO. @CD APOSTILAS\ @PAUSE @xCOPY /E /C /H /Y *.* C:\ARQUIV~1\BROFFI~1.3\SHARE\APOSTILAS-BROFFICE\ @ECHO. @C: @ECHO. @CD ARQUIV~1\BROFFI~1.3\SHARE\APOSTILAS-BROFFICE\ @ECHO. @XCOPY APOSTILAS-BROFFICE.LNK C:\ @ECHO. @ECHO FOI CRIADO UM LINK EM C:\ , CHAMADO APOSTILAS-BROFFICE. NESTE ATALHO, VOCE ACESSA AS APOSTILAS DO BROFFICE. VOCE PODE COPIAR ESTE ATALHO PARA AREA DE TRABALHO. @ECHO. @PAUSE @ECHO. @ECHO AS APOSTILAS FORAM INSTALADAS COM SUCESSO. @ECHO. @PAUSE GOTO MENU Meu problema é: preciso descobrir a letra da unidade de cd do user. tipo: e: , f: , etc... usando o comando set /p unicd= e depois %unicd%, funciona na primeira vez. se eu executar o resto do codigo..não funciona mais! é como se a variavel só ficasse disponível uma vez! e mesmo q eu crie outras, não funciona! Obrigado desde já! ------------------- EDIT ------------------ arrumei já usando um set unicd= antes do set /p unicd=
  3. Turma! como que eu faço (uma função ou algo do tipo) para que meus ícones fiquem iguais ao do XP (32 bits)? pois estou usando ícones do vista, e visualizando-os fora do VB, eles ficam 32 bits.. e no VB ficam... 256 cores ou pior! grato turma! Ps: achei um módulo, mas não funciona direito, pois esta preso a um enderço fixo de um ícone que não sei aonde mudar... http://www.vbmania.com.br/vbmania/userfile...conL3OJTOVF.bas Mauricio Silva Help Desk + Analista homepage: www.geocities.com/mauricio_inva Obs: Pessoal, o ícone ao qual me refiro, são os ícones que fikam na barra de título do projeto..não é o do executável!
  4. TURMA! meu projeto está caminhando..mas esbarrei no ODBC. Para evitar que, toda vez quando se faz a instalação do sistema em uma maquina diferente, tenha que se criar uma fonte de dados no painel de controle, tentei o seguinte num módulo: Sub CriaODBC() Dim Attrib, DBDriver As String Attrib = "DBQ=C:\Adolescentes\Banco\Cadastro.mdb" DBDriver = "Microsoft Access Driver (*.mdb)" DBEngine.RegisterDatabase "Cadastro", DBDriver, True, Attrib End Sub mas simplesmente... não funciona!!! preciso muito descobrir como fazer (via cód) a criação do ODBC.. grato galera!
  5. fala amigo!! procure por HTML Help Workshop no google.. ele se integra ao vb 6, e você pode chamá-lo em Tools --> Help Generator. e ele é bem simples! fiz o meu lá! abraço
  6. Boa tarde galera! criei um arquivo de ajuda AJUDA.CHM e gostaria de saber como fazer para chamar ele no MDIFORM, em um dos intens de menu (mdihelpusr)? grato turma!
  7. Galera! como faço para chamar um MDIFORM (parte do projeto que está numa pasta separada) em outro MDIFORM (projeto principal)? criei um espaço pra chamar ele no menu, mas não faço idéia... grato mais uma vez!
  8. Boa tarde gente! mais uma duvidazinha: meu MDIFORM inicia maximizado e sem o botão de restaurar.. mas, ao clicar duas vezes na barra de título, ele fica fora metade da tela, pra cima.. existe um meio de eu inibir este duplo clique na barra de titulo, de forma que o MDIFORM continue no mesmo lugar, imóvel? grato mais uma vez!
  9. Boa tarde galera!!! meu problema é o seguinte: Toda minha parte de Relatórios e SQL foi feita por intermédio do Data Environment (Data Report). Estou num projeto a 6 MESES, sobre cadastro, impressão e gerenciamento de clientes com foto. A minha base de dados foi feita no Access 97 (cadastro.mdb) e as fotos dos clientes são armazenadas numa pasta e seus nomes e extensões são gravadas neste banco. Acontece que não faço a minima idéia de como fazer a associação da foto com o cadastro a ser impresso no relatório, ou seja, meu relatório da ficha cadastral sai sem a foto. como poderia proceder? agradeço desde já!! obs: Tentei migrar para um Crystal Reports da vida, mas não me adaptei a ele.. e isso significaria reformular todo um projeto que levou 6 meses..rs...
  10. Olá Galera! por favor preciso muito da ajuda de vocês: estou com um programa de cadastro de clientes simples com banco de dados para entregar para "ontem"; só que não sei como fazer para criar um método ou algo do tipo para inserir uma foto no cadastro de cada cliente. se alguém puder me ajudar ou até mesmo já possuir um programa parecido, poderia me enviar só para eu entender? grato pela ajuda de vocês!! Obrigado!! O__o Iterashai o__O
×
×
  • Criar Novo...