[ KimiSombor @ 08.03.2011. 14:37 ] @
Moram da napravim neki kviz u PowerPoint-u 2007, pa me zanima sledeće :
primer pitanje
Izolatori imaju veliku električnu provodljivost
a) tačno
b) netačno
Npr staviću desetak pitanja, zanima me kako da stavim da računa bodove(ukoliko je tačan odgovor doda jedan bod, ukoliko nije onda ništa) i u poslednjem slajdu stavim da ispiše.
Znam jedan način, ali biće previše slajdova i previše posla,ako ima brži način neka kaže neko...

Nadam se da ste razumeli... Hvala unapred.. Hitno mi je potrebno
[ 3okc @ 08.03.2011. 17:32 ] @
http://lmgtfy.com/?q=quiz+example+in+powerpoint
[ KimiSombor @ 09.03.2011. 16:24 ] @
trazio bih ja na google, mada nisam imao vremena jer imam i da ucim za takmicenje iz informatike i za prijemni a i imali smo par kontrolnih,sam sam napravio makro, jer do sutra trebam da zavrsim....svejedno hvala
[ KimiSombor @ 09.03.2011. 16:26 ] @
Napravio sam kviz, ali ne znam kako da dodam rang listu? Ako neko zna nek pomogne, na google nisam nasao
makro za kviz
Code:
Dim ime As String
Dim tacniodgovori As Integer
Dim netacniodgovori As Integer
Sub vaseime()
ime = InputBox(Prompt:="Unesite Vase ime!")
MsgBox ime + ", dobrodosao/la na kviz o alternativnim izvorima energije "
ActivePresentation.SlideShowWindow.View.Next
End Sub
Sub tacno()
MsgBox ime + ", bravo, to je tacan odgovor! "
tacniodgovori = tacniodgovori + 1
ActivePresentation.SlideShowWindow.View.Next
End Sub
Sub netacno()
MsgBox ime + ", nazalost, to nije tacan odgovor! "
netacniodgovori = netacniodgovori + 1
ActivePresentation.SlideShowWindow.View.Next
End Sub
Sub pocetak()
tacniodgovori = 0
netacniodgovori = 0
ime
ActivePresentation.SlideShowWindow.View.Next
End Sub
Sub rezultati()
MsgBox ime + ", imas pogodjenih " & tacniodgovori & "  od  " & tacniodgovori + netacniodgovori & ""
End Sub
Sub rez()
ActivePresentation.SlideShowWindow.View.First
End Sub
Sub tacno1()
tacniodgovori = 0
netacniodgovori = 0
MsgBox ime + ", bravo, to je tacan odgovor! "
tacniodgovori = tacniodgovori + 1
ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub netacno1()
tacniodgovori = 0
netacniodgovori = 0
MsgBox ime + ", nazalost, to nije tacan odgovor! "
netacniodgovori = netacniodgovori + 1
ActivePresentation.SlideShowWindow.View.Next
End Sub

Hvala unapred