PC Toledo

Código: Selecionar todos

eREQUEST HB_GT_WIN_DEFAULT // Utilizado no HMG para compilar em modo console (pode remover)

Function Main
CLS
SetMode(25,80)
For i=1 to 23
   @ i,00 Say Replicate(Chr(219),80) color "GR+/GR+"
Next
hb_gtInfo( 9, .T. )

SetBlink( .F. )
moldura(02,20,10,69,1)
@ 06, 40 say "Blink attribute is: "+(if(SetBlink(),"On","Off")) COLOR "GR*/B"
@ 24,00 say PadC("Press a key to toggle blink attribute",80)
Inkey(0)

SetBlink( .NOT. SetBlink() )
moldura(14,20,21,69,2)
cTexto:="Blink attribute is: "+(if(SetBlink(),"On","Off"))
@ 18, 25 say cTexto COLOR "GR*/B"
@ 24,00 say PadC("Press a key to see GAMBIARRA",80)
Inkey(0)
Pisca(18,25,cTexto,"GR*/B",.t.)


@ 24,00 say PadC("Press a key to end",80)
Inkey(0)
RETURN

*--------------------------------
* Funcao das molduras das opcoes
*--------------------------------
func moldura(wli,wci,wlf,wcf,vtipo)
local ja_rl,ja_rc,ja_col,ja_lin,vcont,vcor:=setcolor()
ja_col:=savescreen(wli+1,wcf+1,wlf+1,wcf+1)
ja_lin:=savescreen(wlf+1,wci+1,wlf+1,wcf+1)
store '' to ja_rl,ja_rc
for vcont:=1 to len(ja_lin)/2
    ja_rl:=ja_rl+substr(ja_lin,vcont*2-1,1)+chr(9)
next
for vcont:=1 to len(ja_col)/2
    ja_rc:=ja_rc+substr(ja_col,vcont*2-1,1)+chr(9)
next
restscreen(wli+1,wcf+1,wlf+1,wcf+1,ja_rc) // <====efeito da sombra vertical
restscreen(wlf+1,wci+1,wlf+1,wcf+1,ja_rl) // <== efeito da sombra no rodape

setcolor('gr/b+')
if valtype(vtipo)='U' .or. vtipo=1
   @ wli,wci,wlf,wcf box "ËÍ˺¼ÍȺ "
else
   @ wli,wci,wlf,wcf box "ÉÍ»º¼ÍȺ "   && moldura 2
endif
setcolor(vcor)
return

Function Pisca(nL,nC,cT,cC,lSom)
Local nK:=0, nCursor:=SetCursor()

Set Cursor off
do while !(nK>0)
  @ nL, nC say cT Color cC
  nK:=Inkey(.2)
  @ nL, nC say space(Len(cT)) Color cC
  nK:=Inkey(.2)
  If lSom
     PlayExclamation() 
  Endif
enddo
@ nL, nC say cT Color cC
SetCursor(nCursor)
Return Nil

Código: Selecionar todos

.... Seu código
IF lAlerta
   AlertaeSom("Atenção este é um alerta", nTipodoSom)
Endif
....

**************************************************************************************************************
Procedure AlertaeSom(cMensagem, nTipodoSom)
* Rotina para Mostrar um Alerta com Som, na verdade primeiro o som depois o alerta... rsrs
**************************************************************************************************************
   //-- Define por padrão o som tipo 1 caso não venha o parâmetro
   nTipodoSom := IIF( nTipodoSom == NIL, 1, nTipodoSom)  

   //-- Define por padrão a mensagem como "Alerta Padrão" caso não venha o parâmetro   
   cMensagem := IIF( cMensagem == NIL, "Alerta Padrão", cMensagem)

   //-- Verifica qual o tipo do som e emite
   do case
      case nTipodoSom == 1  //-- Som tipo tal
         tone(262, 3)
         tone(262, 1)
         tone(294, 6)
         tone(262, 6)
         tone(349, 6)
         tone(330, 15)
      case nTipodoSom == 2 //-- Som tipo outro
         tone(392, 1)
         tone(523, 1)
         tone(659, 1)
         tone(784, 5)
         tone(659, 1)
         tone(784, 25)
      otherwise //-- E mais outro... etc
         tone(4000, 1)
         InKey(0.1)
          tone(4000, 1)
         InKey(0.1)
         tone(4000, 1)
      endcase
     
      //-- Mostra a mensagem de alerta em cor destacada preta com fundo amarelo intenso e depois de 5 segundos caso o usuario não interagir cai fora
      Alert( cMensagem, , "N/GR*", 5)
Return

Código: Selecionar todos

STATIC nPisca

FUNCTION Main
   @10,00 SAY "TESTE"
   Pisca("TESTE")
   inkey(0)
   Pisca() //para cancelar o blink   
RETURN Nil

Código: Selecionar todos

FUNCTION Pisca(cMensagem,cCor1,cCor2)
PUBLIC nTmpLog:=1
   HB_DEFAULT(@cMensagem,"")
   HB_DEFAULT(@cCor1,"W+/N")
   HB_DEFAULT(@cCor2,"N/N")
   IF !Empty(cMensagem)
      IF !TYPE("nPisca") == "U"
         HB_IdleDel( nPisca )
      ENDIF
      nPisca:=HB_IdleAdd( {|| PiscaMensagem(cMensagem,cCor1,cCor2) } )
   ENDIF
RETURN .T.  

FUNCTION PiscaMensagem(cMensagem,cCor1,cCor2)
STATIC nTempoPisca
   IF nTempoPisca = Nil
      nTempoPisca:=Seconds()
   ENDIF
   
   IF Seconds() - nTempoPisca >= nTmpLog
      ScreenMark(cMensagem,cCor1,.F.,.T.)
      HB_IdleSleep( .3 )
      ScreenMark(cMensagem,cCor2,.F.,.T.)
      nTempoPisca:=Seconds()
   ENDIF
RETURN Nil