TMsAgent v2.2 ya funciona en Windows 7

User avatar
AIDA
Posts: 782
Joined: Fri Jan 12, 2007 8:35 pm

TMsAgent v2.2 ya funciona en Windows 7

Post by AIDA »

Hola

El día de hoy descubrí que se puede usar de nuevo la TMsAgent v2.2 con la BalloonDialog en Windows 7 :D
con solo usar un pequeño parche que bajas de microsoft :mrgreen:

ya lo baje y por fin de nuevo pude tener el mago volando por toda mi aplicación

para los interesados 8)

aqui esta la tmsagent 2.2 en cualquiera de las dos ligas
El creador de la clase es Juan Carlos Salinas Ojeda

http://www.mediafire.com/file/hobytshkx ... gent22.zip
http://www.mediafire.com/?hobytshkxbhqhbq


aqui solicitas el parche para windows 7
http://support.microsoft.com/hotfix/KBH ... 68&kbln=es

aqui puedes bajar el demo de la BalloonDialog© 6.5
http://www.sommytech.com.ar/downloads/b ... Dialog.exe

Esta es la pagina oficial de BalloonDialog© 6.5
http://www.sommytech.com.ar/balloondialog/Home.htm

Aqui estan los asistentes, puedes buscar en el google y probarlos uno por uno, algunos no son compatibles por los comandos que tienen para realizar ciertas actividades..
http://www.bellcraft.com/mash/chars.aspx

para poner la voz de la computadora en español :mrgreen: RSSolo4Spanish voz femenina :lol:
http://www.megaupload.com/?d=5AX6972M

para poner la voz de la computadora en español :mrgreen: RSSolo4Spanish voz masculina :D
http://www.filestube.com/34c13c5b24364e8603ea/go.html


Para Windows XP
En esta página se explica cómo se puede configurar MS agente y los componentes en su sistema y de ahí los pueden bajar.
http://moosenose.com/MsAgent.htm

CÓMO: Configurar y utilizar Texto a voz en Windows XP
http://support.microsoft.com/kb/306902/es

Herramienta para crear a los personajes :mrgreen:
Microsoft Agent Character Editor
http://download.cnet.com/Microsoft-Agen ... 10178.html

Microsoft Agent Spanish Pack 3.12
http://microsoft-agent-spanish-pack.softonic.com/



Saluditos :wink:
Image[/url]
Last edited by AIDA on Sun Mar 27, 2011 7:01 am, edited 15 times in total.
Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
User avatar
AIDA
Posts: 782
Joined: Fri Jan 12, 2007 8:35 pm

Re: TMsAgent v2.2 ya funciona en Windows 7

Post by AIDA »

Bueno con las aplicaciones ya compiladas si funciona :D

pero si las quieres poner al día con las ultimas fivewin sale un error :cry:

a ver si alguien me puede dar una ayuda dita

el error es el siguiente :shock:


Error description: Error TOleAuto/65535 : TOLEAUTO:NEW
Args:
[ 1] = C Agent.Control.2

Stack Calls
===========
Called from: => THROW(0)
Called from: source\rtl\win32ole.prg => TOLEAUTO:NEW(346)
Called from: C:\FWH\PROMOT~1\PRG\TMSAGENT.PRG => TMSAGENT:NEW(238)
Called from: C:\FWH\PROMOT~1\PRG\POLIZARIUM.PRG => MAIN(591)



Saluditos :wink:
Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
User avatar
AIDA
Posts: 782
Joined: Fri Jan 12, 2007 8:35 pm

Re: TMsAgent v2.2 ya funciona en Windows 7

Post by AIDA »

Pues el problema esta en el codigo de mi programa :evil:

con otros programas compila y funciona muy bien el TMsAgent :D

seguiré checando


Saluditos :mrgreen:
Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
User avatar
QAZWSX2K
Posts: 359
Joined: Tue Oct 25, 2005 7:06 pm
Location: Bogota - Caracas

