From f2cacd592d7cbdeb59457b35ad998b17cc84ed74 Mon Sep 17 00:00:00 2001 From: Syndamia Date: Thu, 5 Dec 2019 18:07:16 +0200 Subject: Updated the presentation Music files were added (by Mariyan) and changed feature, when you use fifty fifty life line, the answers that are eliminated turn invisible, rather than becoming disabled. --- .../Extracted code/Slide17.cls | 28 +++++++++++++++++---- .../Extracted code/Slide2.cls | 1 - .../Extracted code/Slide3.cls | 24 +++++++++++++++--- ...0\321\204\321\200\320\270\320\272\320\260.pptm" | Bin 4412519 -> 0 bytes ...0\321\204\321\200\320\270\320\272\320\260.pptm" | Bin 0 -> 86699283 bytes 5 files changed, 43 insertions(+), 10 deletions(-) delete mode 100644 "Who wants to become a millionare - Africa (BG)/\320\241\321\202\320\260\320\275\320\270 \320\221\320\276\320\263\320\260\321\202 - \320\220\321\204\321\200\320\270\320\272\320\260.pptm" create mode 100644 "Who wants to become a millionare - Africa (BG)/\320\241\321\202\320\260\320\275\320\270-\320\221\320\276\320\263\320\260\321\202-\320\220\321\204\321\200\320\270\320\272\320\260.pptm" diff --git a/Who wants to become a millionare - Africa (BG)/Extracted code/Slide17.cls b/Who wants to become a millionare - Africa (BG)/Extracted code/Slide17.cls index 10ca09c..83d8f7d 100644 --- a/Who wants to become a millionare - Africa (BG)/Extracted code/Slide17.cls +++ b/Who wants to become a millionare - Africa (BG)/Extracted code/Slide17.cls @@ -7,7 +7,6 @@ Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = True - Dim correctAns As Boolean Const currQuestion As Integer = 15 @@ -61,9 +60,9 @@ Dim keepWrong As String, currCorrect As String keepWrong = Slide2.GetWrongAnsToKeep(currQuestion) currCorrect = Slide2.GetCorrAnswer(currQuestion) -EnableAnswer "All", False -EnableAnswer keepWrong, True -EnableAnswer currCorrect, True +VisibleAnswer "All", False +VisibleAnswer keepWrong, True +VisibleAnswer currCorrect, True End Sub @@ -168,6 +167,22 @@ End Select End Sub +Private Sub VisibleAnswer(answer As String, isVisible As Boolean) + +Select Case answer + Case "A": cmdAnswerA.Visible = isVisible + Case "B": cmdAnswerB.Visible = isVisible + Case "C": cmdAnswerC.Visible = isVisible + Case "D": cmdAnswerD.Visible = isVisible + Case "All": + VisibleAnswer "A", isVisible + VisibleAnswer "B", isVisible + VisibleAnswer "C", isVisible + VisibleAnswer "D", isVisible +End Select + +End Sub + 'Public methods Public Sub DisabledLifeLine(lifeLineName As String, isDisabled As Boolean) @@ -182,7 +197,6 @@ End Sub Public Sub DisabledAllLifeLines(areDisabled As Boolean) - DisabledLifeLine "FiftyFifty", areDisabled DisabledLifeLine "PhoneFriend", areDisabled DisabledLifeLine "AskAudience", areDisabled @@ -196,6 +210,7 @@ correctAns = False DisabledAllLifeLines False cmdGiveUp.Enabled = True EnableAnswer "All", True +VisibleAnswer "All", True ColorAllAnswers "Black" @@ -211,3 +226,6 @@ End Property 'Kamen Mladenov 2019 +Private Sub imgFriendMsg_Click() + +End Sub diff --git a/Who wants to become a millionare - Africa (BG)/Extracted code/Slide2.cls b/Who wants to become a millionare - Africa (BG)/Extracted code/Slide2.cls index 32a5d00..dbe35c6 100644 --- a/Who wants to become a millionare - Africa (BG)/Extracted code/Slide2.cls +++ b/Who wants to become a millionare - Africa (BG)/Extracted code/Slide2.cls @@ -7,7 +7,6 @@ Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = True - Const corrAns1 As String = "B" Const corrAns2 As String = "D" Const corrAns3 As String = "B" diff --git a/Who wants to become a millionare - Africa (BG)/Extracted code/Slide3.cls b/Who wants to become a millionare - Africa (BG)/Extracted code/Slide3.cls index 1f70d63..2778d91 100644 --- a/Who wants to become a millionare - Africa (BG)/Extracted code/Slide3.cls +++ b/Who wants to become a millionare - Africa (BG)/Extracted code/Slide3.cls @@ -60,9 +60,9 @@ Dim keepWrong As String, currCorrect As String keepWrong = Slide2.GetWrongAnsToKeep(currQuestion) currCorrect = Slide2.GetCorrAnswer(currQuestion) -EnableAnswer "All", False -EnableAnswer keepWrong, True -EnableAnswer currCorrect, True +VisibleAnswer "All", False +VisibleAnswer keepWrong, True +VisibleAnswer currCorrect, True End Sub @@ -167,6 +167,22 @@ End Select End Sub +Private Sub VisibleAnswer(answer As String, isVisible As Boolean) + +Select Case answer + Case "A": cmdAnswerA.Visible = isVisible + Case "B": cmdAnswerB.Visible = isVisible + Case "C": cmdAnswerC.Visible = isVisible + Case "D": cmdAnswerD.Visible = isVisible + Case "All": + VisibleAnswer "A", isVisible + VisibleAnswer "B", isVisible + VisibleAnswer "C", isVisible + VisibleAnswer "D", isVisible +End Select + +End Sub + 'Public methods Public Sub DisabledLifeLine(lifeLineName As String, isDisabled As Boolean) @@ -181,7 +197,6 @@ End Sub Public Sub DisabledAllLifeLines(areDisabled As Boolean) - DisabledLifeLine "FiftyFifty", areDisabled DisabledLifeLine "PhoneFriend", areDisabled DisabledLifeLine "AskAudience", areDisabled @@ -195,6 +210,7 @@ correctAns = False DisabledAllLifeLines False cmdGiveUp.Enabled = True EnableAnswer "All", True +VisibleAnswer "All", True ColorAllAnswers "Black" diff --git "a/Who wants to become a millionare - Africa (BG)/\320\241\321\202\320\260\320\275\320\270 \320\221\320\276\320\263\320\260\321\202 - \320\220\321\204\321\200\320\270\320\272\320\260.pptm" "b/Who wants to become a millionare - Africa (BG)/\320\241\321\202\320\260\320\275\320\270 \320\221\320\276\320\263\320\260\321\202 - \320\220\321\204\321\200\320\270\320\272\320\260.pptm" deleted file mode 100644 index 239e7d8..0000000 Binary files "a/Who wants to become a millionare - Africa (BG)/\320\241\321\202\320\260\320\275\320\270 \320\221\320\276\320\263\320\260\321\202 - \320\220\321\204\321\200\320\270\320\272\320\260.pptm" and /dev/null differ diff --git "a/Who wants to become a millionare - Africa (BG)/\320\241\321\202\320\260\320\275\320\270-\320\221\320\276\320\263\320\260\321\202-\320\220\321\204\321\200\320\270\320\272\320\260.pptm" "b/Who wants to become a millionare - Africa (BG)/\320\241\321\202\320\260\320\275\320\270-\320\221\320\276\320\263\320\260\321\202-\320\220\321\204\321\200\320\270\320\272\320\260.pptm" new file mode 100644 index 0000000..74c2485 Binary files /dev/null and "b/Who wants to become a millionare - Africa (BG)/\320\241\321\202\320\260\320\275\320\270-\320\221\320\276\320\263\320\260\321\202-\320\220\321\204\321\200\320\270\320\272\320\260.pptm" differ -- cgit v1.2.3