प्रदर्शन करने गणना

Question

मैं एक गणित अभ्यास powerpoint जहां छात्रों यादृच्छिक अलावा समस्याओं संख्या 1 उपयोग करने के साथ प्रस्तुत कर रहे हैं बनाने के लिए कोशिश कर रहा हूँ - 20. मैं ट्यूटोरियल के माध्यम से दाऊद Marcovtiz (और अन्य) से काम कर रहा है और के रूप में अपने कोड का उपयोग कर रहा था एक शुरुआती बिंदु मेरे दर्शक युवा छात्रों है के रूप में, मैं गणित की समस्याओं की तरह एक संदेश बॉक्स में लेकिन पाठ बॉक्स या कि मैं अनुकूलित और बड़े और नेत्रहीन युवा छात्रों के लिए अपील कर सकते हैं आकार की तरह कुछ में नहीं होगा।

तो, मुझे क्या करना ... एक powerpoint शो में इच्छुक हूँ

1. छात्र एक 'आरंभ' बटन है कि उन्हें अगली स्लाइड पर क्लिक कर सकते हैं लेता
2. अगली स्लाइड स्वचालित रूप से 2 उत्पन्न करता है यादृच्छिक संख्याएं कि छात्र को एक साथ जोड़ना चाहिए।
3. छात्र उत्तर में प्रवेश करता है
4. यदि उत्तर सही है - तो मुझे जवाब देने के लिए कुछ सही करना होगा, लेकिन कुछ ऐसा नहीं है जिसे उन्हें बंद करने के लिए क्लिक करना है। आदर्श रूप में, कोने में एक छोटा तारा चमक तो गायब हो जाता है

5. अगर जवाब गलत है, संदेश या चित्र चमक तो गायब हो जाता है।

6. एक नई अतिरिक्त समस्या स्वचालित रूप से/यादृच्छिक रूप से जेनरेट की गई मैं अतिरिक्त समस्याओं की संख्या सेट करना चाहता हूं उदा। 20, फिर स्लाइड को स्कोरिंग स्लाइड पर ले जाएं जो चित्रों में अपना स्कोर दिखाता है उदा। हर सही उत्तर के लिए एक सितारा।

अद्यतन: का उपयोग Activex पाठ बक्से:

मैं बेतरतीब ढंग से दो नंबर दिखाने के लिए और उन्हें गुणा है और एक तिहाई एक्टिवेक्स पाठ में जवाब दिखाने के लिए सक्षम किया जा रहा में एक्टिवेक्स पाठ बक्से के साथ सफलता मिली है बॉक्स, जिसे मैंने स्लाइड से छुपाया था। छात्रों के जवाब में टाइप करने के लिए मैंने इनपुट बॉक्स के रूप में चौथाई उपयोग किया। यदि यह तीसरे बॉक्स में उत्तर के समान है, तो मैं एक सितारा दिखा सकता हूं और बक्से साफ़ कर सकता हूं और फिर अगली स्लाइड पर जा सकता हूं। यदि यह वही नहीं है, तो मैं एक और तस्वीर दिखा सकता हूं और फिर अगली स्लाइड पर जा सकता हूं। (मैं मूल रूप से स्लाइड को अपडेट करना चाहता था और 20 प्रश्न पूछने के लिए एक स्लाइड का उपयोग करना चाहता था लेकिन यह मुश्किल लग रहा था।)

वर्तमान में, इसे तीन कमांड बटन पर क्लिक करने की आवश्यकता है।

मैं क्या कामयाब रहे अब तक (मैं जानता हूँ कि यह आप पर काफी दु: खी और संभवतः अस्थिर लग जाएगा, लेकिन मुझे और 'बिट्स' काम कर रहे हैं के लिए एक बड़ी उपलब्धि) मैं गुणन के लिए यह प्रबंधन कर सकते हैं लेकिन जब मैं + मूल्यों जैसे 9 + 3, मैं 93

Private Sub CommandButton1_Click() 
    TextBox1.Value = Int(10 * Rnd) 
    TextBox2.Value = Int(10 * Rnd) 
    TextBox3.Value = TextBox1.Value * TextBox2.Value 
End Sub 

Private Sub CommandButton2_Click() 
    If TextBox4.Value = TextBox3.Value Then 
     ActivePresentation.Slides("problem").Shapes("badge5").Visible = True 
     ActivePresentation.Slides("score").Shapes("badge5").Visible = True 
    Else 
     ActivePresentation.Slides("problem" _).Shapes("incorrect").Visible = True 

     TextBox1.Value = "" 
     TextBox2.Value = "" 
     TextBox3.Value = "" 
     TextBox4.Value = "" 
    End If 
End Sub 

Private Sub CommandButton3_Click() 
    SlideShowWindows(1).View.Next 
End Sub 

मिल मैं क्या जरूरत है

मैं आदेश बटन 1 में यादृच्छिक संख्या की तरह स्वचालित रूप से सक्रिय करने के लिए होगा।

मैं कमांड बटन 2 और 3 को गठबंधन करना चाहता हूं और अगली स्लाइड पर जाने से पहले स्टार या गलत आकार दिखाई देने के बाद प्रतीक्षा समय शामिल करना है, लेकिन जो कोड मैंने पाया है, पूरे अनुक्रम में प्रतीक्षा समय लागू होता है क्योंकि मैं हूं सुनिश्चित नहीं है कि इसे कैसे शामिल किया जाए।

Private Sub Time_Click() 
    iTime = 2# 
    Start = Timer 

    While Timer < Start + iTime 
    Wend 

    With SlideShowWindows(1).View.Next 
    End With 
End Sub 

का उपयोग करते हुए आकृतियाँ: मैं साधारण पाठ बॉक्स या आकार लेकिन साथ काम करने के ... पसंद करेंगे मैं आकार में यादृच्छिक संख्या का उत्पादन करने में कामयाब रहे लेकिन उनमें गुणा और छात्रों के लिए सक्षम किया गया है एक Activex टेक्स्ट बॉक्स में टाइप करें जो निर्धारित करता है कि यह अभी तक सही है या गलत है। मुझे लगता है कि समस्या दोनों आकार और एक सक्रिय टेक्स्टबॉक्स का उपयोग करने की कोशिश में है।

मैं आकार का उपयोग करना चाहता हूं क्योंकि मैं मास्टर स्लाइड लेआउट बनाना चाहता हूं जिसे निम्न कोड का उपयोग करके चुना जा सकता है - हालांकि यह एक सौदा ब्रेकर नहीं है।

Sub background() 
    ActivePresentation.Slides.Range(Array(2, 3, 4, 5)).CustomLayout_ 
    = ActivePresentation.Designs(1).SlideMaster.CustomLayouts(6) 
End Sub 

मुझे लगता है यह कुछ ऐसा है अन्य शिक्षकों का उपयोग करें और मेरी समाप्त शो पोस्ट करने के लिए अगर किसी को तैयार हैं और कोडिंग के साथ सहायता करने में सक्षम है खुश हूँ सकता है। मैं वास्तव में अपने जैसे लोगों को दिखाए गए योगदानकर्ताओं की सहिष्णुता और धैर्य की सराहना करता हूं जिन्होंने पहले सिर में कूद लिया, उत्साहित और इसे जाने दिया लेकिन संघर्ष कर रहा था।

Answer 1

तो, टुकड़े आप "क्या मैं की आवश्यकता है" खंड में अनुरोध किया तोड़ने के लिए, मैं अपने जवाब दो भागों में विभाजित होगा:

आदेश बटन 1 में यादृच्छिक संख्या

"मैं चाहते हैं स्वचालित रूप से सक्रिय करने के लिए । "

मुझे लगता है कि "स्वचालित रूप से" का मतलब क्या है कि आप पिछली स्लाइड पर प्रश्न का उत्तर देने के बाद "अगली" स्लाइड स्वचालित रूप से मूल्यों के साथ पॉप्युलेट करना चाहते हैं। इस कार्यक्षमता को पूरा करने के लिए, मैं उस विधि को कॉल करूंगा जो कमांडबटन 1 वर्तमान में कमांडबटन 2 में सभी तर्कों के बाद कॉल किया गया है।

"मैं आदेश बटन 2 और 3 को संयोजित करना और एक प्रतीक्षा समय स्टार या गलत आकार के बाद अगली स्लाइड पर जाने से पहले दिखाई देते हैं को शामिल किया जाएगा ..."

मैं बस के कोड गठबंधन होगा कोड के दो बिट्स के बीच एक प्रतीक्षा समारोह के साथ दो कार्य। मुझे यकीन नहीं है कि आपने "Timer_Click" फ़ंक्शन के लिए पोस्ट किया गया कोड कहां पाया, मुझे नहीं लगता कि वर्तमान में पोस्ट किया गया कार्य करेगा। मैं आमतौर पर इस answer में उल्लिखित "प्रतीक्षा" की विधि का उपयोग करता हूं।

परिणाम, दो नए आवश्यकताओं के लिए कोड बदलने के बाद कुछ इस तरह होगा:

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 

Public Sub CommandButton2_Click() 
    'Command Button 2(code) 
    If TextBox4.value = TextBox3.value Then 
     ActivePresentation.slides("problem").Shapes("badge5").visible = True 
     ActivePresentation.slides("score").Shapes("badge5").visible = True 
    Else 
     ActivePresentation.slides("problem").Shapes("incorrect").visible = True 

     TextBox1.value = "" 
     TextBox2.value = "" 
     TextBox3.value = "" 
     TextBox4.value = "" 
    End If 

    'Wait code here(1000ms) 
    Sleep 1000 

    'Command Button 3(code) 
    SlideShowWindows(1).View.Next 

    'Call the command for CommandButton1, 
    'this will "automatically" populate the slide with new values 
    CommandButton1_Click 
End Sub