Ir ao conteúdo
  • Cadastre-se

ieumemo

Membro Pleno
  • Posts

    31
  • Cadastrado em

  • Última visita

Reputação

7
  1. @JGabrielCC , veja se isso fica legal: echo off :inicio echo titulo (Obs: nao use espaco) set /p titulo= echo o titulo e : %titulo% echo comece a anotar(Obs: pode usar espacos) set /p anotacao= echo %date% echo %time% echo %anotacao% >> %titulo%.anot.txt echo Continuar[s/n] ? set /p continuar= if "%continuar%" == "s" goto inicio echo. for %%G IN ("*.anot.txt") DO ( echo %%G: type %%G echo. )
  2. Você não instalou o Service Pack 1 do Windows 7.
  3. def palavra_repetida(palavra): n = "" for i in range(len(palavra)): if not palavra[i:i+2] in n: n += palavra[i] return n palavra = input("digite a palavra:") print(palavra_repetida(palavra))
  4. O problema é que o contador está indo até o tamanho total das duas variáveis. Se, por exemplo, p1 é "teste" (5 caracteres) e p2 é "codigo" (6 caracteres), o tamanho fica igual a 11. O erro ocorre na hora em que o contador = 5. A posição 5 em p1 não existe (p1 vai de 0 a 4). Pergunta: o que você está tentando fazer? Mostre alguns exemplos para p1 e p2 e o resultado esperado.
  5. Não entendi. Como assim "número"? Com esse código que eu te passei, a cada Enter uma pergunta aleatória é exibida.
  6. Há exemplo de código para extração de ícones em arquivos executáveis em http://www.vbaccelerator.com/home/NET/Utilities/Icon_Extractor/article.html.
  7. Salve este código como pergunta_aleatoria.vbs Dim MeuArquivo MeuArquivo = "C:\caminho\do\meu\arquivo\de\perguntas.txt" ' <--- Modifique aqui pelo seu arquivo de perguntas Dim fso, file, perguntas Set fso = CreateObject("Scripting.FileSystemObject") Set file = fso.OpenTextFile(MeuArquivo) perguntas = Split(file.ReadAll, vbCrlf) max = Ubound(perguntas) min = 1 Do While sair = False Randomize posicao = Int((max-min+1)*Rnd+min) If UCase(Right( WScript.FullName, 12)) = "\CSCRIPT.EXE" Then WScript.Echo "------------------------" WScript.Echo perguntas(posicao) WScript.Echo "-----------------" Wscript.Echo "Aperte Enter para próxima pergunta. Digite 0 e Enter para sair" & vbcrlf sair = WScript.StdIn.ReadLine = "0" Else sair = MsgBox(perguntas(posicao), vbOkCancel) = vbCancel End If Loop Você pode executar clicando duas vezes no arquivo ou executar pelo prompt de comando: cscript //Nologo c:\local\onde\voce\salvou\o\pergunta_aleatoria.vbs Clicando duas vezes, será exibida uma mensagem no estilo padrão do Windows para cada pergunta. No prompt de comando, as perguntas são exibidas no próprio console. Até mais
  8. Insira esta linha no início de seu programa: Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Modifique o procedimento 'Regressiva': Sub Regressiva() Do While Tempo > TimeValue("00:00:01") And Rodando = True Tempo = Tempo - TimeValue("00:00:01") Label1.Caption = Tempo DoEvents ' Impede que o processo fique travado Call Sleep(1000) ' Dorme por 1000 milissegundos (= 1 segundo) Call Me.Repaint ' Evita que os botões fiquem afundados o tempo todo ao clicar Loop End Sub Veja se funciona.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...