Som Programa Clarion - Matos Informatica 06 09 09 08:42

http://www.par2.com/

  PROGRAM
  !--------------------------------------------------------------------------
  ! AUTHOR: Larry Sand
  ! Sample program to illustrate the use of PlaySound() API to play
  ! a wave file from disk and linked as a resource of the program.
  !
  ! This program requires the Drum.wav file from the Clarion event manager
  ! example program.  It also requires that the Drum.wav file be converted to
  ! a resource and linked into the program for the SND_RESOURCE version of the
  ! API call to work.
  !
  ! The WavRes.RC contains a sample script to create the .RES for this project.
  !---------------------------------------------------------------------------
  MAP
    MODULE('Win32')
      PlaySound(*CSTRING pszSound, UNSIGNED hMod, UNSIGNED fdwSound),BOOL, PROC, PASCAL, RAW, NAME('PlaySoundA')
    END
  END

SND_NOWAIT      EQUATE(002000h)   !0x00002000L /* don't wait if the driver is busy */
SND_ALIAS       EQUATE(010000h)   !0x00010000L /* name is a registry alias */
SND_ALIAS_ID    EQUATE(110000h)   !0x00110000L /* alias is a predefined ID */
SND_FILENAME    EQUATE(020000h)   !0x00020000L /* name is file name */
SND_RESOURCE    EQUATE(040004h)   !0x00040004L /* name is resource name or atom */

WaveFileName    CSTRING(257)

  CODE

  WaveFileName = 'Drum.wav'
  IF PlaySound(WaveFileName, 0, SND_FILENAME)
    MESSAGE('Played wav file from disk')
  END

  WaveFileName = 'DRUMROLL'
  IF PlaySound(WaveFileName, SYSTEM{PROP:AppInstance}, SND_RESOURCE)
    MESSAGE('Played wav file linked as a resource')
  END

Informacoes Computador - Abc Free - Matos Informatica - 06 09 09 08:28

Template Abc

Outlook Ocx - Como Fazer - 05 09 09 14:16

clarion pubishr.com

 
    
    Define this local variable
citem  Cstring(20)
 
   
    Define this local window     
Window WINDOW('Send a Message'),AT(,,338,100),SYSTEM,GRAY,DOUBLE
       OLE,AT(20,6,80,20),USE(?Ole1),COMPATIBILITY(020H)
       END
       BUTTON('Button 2'),AT(21,30,60,20),USE(?Button2),#ORIG(?Button2)
     END

    
Embed this in a button
?ole1{prop:create}='outlook.application'
cItem=?ole1{'createItem(0)'}

if citem[1]<>'`' then
   Message('no mail item created - error')
else
   ?ole1{citem&'.to'} ='james@clarionfoundry.com'
   ?Ole1{citem&'.from'}='james@craperoo.com'
   ?ole1{citem&'.subject'}='test message ' & random(1,9999999999999999999999)
   ?ole1{citem&'.body'}='text message'
   ?ole1{citem&'.send'}
   ?ole1{prop:release}=citem
   citem=''
   clear(citem)
end
display

http://www.clarionpublisher.com/Site/index.aspx?Sitename=Clarionfoundry

Case Message / com Opcoes Clarion Matos - 06 08 09 05:49

CASE MESSAGE('Continuar?','Titulo',ICON:Question,'&Sim|&Nao|&Outra',3,2)
OF 1                               
 MESSAGE('Aqui a resposa para Sim')
OF 2                               
 MESSAGE('Aqui a resposa para Nao')
OF 3                               
 MESSAGE('Aqui a resposa para Outra opcao')
END

CASE MESSAGE('Sair','Tit',ICON:Question,BUTTON:Yes+BUTTON:No,BUTTON:No,1)
OF BUTTON:No                         
   MESSAGE(' no ')
OF BUTTON:Yes
   MESSAGE('yes ')
END

Tira Barra Inscricao estadual matos - string matos - instring matos - 05 08 09 16:47

Cancelamento Nfe - Inutilizar Nfe - Situacao Nfe - exemplos clarion - Matos Informatica - 01 08 09 07:04

Digito Calculo Nfe - Clarion - Matos - digito_calculo_nfe - 31 07 09 16:42