none
Doble condición RRS feed

  • Pregunta

  • Buenas, estaba programando en PowerPoint, con el fin de crear un minijuego. Si el concursante selecciona la respuesta correcta, se le suma un punto a su equipo (Equipo A), sin embargo, si no sabe la respuesta, tiene la opción de seleccionar un comodín el cual hace que la pregunta pase al otro equipo, haciendo que si este la acierta, se le suma un punto a su equipo (Equipo B). Para indicar que el Equipo A, pasa la pregunta al Equipo B, tiene que dar un clic a un objeta de la diapositiva, mi problema radica en que no toma bien las instrucciones de que si le hace clic en el botón de pasar pregunta (Grafico22) y luego a la respuesta correcta le sume los puntos al equipo contrario, se lo suma al propio equipo.

    Adjunto el código.

    +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-

    Public puntosA, puntosB As Integer

    Sub Main()

    End Sub

    Sub Juego(oShp As Shape)

    If (Application.SlideShowWindows(1).View.Slide.SlideNumber = "2") Then puntosA = 0
    If (Application.SlideShowWindows(1).View.Slide.SlideNumber = "2") Then puntosB = 0
        
    If (Application.SlideShowWindows(1).View.Slide.SlideNumber = "2" And oShp.Name = "correcta") Then
        puntosA = puntosA + 1
        
    Else: Application.SlideShowWindows(1).View.Slide.SlideNumber = "2" And oShp.Name = "Grafico22" And puntosB = puntosB + 1

    End If

    If (Application.SlideShowWindows(1).View.Slide.SlideNumber = "3" And oShp.Name = "correcta") Then
        puntosB = puntosB + 1
        
    ElseIf (Application.SlideShowWindows(1).View.Slide.SlideNumber = "3" And oShp.Name = "Grafico22" And oShp.Name = "correcta") Then
        puntosA = puntosA + 1
        
    End If

    If (Application.SlideShowWindows(1).View.Slide.SlideNumber = "4" And oShp.Name = "correcta") Then
        puntosA = puntosA + 1
        
    ElseIf (Application.SlideShowWindows(1).View.Slide.SlideNumber = "4" And oShp.Name = "Grafico22" And oShp.Name = "correcta") Then
        puntosB = puntosB + 1
        
    End If

    ActivePresentation.Slides(5).Shapes("TotalA").TextFrame.TextRange.Text = puntosA
    ActivePresentation.Slides(5).Shapes("TotalB").TextFrame.TextRange.Text = puntosB

    End Sub

    miércoles, 23 de enero de 2019 10:41