[Kirsteen Nakau]

18/09/2013 at 11:33 am

I have never added a script into a powerpoint before as required for the kiosk task, can anyone help with this. Although the task comes with sample coding, I have used this but do not seem to get it to do anything. Do not see how the sample code displays the results. Are the pupils expected to add the code or just simply write how they would alter the code for the different slide? It would make sense to add it to their work.
I know that they can make it as a website but would like to learn how to set it up in powerpoint.
Thanks
In advance
Kirsteen

[Ray Krachan]

19/09/2013 at 8:46 am

They are only expected to rewrite the code in Step 3. It’s fairly simple. Slide 13 gets changed to slide 15 to accommodate the reading selection. Providing that your pupils have reading on their slide 15. Some of my pupils have reading on another ‘slide’, and rewrote the code accordingly.

[Kirsteen Nakau]

19/09/2013 at 9:25 am

Thanks..I would still like to be able to get it to work though 🙂

[Lee Murray]

19/09/2013 at 9:46 am

The code provided doesn’t seem to do anything. I couldn’t even mess about with it to get it to work. I had to create a completely different script:

Dim choices(7) As Integer

Sub OnSlideShowPageChange(ByVal ssw As SlideShowWindow)

Select Case ssw.View.CurrentShowPosition
Case 1
MsgBox (“Rugby/Hockey: ” & choices(0) & vbCrLf _
& “Basketball/Netball: ” & choices(1) & vbCrLf _
& “Orienteering/Tennis: ” & choices(2) & vbCrLf _
& “Badminton/Table tennis: ” & choices(3) & vbCrLf _
& “Chess/Bridge/Scrabble: ” & choices(4) & vbCrLf _
& “Debating: ” & choices(5) & vbCrLf _
& “Crafts/Hobbies: ” & choices(6) & vbCrLf _
& “Reading: ” & choices(7) & vbCrLf)
Case 8
choices(0) = choices(0) + 1
Case 9
choices(1) = choices(1) + 1
Case 10
choices(2) = choices(2) + 1
Case 11
choices(3) = choices(3) + 1
Case 12
choices(4) = choices(4) + 1
Case 13
choices(5) = choices(5) + 1
Case 14
choices(6) = choices(6) + 1
Case 15
choices(7) = choices(7) + 1
End Select

End Sub