Reproduzindo Lista de Mensagens
|
Início Anterior Próximo |
· | "Olá, hoje é dia" Arquivo pré-gravado do usuário
|
· | "25 de setembro de 2001" Data do Sistema (PlayDate)
|
· | "às" Arquivo pré-gravado do usuário
|
· | "12:32:45" Hora do Sistema (PlayTime)
|
|
|
|
Voice1.PlayListAdd Porta, Tipo, String, Máscara, PausaAntes
|
|
|
· | ptCardinal Reproduzir um numeral cardinal (~ PlayNumber)
|
· | ptFile Reproduzir um arquivo .SIG
|
· | ptDate Reproduzir uma data (~ PlayDate)
|
· | ptTime Reproduzir hora (~ PlayTime)
|
· | ptCurrency Reproduzir um valor monetário
|
· | ptNumber Reproduz números digito a digito.
|
voice1.PlayListAdd Port, ptFile, "olahojeedia.sig","",0
|
voice1.PlayListAdd Port, ptDate, Date, "d/m/y", 0
|
voice1.PlayListAdd Port, ptFile, "as.sig", "", 0
|
voice1.PlayListAdd Port, ptTime, Time, "", 0
|
|
voice1.PlayListClear Port 'Apaga a lista antes de usá-la
|
voice1.PlayListAdd Port, ptFile, "olahojeedia.sig","",0
|
(
)
|
|
Dim i as integer
|
|
i = voice1.PlayListGetCount(Port)
|
|
'remove o primeiro elemento da lista
|
voice1.PlayListRemoveItem(Port,0)
|
|
|
|
voice1.PlayList Port,TermDigits
|
|