[es] - [VBA] PowerPoint 2007 i izrada kviza sa obaveštenjem o postignutom rezultatu

KimiSombor
Miloš Delibašić
Učenik
Sombor, Srbija

Član broj: 281236
Poruke: 3
*.dynamic.sbb.rs.

Profil

[VBA] PowerPoint 2007 i izrada kviza sa obaveštenjem o postignutom rezultatu

^{08.03.2011. u 14:37 - pre 159 meseci}

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

Odgovor na temu

3okc
Χoᴘᴦoѡ

Moderator
Član broj: 811
Poruke: 1319

Jabber: 3okc@elitesecurity.org

+116 Profil

Re: [VBA] PowerPoint 2007 i izrada kviza sa obaveštenjem o postignutom rezultatu

^{08.03.2011. u 17:32 - pre 159 meseci}

http://lmgtfy.com/?q=quiz+example+in+powerpoint

Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!

Odgovor na temu

KimiSombor
Miloš Delibašić
Učenik
Sombor, Srbija

Član broj: 281236
Poruke: 3
*.dynamic.sbb.rs.

Profil

Re: [VBA] PowerPoint 2007 i izrada kviza sa obaveštenjem o postignutom rezultatu

^{09.03.2011. u 16:24 - pre 159 meseci}

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

Odgovor na temu

KimiSombor
Miloš Delibašić
Učenik
Sombor, Srbija

Član broj: 281236
Poruke: 3
*.dynamic.sbb.rs.

Profil

Re: [VBA] PowerPoint 2007 i izrada kviza sa obaveštenjem o postignutom rezultatu

^{09.03.2011. u 16:26 - pre 159 meseci}

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

Odgovor na temu