EMS441_A2_Gantt_vbscript.ipynb

{
  "nbformat": 4,
  "nbformat_minor": 0,
  "metadata": {
    "colab": {
      "provenance": [],
      "authorship_tag": "ABX9TyPRiDu5y60+1Ig8NTvdTn7Q",
      "include_colab_link": true
    },
    "kernelspec": {
      "name": "python3",
      "display_name": "Python 3"
    },
    "language_info": {
      "name": "python"
    }
  },
  "cells": [
    {
      "cell_type": "markdown",
      "metadata": {
        "id": "view-in-github",
        "colab_type": "text"
      },
      "source": [
        "<a href=\"https://colab.research.google.com/github/walkerjian/Physics/blob/main/EMS441_A2_Gantt_vbscript.ipynb\" target=\"_parent\"><img src=\"https://colab.research.google.com/assets/colab-badge.svg\" alt=\"Open In Colab\"/></a>"
      ]
    },
    {
      "cell_type": "markdown",
      "source": [
        "### VBScript Code with User-Defined Start Date\n",
        "\n",
        "```vbscript\n",
        "Sub CreateGanttChart()\n",
        "    ' Prompt for the start date\n",
        "    Dim startDate\n",
        "    startDate = InputBox(\"Enter the start date (YYYY-MM-DD):\", \"Start Date\")\n",
        "    \n",
        "    ' Check if the input is valid\n",
        "    If IsDate(startDate) Then\n",
        "        startDate = CDate(startDate)\n",
        "    Else\n",
        "        MsgBox \"Invalid date format. Please enter the date in YYYY-MM-DD format.\", vbCritical\n",
        "        Exit Sub\n",
        "    End If\n",
        "\n",
        "    Dim proj As Object\n",
        "    Set proj = CreateObject(\"MSProject.Application\")\n",
        "    proj.Visible = True\n",
        "    proj.FileNew\n",
        "    \n",
        "    Dim task As Object\n",
        "    Dim taskStart As Date\n",
        "    Dim offset As Integer\n",
        "\n",
        "    ' Week 1\n",
        "    taskStart = startDate\n",
        "    Set task = proj.ActiveProject.Tasks.Add(\"Week 1: Introduction to Rocketry and Formulating Hypotheses\")\n",
        "    task.Start = taskStart\n",
        "    task.Duration = \"5 days\"\n",
        "    \n",
        "    ' Week 1 Subtasks\n",
        "    offset = 0\n",
        "    Set task = proj.ActiveProject.Tasks.Add(\"Theory Lesson\")\n",
        "    task.Start = DateAdd(\"d\", offset, taskStart)\n",
        "    task.Duration = \"1 day\"\n",
        "    task.OutlineLevel = 2\n",
        "    \n",
        "    offset = 1\n",
        "    Set task = proj.ActiveProject.Tasks.Add(\"Modeling the Theory (Lab Book Scaffold)\")\n",
        "    task.Start = DateAdd(\"d\", offset, taskStart)\n",
        "    task.Duration = \"1 day\"\n",
        "    task.OutlineLevel = 2\n",
        "    \n",
        "    offset = 2\n",
        "    Set task = proj.ActiveProject.Tasks.Add(\"Laboratory Lesson\")\n",
        "    task.Start = DateAdd(\"d\", offset, taskStart)\n",
        "    task.Duration = \"1 day\"\n",
        "    task.OutlineLevel = 2\n",
        "    \n",
        "    offset = 3\n",
        "    Set task = proj.ActiveProject.Tasks.Add(\"Reflection/Assessment\")\n",
        "    task.Start = DateAdd(\"d\", offset, taskStart)\n",
        "    task.Duration = \"0.5 days\"\n",
        "    task.OutlineLevel = 2\n",
        "\n",
        "    ' Week 2\n",
        "    taskStart = DateAdd(\"d\", 7, startDate)\n",
        "    Set task = proj.ActiveProject.Tasks.Add(\"Week 2: Designing and Planning the Experiment\")\n",
        "    task.Start = taskStart\n",
        "    task.Duration = \"5 days\"\n",
        "    \n",
        "    ' Week 2 Subtasks\n",
        "    offset = 0\n",
        "    Set task = proj.ActiveProject.Tasks.Add(\"Theory Lesson\")\n",
        "    task.Start = DateAdd(\"d\", offset, taskStart)\n",
        "    task.Duration = \"1 day\"\n",
        "    task.OutlineLevel = 2\n",
        "    \n",
        "    offset = 1\n",
        "    Set task = proj.ActiveProject.Tasks.Add(\"Modeling the Theory (Lab Book Scaffold)\")\n",
        "    task.Start = DateAdd(\"d\", offset, taskStart)\n",
        "    task.Duration = \"1 day\"\n",
        "    task.OutlineLevel = 2\n",
        "    \n",
        "    offset = 2\n",
        "    Set task = proj.ActiveProject.Tasks.Add(\"Laboratory Lesson\")\n",
        "    task.Start = DateAdd(\"d\", offset, taskStart)\n",
        "    task.Duration = \"1 day\"\n",
        "    task.OutlineLevel = 2\n",
        "    \n",
        "    offset = 3\n",
        "    Set task = proj.ActiveProject.Tasks.Add(\"Reflection/Assessment\")\n",
        "    task.Start = DateAdd(\"d\", offset, taskStart)\n",
        "    task.Duration = \"0.5 days\"\n",
        "    task.OutlineLevel = 2\n",
        "\n",
        "    ' Week 3\n",
        "    taskStart = DateAdd(\"d\", 14, startDate)\n",
        "    Set task = proj.ActiveProject.Tasks.Add(\"Week 3: Conducting the Experiments\")\n",
        "    task.Start = taskStart\n",
        "    task.Duration = \"5 days\"\n",
        "    \n",
        "    ' Week 3 Subtasks\n",
        "    offset = 0\n",
        "    Set task = proj.ActiveProject.Tasks.Add(\"Theory Lesson\")\n",
        "    task.Start = DateAdd(\"d\", offset, taskStart)\n",
        "    task.Duration = \"1 day\"\n",
        "    task.OutlineLevel = 2\n",
        "    \n",
        "    offset = 1\n",
        "    Set task = proj.ActiveProject.Tasks.Add(\"Modeling the Theory (Lab Book Scaffold)\")\n",
        "    task.Start = DateAdd(\"d\", offset, taskStart)\n",
        "    task.Duration = \"1 day\"\n",
        "    task.OutlineLevel = 2\n",
        "    \n",
        "    offset = 2\n",
        "    Set task = proj.ActiveProject.Tasks.Add(\"Laboratory Lesson\")\n",
        "    task.Start = DateAdd(\"d\", offset, taskStart)\n",
        "    task.Duration = \"1 day\"\n",
        "    task.OutlineLevel = 2\n",
        "    \n",
        "    offset = 3\n",
        "    Set task = proj.ActiveProject.Tasks.Add(\"Reflection/Assessment\")\n",
        "    task.Start = DateAdd(\"d\", offset, taskStart)\n",
        "    task.Duration = \"0.5 days\"\n",
        "    task.OutlineLevel = 2\n",
        "\n",
        "    ' Week 4\n",
        "    taskStart = DateAdd(\"d\", 21, startDate)\n",
        "    Set task = proj.ActiveProject.Tasks.Add(\"Week 4: Analyzing Data and Refining the Experiment\")\n",
        "    task.Start = taskStart\n",
        "    task.Duration = \"5 days\"\n",
        "    \n",
        "    ' Week 4 Subtasks\n",
        "    offset = 0\n",
        "    Set task = proj.ActiveProject.Tasks.Add(\"Theory Lesson\")\n",
        "    task.Start = DateAdd(\"d\", offset, taskStart)\n",
        "    task.Duration = \"1 day\"\n",
        "    task.OutlineLevel = 2\n",
        "    \n",
        "    offset = 1\n",
        "    Set task = proj.ActiveProject.Tasks.Add(\"Modeling the Theory (Lab Book Scaffold)\")\n",
        "    task.Start = DateAdd(\"d\", offset, taskStart)\n",
        "    task.Duration = \"1 day\"\n",
        "    task.OutlineLevel = 2\n",
        "    \n",
        "    offset = 2\n",
        "    Set task = proj.ActiveProject.Tasks.Add(\"Laboratory Lesson\")\n",
        "    task.Start = DateAdd(\"d\", offset, taskStart)\n",
        "    task.Duration = \"1 day\"\n",
        "    task.OutlineLevel = 2\n",
        "    \n",
        "    offset = 3\n",
        "    Set task = proj.ActiveProject.Tasks.Add(\"Reflection/Assessment\")\n",
        "    task.Start = DateAdd(\"d\", offset, taskStart)\n",
        "    task.Duration = \"0.5 days\"\n",
        "    task.OutlineLevel = 2\n",
        "\n",
        "    ' Week 5\n",
        "    taskStart = DateAdd(\"d\", 28, startDate)\n",
        "    Set task = proj.ActiveProject.Tasks.Add(\"Week 5: Finalizing the Report and Presentation\")\n",
        "    task.Start = taskStart\n",
        "    task.Duration = \"5 days\"\n",
        "    \n",
        "    ' Week 5 Subtasks\n",
        "    offset = 0\n",
        "    Set task = proj.ActiveProject.Tasks.Add(\"Theory Lesson\")\n",
        "    task.Start = DateAdd(\"d\", offset, taskStart)\n",
        "    task.Duration = \"1 day\"\n",
        "    task.OutlineLevel = 2\n",
        "    \n",
        "    offset = 1\n",
        "    Set task = proj.ActiveProject.Tasks.Add(\"Modeling the Theory (Lab Book Scaffold)\")\n",
        "    task.Start = DateAdd(\"d\", offset, taskStart)\n",
        "    task.Duration = \"1 day\"\n",
        "    task.OutlineLevel = 2\n",
        "    \n",
        "    offset = 2\n",
        "    Set task = proj.ActiveProject.Tasks.Add(\"Laboratory Lesson\")\n",
        "    task.Start = DateAdd(\"d\", offset, taskStart)\n",
        "    task.Duration = \"1 day\"\n",
        "    task.OutlineLevel = 2\n",
        "    \n",
        "    offset = 3\n",
        "    Set task = proj.ActiveProject.Tasks.Add(\"Reflection/Assessment\")\n",
        "    task.Start = DateAdd(\"d\", offset, taskStart)\n",
        "    task.Duration = \"1 day\"\n",
        "    task.OutlineLevel = 2\n",
        "\n",
        "    ' Save the project\n",
        "    proj.FileSaveAs Name:=\"UnitOfWorkGanttChart.mpp\"\n",
        "    proj.Quit\n",
        "End Sub\n",
        "\n",
        "CreateGanttChart\n",
        "```\n",
        "\n",
        "### How to Use the Updated Script:\n",
        "\n",
        "1. **Copy the VBScript code provided above.**\n",
        "2. **Open a text editor (e.g., Notepad) and paste the code into the editor.**\n",
        "3. **Save the file with a `.vbs` extension (e.g., `CreateGanttChart.vbs`).**\n",
        "4. **Double-click the `.vbs` file to run the script.**\n",
        "5. **A prompt will appear asking for the start date. Enter the date in `YYYY-MM-DD` format.**\n",
        "6. **Microsoft Project will open and generate a new project with the specified tasks and timelines based on the input start date.**\n",
        "7. **The project will be saved as `UnitOfWorkGanttChart.mpp` in your default save location for Microsoft Project files.**\n",
        "\n",
        "This updated script allows you to input a start date, and all subsequent dates will be calculated relative to this start date. If you need any further customization or have any questions, feel free to ask!"
      ],
      "metadata": {
        "id": "LvjXtHrM0rle"
      }
    },
    {
      "cell_type": "code",
      "execution_count": null,
      "metadata": {
        "id": "tcY_s3lQ0q9T"
      },
      "outputs": [],
      "source": []
    }
  ]
}