Re: TMsAgent v2.2 ya funciona en Windows 7

Post by QAZWSX2K »

hola aida, podrias enseñarme como hacerlo, no tengo idea de como empezar y siempre he querido hacerlo, gracias
Software especializado para oficinas contables con grandes volumenes de Informacion
Impresion de todos los formularios del Seniat, Dian

alex_patino74@hotmail.com
whatsapp 57+3214777217
User avatar
AIDA
Posts: 782
Joined: Fri Jan 12, 2007 8:35 pm

Re: TMsAgent v2.2 ya funciona en Windows 7

Post by AIDA »

Si claro :mrgreen:

Aun no soy una esperta pero ya me sale algo bien los monitos mSagent
lo que si necesitaras es todo el paquetito de la tmsagent22
creo que la liga de donde lo baje ya no funciona veré donde ponerlo para que lo bajes
para que puedas iniciar :D

Saluditos :wink:
Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
User avatar
QAZWSX2K
Posts: 359
Joined: Tue Oct 25, 2005 7:06 pm
Location: Bogota - Caracas

Re: TMsAgent v2.2 ya funciona en Windows 7

Post by QAZWSX2K »

GRACIAS AIDA, yo creo ya tengo todo eso descargado, lo que no se es en el propio codigo de fivewin como llamo al agente, como le digo que decir y cuando?

gracias
alejandro patiño
Software especializado para oficinas contables con grandes volumenes de Informacion
Impresion de todos los formularios del Seniat, Dian

alex_patino74@hotmail.com
whatsapp 57+3214777217
User avatar
AIDA
Posts: 782
Joined: Fri Jan 12, 2007 8:35 pm

Re: TMsAgent v2.2 ya funciona en Windows 7

Post by AIDA »

Aquí esta un ejemplo :mrgreen:

Aqui estan los asistentes, puedes buscar en el google y probarlos uno por uno, algunos no son compatibles por los comandos que tienen para realizar ciertas actividades..

http://www.bellcraft.com/mash/chars.aspx


Saluditos :wink:

Code: Select all

#Include "FIVEWIN.CH"
#Include "TMSAGENT.CH"

STATIC oWndMain

//------------------//
FUNCTION Main()

LOCAL  cFileAgent:= ""
LOCAL       nAsis:= "1"
PUBLIC oAsis, Espera, Hablar

  RegistrarOCX()   // -> Aki va la rutina para registrar el archivo ocx que acompaña TMSAgent
  
  DO CASE          // -> Aki selecciono mediente un archivo INI para cada usuario el asistente con el cual trabajaran.
   CASE nAsis == "1"
        cFileAgent:= GetWinDir() + "\msagent\chars\Genie.acs"
   CASE nAsis == "2"
        cFileAgent:= GetWinDir() + "\msagent\chars\Merlin.acs"
   CASE nAsis == "3"
        cFileAgent:= GetWinDir() + "\msagent\chars\Peedy.acs"
   CASE nAsis == "4"
        cFileAgent:= GetWinDir() + "\msagent\chars\Robby.acs"
   CASE nAsis == "5"
        cFileAgent:= GetWinDir() + "\msagent\chars\Wabbit.acs"
   CASE nAsis == "6"
        cFileAgent:= GetWinDir() + "\msagent\chars\James.acs"
   CASE nAsis == "7"
        cFileAgent:= GetWinDir() + "\msagent\chars\Sam.acs"
   CASE nAsis == "8"
        cFileAgent:= GetWinDir() + "\msagent\chars\Hanz.acs"
   CASE nAsis == "9"
        cFileAgent:= GetWinDir() + "\msagent\chars\E-woman.acs"
   CASE nAsis == "10"
        cFileAgent:= GetWinDir() + "\msagent\chars\E-man.acs"
   CASE nAsis == "11"
        cFileAgent:= GetWinDir() + "\msagent\chars\Ben.acs"                                      
ENDCASE

IF !FILE(cFileAgent)
   msginfo("El Sistema no puede encontar el archivo que hace referencia al Asistente Animado Seleccionado."+CRLF+CRLF+"Se intentará Iniciar Sesión y Trabajar con el Asistente Predetermiando de "+cVersion+"..."+CRLF+CRLF+CRLF+"SOLUCIÓN:"+CRLF+CRLF+"Reinstale los Asistentes Animados del Sistema desde el Disco de Instalación de SISA2008.", "Microsoft Agent")
ENDIF

oAsis:= TMsAgent():New("MsAgent",.T.,cFileAgent)


  IF !oAsis:lOk   // hay que verificar si se puede usar el agente
    MsgInfo( "No se pudo iniciar MsAgent","Aviso" )
    // Si el agente no pudo iniciarse, los métodos NO tendrán efecto, NO habrá errores en tiempo de ejecución
  ENDIF

  
  IF oAsis:UsedByOtherApps() // habrá otras aplicaciones usándolo?
     MsgInfo( "MsAgent es usado por otras aplicaciones", "Cuidado" )
  ENDIF

  oAsis:lWait   := Espera

// ***********************************************************************
oAsis:lSpeechInPopups := Hablar // Nuevo en la versión 2.2 
// ************************************************************************

// Distintos sonidos
oAsis:cSoundInfo     := ".\aviso.wav"
oAsis:cSoundStop     := ".\error.wav"
oAsis:cSoundQuestion := ".\pregunta.wav"

DEFINE   WINDOW  oWndMain  TITLE     "Pruebas con TMSAgent"
ACTIVATE WINDOW  oWndMain  MAXIMIZED ON INIT (PostCarga()); 
                                     VALID (oAsis:wYesNo( "¿Deseas Terminar tu Sesión de Trabajo?", "Confirme" ))
                                     
oAsis:Hide()                                                                      
oAsis:END() 
QuitarRegistroOCX() 

RETURN nil                                     


//------------------//
STATIC FUNCTION PostCarga()

LOCAL   XPos:= 825   //-> Aki recupero la posición X donde deje el asistente, y donde kiero que vuelva a aparecer
LOCAL   YPos:= 545   //-> Aki recupero la posición Y donde deje el asistente, y donde kiero que vuelva a aparecer
LOCAL lAsist:= "1"   //-> Dentro del archivo INI guardo si el asistente es visible (1) o si esta oculto (0) 
LOCAL nSpeed:= "120" //-> Aki defino cuantas palabras va a decir el asistente

    IF lAsist == "1"  
       oAsis:Show()     
       oAsis:Move(XPos,YPos,25)
ELSEIF lAsist == "0"
       oAsis:Hide()
ENDIF

IF lAsist == "1" 
   oAsis:SAY("\Spd="+nSpeed+"\Hola Bienvenido a TMSAgent 2.2 ")
ENDIF

RETURN nil


//------------------//
STATIC FUNCTION RegistrarOCX()
       //Aki agregas la clave al registro para registrar tu OCX
RETURN NIL


//------------------//
STATIC FUNCTION QuitarRegistroOCX()
       //Aki quitas la clave al registro para que no usen tu OCX
RETURN NIL
Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
User avatar
QAZWSX2K
Posts: 359
Joined: Tue Oct 25, 2005 7:06 pm
Location: Bogota - Caracas

Re: TMsAgent v2.2 ya funciona en Windows 7

Post by QAZWSX2K »

muy agradecido, pruebo y si no me sale te molesto un ratico mas, jejeje
Software especializado para oficinas contables con grandes volumenes de Informacion
Impresion de todos los formularios del Seniat, Dian

alex_patino74@hotmail.com
whatsapp 57+3214777217
User avatar
AIDA
Posts: 782
Joined: Fri Jan 12, 2007 8:35 pm

Re: TMsAgent v2.2 ya funciona en Windows 7

Post by AIDA »

Hola :)

En el ejemplo anterior estan estas lineas :|

Code: Select all

//------------------//
STATIC FUNCTION RegistrarOCX()
       //Aki agregas la clave al registro para registrar tu OCX
RETURN NIL


//------------------//
STATIC FUNCTION QuitarRegistroOCX()
       //Aki quitas la clave al registro para que no usen tu OCX
RETURN NIL
espero conseguir la manera de aplicarlas es importante, no creen :D
si alguien sabe como se aplican le agradeceria su ayuda :mrgreen:

Saluditos :wink:
Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
User avatar
Andrés González
Posts: 625
Joined: Thu Jan 19, 2006 10:45 am
Location: Mallorca

Re: TMsAgent v2.2 ya funciona en Windows 7

Post by Andrés González »

AIDA, perfecto y funcionando. Lo había intentado en otras ocasiones y me faltaba información. Lo que has expuesto está completísimo. Ahora me falta interactuar con el TTS, ya que tengo un montón de voces funcionando. Voy a ver que tal sale y luego miro de incorporarlo a las aplicaciones. Sabes como se crean los personajes? Tenemos un buho como logotipo y me gustaría hacerlo.
Saludos

Andrés González desde Mallorca
User avatar
Andrés González
Posts: 625
Joined: Thu Jan 19, 2006 10:45 am
Location: Mallorca

Re: TMsAgent v2.2 ya funciona en Windows 7

Post by Andrés González »

AIDA, un 10 por tu aportación. Ya he visto que has incorporado lo de crear el personaje y como interactuar con las diferentes voces. Buen trabajo. Mañana me toca trabajar y espero tener tiempo para dedicarme a crear el Buho. Te comento.
Saludos

Andrés González desde Mallorca
User avatar
VeRCE
Posts: 219
Joined: Fri Nov 04, 2005 2:34 pm
Location: Mexico D.F.
Contact:

Re: TMsAgent v2.2 ya funciona en Windows 7

Post by VeRCE »

Dios !!!

No puedo creer que mi vieja y querida clase TMSAGENT siga viva !!!!!
Gracias AIDA..... te importaria mantenerme al tanto de tus
modificaciones (si las ha habido) ??


Gracias.
Juan Carlos Salinas Ojeda
México. D.F.
-------------------------------------------------
User avatar
VeRCE
Posts: 219
Joined: Fri Nov 04, 2005 2:34 pm
Location: Mexico D.F.
Contact:

Re: TMsAgent v2.2 ya funciona en Windows 7

Post by VeRCE »

Estimados esto me motiva mucho....

Dentro de poco subire nuevamente mi clase a un servidor junto con el nuevo VERCE que
amablemente esta modificando mi amigo William..

Un abrazo y seguimos en contacto!!!
Juan Carlos Salinas Ojeda
México. D.F.
-------------------------------------------------
User avatar
AIDA
Posts: 782
Joined: Fri Jan 12, 2007 8:35 pm

Re: TMsAgent v2.2 ya funciona en Windows 7

Post by AIDA »

Holaaaaaaaa Juan Carlos :D

Estoy usando tu clase 100% sin modificarla :mrgreen:

espero me puedas ayudar en algunas cositas en donde estoy atoradita

te comento que me encanta tu clase MUCHOS TENQUIUS :)


Muchos Saluditos :wink:
Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
User avatar
VeRCE
Posts: 219
Joined: Fri Nov 04, 2005 2:34 pm
Location: Mexico D.F.
Contact:

Re: TMsAgent v2.2 ya funciona en Windows 7

Post by VeRCE »

Con gusto Aida..... búscame por MSN para charlar por ahi.
jcso "@" hotmail


Saludos.
Juan Carlos Salinas Ojeda
México. D.F.
-------------------------------------------------
Post Reply