VERSION 5.00
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.DLL"
Object = "{D27CDB6B-AE6D-11CF-96B8-444553540000}#1.0#0"; "FLASH.OCX"
Begin VB.UserControl oAreaIndicacion 
   BackColor       =   &H00C0FFFF&
   BackStyle       =   0  'Transparent
   ClientHeight    =   2445
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   15360
   ScaleHeight     =   2445
   ScaleWidth      =   15360
   Begin ShockwaveFlashObjectsCtl.ShockwaveFlash ShockwaveFlash1 
      Height          =   1455
      Left            =   13560
      TabIndex        =   7
      Top             =   720
      Width           =   1695
      _cx             =   2990
      _cy             =   2566
      FlashVars       =   ""
      Movie           =   ""
      Src             =   ""
      WMode           =   "Window"
      Play            =   -1  'True
      Loop            =   -1  'True
      Quality         =   "High"
      SAlign          =   ""
      Menu            =   -1  'True
      Base            =   ""
      AllowScriptAccess=   "always"
      Scale           =   "ShowAll"
      DeviceFont      =   0   'False
      EmbedMovie      =   0   'False
      BGColor         =   ""
      SWRemote        =   ""
      MovieData       =   ""
   End
   Begin SHDocVwCtl.WebBrowser WebBrowser1 
      Height          =   1815
      Left            =   12000
      TabIndex        =   9
      Top             =   600
      Width           =   1935
      ExtentX         =   3413
      ExtentY         =   3201
      ViewMode        =   0
      Offline         =   0
      Silent          =   0
      RegisterAsBrowser=   0
      RegisterAsDropTarget=   1
      AutoArrange     =   0   'False
      NoClientEdge    =   0   'False
      AlignLeft       =   0   'False
      ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
      Location        =   ""
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H8000000D&
      BorderStyle     =   0  'None
      Caption         =   "Frame1"
      Height          =   615
      Left            =   1560
      TabIndex        =   2
      Top             =   1680
      Width           =   9375
      Begin VB.CommandButton CmdAccion 
         BackColor       =   &H80000013&
         Caption         =   "CmdAccion"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Index           =   4
         Left            =   6840
         Style           =   1  'Graphical
         TabIndex        =   8
         Top             =   0
         Visible         =   0   'False
         Width           =   2055
      End
      Begin VB.CommandButton CmdAccion 
         BackColor       =   &H80000013&
         Caption         =   "CmdAccion"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Index           =   3
         Left            =   4560
         Style           =   1  'Graphical
         TabIndex        =   6
         Top             =   0
         Visible         =   0   'False
         Width           =   2055
      End
      Begin VB.CommandButton CmdAccion 
         BackColor       =   &H80000013&
         Caption         =   "CmdAccion"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Index           =   2
         Left            =   2280
         Style           =   1  'Graphical
         TabIndex        =   5
         Top             =   0
         Visible         =   0   'False
         Width           =   2055
      End
      Begin VB.CommandButton CmdAccion 
         BackColor       =   &H80000013&
         Caption         =   "CmdAccion"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Index           =   1
         Left            =   2280
         Style           =   1  'Graphical
         TabIndex        =   4
         Top             =   0
         Visible         =   0   'False
         Width           =   2055
      End
      Begin VB.CommandButton CmdAccion 
         BackColor       =   &H80000013&
         Caption         =   "CmdAccion"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Index           =   0
         Left            =   0
         MaskColor       =   &H80000013&
         Style           =   1  'Graphical
         TabIndex        =   3
         Top             =   0
         Width           =   2055
      End
   End
   Begin VB.CommandButton Command1 
      Height          =   1215
      Left            =   120
      Picture         =   "oAreaIndicacion.ctx":0000
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   960
      Width           =   1335
   End
   Begin VB.Label LblNota 
      Alignment       =   2  'Center
      BackColor       =   &H008080FF&
      Caption         =   "LblNota"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   27.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   615
      Left            =   12960
      TabIndex        =   11
      Top             =   0
      Width           =   2295
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      AutoSize        =   -1  'True
      BackColor       =   &H00C0FFC0&
      Caption         =   "PUNTAJE: "
      BeginProperty Font 
         Name            =   "MS Serif"
         Size            =   18
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   405
      Left            =   11040
      TabIndex        =   10
      Top             =   120
      Width           =   1905
   End
   Begin VB.Label Label1 
      BackColor       =   &H00FFFFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "Aqui deberan ir las indicaciones"
      BeginProperty Font 
         Name            =   "Comic Sans MS"
         Size            =   18
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000F&
      Height          =   1095
      Left            =   1560
      TabIndex        =   1
      Top             =   480
      Width           =   10455
      WordWrap        =   -1  'True
   End
   Begin VB.Shape Shape1 
      BackColor       =   &H8000000D&
      BackStyle       =   1  'Opaque
      Height          =   1935
      Left            =   0
      Top             =   480
      Width           =   15375
   End
