Clipper On Line • Ver Tópico - Consertando o MsgBeep

Consertando o MsgBeep

Discussão sobre a biblioteca Fivewin - O Clipper para Windows.

Moderador: Moderadores

 

Consertando o MsgBeep

Mensagempor Euclides » 13 Set 2014 09:12

O comando FW MsgBeep() não "leva" parametro. Mas é fácil convencê-lo de levar.
#include "fivewin.ch"
#define BEEP_OK        0x00000000
#define BEEP_TOQUE      0x00000010
#define BEEP_PERGUNTA   0x00000020
#define BEEP_EXCLAMACAO 0x00000030
#define BEEP_ASTERISCO  0x00000040
#define BEEP_SIMPLES   0xffffffff

Function Main()
   MsgBeep(BEEP_OK )
   syswait(1)
   MsgBeep( BEEP_TOQUE )
   syswait(1)
   MsgBeep( BEEP_PERGUNTA )
   syswait(1)
   MsgBeep( BEEP_EXCLAMACAO )
   syswait(1)
   MsgBeep( BEEP_ASTERISCO )
   syswait(1)
   MsgBeep( BEEP_SIMPLES )
return nil

#pragma BEGINDUMP
#include <hbapi.h>
#include <windows.h>
HB_FUNC( MSGBEEP )
{
   MessageBeep( hb_parni( 1 ) );
}
#pragma ENDDUMP

Até a próxima...
Euclides
Euclides
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 154
Data de registro: 12 Mai 2007 14:07
Cidade/Estado: São Paulo, Capital
Curtiu: 1 vez
Mens.Curtidas: 14 vezes

Consertando o MsgBeep

Mensagempor Kapiaba » 15 Set 2014 09:53

Excelente Euclides!! Obg. abs.
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1765
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 310 vezes
Mens.Curtidas: 119 vezes




Retornar para FiveWin

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 15 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro