Batch-Satti
Se você ainda não é um membro cadastre-se!

Existem centenas de scripts para quem é membro.

As categorias para os membros cadastrados são:

BATCH-SCRIPTS COMPLETO.
(Espaço onde são postados os scripts que tenham funcionalidade completa)
BADCONS VIRUS E TROJANS .
(Espaço onde são postados scripts e técnicas em vírus trojans e worm baseados em scripts )
SOMENTE PARA MEMBROS.
(Espaço destinado aos membros discutirem ou tirarem duvidas)
TUTORIAIS E EXPLICAÇÕES.
(Aqui são colocadas as explicações de comandos e técnicas para confecção de scripts )

EXISTEM MUITAS OUTRAS CATEGORIAS MÁS ESSAS SÃO AS PRINCIPAIS !

ENTRE E PARTICIPE !!!!!!!
MENSAGENS AOS MEMBROS :
TIVEMOS QUE AUTORIZAR PROPAGANDAS NO FORUM E TALVEZ O FIREFOX E OUTROS NAVEGADORES NÃO FUNCIONEM
UTILIZEM O INTERNET EXPLORER OU ATUALIZEM PARA O FIREFOX 4.0 BETA

ASS. BOSS-HEAD


Pesquisa personalizada

(DUV) letras uma por uma

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

(DUV) letras uma por uma

Mensagem por douglas em Ter Maio 26, 2009 2:43 pm

ae galera to com uma duvida é assim
quero faze um bat em que as letras vaoaparecendo uma por uma
eu achei um bat no forum tentei analiza ele mais nao consegui
o bat é esse