End
Attribute VB_Name = "oAreaIndicacion"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False

Private az As Integer

'Evento(SeleccionoRespuesta) que se activa cuando alumno selecciona(antes que se termine conteo)
'una respuesta del ejer Actual
Public Event ActivoBoton(NumBoton As Integer)


Private Sub UserControl_Initialize()
    
    az = 0
    
    Label1.Caption = ""
    CmdAccion(0).Caption = "INICIAR"
    CmdAccion(1).Caption = "PAUSA"
    CmdAccion(2).Caption = "CONTINUAR"
    CmdAccion(3).Caption = "REGRESAR"
    CmdAccion(4).Caption = "SALIR"
    
    
    'Imagen que mostrara cuando alum apruebe un ejerc del Nivel act
    'ShockwaveFlash2.Movie = RutaComun + "\Multimedia\Imagenes\globos.gif"
    WebBrowser1.Navigate RutaComun + "\Multimedia\Imagenes\globos.gif"
    WebBrowser1.Visible = False
    
    Call VerBoton(1) 'Inicia barra botones
    
End Sub

Public Sub IniciarControl(ColorForm As Single)
    'Se activa cuando se termina de construir y presentar el form donde este AreaIndicacion
    'Este necesita que se diga el color de fondo que tiene el form contenedor
    
    BackColor = ColorForm
    
End Sub



Public Sub MostrarPuntaje()
    'Actualiza total de puntos ganados
    LblNota.Caption = Str(Evaluador.TOTpuntosGanados)
End Sub




Private Sub CmdAccion_Click(Index As Integer)
    'Activa el evento para comunicarse con el exterior
    'Evento(SeleccionoRespuesta) que se activa cuando alumno selecciona una respuesta
    RaiseEvent ActivoBoton(Index)
    
End Sub



