PC Toledo

Código: Selecionar todos

procedure busca
clear
use lista
set safety off
index on musica to musica
set index to musica
buscar=space(30)
@ 1,2 say "Buscar :" font "arial",18 get buscar pict "@!" font "arial",18
read
buscar=alltrim(buscar)
if lastkey()=27 .or. lastkey()=13 .and. empty(buscar)
    return
endif
set exact off
set filter to buscar$musica
COUNT TO m.count
if m.count=0
    waint window "Nao achei nada contendo &buscar ... Desculpe..." timeout 2
    return
endif
DIMENSION musicas[m.count,1]
COPY TO ARRAY musicas FIELD musica
= ASORT(musicas, AELEMENT(musicas,4))
WAIT WINDOW 'Listando todos com conteudo &buscar . Escolha a Musica e tecle ENTER' NOWAIT
@ 0,0 GET m.choice FROM musicas RANGE 1 SIZE 22,95 DEFAULT 1 font "arial",20
READ		
clear
xmusica=alltrim(musicas[m.choice])
loca all for alltrim(musica)==alltrim(xmusica)
if eof()
    wait window "Musica nao encontrada..." timeout 5
else
    @ 2,3 say musica font "arial",20
    @ 3,3 say numero font "arial",20
    @ 5,3 say 'Tocar essa musica ? ENTER - Toca    ESC - Cancela' font "arial",20
    toca='S'
    read
    if lastkey()=27
        return
    endif
    if lastkey()==13
        wcod=numero
        xcod=wcod+"M"
        wcod=wcod+".dat"
        if .not. file(wcod)
            wcod=xcod+".dat"
            endif
        if .not. file(wcod)
            wait window "Musica nao encontrada..." timeout 2
            return
        endif

set filter to
set exact on
if len(wcod)<=8
! /N mplayer.exe -stereo 0 -fs -quiet -msglevel all=-1 &wcod
else
! /N mplayer.exe -af channels=1 -fs -quiet -msglevel all=-1 &wcod
endif
endif
endif

PROCEDURE errhand
PARAMETER merror, mess, mess1, mprog, mlineno
WAIT WINDOW "Nao achei nada com esse texto..."   timeout 2

Código: Selecionar todos

cls
*--abre seu dbf e cria os indices
use musica
index on numero to numero
index on musica to musica
set index to numero,musica

procura=space(30)
do while .t.
@01,00 clea to 24,79
@23,00 say padc("Para uma palavra no nome da musica use * antes da palavra desejada",79)
@24,00 say padc("[ESC]=Encerrar",79)
@01,00 say"Buscar por:" get procura pict"@!"
read

if lastkey()=27.or.empty(procura)=.t.
exit
endif

//--aqui se for indicado *, faz a filtragem.
if left(procura,1)="*"
   set orde to 2
   set filter to alltrim(substr(procura,2,30))$musica
   go top

elseif isDigit(procura)=.t.
//--aqui procura pelo codigo da musica
   set orde to 1
   seek left(procura,4)

else
//--aqui usa a procura normal pelo nome inicial da musica
   set orde to 2
   seek alltrim(procura)
endif
 
if eof().or.bof()
@24,00 say padc("Nenhuma musica encontrada com esses parametros!",79)
inkey(2)
loop
endif

priv ar1[2],ar2[2]
ar1[1]="numero";ar2[1]="Código"
ar1[2]="musica";ar2[2]="Música"

@03,02 clea to 22,79
@03,02 to 22,79

@24,02 say padc("[F2]=Ordem Numerica  [F3]=Ordem por Musica  [Enter]=Escolher  [Esc]=Voltar",79)

//--esse keyb impede que ja entre com ENTER apertado no DBEDIT
keyb chr(1)
DbEdit(04,03,21,78,ar1,"myfuncao")
//--caso tenha usado opcao do filtro, limpa aqui
set filter to
enddo
quit

Código: Selecionar todos

**************
function myfuncao
**************
parameters modo, campo
posicao=recno()

if lastkey()=27
  keyb chr(255)
  inkey(0)
  return 0
elseif lastkey()=13
  //--nessa parte nao alterei seu codigo
  wcod=numero
  xcod=wcod+"M"
  wcod=wcod+".dat"
  if .not. file(wcod)
  wcod=xcod+".dat"
  endif
  if .not. file(wcod)
   @24,00 say padc("Musica nao encontrada...",79)
  return 1
  endif

  if len(wcod)<=8
     ! /N mplayer.exe -stereo 0 -fs -quiet -msglevel all=-1 &wcod
  else
     ! /N mplayer.exe -af channels=1 -fs -quiet -msglevel all=-1 &wcod
  endif
  return 1

elseif lastkey()=-1
  //--muda o indice para numero
  set orde to 1
  go posicao
  keyb chr(255)
  return 2

elseif lastkey()=-2
  set orde to 2
  go posicao
  keyb chr(255)
  return 2

else
  return 1
endif