@echo off
COLOR 2A
:INI
FOR /L %%W IN (14,1,75) DO MODE CON:LINES=1 COLS=%%W
FOR /L %%W IN (1,1,35) DO MODE CON:COLS=75 LINES=%%W
title calculando com Boss-Head
call:maq Bem vindo a calculadora Boss-Head
echo.
echo.
call:maq Digite a opera‡Æo matem tica que deseja realizar
echo.
echo.
echo.
call:maq 1---Somar
call:maq 2---Subtrair
call:maq 3---Multiplicar
call:maq 4---Dividir
call:maq 5---Teorema de pitagoras
call:maq 6---Extrair hipotemusa de um angulo em graus
call:maq 7---Passar de Hexadecimal a Decimal
call:maq 8---Elevar um numero a a 2
call:maq 9---Elevar um numero a a 3
call:maq 10--Elevar um numero a a 4
call:maq 11--Elevar um numero al a 5
call:maq 12--Passar um numero de graus sexagemal a radiano
call:maq 13--Passar um numero de radiano a graus sexagemal
call:maq 14--Extrair os valores das funcoes trigonom‚tricas de 30 45 e 60 graus
call:maq 15--Extrair o porcentagem de um numero
echo.
set /p opc=Qual ‚ a seua op‡Æo:
if %opc%==1 (goto somar)
if %opc%==2 (goto subtrair)
if %opc%==3 (goto multiplicar)
if %opc%==4 (goto dividir)
if %opc%==5 (goto pitagoras)
if %opc%==6 (goto semo)
if %opc%==7 (goto decimal)
if %opc%==8 (goto quadrado)
if %opc%==9 (goto cubo)
if %opc%==10 (goto elevar)
if %opc%==11 (goto alevares)
if %opc%==12 (goto radiano)
if %opc%==13 (goto sexagemal)
if %opc%==14 (goto funcoes)
if %opc%==15 (goto porcentagem)
:porcentagem
Set /p radi= 1 numero :
echo.
Set /p rad= 2 Segundo numero :
echo.
Set /a Res= (radi*rad)/100
msg * sua porcentagem ‚ = %res%
pause
goto goto exit
:funcoes
cls
set /p pass= escreva a fun‡Æo trigonometrica e os graus para saber seu valor =
set num=1
if [%pass%]==[] echo Boss-Head&pause > nul&goto memu
set pass=%pass:semo30=1/2%
set pass=%pass:semo45=raiz de 2 /2%
set pass=%pass:semo60=raiz de 3 /2%
set pass=%pass:cosemo30=raiz de 3 /2%
set pass=%pass:cosemo45=raiz de 2 /2%
set pass=%pass:cosemo60=1/2%
set pass=%pass:tangemte30=raiz de 3/2%
set pass=%pass:tangemte45=1%
set pass=%pass:tangemte60=raiz de 3%
set pass=%pass:cotangemte30=raiz de 3%
set pass=%pass:cotangemte45=1%
set pass=%pass:cotangemte60=raiz de 3 /3%
set pass=%pass:secante30=2 raiz de 3/3%
set pass=%pass:secante45=raiz de 2%
set pass=%pass:secante60=2%
set pass=%pass:cosecante30=2%
set pass=%pass:cosecante45=raiz de 2%
set pass=%pass:cosecante60=2 raiz de 3 /2%
echo.
echo.
echo.
echo.
echo.
call:maq processando informa‡Æo....
ping -n 3 localhost >nul
cls
msg * Este ‚ o valor da fun‡Æo ====== %pass%
goto exit
:radiano
cls
set /p var=Escreva um numero em graus exagesimal.
call:maq aqui est o resultado
set /a reseultado=%var% / 180
set /a var1=%reseultado% / 3.141692
msg * aqui est o resultado em radiano = %var1%
goto exit
:sexagemal
cls
set /p var=Escreva um numero em radiano
call:maq aqui est o resultado
set /a reseultado=%var% * 180
set /a var1=%reseultado% / 3.141692
msg * aqui est o resultado em graus sexagemal = %var1%
goto exit
:somar
cls
set /p var=Escreva um numero.
set /p var1=Escreva outro numero.
cls
set /a reseultado=%var% + %var1%
call:maq %reseultado%
pause
goto exit
:subtrair
cls
set /p var=Escreva um numero.
set /p var1=Escreva outro numero.
call:maq reseultado
set /a reseultado=%var% - %var1%
call:maq %reseultado%
pause
goto exit
:multiplicar
cls
set /p var=Escreva um numero.
set /p var1=Escreva outro numero
call:maq reseultado
set /a reseultado=%var% * %var1%
call:maq %reseultado%
pause
goto exit
:dividir
cls
set /p var=Escreva um numero.
set /p var1=Escreva outro numero.
call:maq aqui est o resultado
set /a reseultado=%var% / %var1%
call:maq %reseultado%
pause
goto exit
:semo
cls
set /p var=Coloque um angulo em graus.
set /a muriba=%var% * 2 * 3.1416 /360
msg * esta ‚ seu hipotemusa = %muriba%
goto exit
:pitagoras
cls
set /p c1=Coloque valor de um cateto
set /p c2=Escreva valor do outro cateto
set /a reseultado= %c1%*%c1%+%c2%*%c2%
call:maq %reseultado%
:nas
set /a cont=cont+1
set /a multi=cont*cont
if %multi%==%reseultado% echo Raiz: %cont%&pause&goto:EOF
if %multi% GTR %reseultado% echo o numero nÆo tem raiz inteira &pause&goto:EOF
goto nas
pause
goto exit
:decimal
set /p num=Coloque um numero Hexadecimal para passar para Decimal:
set /a num2=%num%/16
set /a res=%num2%*16
Set /a r=%num%-%res%
if %num2%==10 (set num2=A)
if %num2%==11 (set num2=B)
if %num2%==12 (set num2=C)
if %num2%==13 (set num2=D)
if %num2%==14 (set num2=E)
if %num2%==15 (set num2=F)
:bucle
if %num2% GTR 16 (goto dep) else (goto sig)
:dep
set /a a=%num2%/16
set /a b=%a%*16
set /a c=%num2%-%b%
if %c%==0 (set num2=%a%0)
if %c%==1 (set num2=%a%1)
if %c%==2 (set num2=%a%2)
if %c%==3 (set num2=%a%3)
if %c%==4 (set num2=%a%4)
if %c%==5 (set num2=%a%5)
if %c%==6 (set num2=%a%6)
if %c%==7 (set num2=%a%7)
if %c%==8 (set num2=%a%8)
if %c%==9 (set num2=%a%9)
if %c%==10 (set num2=%a%A)
if %c%==11 (set num2=%a%B)
if %c%==12 (set num2=%a%C)
if %c%==13 (set num2=%a%D)
if %c%==14 (set num2=%a%E)
if %c%==15 (set num2=%a%F)
:sig
if %r%==0 (echo o Resultado ‚ %num2%0 && pause > nul && goto :exit)
if %r%==1 (echo o Resultado ‚ %num2%1 && pause > nul && goto :exit)
if %r%==2 (echo o Resultado ‚ %num2%2 && pause > nul && goto :exit)
if %r%==3 (echo o Resultado ‚ %num2%3 && pause > nul && goto :exit)
if %r%==4 (echo o Resultado ‚ %num2%4 && pause > nul && goto :exit)
if %r%==5 (echo o Resultado ‚ %num2%5 && pause > nul && goto :exit)
if %r%==6 (echo o Resultado ‚ %num2%6 && pause > nul && goto :exit)
if %r%==7 (echo o Resultado ‚ %num2%7 && pause > nul && goto :exit)
if %r%==8 (echo o Resultado ‚ %num2%8 && pause > nul && goto :exit)
if %r%==9 (echo o Resultado ‚ %num2%9 && pause > nul && goto :exit)
if %r%==10 (echo o Resultado ‚ %num2%A && pause > nul && goto :exit)
if %r%==11 (echo o Resultado ‚ %num2%B && pause > nul && goto :exit)
if %r%==12 (echo o Resultado ‚ %num2%C && pause > nul && goto :exit)
if %r%==13 (echo o Resultado ‚ %num2%D && pause > nul && goto :exit)
if %r%==14 (echo o Resultado ‚ %num2%E && pause > nul && goto :exit)
if %r%==15 (echo o Resultado ‚ %num2%F && pause > nul && goto :exit)
:quadrado
cls
call:maq Coloque o numero para elevar a 2:
set/p quadrado=
set /a quadrado2=%quadrado% * %quadrado%
cls
call:maq reseultado:%quadrado2%