Public Sub VerBoton(Estado As Integer)
    'Permite mostrar/ocultar botones de la barra segun el Estado indicado
    'CmdAccion(0).Caption = "INICIAR"
    'CmdAccion(1).Caption = "PAUSA"
    'CmdAccion(2).Caption = "CONTINUAR"
    'CmdAccion(3).Caption = "REGRESAR"
    'CmdAccion(4).Caption = "SALIR"
    
    Select Case Estado
    Case 1: ' INICIAL: Prepara para comenzar Ciclo que muestra un ejercicio
        '(0,4)Muestra botones: Iniciar y Salir
        CmdAccion(0).Visible = True
        CmdAccion(1).Visible = False
        CmdAccion(2).Visible = False
        CmdAccion(3).Visible = False
        CmdAccion(4).Visible = True
        
    Case 2: 'Esta mostrando ejer, le permite Detener(temp) o salir
        '(1,4)Muestra botones: Pausa y salir
        CmdAccion(0).Visible = False
        CmdAccion(1).Visible = True
        CmdAccion(2).Visible = False
        CmdAccion(3).Visible = False
        CmdAccion(4).Visible = True
    
    Case 3: 'prac con pausa y alum quiere continuar
        '(2)Muestra botones: contiuar
        CmdAccion(0).Visible = False
        CmdAccion(1).Visible = False
        CmdAccion(2).Visible = True
        CmdAccion(3).Visible = False
        CmdAccion(4).Visible = False
    
    Case 4: 'Alum ha terminado intento act y SALEP detect PRAC SUSPENDIDA por docente
        '(4)Muestra botones: salir
        CmdAccion(0).Visible = False
        CmdAccion(1).Visible = False
        CmdAccion(2).Visible = False
        CmdAccion(3).Visible = False
        CmdAccion(4).Visible = True
        
    Case 5: 'Cuando se Aprueba el nivel act
        '(3,4)Muestra botones: regresar y salir
        CmdAccion(0).Visible = False
        CmdAccion(1).Visible = False
        CmdAccion(2).Visible = False
        CmdAccion(3).Visible = True
        CmdAccion(4).Visible = True
    
    
    
    'Ya no usar
    Case 10: 'Cuando hace pausa en practica act
        'Oculta todos los botones menos PAUSA y SALIR
        CmdAccion(0).Visible = False
        CmdAccion(1).Visible = False
        CmdAccion(2).Visible = True
        CmdAccion(3).Visible = False
        CmdAccion(4).Visible = False
        
        
        
    'Case X:
    
    End Select
End Sub


Public Sub OcultarIndicacPractica()
    'oculta la indicacion de la practica actual
    With Label1
        .BackColor = RGB(20, 30, 40)
        .Caption = ""
    End With
End Sub

