گفتگو آزاد | نسخه 470 - Ww III - نسخه‌ی قابل چاپ

کد php:

Sub CreatePiagetPresentation()

    ' ایجاد پاورپوینت و ارائه جدید
    Dim ppApp As Object
    Dim ppPres As Object
    Dim slideIndex As Integer
    Dim slide As Object

    On Error Resume Next
    Set ppApp = GetObject(, "PowerPoint.Application")
    If ppApp Is Nothing Then Set ppApp = CreateObject("PowerPoint.Application")
    On Error GoTo 0

    ppApp.Visible = True
    Set ppPres = ppApp.Presentations.Add

    ' --- محتوای اسلایدها ---
    Dim Titles As Variant
    Dim Contents As Variant

    Titles = Array( _
        "اصول کلیدی پیاژه در طراحی آموزشی", _
        "1. مقدمه‌ای بر نظریه پیاژه", _
        "2. مفهوم رشد شناختی", _
        "3. مراحل رشد شناختی کودک", _
        "4. مرحله حسی-حرکتی", _
        "5. مرحله پیش‌عملیاتی", _
        "6. مرحله عملیات عینی", _
        "7. مرحله عملیات صوری", _
        "8. نقش تعامل در یادگیری", _
        "9. مفهوم سازگاری (Assimilation و Accommodation)", _
        "10. کاربرد نظریه پیاژه در طراحی آموزشی", _
        "11. نتیجه‌گیری و پیامدهای آموزشی" _
    )

    Contents = Array( _
        "ژان پیاژه از برجسته‌ترین روان‌شناسان رشد است که نظریه‌اش بر فرایندهای شناختی و چگونگی یادگیری کودکان تمرکز دارد. نظریه او تأکید دارد که یادگیری نتیجه تعامل فعال کودک با محیط است.", _
        "پیاژه معتقد بود یادگیری زمانی اتفاق می‌افتد که فرد خود تجربه کند و از طریق اکتشاف به درک مفاهیم برسد. در طراحی آموزشی، شناخت نحوه تفکر و رشد ذهنی کودک اهمیت ویژه‌ای دارد.", _
        "پیاژه رشد شناختی را در چهار مرحله توصیف می‌کند که هر مرحله ساختار ذهنی متفاوتی دارد و کودک از طریق آن واقعیت را درک می‌کند.", _
        "در این مرحله (از تولد تا حدود ۲ سالگی)، کودک از طریق حواس و حرکت با محیط ارتباط برقرار می‌کند. درک پایداری شیء در این دوره شکل می‌گیرد.", _
        "در این مرحله (۲ تا ۷ سالگی)، کودک از زبان و نمادها استفاده می‌کند، اما هنوز توانایی منطق انتزاعی ندارد. آموزش باید با تصاویر و بازی‌های نمادین همراه باشد.", _
        "در این مرحله (۷ تا ۱۱ سالگی)، کودک توانایی تفکر منطقی درباره اشیای ملموس را پیدا می‌کند. فعالیت‌های آموزشی باید عملی و مبتنی بر تجربه واقعی باشند.", _
        "در این مرحله (از حدود ۱۲ سالگی به بعد)، فرد قادر به تفکر انتزاعی، فرضیه‌سازی و استدلال منطقی می‌شود. آموزش می‌تواند شامل مسائل نظری و تفکر فرضی باشد.", _
        "پیاژه تأکید داشت که یادگیری از طریق تعامل اجتماعی و تجربه‌های فعال شکل می‌گیرد، نه از طریق دریافت منفعل اطلاعات.", _
        "دو فرایند کلیدی در یادگیری از دید پیاژه: «درون‌سازی (Assimilation)» یعنی جذب تجربیات جدید در ساختارهای ذهنی قبلی، و «برون‌سازی (Accommodation)» یعنی تغییر ساختار ذهنی برای درک تجربه جدید.", _
        "طراحان آموزشی باید فعالیت‌هایی فراهم کنند که فراگیر را به کشف، سؤال‌کردن و حل مسئله ترغیب کند. محتوای آموزشی باید با مرحله شناختی فراگیر سازگار باشد.", _
        "نظریه پیاژه یادآور می‌شود که آموزش باید فعال، اکتشافی و متناسب با سطح رشد شناختی فراگیران باشد. معلم نقش راهنما دارد، نه انتقال‌دهنده صرف دانش." _
    )

    ' --- ایجاد اسلایدها ---
    For slideIndex = LBound(Titles) To UBound(Titles)
        Set slide = ppPres.Slides.Add(slideIndex + 1, 1)
        slide.Shapes.Title.TextFrame.TextRange.Text = Titles(slideIndex)
        slide.Shapes.Placeholders(2).TextFrame.TextRange.Text = Contents(slideIndex)
    Next slideIndex

    ' نمایش ارائه
    ppApp.ActivePresentation.SlideShowSettings.Run

