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)