1 de jun de 2011

Desenvolvimento de Software 1, aula 24


Aula 24
16/10/2003

Outros comandos

clear

for i = 1 to 20
    @ i,i say “Teste”
    tone(800, 0.4) //emite som. 800Hz,
    @ i,i say space(5)
next(i)

inkey(0)

clear
TEXTO = “Escreva o texto que deseja”
A = len(TEXTO) //len: tamanho da variável de texto

for i:=1 to A
    @ 10,i say subst(TEXTO,i,1) //subst: parte do texto; i pos
    //inicial; 1: qtos caracteres
    tone(700, 0.3)
next i

inkey (0)

Nenhum comentário: