| 13. Creación de la Clase "ASISTENTE"
Antes de empezar a codificar tenemos que hacer Referencia a una librería, así que sigan estos pasos:
- Denle click a "Proyecto" en el menú.
- Ahora le dan click a "Referencia..."
- Busca Microsoft Agent 2.0 y lo seleccionan y luego le dan click a Aceptar.
Bueno empecemos, para comenzar llamen a la clase "Asistente" y declaramos nuestras primeras variables que serán las siguientes:
Private WithEvents agnAsistente As Agent
Private iaCargaAsistente As IAgentCtlCharacterEx
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Notaran que la es declarado PRIVADA ya que estas variables solamente pueden ser vista por la CLASE y no por el programa. La primera variable es el objeto de Microsoft Agent, este objeto es necesario para invocar al asistente. Verán que hay una palabra que puede ser nueva para ustedes que es WITHEVENTS; si tuviésemos un formulario no tendríamos que poner esta línea de código, ya que Agent es un control, que con tan solo llamarlo y colocarlo en el formulario basta para acceder a sus propiedades, métodos, funciones y eventos, pero como esto es una clase y no podemos poner un control; si yo declarara la variables de esta manera Private agnAsistente As Agent, sin el WITHEVETNS, tendría acceso a las propiedades, métodos y funciones, PERO NO! A los eventos, para tener acceso a los eventos hay que colocar WITHEVENTS, por que resulta que si lo añadiera como un control en un formulario, cuando arranca el programa, el formulario se encarga de cargar todos los eventos, propiedades, etc, de ese control, pero como aquí todo es a nivel de código hay que ser un poco mas explicito.
La segunda variable es la que vamos a usar para manipular al CHARS o Asistente, con este objeto podremos moverlo, animarlo, etc.
Y la tercera variable es un API de Windows lo cual explicare cuando la utilicemos, nada mas le adelanto que esta API nos permite conocer el nombre del directorio en donde esta grabado WINDOWS.
Continuamos, vamos a declara ahora todas las variables que vamos a usar en el programa:
Enum Idioma ‘ Variable que nos permite saber el idioma en que hablara el CHAR
EnglishUS = &H409
EnglishGB = &H809
French = &H40C
Italian = &H410
Portuguese = &H816
Spanish = &HC0A
End Enum
Enum Muñeco ‘ Variable que no permite seleccionar que CHAR se ejecutara
Genie = 0
Merlin = 1
Robby = 2
Peedy = 3
End Enum
Enum Accion ‘ Las diferentes animación de los CHAR
Acknowledge
Alert
Announce
Blink
Confused
Congratulate
Decline
DoMagic1
DoMagic2
DontRecognize
Explain
GestureDown
GestureLeft
GestureRight
GestureUp
GetAttention
GetAttentionContinued
GetAttentionReturn
Greet
Hearing_1
Hearing_2
Hearing_3
Hide
Idle1_1
Idle1_2
Idle1_3
Idle1_4
Idle2_1
Idle2_2
Idle3_1
Idle3_2
LookDown
LookDownReturn
LookLeft
LookLeftReturn
LookRight
LookRightReturn
LookUp
LookUpReturn
MoveDown
MoveLeft
MoveUp
MoveRight
Pleased
Process
Processing
Read
ReadContinued
Reading
ReadReturn
RestPose
Sad
ShowA
Search
Searching
StartListening
StopListening
Suggest
Surprised
ThinkW
Thinking
Uncertain
Wave
WriteA
WriteContinued
WriteReturn
Writing
End Enum
Dim intAccion As Integer ‘ Determina que accion esta activo y lista para ejecutar
Dim strWindows As String ‘ Determina la carpeta donde esta instalado WINDOWS
Dim strMuñeco As String ‘ Determina que muñeco fue elegido por el usuario
Dim bytInicio As Byte ‘ Indica si hay un Muñeco activo
Dim Array_Accion(1 To 67) As String ‘ Lista de todas las del CHAR
Dim bolBalloon As Boolean ‘ Determina se presenta un BALLON para presentar el (EL BALLON es como el globo que aparece en las tiras cómicas donde se escribe el mensaje)
Dim bolAutoHide As Boolean ‘ Determina si se esconde el BALLON cuando termina de presentar el mensaje
Dim bolAutoSpace As Boolean ‘ Determina el espacio entre las frases
Dim bolSonido As Boolean ‘ Determina si las animaciones presentaran sonidos
El uso de la variable lo pueden ver en el comentario que les coloco al lado. Recomiendo que antes de entrar mas al programa se lean un poco la documentación del Microsoft Agent, ya que lo que viene ahora es mas que explicación, recuerden estoy explicando CLASES no AGENT.
Ahora en el evento Initialize de la clase "Asistente" coloque este código:
Private Sub Class_Initialize()
Set agnAsistente = New Agent
Carpeta_Windows
bytInicio = 0
bolAutoSpace = True
bolAutoHide = True
bolBalloon = True
Array_Accion(1) = "Acknowledge"
Array_Accion(2) = "Alert"
Array_Accion(3) = "Announce"
Array_Accion(4) = "Blink"
Array_Accion(5) = "Confused"
Array_Accion(6) = "Congratulate"
Array_Accion(7) = "Decline"
Array_Accion(8) = "DoMagic1"
Array_Accion(9) = "DoMagic2"
Array_Accion(10) = "DontRecognize"
Array_Accion(11) = "Explain"
Array_Accion(12) = "GestureDown"
Array_Accion(13) = "GestureLeft"
Array_Accion(14) = "GestureRight"
Array_Accion(15) = "GestureUp"
Array_Accion(16) = "GetAttention"
Array_Accion(17) = "GetAttentionContinued"
Array_Accion(18) = "GetAttentionReturn"
Array_Accion(19) = "Greet"
Array_Accion(20) = "Hearing_1"
Array_Accion(21) = "Hearing_2"
Array_Accion(22) = "Hearing_3"
Array_Accion(23) = "Hide"
Array_Accion(24) = "Idle1_1"
Array_Accion(25) = "Idle1_2"
Array_Accion(26) = "Idle1_3"
Array_Accion(27) = "Idle1_4"
Array_Accion(28) = "Idle2_1"
Array_Accion(29) = "Idle2_2"
Array_Accion(30) = "Idle3_1"
Array_Accion(31) = "Idle3_2"
Array_Accion(32) = "LookDown"
Array_Accion(33) = "LookDownReturn"
Array_Accion(34) = "LookLeft"
Array_Accion(35) = "LookLeftReturn"
Array_Accion(36) = "LookRight"
Array_Accion(37) = "LookRightReturn"
Array_Accion(38) = "LookUp"
Array_Accion(39) = "LookUpReturn"
Array_Accion(40) = "MoveDown"
Array_Accion(41) = "MoveLeft"
Array_Accion(42) = "MoveUp"
Array_Accion(43) = "MoveRight"
Array_Accion(44) = "Pleased"
Array_Accion(45) = "Process"
Array_Accion(46) = "Processing"
Array_Accion(47) = "Read"
Array_Accion(48) = "ReadContinued"
Array_Accion(49) = "Reading"
Array_Accion(50) = "ReadReturn"
Array_Accion(51) = "RestPose"
Array_Accion(52) = "Sad"
Array_Accion(53) = "Search"
Array_Accion(54) = "Searching"
Array_Accion(55) = "Show"
Array_Accion(56) = "StartListening"
Array_Accion(57) = "StopListening"
Array_Accion(58) = "Suggest"
Array_Accion(59) = "Surprised"
Array_Accion(60) = "Think"
Array_Accion(61) = "Thinking"
Array_Accion(62) = "Uncertain"
Array_Accion(63) = "Wave"
Array_Accion(64) = "Write"
Array_Accion(65) = "WriteContinued"
Array_Accion(66) = "WriteReturn"
Array_Accion(67) = "Writing"
End Sub
Aquí hay una línea de código que es importante explicarle que es:
Set agnAsistente = New Agent
Cuando nosotros declaramos un objeto:
Dim Nombre_del_Objeto as Objeto
En nuestra clase el ejemplo es:
Private WithEvents agnAsistente As Agent
El objeto agnAsistente todavía no se ha inicializado, es decir no esta en memoria, para iniciarlo o activarlo hay que hacer lo que se llama una referencia al objeto esto se logra de esta manera:
Set agnAsistente = New Agent
Es aquí cuando el objeto se inicializa en la memoria, si ustedes no hacen esto cuando vayan a usar el objeto para cualquier utilidad, Visual Basic les indicara un error, de que "la variable no ha sido establecida", esto es porque se "DECLARO", pero no se inicializo, para inicializarla tienen que escribir la línea antes expuesta, NOTA: Esto solo se hace cuando se hacen referencias a OBJETOS.
Vamos ahora a declarar las propiedades, para eso escriban lo siguiente:
Public Property Get Sound() As Boolean
Sound = bolSonido
End Property
Public Property Let Sound(ByVal NuevoValor As Boolean)
iaCargaAsistente.SoundEffectsOn = NuevoValor
End Property
Public Property Get Balloon() As Boolean
Balloon = bolBalloon
End Property
Public Property Let Balloon(ByVal NuevoValor As Boolean)
bolBalloon = NuevoValor
If bolBalloon Then
iaCargaAsistente.Balloon.Style = iaCargaAsistente.Balloon.Style Or 1
Else
iaCargaAsistente.Balloon.Style = iaCargaAsistente.Balloon.Style And 0
End If
End Property
Public Property Get AutoHide() As Boolean
AutoHide = bolAutoHide
End Property
Public Property Let AutoHide(ByVal NuevoValor As Boolean)
bolAutoHide = NuevoValor
If bolAutoHide Then
iaCargaAsistente.Balloon.Style = iaCargaAsistente.Balloon.Style Or 4
Else
iaCargaAsistente.Balloon.Style = iaCargaAsistente.Balloon.Style And -5
End If
End Property
Public Property Get AutoSpace() As Boolean
AutoSpace = bolAutoSpace
End Property
Public Property Let AutoSpace(ByVal NuevoValor As Boolean)
bolAutoSpace = NuevoValor
If bolAutoSpace Then
iaCargaAsistente.Balloon.Style = iaCargaAsistente.Balloon.Style Or 8
Else
iaCargaAsistente.Balloon.Style = iaCargaAsistente.Balloon.Style And -9
End If
End Property
Private Sub agnAsistente_Command(ByVal UserInput As Object)
If UserInput.Name = "Opciones" Then
agnAsistente.PropertySheet.Visible = True
End If
End Sub
Esto ya ustedes lo deben de saber de memoria, ya que es lo mismo que en los controles, con la diferencia que aquí los propiedades las vemos a nivel de código y no a nivel de diseño.
Ahora introduzcan los siguientes métodos y la única función de la Clase:
Public Sub Show(ByVal LenguajeID As Idioma, ByVal GUIA As Muñeco)
Select Case GUIA
Case 0
strMuñeco = "genie"
Case 1
strMuñeco = "merlin"
Case 2
strMuñeco = "peedy"
Case 3
strMuñeco = "robby"
End Select
If bytInicio = 1 Then
Unload
End If
agnAsistente.Characters.Load "CharacterID", strWindows & "msagent\chars\" & strMuñeco & ".acs"
Set iaCargaAsistente = agnAsistente.Characters("CharacterID")
iaCargaAsistente.Commands.Add "Opciones", "&Opciones Avanzadas"
iaCargaAsistente.LanguageID = LenguajeID
iaCargaAsistente.Show
iaCargaAsistente.Left = Screen.Width \ 15 - iaCargaAsistente.Width - 50
iaCargaAsistente.Top = Screen.Height \ 15 - iaCargaAsistente.Height - 50
bytInicio = 1
End Sub
Public Sub Unload() ‘ Metodo utilizado para quitar el CHAR
agnAsistente.Characters.Unload "CharacterID"
End Sub
Public Sub Speak(ByVal strOracion As String) ‘ Metodo utilizado para HABLAR
iaCargaAsistente.Speak strOracion
End Sub
Public Sub Think(ByVal strOracion As String) ‘ Metodo utilizado para PENSAR
iaCargaAsistente.Think strOracion
End Sub
Public Sub Move(x As Integer, y As Integer) ‘ Metodo para mover el Char
iaCargaAsistente.MoveTo x, y
End Sub
Public Sub Action(accNombre As Accion) ‘ Metodo para ejecutar una accion del Char
iaCargaAsistente.Play Array_Accion(accNombre + 1)
End Sub
Private Sub Carpeta_Windows() ‘ Metodo para localizar la carpeta de WINDOWS
Dim Temp As String
Dim Ret As Long
Const MAX_LENGTH = 145
Temp = String$(MAX_LENGTH, 0)
Ret = GetWindowsDirectory(Temp, MAX_LENGTH)
Temp = Left$(Temp, Ret)
If Temp <> "" And Right$(Temp, 1) <> "\" Then
strWindows = Temp & "\"
Else
strWindows = Temp
End If
End Sub
Public Function Animations(ByVal indice As Integer) as String ‘ Metodo para extraer el nombre de las animaciones
Animations = Array_Accion(indice)
End Function
Public Sub Stop_Asistente() ‘ Metodo que frena cualquier animiacion del CHAR cuando se ejecuta una animación continua
iaCargaAsistente.Stop
iaCargaAsistente.Play "RestPose"
End Sub
Bueno señores, estamos listo, ahora vamos a probar nuestra clase, noten que volvemos a usar el SET:
Set iaCargaAsistente = agnAsistente.Characters("CharacterID")
Recuerden que iaCargaAsistente nada mas se declaro y no se Referencio, bueno aquí es donde la estamos inicializando.,
Los métodos declarados son sencillos, lo que tienen es que documentarse un poco sobre como funciona el Microsoft Agent, después de eso, es fácil entender el código, y ni siquiera con tan solo ver el código ya se puede suponer para que sirve cada instrucción que usamos.
La única que se puede ver un poco extraña es el método "Carpeta Windows", este método establece el nombre de la carpeta donde fue grabado Windows, recuerden que mencione que el MS Agent, se instala en la carpeta de Windows, y nos es lo mismo el nombre en Windows 95/98 (C:/Windows) que NT/2000 (C:/WINNT), esa es la razón del porque es importante ubicar la carpeta de Windows.
Vamos a añadir un formulario en el proyecto donde tenemos nuestra clase, y en el formulario van a colocar un TextBox, 3 Botones, y un listabox.
En la parte de Declaraciones coloquen las siguiente línea de código:
Dim asis As New Asistente
Este es una forma de simplificar estas dos lineas en una sola:
Dim asis as Asistente
Set asis = New Asistente
Y en el evento click del botón (command1) colocan:
Private Sub Command1_Click()
asis.Show Spanish, Merlin
End Sub
NOTA: verán que cuando le dan a espaciadora después de escribir Show, se le mostrara una lista con las diferentes opciones del lenguaje y luego una lista de las CHARS que se pueden elegir, eso sucede debido a que declaramos las variables de tipo ENUM sino no!!, no aparecieran.
NOTA 2: Merlín es un Char el cual yo supongo que ustedes ya lo tienen instalado, si tienen otro cambien el nombre por el que tienen, y el idioma también supongo que la tienen instalado, aunque el idioma no afecta el funcionamiento de CHARS, sino afecta cuando el muñeco vaya a hablar.
Ahora para arrancar nuestro formulario sigan estos pasos:
- Denle click en "Proyecto" en el menú
- Luego en "Propiedades del Proyecto1...."
- En tipo de proyecto seleccionen EXE Estándar y en Objeto Inicial Form1
Ahora ejecuten el proyecto y denle click al botón Command1 verán que le aparece el CHARS en la esquina inferior derecha, IMPRESIONANTE NO!!. Salgan del formulario.
En el evento clic del Command2 coloquen:
Private Sub Command2_Click()
asis.Speak text1.Text
End Sub
Y en el Command3:
Private Sub Command3_Click()
asis.Think text1.Text
End Sub
Ejecuten el programa y coloquen en el TEXTBOX que esta en el formulario "HOLA", sin las comillas por supuesto. Y denle click primero al botón Command1 para que se cargue el Asistente o Char, luego denle al botón Command2 y verán que el CHARS habla lo que ustedes escribieron en el TEXTBOX, (eso si configuraron el idioma), y si le dan al botón Command3 el CHARS no hablara pero si mostrara el Texto, esto es porque ahí esta PENSANDO (THINK) y no HABLANDO (SPEAK).
Ahora vamos a ver las animaciones que tienen los CHARS:
Para ello agrega en el evento LOAD del formulario lo siguiente:
Private Sub Form_Load()
For i = 1 To 67
List1.AddItem asis.Animations(i)
Next
End Sub
Y en el evento DobleClick del control List1 agreguen lo siguiente:
Private Sub List1_DblClick()
asis.Action List1.ListIndex
End Sub
Y agrega dos botones Command4 y Command5 y en el evento Clic de cada uno coloca lo siguiente:
Private Sub Command4_Click()
asis.Move 150, 150
End Sub
Private Sub Command5_Click()
asis.Stop_Asistente
End Sub
Ahora ejecuten el proyecto verán que el cuadro List1 se lleno con las diferentes animaciones del CHAR ahora denle click a Command1, luego denle DobleClick a las diferentes animaciones que están en el List1 y verán como el CHAR se empieza a mover, después que maten su curiosidad denle Click a el Command4 para que vean como se mueva el CHAR de un sitio a otro.
Bueno señores, esto es toda la clase OBVIAMENTE, no esta lo suficientemente SÓLIDA, que quiero decir con esto, ahora ustedes le tienen que acomodar los detalles, como por ejemplo si le dan al botón Command2 sin escribir nada el CHAR les lanza un error ya que no acepta cadena NULLSTRING, o si le dan a cualquiera de las animaciones o le dan a los botones Command2, Command3 y Command4, antes de cargar el asistente también les dará un error, quedara de tarea para ustedes si consideran útil esta clase en acomodar esos pequeñísimos detalles.
Ahora vamos a dar los pasos para compilar una clase:
- Primero denle clic a "Proyecto" en el menú, y luego a "Propiedades del Proyecto....", en tipo de proyecto seleccionan DLL Activex y en objeto inicial ninguno y en nombre de proyecto ponen Asistente_Animado.
- Al igual que el control si lo intentan compilar les va a decir que el objeto no es publico y que no se puede compilar para solucionar eso, se meten en las propiedades del control, y en la propiedad INSTANCING seleccionan la opción 6 que es GLOBALMULTIUSE y ahora si pueden compilar, igual que el control seleccionen la carpeta de WINDOWS/SYSTEM y le colocan al nombre del archivo Asistente_Animado y le dan click a Aceptar.
- Entonces se procede a compilar el archivo.
- Para utilizarlo en sus proyectos solamente tienen que buscar en Referencias la librería Asistente_Animado, la seleccionan, y recuerdan que cuando declaran una variable que hace referencia a un objeto seria:
Dim Variable as Asistente
En Load del formulario:
Set Variable = New Asistente
Asistente es el nombre que le dimos a nuestra clase.
14. Conclusión FINAL
Bueno espero que le sea útil, lo que aprendieron con este curso FLASH sobre controles y clases, en realidad esto dos temas son muchos mas amplios pero aquí logre enfocarme en lo básico, ya los que le queda a ustedes es empezar a echar código, es importante, por que algunos se preguntaran PARA QUE APRENDER ESTO, con estas dos técnicas CONTROLES y CLASE desarrollamos códigos mas fácil de mantener, mas legibles, y la hora de conseguir una falla resulta mas rápido, estas técnicas nos ayudan a perfeccionar e idear nuevas técnicas que pueden beneficiar tanto a ustedes como a muchas personas, si poseen imaginación les aseguro que no habrá limite para la creación de nuevo objetos.
CATEGORIA:PROGRAMACION.
Que es un control?. Como diseñar un control en Visual Basic. Propiedades de un Control. Métodos de un control. Eventos. Detalles de la creación de un control. Que es una Clase?. Propiedades de una clase. Compilación de un control y una clase. Ejemplo de un control. Ejemplo de una Clase (Asistente Animado).
>> Ver
siguiente capitulo
|
Microsoft explorer 6.0 