End Sub

کد php:

Sub CreatePiagetPresentation()

    ' Create PowerPoint and new presentation
    Dim ppApp As Object
    Dim ppPres As Object
    Dim slideIndex As Integer
    Dim slide As Object

    On Error Resume Next
    Set ppApp = GetObject(, "PowerPoint.Application")
    If ppApp Is Nothing Then Set ppApp = CreateObject("PowerPoint.Application")
    On Error GoTo 0

    ppApp.Visible = True
    Set ppPres = ppApp.Presentations.Add

    ' --- Slide Titles and Content ---
    Dim Titles As Variant
    Dim Contents As Variant

    Titles = Array( _
        "Piaget’s Key Principles in Instructional Design", _
        "1. Introduction to Piaget’s Theory", _
        "2. Concept of Cognitive Development", _
        "3. Stages of Cognitive Development", _
        "4. Sensorimotor Stage", _
        "5. Preoperational Stage", _
        "6. Concrete Operational Stage", _
        "7. Formal Operational Stage", _
        "8. The Role of Interaction in Learning", _
        "9. Assimilation and Accommodation", _
        "10. Applying Piaget’s Theory in Instructional Design", _
        "11. Conclusion and Educational Implications" _
    )

    Contents = Array( _
        "Jean Piaget was one of the most influential psychologists in the study of child development. His theory emphasizes that learning occurs through active interaction between the learner and the environment.", _
        "Piaget believed that real learning happens when the learner experiences, explores, and constructs understanding independently. Understanding how children think is essential for effective instructional design.", _
        "Piaget identified four stages of cognitive development. Each stage represents a new way of thinking and understanding the world.", _
        "From birth to about 2 years. Children learn through sensory experience and movement. The concept of object permanence develops in this stage.", _
        "From 2 to 7 years. Children begin to use language and symbols but lack logical thinking. Teaching should use images, games, and concrete examples.", _
        "From 7 to 11 years. Logical thinking about concrete objects develops. Teaching should include hands-on and practical experiences.", _
        "From around 12 years and up. Learners can think abstractly, form hypotheses, and reason logically. Instruction may include problem solving and theoretical discussions.", _
        "Piaget emphasized that learning results from active interaction with the environment, not from passive reception of information.", _
        "Two key processes: Assimilation (integrating new information into existing mental structures) and Accommodation (modifying structures to fit new information).", _
        "Instructional designers should create activities that promote exploration, questioning, and discovery. Learning content must fit the learner’s cognitive stage.", _
        "Piaget’s theory highlights that learning should be active, discovery-based, and developmentally appropriate. The teacher acts as a guide, not merely an information source." _
    )

    ' --- Create Slides ---
    For slideIndex = LBound(Titles) To UBound(Titles)
        Set slide = ppPres.Slides.Add(slideIndex + 1, 1)
        slide.Shapes.Title.TextFrame.TextRange.Text = Titles(slideIndex)
        slide.Shapes.Placeholders(2).TextFrame.TextRange.Text = Contents(slideIndex)
    Next slideIndex

    ' Show presentation
    ppApp.ActivePresentation.SlideShowSettings.Run

End Sub