Public Sub MostrarIndicacPracticaX(t As Integer)
    'Muestra el indice (t) dentro de la lista de comentarios y ayudas de
    'las diversas practicas de SALEP
    
    Dim RUTA As String
    RUTA = RutaComun + "\Multimedia\Ayuda\"
    'ShockwaveFlash1.Movie = ""
    
    Dim Mensa As String
    
    'para ocultar imagen de felicit (si se mostro)
    Select Case t
        Case 1, 3, 7, 9, 12, 15, 10:
        
        WebBrowser1.Visible = False
    End Select
        
    'Muestra la indicacion de la practica actual
    Label1.BackColor = RGB(20, 30, 40)
    Select Case t
        'Para mensajes iniciales de:
        'Modulo 1, Nivel 1  / Modulo 2 , todos sus Niveles:
        Case 1:
            If Evaluador.IDmodulo = 1 Then
            Mensa = "Observa la imagen siguiente"
            Else
            
            
            
            Mensa = "Lee el siguiente Cuento..."
            End If
            'ShockwaveFlash1.Movie = RUTA + "felicitacion2.swf"
            ShockwaveFlash1.Movie = RUTA + "parpadeo.swf"
            ShockwaveFlash1.Play
            'ShockwaveFlash1.StopPlay
            
            
            
        Case 2: Mensa = "Responde a estas preguntas acerca del cuento."
        
        'Modulo 1, Nivel 2:
        Case 3: Mensa = "Observa y analiza las imagenes"
            'ShockwaveFlash1.Movie = RUTA + "felicitacion2.swf"
            ShockwaveFlash1.Movie = RUTA + "parpadeo.swf"
            ShockwaveFlash1.Play
            'ShockwaveFlash1.StopPlay
        Case 4: Mensa = "Responde a estas preguntas sobre imagenes"
        
        'Modulo 1, Nivel 3:
        Case 7: Mensa = "Observa y ordena estas imagenes"
            'ShockwaveFlash1.Movie = RUTA + "felicitacion2.swf"
            ShockwaveFlash1.Movie = RUTA + "parpadeo.swf"
            ShockwaveFlash1.Play
            'ShockwaveFlash1.StopPlay
        Case 8: Mensa = "Responde a estas preguntas sobre imagenes"
        
        
        'Modulo 4, Nivel 1:fijacion visual
        Case 9: Mensa = "Lee la siguiente palabra"
            'ShockwaveFlash1.Movie = RUTA + "felicitacion2.swf"
            ShockwaveFlash1.Movie = RUTA + "parpadeo.swf"
            ShockwaveFlash1.Play
            'ShockwaveFlash1.StopPlay
        Case 11: Mensa = "Busca y selecciona la palabra anterior"
        
        
        
        'Modulo 4, Nivel 2 y 3:fijacion visual de 2 y 3 palabras
        Case 12: Mensa = "Lee las siguientes palabras"
            'ShockwaveFlash1.Movie = RUTA + "felicitacion2.swf"
            ShockwaveFlash1.Movie = RUTA + "parpadeo.swf"
            ShockwaveFlash1.Play
            'ShockwaveFlash1.StopPlay
        Case 13: Mensa = "lee las siguientes palabras"
        
        
        
        'Modulo 3, Todos los niveles: Nivel inferencial
        Case 15: Mensa = "Lee esta Historia y responde las preguntas"
            'ShockwaveFlash1.Movie = RUTA + "felicitacion2.swf"
            ShockwaveFlash1.Movie = RUTA + "parpadeo.swf"
            ShockwaveFlash1.Play
        
        
        
        
        Case 5: Mensa = "Observa detenidamente la imagen siguiente."
        Case 6: Mensa = "Ahora responde a estas preguntas acerca de la imagen."
        
        'Modulo 3, todos Niveles
        Case 16: Mensa = "Responde a estas preguntas acerca de la historia"
        
        
        
        Case 10:
            Mensa = "Lee la frase siguiente."
            'Observa y analiza las imagenes"
            
            'ShockwaveFlash1.Movie = RUTA + "felicitacion2.swf"
            ShockwaveFlash1.Movie = RUTA + "parpadeo.swf"
            ShockwaveFlash1.Play
            'ShockwaveFlash1.StopPlay
        
        Case 17: Mensa = "Ahora selecciona la imagen"
        
        
        Case 20: Mensa = "Lee cada frase de la Oracion"
        Case 21: Mensa = "Ahora, lee estas frases y arrastra solo las que describe la oracion anterior"
        
        
        'Cuando se suspende Modulo Act
        Case 30: Mensa = "PRACTICA SUSPENDIDA POR TU DOCENTE"
        Case 31: Mensa = "COMENZARAS DE NUEVO"
                
        
        Case 50: Mensa = "!!FELICIDADES!! HAS APROBADO EL MODULO, PRESIONA BOTON REGRESAR"
            ShockwaveFlash1.Movie = RUTA + "Felicitacion\felicitacion.swf"
            ShockwaveFlash1.Play
            'ShockwaveFlash1.StopPlay
        Case 52: Mensa = "!!FELICIDADES!! HAS APROBADO EL MODULO, PRESIONA BOTON REGRESAR"
           ShockwaveFlash1.Movie = RUTA + "Felicitacion\felicitacion.swf"
            ShockwaveFlash1.Play
        Case 51:
        
    End Select
    ShockwaveFlash1.Loop = False
    
    Label1.Caption = Mensa
    
End Sub

Public Sub MostrarEvaluacion(NotaEval As Single)
    With Label1
        .BackColor = RGB(200, 240, 40)
        .Caption = "Tu nota fue de " + Str(NotaEval)
    End With
        
End Sub


Public Sub MostrarEvaluacion2(Eval As Boolean)
    'Dim Mensaje As String
    If Eval Then
        'Mensaje = "Excelente, respondiste bien"
        'ANTES
        'Call MostrarIndicacXXX(50)
        
        'HOY
        Call MostrarIndicacXXX(501)
    Else
        'ANTES
        'Mensaje = "Lo siento mucho, te equivocaste"
        'Call MostrarIndicacXXX(55)
        
        'HOY
        'Mensaje = "Lo siento mucho, te equivocaste"
        Call MostrarIndicacXXX(505)
        
    End If
    
End Sub

Public Sub MostrarEvaluacion22(Eval As Boolean)
    'Solo para Modulo Inferencial
    'Dim Mensaje As String
    If Eval Then
        'Mensaje = "Excelente, respondiste bien"
        Call MostrarIndicacXXX(501)
    Else
        'Mensaje = "Lo siento mucho, te equivocaste"
        Call MostrarIndicacXXX(505)
    End If
    
End Sub

Public Sub MostrarEvaluacion33(Eval As Boolean)
    'Para Modulo Inferencial: dice si respondio bien\mal a una preg
    Dim Mensaje As String
    If Eval Then
        Mensaje = "Excelente, respondiste bien"
        Call MostrarIndicacXXX(501)
    Else
        Mensaje = "Lo siento, te equivocaste"
        Call MostrarIndicacXXX(505)
    End If
    Label1.Caption = Mensaje
End Sub




Public Sub MostrarEvaluacion3(NotaEval As Single)
    Dim Mensaje As String
    If NotaEval >= 6 Then
        Mensaje = "Respondiste bien"
    Else
        Mensaje = "Lo siento, te equivocaste"
    End If
    
    With Label1
        .BackColor = RGB(200, 240, 40)
        .Caption = Mensaje + ", tu nota fue " + Str(NotaEval)
    End With
End Sub




Public Sub MostrarIndicacXXX(t As Integer)
    'Muestra el indice (t) dentro de la lista de comentarios y ayudas de
    'las diversas practicas de SALEP
    
    Dim RUTA As String
    'If az = 0 Then
        RUTA = RutaComun + "\Multimedia\ayuda\"
        'ShockwaveFlash1.Movie = RUTA + "felicitacion2.swf"
    '    ShockwaveFlash1.Movie = RUTA + "aplausoMODI.swf"
    '    az = az + 1
    'End If
    'ShockwaveFlash1.Loop = True
    'ShockwaveFlash1.Movie = ""
    
    Dim Mensa As String
    
    'Muestra la indicacion de la practica actual
    Label1.BackColor = RGB(20, 30, 40)
    Select Case t
        Case 1: Mensa = "Lee el siguiente Cuento..."
            ShockwaveFlash1.GotoFrame (1)
            'ShockwaveFlash1.StopPlay
        
        Case 2: Mensa = "Ahora.. responde a estas preguntas acerca del cuento."
            ShockwaveFlash1.GotoFrame (2)
            ShockwaveFlash1.Play
        Case 5: Mensa = "Observa detenidamente la imagen siguiente."
        Case 6: Mensa = "Ahora.. responde a estas preguntas acerca de la imagen."
        
        
        Case 10: Mensa = "Lee la Oracion y marca el dibujo correcto"
        
        Case 20: Mensa = "Lee cada frase de la Oracion"
        Case 21: Mensa = "Ahora, lee estas frases y arrastra solo las que describe la oracion anterior"
        
        
        Case 50:
            ShockwaveFlash1.Movie = RUTA + "felicitacion.swf"
            ShockwaveFlash1.Play
            'ShockwaveFlash1.StopPlay
        
        Case 501: 'Solo para modulo: lectura inferencial
            WebBrowser1.Visible = True
            ShockwaveFlash1.Movie = RUTA + "felicitacion.swf"
            ShockwaveFlash1.Play
            ShockwaveFlash1.Loop = False
            
            
        Case 52:
            ShockwaveFlash1.Movie = RUTA + "aplauso1.swf"
            ShockwaveFlash1.Play
        
        Case 55: 'cuando se equivoca
            ShockwaveFlash1.Movie = RUTA + "Fallaste1.swf"
            ShockwaveFlash1.Play
        Case 505: 'Solo para modulo: lectura inferencial
            ShockwaveFlash1.Movie = RUTA + "Fallaste1.swf"
            ShockwaveFlash1.Play
            ShockwaveFlash1.Loop = False
        
        Case 99:
            ShockwaveFlash1.Movie = RUTA + "despedida1.swf"
            ShockwaveFlash1.Play
            ShockwaveFlash1.Loop = False
        
    End Select
    'ShockwaveFlash1.Loop = False
    
    'Label1.Caption = Mensa
End Sub