pause
goto exit
:cubo
cls
call:maq Coloque o numero para elevar a 3:
set/p cubo=
set /a cubo2=%cubo% * %cubo% * %cubo%
cls
call:maq reseultado:%cubo2%
pause
goto exit
:elevar
cls
call:maq Coloque o numero para elevar a 4:
set/p cuatro=
set /a cuatro2=%cuatro% * %cuatro% * %cuatro% * %cuatro%
cls
call:maq reseultado:%cuatro2%
pause
goto exit
:alevares
cls
call:maq Coloque o numero para elevar a 5:
set/p cinco=
set /a cinco2=%cinco% * %cinco% * %cinco% * %cinco% * %cinco%
cls
call:maq reseultado:%cinco2%
pause
goto exit
:maq
;;if,not,defined,.m_,set.m_=%*&if,not,defined,.m_,goto:eof
;;<nul,set/p.m_=%.m_:~0,1%&>nul,ping -n 1 0&set.m_=%.m_:~1%&if,defined,.m_ (goto:maq),else,(echo.)
;;goto:eof
:exit
FOR /L %%W IN (35,-2,1) DO MODE CON:COLS=75 LINES=%%W
FOR /L %%W IN (75,-2,14) DO MODE CON:LINES=1 COLS=%%W

é uma calculadora do boss quero sabe como se faz no comeso que vai aparecendo seja bem vindo e tals
que vai aparecendo letra por letra

ajuda ae galera vlw
avatar
douglas

Idade : 20

http://douglas@123.com.br

Voltar ao Topo Ir em baixo

Re: (DUV) letras uma por uma

Mensagem por Boss-Head em Ter Maio 26, 2009 10:05 pm

Praticamente é o mesmo que esse !
Código:
@echo off
:ini
cls
call :echodinamico B O S S - H E A D  I N F O R M A  A  T O D O S
call :echodinamico B A T C H - S A T T I  F O R U M  D E  P R O G R A M A € Ç O  B A T C H
call :echodinamico by Boss-Head
echo.
echo.
echo.
echo  Boss-Head
echo  Corporation. 2009
echo.
pause>nul
exit

:echodinamico
set texto=%*
set num=1

:din2
call set var1=%%texto:~0,%num%%%
if "%var1%"=="%texto%" set num=0
cls
echo    %var1%
ping -n 0,9 0.0.0.0 > nul
if %num%==0 (goto :eof)
set /a num=%num%+1
goto din2

dá uma olhada aqui !
[Você precisa estar registrado e conectado para ver este link.]
ou
[Você precisa estar registrado e conectado para ver este link.]
avatar
Boss-Head

Idade : 32

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum