[Impress] Exécution de type quiz ou questionnaire

[Dude]

Ce diaporama contient une macro "Jouer" permettant de l'exécuter en mode interactif.
Sauf à cliquer sur les hyperliens proposés, la progression ne peut plus se faire linéairement.

La macro lance une écoute (listener) sur les différents événements du mode diaporama.

Code : Tout sélectionner

Global oCtrl as object, nIndex%, bJoue as boolean

Sub Jouer
	sEcoute = "com.sun.star.presentation.XSlideShowListener"
	oDoc = ThisComponent
	oPresent = oDoc.getPresentation()
	oEcoute = createUnoListener("Show_",sEcoute)
	oPresent.Start
	oCtrl = oPresent.getController()
	oCtrl.addSlideShowListener(oEcoute)	
End Sub

Sub Show_slideTransitionStarted
	if bJoue then
		bJoue = false
		exit sub
	endif	
	i = oCtrl.GetCurrentSlideIndex()
	if i = nIndex then exit sub
	oCtrl.gotoSlideIndex(nIndex)
End Sub

Sub Show_slideTransitionEnded
End Sub

Sub Show_slideEnded()
	's'affiche à la fin de chaque diapo
	nIndex = oCtrl.GetCurrentSlideIndex()
	if nIndex+1 = oCtrl.Count then exit sub
	msgbox "Action interdite, choisissez un hyperlien !" 			
End Sub

Sub Show_disposing
End Sub

Sub Show_Paused
End Sub

Sub Show_Resumed
End Sub

Sub Show_slideAnimationsEnded
End Sub

Sub Show_hyperLinkClicked
	bJoue = true
End Sub

_quiz.odp

Vous en profiterez pour voter sur la demande d'amélioration 97349 qui réclame un mode kiosque (4 voix à ce jour) afin de restreindre l'usage des boutons de navigation.

[Gryfforgues]

Bonjour!
Merci pour cette macro que j'utiliserai pour créer de petits jeux pour ma classe.
J'ai voté pour la demande d'amélioration. Nous en sommes désormais à 7 votes

Je me permets de rajouter quelques infos pour pourraient être utiles pour ceux qui utiliseront cette macro. Elles ont été apportées par Jurassic Pork, dans cette discussion :
Pour tester le document proposé par Dude, il faut utiliser LibreOffice avec une interface en français.
Pour utiliser la macro sous Raspbian il faut rajouter une temporisation après le Start :

Code : Tout sélectionner

	oPresent.Start
       Wait(1000)
	oCtrl = oPresent.getController()

Bonne utilisation!

[Dude]

Pour utiliser la macro sous Raspbian il faut rajouter une temporisation après le Start

La macro est fonctionnelle avec les versions officielles. Sur les distros, 99 % des problèmes viennent d'une version issue de leurs dépôts.
Comme toujours, il faut détailler ce genre de configuration :

• version exacte de Raspbian
• environnement graphique utilisé
• mémoire paramétrée

Comme toujours et conformément au bandeau rouge en haut de la page, les questions doivent être postées dans la section Impress.