update,

it114105/others/ite3101/Assignemnt.swift

@@ -0,0 +1,57 @@
+import Foundation
+
+class Student{
+    var classId:String
+    var studentId:String
+    init(classId:String, studentId: String) {
+        self.classId = classId
+        self.studentId = studentId
+    }
+}
+
+var students = Array<Student>()
+let totalStudent = Int.random(in: 30...100)
+let totalClass: Int = Int(ceil((Double(totalStudent) / 30)))
+
+func generateStudentId() -> String{
+    let year = "20"
+    let campusCode = "03"
+    let randomDigit: Int = Int.random(in: 0...99999)
+    return year + campusCode + String(format: "%05d", randomDigit)
+}
+
+func checkDuplicate(studentId:String) -> Bool{
+    var duplicate = false
+        for student in students{
+            if student.studentId == studentId{
+                duplicate = true
+                break
+            }
+        }
+    return duplicate
+}
+
+var distriClass:Int = 1
+for count in 1...totalStudent{
+    var studentId: String
+    var student: Student
+
+    repeat{
+        studentId = generateStudentId()
+    }while checkDuplicate(studentId: studentId)
+
+    student = Student(classId:String(distriClass), studentId: studentId)
+    students.append(student)
+    if distriClass == totalClass {
+        distriClass = 0
+    }
+    distriClass += 1
+}
+
+print("Total Student: " + String(totalStudent))
+print("Total Class: " + String(totalClass))
+print("--------------------------------------------------------")
+
+for student in students{
+    print("Class: " + student.classId + ", Student ID: " + student.studentId)
+}

it114105/others/ite3101/README.md.original

@@ -0,0 +1,22 @@
+# ITE3101-EAAssignment
+IT114210 Multimedia and Virtual Reality - Introduction to Programming (SWIFT) - Exam Project
+
+
+- [x] The total number of each class must not greater than 30 students.
+- [x] The total number of new coming year’s students are randomly between 30 and 100
+- [x] Student ID cannot be duplicate.
+- [x] Student ID should follow this format: [Year (last 2 digit of the coming academic year) - Campus Code (2 digits) - Random 5 digits (5 digits)] 
+     Campus Code is “03”  
+- [x] Print out the list of the student as below:
+```
+Total Student: 51
+Total Class: 2
+-----------------------------------------
+Class: 1, Student ID: 200372486
+Class: 2, Student ID: 200350979
+Class: 1, Student ID: 200320439
+Class: 2, Student ID: 200310247
+...
+Class: 1, Student ID: 200341498
+Class: 2, Student ID: 200356316
+```

it114105/others/ite3711/README.md.original

@@ -0,0 +1,3 @@
+# module_grade
+ITE3711 Programming Concepts and Applications
+

it114105/others/ite3711/module_grade.sln

@@ -0,0 +1,25 @@
+
+Microsoft Visual Studio Solution File, Format Version 12.00
+# Visual Studio Version 16
+VisualStudioVersion = 16.0.30717.126
+MinimumVisualStudioVersion = 10.0.40219.1
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "module_grade", "module_grade\module_grade.vbproj", "{AB0AA53E-DAB3-4E06-9498-0D154B55A565}"
+EndProject
+Global
+	GlobalSection(SolutionConfigurationPlatforms) = preSolution
+		Debug|Any CPU = Debug|Any CPU
+		Release|Any CPU = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(ProjectConfigurationPlatforms) = postSolution
+		{AB0AA53E-DAB3-4E06-9498-0D154B55A565}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{AB0AA53E-DAB3-4E06-9498-0D154B55A565}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{AB0AA53E-DAB3-4E06-9498-0D154B55A565}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{AB0AA53E-DAB3-4E06-9498-0D154B55A565}.Release|Any CPU.Build.0 = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(SolutionProperties) = preSolution
+		HideSolutionNode = FALSE
+	EndGlobalSection
+	GlobalSection(ExtensibilityGlobals) = postSolution
+		SolutionGuid = {F21DB90C-DADB-43BA-87C0-64D8326F6884}
+	EndGlobalSection
+EndGlobal

it114105/others/ite3711/module_grade/ApplicationEvents.vb

@@ -0,0 +1,22 @@
+Imports Microsoft.VisualBasic.ApplicationServices
+
+Namespace My
+    ' The following events are available for MyApplication:
+    ' Startup: Raised when the application starts, before the startup form is created.
+    ' Shutdown: Raised after all application forms are closed.  This event is not raised if the application terminates abnormally.
+    ' UnhandledException: Raised if the application encounters an unhandled exception.
+    ' StartupNextInstance: Raised when launching a single-instance application and the application is already active. 
+    ' NetworkAvailabilityChanged: Raised when the network connection is connected or disconnected.
+
+    ' **NEW** ApplyHighDpiMode: Raised when the application queries the HighDpiMode to set it for the application.
+
+    ' Example:
+
+    ' Private Sub MyApplication_ApplyHighDpiMode(sender As Object, e As ApplyHighDpiModeEventArgs) Handles Me.ApplyHighDpiMode
+    '     e.HighDpiMode = HighDpiMode.PerMonitorV2
+    ' End Sub
+
+    Partial Friend Class MyApplication
+
+    End Class
+End Namespace

it114105/others/ite3711/module_grade/Form1.Designer.vb

@@ -0,0 +1,502 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class Form1
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Required by the Windows Form Designer
+    Private components As System.ComponentModel.IContainer
+
+    'NOTE: The following procedure is required by the Windows Form Designer
+    'It can be modified using the Windows Form Designer.  
+    'Do not modify it using the code editor.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+        Me.btnClearAll = New System.Windows.Forms.Button()
+        Me.txtName = New System.Windows.Forms.TextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.gbModuleResult = New System.Windows.Forms.GroupBox()
+        Me.txtRemark = New System.Windows.Forms.TextBox()
+        Me.txtModuleMark = New System.Windows.Forms.TextBox()
+        Me.txtModuleGrade = New System.Windows.Forms.TextBox()
+        Me.txtCAMark = New System.Windows.Forms.TextBox()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.gbCAAndExam = New System.Windows.Forms.GroupBox()
+        Me.btnConfirm = New System.Windows.Forms.Button()
+        Me.txtExamMark = New System.Windows.Forms.TextBox()
+        Me.txtQuizMark = New System.Windows.Forms.TextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.txtProjectMark = New System.Windows.Forms.TextBox()
+        Me.txtTestMark = New System.Windows.Forms.TextBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.lblCAComponent = New System.Windows.Forms.Label()
+        Me.GroupBox4 = New System.Windows.Forms.GroupBox()
+        Me.ltbStudents = New System.Windows.Forms.ListBox()
+        Me.btnFind = New System.Windows.Forms.Button()
+        Me.txtFindStudent = New System.Windows.Forms.TextBox()
+        Me.GroupBox5 = New System.Windows.Forms.GroupBox()
+        Me.txtCountOfF = New System.Windows.Forms.TextBox()
+        Me.txtModuleAvg = New System.Windows.Forms.TextBox()
+        Me.Label14 = New System.Windows.Forms.Label()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.txtCountOfA = New System.Windows.Forms.TextBox()
+        Me.txtNumOfStudents = New System.Windows.Forms.TextBox()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.btnShowStatistic = New System.Windows.Forms.Button()
+        Me.GroupBox1.SuspendLayout()
+        Me.gbModuleResult.SuspendLayout()
+        Me.gbCAAndExam.SuspendLayout()
+        Me.GroupBox4.SuspendLayout()
+        Me.GroupBox5.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'GroupBox1
+        '
+        Me.GroupBox1.Controls.Add(Me.btnClearAll)
+        Me.GroupBox1.Controls.Add(Me.txtName)
+        Me.GroupBox1.Controls.Add(Me.Label1)
+        Me.GroupBox1.Controls.Add(Me.gbModuleResult)
+        Me.GroupBox1.Controls.Add(Me.gbCAAndExam)
+        Me.GroupBox1.Location = New System.Drawing.Point(41, 48)
+        Me.GroupBox1.Name = "GroupBox1"
+        Me.GroupBox1.Size = New System.Drawing.Size(922, 793)
+        Me.GroupBox1.TabIndex = 0
+        Me.GroupBox1.TabStop = False
+        Me.GroupBox1.Text = "Marks and Grade for Individual Student"
+        '
+        'btnClearAll
+        '
+        Me.btnClearAll.Location = New System.Drawing.Point(588, 56)
+        Me.btnClearAll.Name = "btnClearAll"
+        Me.btnClearAll.Size = New System.Drawing.Size(150, 46)
+        Me.btnClearAll.TabIndex = 5
+        Me.btnClearAll.Text = "Clear All"
+        Me.btnClearAll.UseVisualStyleBackColor = True
+        '
+        'txtName
+        '
+        Me.txtName.Location = New System.Drawing.Point(148, 61)
+        Me.txtName.Name = "txtName"
+        Me.txtName.Size = New System.Drawing.Size(400, 38)
+        Me.txtName.TabIndex = 4
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(34, 64)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(87, 30)
+        Me.Label1.TabIndex = 3
+        Me.Label1.Text = "Name:"
+        '
+        'gbModuleResult
+        '
+        Me.gbModuleResult.Controls.Add(Me.txtRemark)
+        Me.gbModuleResult.Controls.Add(Me.txtModuleMark)
+        Me.gbModuleResult.Controls.Add(Me.txtModuleGrade)
+        Me.gbModuleResult.Controls.Add(Me.txtCAMark)
+        Me.gbModuleResult.Controls.Add(Me.Label10)
+        Me.gbModuleResult.Controls.Add(Me.Label9)
+        Me.gbModuleResult.Controls.Add(Me.Label8)
+        Me.gbModuleResult.Controls.Add(Me.Label7)
+        Me.gbModuleResult.Location = New System.Drawing.Point(34, 549)
+        Me.gbModuleResult.Name = "gbModuleResult"
+        Me.gbModuleResult.Size = New System.Drawing.Size(850, 204)
+        Me.gbModuleResult.TabIndex = 2
+        Me.gbModuleResult.TabStop = False
+        Me.gbModuleResult.Text = "Module Result"
+        '
+        'txtRemark
+        '
+        Me.txtRemark.Location = New System.Drawing.Point(564, 130)
+        Me.txtRemark.Name = "txtRemark"
+        Me.txtRemark.ReadOnly = True
+        Me.txtRemark.Size = New System.Drawing.Size(221, 38)
+        Me.txtRemark.TabIndex = 18
+        '
+        'txtModuleMark
+        '
+        Me.txtModuleMark.Location = New System.Drawing.Point(626, 63)
+        Me.txtModuleMark.Name = "txtModuleMark"
+        Me.txtModuleMark.ReadOnly = True
+        Me.txtModuleMark.Size = New System.Drawing.Size(126, 38)
+        Me.txtModuleMark.TabIndex = 17
+        '
+        'txtModuleGrade
+        '
+        Me.txtModuleGrade.Location = New System.Drawing.Point(268, 130)
+        Me.txtModuleGrade.Name = "txtModuleGrade"
+        Me.txtModuleGrade.ReadOnly = True
+        Me.txtModuleGrade.Size = New System.Drawing.Size(86, 38)
+        Me.txtModuleGrade.TabIndex = 16
+        '
+        'txtCAMark
+        '
+        Me.txtCAMark.Location = New System.Drawing.Point(226, 63)
+        Me.txtCAMark.Name = "txtCAMark"
+        Me.txtCAMark.ReadOnly = True
+        Me.txtCAMark.Size = New System.Drawing.Size(126, 38)
+        Me.txtCAMark.TabIndex = 15
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Font = New System.Drawing.Font("Microsoft JhengHei UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label10.Location = New System.Drawing.Point(404, 133)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(112, 30)
+        Me.Label10.TabIndex = 11
+        Me.Label10.Text = "Remarks"
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Font = New System.Drawing.Font("Microsoft JhengHei UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label9.Location = New System.Drawing.Point(404, 71)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(180, 30)
+        Me.Label9.TabIndex = 10
+        Me.Label9.Text = "Module Marks"
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("Microsoft JhengHei UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label8.Location = New System.Drawing.Point(42, 133)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(180, 30)
+        Me.Label8.TabIndex = 9
+        Me.Label8.Text = "Module Grade"
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Font = New System.Drawing.Font("Microsoft JhengHei UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label7.Location = New System.Drawing.Point(42, 71)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(122, 30)
+        Me.Label7.TabIndex = 8
+        Me.Label7.Text = "CA Marks"
+        '
+        'gbCAAndExam
+        '
+        Me.gbCAAndExam.Controls.Add(Me.btnConfirm)
+        Me.gbCAAndExam.Controls.Add(Me.txtExamMark)
+        Me.gbCAAndExam.Controls.Add(Me.txtQuizMark)
+        Me.gbCAAndExam.Controls.Add(Me.Label6)
+        Me.gbCAAndExam.Controls.Add(Me.Label5)
+        Me.gbCAAndExam.Controls.Add(Me.txtProjectMark)
+        Me.gbCAAndExam.Controls.Add(Me.txtTestMark)
+        Me.gbCAAndExam.Controls.Add(Me.Label4)
+        Me.gbCAAndExam.Controls.Add(Me.Label3)
+        Me.gbCAAndExam.Controls.Add(Me.lblCAComponent)
+        Me.gbCAAndExam.Location = New System.Drawing.Point(34, 146)
+        Me.gbCAAndExam.Name = "gbCAAndExam"
+        Me.gbCAAndExam.Size = New System.Drawing.Size(850, 376)
+        Me.gbCAAndExam.TabIndex = 1
+        Me.gbCAAndExam.TabStop = False
+        Me.gbCAAndExam.Text = "Input CA and Exam Marks"
+        '
+        'btnConfirm
+        '
+        Me.btnConfirm.Location = New System.Drawing.Point(635, 301)
+        Me.btnConfirm.Name = "btnConfirm"
+        Me.btnConfirm.Size = New System.Drawing.Size(150, 46)
+        Me.btnConfirm.TabIndex = 6
+        Me.btnConfirm.Text = "Confirm"
+        Me.btnConfirm.UseVisualStyleBackColor = True
+        '
+        'txtExamMark
+        '
+        Me.txtExamMark.Location = New System.Drawing.Point(585, 212)
+        Me.txtExamMark.Name = "txtExamMark"
+        Me.txtExamMark.Size = New System.Drawing.Size(200, 38)
+        Me.txtExamMark.TabIndex = 14
+        '
+        'txtQuizMark
+        '
+        Me.txtQuizMark.Location = New System.Drawing.Point(585, 143)
+        Me.txtQuizMark.Name = "txtQuizMark"
+        Me.txtQuizMark.Size = New System.Drawing.Size(200, 38)
+        Me.txtQuizMark.TabIndex = 13
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Font = New System.Drawing.Font("Microsoft JhengHei UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label6.Location = New System.Drawing.Point(447, 220)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(81, 30)
+        Me.Label6.TabIndex = 12
+        Me.Label6.Text = "Exam:"
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Font = New System.Drawing.Font("Microsoft JhengHei UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label5.Location = New System.Drawing.Point(447, 151)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(110, 30)
+        Me.Label5.TabIndex = 11
+        Me.Label5.Text = "Quizzes:"
+        '
+        'txtProjectMark
+        '
+        Me.txtProjectMark.Location = New System.Drawing.Point(152, 217)
+        Me.txtProjectMark.Name = "txtProjectMark"
+        Me.txtProjectMark.Size = New System.Drawing.Size(200, 38)
+        Me.txtProjectMark.TabIndex = 10
+        '
+        'txtTestMark
+        '
+        Me.txtTestMark.Location = New System.Drawing.Point(152, 143)
+        Me.txtTestMark.Name = "txtTestMark"
+        Me.txtTestMark.Size = New System.Drawing.Size(200, 38)
+        Me.txtTestMark.TabIndex = 9
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Font = New System.Drawing.Font("Microsoft JhengHei UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label4.Location = New System.Drawing.Point(32, 220)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(100, 30)
+        Me.Label4.TabIndex = 8
+        Me.Label4.Text = "Project:"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("Microsoft JhengHei UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label3.Location = New System.Drawing.Point(32, 151)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(67, 30)
+        Me.Label3.TabIndex = 7
+        Me.Label3.Text = "Test:"
+        '
+        'lblCAComponent
+        '
+        Me.lblCAComponent.AutoSize = True
+        Me.lblCAComponent.Font = New System.Drawing.Font("Microsoft JhengHei UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.lblCAComponent.Location = New System.Drawing.Point(54, 59)
+        Me.lblCAComponent.Name = "lblCAComponent"
+        Me.lblCAComponent.Size = New System.Drawing.Size(207, 30)
+        Me.lblCAComponent.TabIndex = 6
+        Me.lblCAComponent.Text = "CA Components:"
+        '
+        'GroupBox4
+        '
+        Me.GroupBox4.Controls.Add(Me.ltbStudents)
+        Me.GroupBox4.Controls.Add(Me.btnFind)
+        Me.GroupBox4.Controls.Add(Me.txtFindStudent)
+        Me.GroupBox4.Location = New System.Drawing.Point(1001, 62)
+        Me.GroupBox4.Name = "GroupBox4"
+        Me.GroupBox4.Size = New System.Drawing.Size(502, 1053)
+        Me.GroupBox4.TabIndex = 3
+        Me.GroupBox4.TabStop = False
+        Me.GroupBox4.Text = "Student Record"
+        '
+        'ltbStudents
+        '
+        Me.ltbStudents.FormattingEnabled = True
+        Me.ltbStudents.ItemHeight = 30
+        Me.ltbStudents.Location = New System.Drawing.Point(36, 51)
+        Me.ltbStudents.Name = "ltbStudents"
+        Me.ltbStudents.Size = New System.Drawing.Size(422, 874)
+        Me.ltbStudents.TabIndex = 2
+        '
+        'btnFind
+        '
+        Me.btnFind.Location = New System.Drawing.Point(352, 974)
+        Me.btnFind.Name = "btnFind"
+        Me.btnFind.Size = New System.Drawing.Size(106, 46)
+        Me.btnFind.TabIndex = 1
+        Me.btnFind.Text = "Find"
+        Me.btnFind.UseVisualStyleBackColor = True
+        '
+        'txtFindStudent
+        '
+        Me.txtFindStudent.Location = New System.Drawing.Point(36, 979)
+        Me.txtFindStudent.Name = "txtFindStudent"
+        Me.txtFindStudent.Size = New System.Drawing.Size(282, 38)
+        Me.txtFindStudent.TabIndex = 0
+        '
+        'GroupBox5
+        '
+        Me.GroupBox5.Controls.Add(Me.txtCountOfF)
+        Me.GroupBox5.Controls.Add(Me.txtModuleAvg)
+        Me.GroupBox5.Controls.Add(Me.Label14)
+        Me.GroupBox5.Controls.Add(Me.Label13)
+        Me.GroupBox5.Controls.Add(Me.txtCountOfA)
+        Me.GroupBox5.Controls.Add(Me.txtNumOfStudents)
+        Me.GroupBox5.Controls.Add(Me.Label12)
+        Me.GroupBox5.Controls.Add(Me.Label11)
+        Me.GroupBox5.Controls.Add(Me.btnShowStatistic)
+        Me.GroupBox5.Location = New System.Drawing.Point(41, 867)
+        Me.GroupBox5.Name = "GroupBox5"
+        Me.GroupBox5.Size = New System.Drawing.Size(922, 248)
+        Me.GroupBox5.TabIndex = 4
+        Me.GroupBox5.TabStop = False
+        Me.GroupBox5.Text = "Module Statistics"
+        '
+        'txtCountOfF
+        '
+        Me.txtCountOfF.Location = New System.Drawing.Point(731, 174)
+        Me.txtCountOfF.Name = "txtCountOfF"
+        Me.txtCountOfF.ReadOnly = True
+        Me.txtCountOfF.Size = New System.Drawing.Size(95, 38)
+        Me.txtCountOfF.TabIndex = 25
+        '
+        'txtModuleAvg
+        '
+        Me.txtModuleAvg.Location = New System.Drawing.Point(731, 116)
+        Me.txtModuleAvg.Name = "txtModuleAvg"
+        Me.txtModuleAvg.ReadOnly = True
+        Me.txtModuleAvg.Size = New System.Drawing.Size(116, 38)
+        Me.txtModuleAvg.TabIndex = 24
+        '
+        'Label14
+        '
+        Me.Label14.AutoSize = True
+        Me.Label14.Font = New System.Drawing.Font("Microsoft JhengHei UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label14.Location = New System.Drawing.Point(563, 182)
+        Me.Label14.Name = "Label14"
+        Me.Label14.Size = New System.Drawing.Size(132, 30)
+        Me.Label14.TabIndex = 23
+        Me.Label14.Text = "Count of F"
+        '
+        'Label13
+        '
+        Me.Label13.AutoSize = True
+        Me.Label13.Font = New System.Drawing.Font("Microsoft JhengHei UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label13.Location = New System.Drawing.Point(489, 124)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(206, 30)
+        Me.Label13.TabIndex = 22
+        Me.Label13.Text = "Module Average"
+        '
+        'txtCountOfA
+        '
+        Me.txtCountOfA.Location = New System.Drawing.Point(318, 179)
+        Me.txtCountOfA.Name = "txtCountOfA"
+        Me.txtCountOfA.ReadOnly = True
+        Me.txtCountOfA.Size = New System.Drawing.Size(132, 38)
+        Me.txtCountOfA.TabIndex = 21
+        '
+        'txtNumOfStudents
+        '
+        Me.txtNumOfStudents.Location = New System.Drawing.Point(362, 116)
+        Me.txtNumOfStudents.Name = "txtNumOfStudents"
+        Me.txtNumOfStudents.ReadOnly = True
+        Me.txtNumOfStudents.Size = New System.Drawing.Size(88, 38)
+        Me.txtNumOfStudents.TabIndex = 19
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.Font = New System.Drawing.Font("Microsoft JhengHei UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label12.Location = New System.Drawing.Point(147, 187)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(136, 30)
+        Me.Label12.TabIndex = 20
+        Me.Label12.Text = "Count of A"
+        '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        Me.Label11.Font = New System.Drawing.Font("Microsoft JhengHei UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label11.Location = New System.Drawing.Point(34, 119)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(249, 30)
+        Me.Label11.TabIndex = 19
+        Me.Label11.Text = "Number of Students"
+        '
+        'btnShowStatistic
+        '
+        Me.btnShowStatistic.Location = New System.Drawing.Point(581, 39)
+        Me.btnShowStatistic.Name = "btnShowStatistic"
+        Me.btnShowStatistic.Size = New System.Drawing.Size(238, 46)
+        Me.btnShowStatistic.TabIndex = 15
+        Me.btnShowStatistic.Text = "Show Statistics"
+        Me.btnShowStatistic.UseVisualStyleBackColor = True
+        '
+        'Form1
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(14.0!, 30.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1520, 1147)
+        Me.Controls.Add(Me.GroupBox5)
+        Me.Controls.Add(Me.GroupBox4)
+        Me.Controls.Add(Me.GroupBox1)
+        Me.Name = "Form1"
+        Me.Text = "Calculation of Module Grade"
+        Me.GroupBox1.ResumeLayout(False)
+        Me.GroupBox1.PerformLayout()
+        Me.gbModuleResult.ResumeLayout(False)
+        Me.gbModuleResult.PerformLayout()
+        Me.gbCAAndExam.ResumeLayout(False)
+        Me.gbCAAndExam.PerformLayout()
+        Me.GroupBox4.ResumeLayout(False)
+        Me.GroupBox4.PerformLayout()
+        Me.GroupBox5.ResumeLayout(False)
+        Me.GroupBox5.PerformLayout()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents GroupBox1 As GroupBox
+    Friend WithEvents gbModuleResult As GroupBox
+    Friend WithEvents gbCAAndExam As GroupBox
+    Friend WithEvents GroupBox4 As GroupBox
+    Friend WithEvents GroupBox5 As GroupBox
+    Friend WithEvents btnClearAll As Button
+    Friend WithEvents txtName As TextBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents txtRemark As TextBox
+    Friend WithEvents txtModuleMark As TextBox
+    Friend WithEvents txtModuleGrade As TextBox
+    Friend WithEvents txtCAMark As TextBox
+    Friend WithEvents Label10 As Label
+    Friend WithEvents Label9 As Label
+    Friend WithEvents Label8 As Label
+    Friend WithEvents Label7 As Label
+    Friend WithEvents btnConfirm As Button
+    Friend WithEvents txtExamMark As TextBox
+    Friend WithEvents txtQuizMark As TextBox
+    Friend WithEvents Label6 As Label
+    Friend WithEvents Label5 As Label
+    Friend WithEvents txtProjectMark As TextBox
+    Friend WithEvents txtTestMark As TextBox
+    Friend WithEvents Label4 As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents lblCAComponent As Label
+    Friend WithEvents Label12 As Label
+    Friend WithEvents Label11 As Label
+    Friend WithEvents btnShowStatistic As Button
+    Friend WithEvents ltbStudents As ListBox
+    Friend WithEvents btnFind As Button
+    Friend WithEvents txtFindStudent As TextBox
+    Friend WithEvents txtCountOfF As TextBox
+    Friend WithEvents txtModuleAvg As TextBox
+    Friend WithEvents Label14 As Label
+    Friend WithEvents Label13 As Label
+    Friend WithEvents txtCountOfA As TextBox
+    Friend WithEvents txtNumOfStudents As TextBox
+End Class

it114105/others/ite3711/module_grade/Form1.resx

@@ -0,0 +1,84 @@
+<root>
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="txtRemark.Locked" type="System.Boolean, System.Private.CoreLib, Version=5.0.0.0, Culture=neutral, PublicKeyToken=7cec85d7bea7798e">
+    <value>True</value>
+  </metadata>
+  <metadata name="txtModuleMark.Locked" type="System.Boolean, System.Private.CoreLib, Version=5.0.0.0, Culture=neutral, PublicKeyToken=7cec85d7bea7798e">
+    <value>True</value>
+  </metadata>
+  <metadata name="txtModuleGrade.Locked" type="System.Boolean, System.Private.CoreLib, Version=5.0.0.0, Culture=neutral, PublicKeyToken=7cec85d7bea7798e">
+    <value>True</value>
+  </metadata>
+  <metadata name="txtCAMark.Locked" type="System.Boolean, System.Private.CoreLib, Version=5.0.0.0, Culture=neutral, PublicKeyToken=7cec85d7bea7798e">
+    <value>True</value>
+  </metadata>
+  <metadata name="txtRemark.Locked" type="System.Boolean, System.Private.CoreLib, Version=5.0.0.0, Culture=neutral, PublicKeyToken=7cec85d7bea7798e">
+    <value>True</value>
+  </metadata>
+  <metadata name="txtModuleMark.Locked" type="System.Boolean, System.Private.CoreLib, Version=5.0.0.0, Culture=neutral, PublicKeyToken=7cec85d7bea7798e">
+    <value>True</value>
+  </metadata>
+  <metadata name="txtModuleGrade.Locked" type="System.Boolean, System.Private.CoreLib, Version=5.0.0.0, Culture=neutral, PublicKeyToken=7cec85d7bea7798e">
+    <value>True</value>
+  </metadata>
+  <metadata name="txtCAMark.Locked" type="System.Boolean, System.Private.CoreLib, Version=5.0.0.0, Culture=neutral, PublicKeyToken=7cec85d7bea7798e">
+    <value>True</value>
+  </metadata>
+</root>

it114105/others/ite3711/module_grade/Form1.vb

@@ -0,0 +1,156 @@
+Public Class Form1
+
+    Dim students As ArrayList
+    Dim showStatisticList As Boolean
+
+    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        students = New ArrayList()
+        showStatisticList = False
+        gbModuleResult.Text = "Module Result (CA:" + CStr(ModuleMark.CAPercent * 100) + "%, Exam:" + CStr(ModuleMark.ExamPercent * 100) + "%)"
+    End Sub
+
+    Private Sub btnConfirm_Click(sender As Object, e As EventArgs) Handles btnConfirm.Click
+        If txtName.Text.Length = 0 Then
+            MessageBox.Show("Please input the Name")
+            Return
+        End If
+
+        If Not IsNumeric(txtTestMark.Text) Or Not IsNumeric(txtProjectMark.Text) Or Not IsNumeric(txtQuizMark.Text) Or Not IsNumeric(txtExamMark.Text) Then
+            MessageBox.Show("Please input the number")
+            Return
+        End If
+
+        If txtTestMark.Text > 100 Or txtProjectMark.Text > 100 Or txtQuizMark.Text > 100 Or txtExamMark.Text > 100 Then
+            MessageBox.Show("The mark must small or equal to 100 ")
+            Return
+        End If
+
+        If txtTestMark.Text < 0 Or txtProjectMark.Text < 0 Or txtQuizMark.Text < 0 Or txtExamMark.Text < 0 Then
+            MessageBox.Show("The mark must bigger or equal to 0 ")
+            Return
+        End If
+
+        Dim name As String = txtName.Text
+        Dim markTest As Double = CDbl(txtTestMark.Text)
+        Dim markProject As Double = CDbl(txtProjectMark.Text)
+        Dim markQuiz As Double = CDbl(txtQuizMark.Text)
+        Dim markExam As Double = CDbl(txtExamMark.Text)
+
+        Dim student As Student = New Student(name, markTest, markQuiz, markProject, markExam)
+        students.Add(student)
+        ltbStudents.Items.Add(student.name)
+        txtCAMark.Text = student.getCAMarks()
+        txtModuleMark.Text = student.getModuleMark().ToString("F2")
+        txtModuleGrade.Text = student.getModuleGrade()
+        txtRemark.Text = student.getRemark()
+
+        If showStatisticList Then
+            updateStudentStatistic()
+        End If
+        clearInputField()
+    End Sub
+
+    Private Sub updateStudentStatistic()
+        txtNumOfStudents.Text = students.Count
+        Dim AllStudentMark As Double = 0.0
+        Dim CountOfA As Integer = 0
+        Dim CountOfF As Integer = 0
+        For Each student As Student In students
+            AllStudentMark += student.getModuleMark()
+            If student.getModuleGrade = "A" Then
+                CountOfA += 1
+            ElseIf student.getModuleGrade = "F" Then
+                CountOfF += 1
+            End If
+        Next
+        txtCountOfA.Text = CountOfA
+        txtCountOfF.Text = CountOfF
+        If students.Count > 0 Then
+            txtModuleAvg.Text = AllStudentMark / students.Count
+        Else
+            txtModuleAvg.Text = 0.0
+        End If
+    End Sub
+
+    Private Sub hiddenStatistic()
+        txtNumOfStudents.Clear()
+        txtCountOfA.Clear()
+        txtCountOfF.Clear()
+        txtModuleAvg.Clear()
+    End Sub
+
+    Private Sub clearModuleResult()
+        txtCAMark.Clear()
+        txtModuleMark.Clear()
+        txtModuleGrade.Clear()
+        txtRemark.Clear()
+    End Sub
+
+    Private Sub clearInputField()
+        txtName.Clear()
+        txtTestMark.Clear()
+        txtQuizMark.Clear()
+        txtProjectMark.Clear()
+        txtExamMark.Clear()
+    End Sub
+
+
+    Private Sub btnShowStatistic_Click(sender As Object, e As EventArgs) Handles btnShowStatistic.Click
+        showStatisticList = Not showStatisticList
+        If showStatisticList Then
+            updateStudentStatistic()
+            btnShowStatistic.Text = "Hidden Statistic"
+        Else
+            btnShowStatistic.Text = "Show Statistic"
+            hiddenStatistic()
+        End If
+    End Sub
+
+    Private Sub btnFind_Click(sender As Object, e As EventArgs) Handles btnFind.Click
+        If txtFindStudent.Text.Length <= 0 Then
+            MessageBox.Show("Please Input the student name to find the list")
+            Return
+        End If
+        Dim FoundStudent As Student = Nothing
+        For Each student As Student In students
+            If student.name.Equals(txtFindStudent.Text) Then
+                FoundStudent = student
+                Exit For
+            End If
+        Next
+        If Not IsNothing(FoundStudent) Then
+            MessageBox.Show(FoundStudent.name + " is on line " + CStr(students.IndexOf(FoundStudent) + 1) + " of the list")
+        Else
+            MessageBox.Show("Student not found")
+        End If
+
+        txtFindStudent.Clear()
+        ' Search Listbox version
+        ' Dim studentIndex As Integer = -1
+        ' For Each studentName As String In ltbStudents.Items
+        '   If txtFindStudent.Text.Equals(studentName) Then
+        '     Exit For
+        '   End If
+        '   studentIndex += 1
+        ' Next
+        ' If studentIndex > -1 Then
+        '   MessageBox.Show(ltbStudents.Items.IndexOf(studentIndex) + " is on line " + (studentIndex + 1) + "of the list")
+        ' Else
+        '   MessageBox.Show("Student not found")
+        ' End If
+    End Sub
+
+    Private Sub btnClearAll_Click(sender As Object, e As EventArgs) Handles btnClearAll.Click
+        Dim result As DialogResult = MessageBox.Show("Clear All Records?", "Alert", MessageBoxButtons.YesNo)
+        If result = DialogResult.Yes Then
+            hiddenStatistic()
+            clearInputField()
+            clearModuleResult()
+            students.Clear()
+            ltbStudents.Items.Clear()
+        End If
+
+    End Sub
+
+
+End Class

it114105/others/ite3711/module_grade/MarksModule.vb

@@ -0,0 +1,10 @@
+Public Module CAMarksModule
+    Public Const TestPercent As Double = 0.5
+    Public Const ProjectPercent As Double = 0.3
+    Public Const QuizPercent As Double = 0.2
+End Module
+
+Public Module ModuleMark
+    Public Const CAPercent As Double = 0.4
+    Public Const ExamPercent As Double = 0.6
+End Module

it114105/others/ite3711/module_grade/My Project/Application.Designer.HighDpi.vb

@@ -0,0 +1,69 @@
+Option Strict On
+Option Explicit On
+
+'This constant indicates whether the Application Framework is in use.
+#Const APPLICATION_FRAMEWORK = True
+
+#If APPLICATION_FRAMEWORK Then
+
+#If NET5_0 And Not NET6_0 Then
+
+Imports System.Collections.ObjectModel
+
+Namespace My
+
+    Partial Friend Class MyApplication
+
+        Public Event ApplyHighDpiMode(sender As Object, e As ApplyHighDpiModeEventArgs)
+
+        Private _highDpiMode As HighDpiMode?
+
+        Friend Shadows Property HighDpiMode As HighDpiMode
+            Get
+                Return If(
+                    _highDpiMode Is Nothing,
+                    Application.HighDpiMode,
+                    _highDpiMode.Value)
+            End Get
+            Set(value As HighDpiMode)
+                _highDpiMode = value
+            End Set
+        End Property
+
+        ' IMPORTANT:
+        ' If this method causes an compilation error after you've unchecked 'Application Framework' 
+        ' in the project properties, go to the top of this file and change the value to 'False' in this line:
+        ' #Const APPLICATION_FRAMEWORK = False
+
+        ' For more about using WinForms without the Application Framework 
+        ' see: https://aka.ms/visualbasic-appframework-net5
+        Protected Overrides Function OnInitialize(commandLineArgs As ReadOnlyCollection(Of String)) As Boolean
+            Dim eventArgs = New ApplyHighDpiModeEventArgs(
+                If(
+                    _highDpiMode Is Nothing,
+                    HighDpiMode.SystemAware,
+                    _highDpiMode.Value))
+
+            RaiseEvent ApplyHighDpiMode(Me, eventArgs)
+
+            Windows.Forms.Application.SetHighDpiMode(eventArgs.HighDpiMode)
+
+            Return MyBase.OnInitialize(commandLineArgs)
+        End Function
+    End Class
+
+    Public Class ApplyHighDpiModeEventArgs
+        Inherits EventArgs
+
+        Public Sub New(highDpiMode As HighDpiMode)
+            Me.HighDpiMode = highDpiMode
+        End Sub
+
+        Public Property HighDpiMode As HighDpiMode
+
+    End Class
+
+End Namespace
+
+#End If ' #If NET5_0 And Not NET6_0
+#End If ' #If APPLICATION_FRAMEWORK

it114105/others/ite3711/module_grade/My Project/Application.Designer.vb

@@ -0,0 +1,38 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     這段程式碼是由工具產生的。
+'     執行階段版本:4.0.30319.42000
+'
+'     對這個檔案所做的變更可能會造成錯誤的行為，而且如果重新產生程式碼，
+'     變更將會遺失。
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+    
+    '注意:這是自動產生的檔案，請勿直接修改它。若要進行變更，
+    ' 或者您在這個檔案發生建置錯誤，請到專案設計工具
+    ' (移至專案屬性或者在 [方案總管] 中按兩下 [My Project] 節點)，
+    ' 然後在 [應用程式] 索引標籤上進行變更。
+    '
+    Partial Friend Class MyApplication
+        
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
+        Public Sub New()
+            MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
+            Me.IsSingleInstance = false
+            Me.EnableVisualStyles = true
+            Me.SaveMySettingsOnExit = true
+            Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
+        Protected Overrides Sub OnCreateMainForm()
+            Me.MainForm = Global.module_grade.Form1
+        End Sub
+    End Class
+End Namespace

it114105/others/ite3711/module_grade/My Project/Application.myapp

@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="utf-8"?>
+<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+  <MySubMain>true</MySubMain>
+  <MainForm>Form1</MainForm>
+  <SingleInstance>false</SingleInstance>
+  <ShutdownMode>0</ShutdownMode>
+  <EnableVisualStyles>true</EnableVisualStyles>
+  <AuthenticationMode>0</AuthenticationMode>
+  <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
+</MyApplicationData>

it114105/others/ite3711/module_grade/Student.vb

@@ -0,0 +1,57 @@
+Public Class Student
+    Public name As String
+    Public markTest As Double
+    Public markQuiz As Double
+    Public markProject As Double
+    Public markExam As Double
+
+    Sub New(name As String, markTest As Double, markQuiz As Double, markProject As Double, markExam As Double)
+        Me.name = name
+        Me.markTest = markTest
+        Me.markQuiz = markQuiz
+        Me.markProject = markProject
+        Me.markExam = markExam
+    End Sub
+
+    Function getCAMarks() As Double
+        Return markTest * CAMarksModule.TestPercent + markProject * CAMarksModule.ProjectPercent + markQuiz * CAMarksModule.QuizPercent
+    End Function
+
+    Function getExamMark() As Double
+        Return markExam
+    End Function
+
+    Function getModuleMark() As Double
+        Return getCAMarks() * ModuleMark.CAPercent + getExamMark() * ModuleMark.ExamPercent
+    End Function
+
+    Function getModuleGrade() As String
+        Dim moduleMark As Double = getModuleMark()
+        If moduleMark >= 75 And moduleMark <= 100 Then
+            Return "A"
+        ElseIf moduleMark >= 65 Then
+            Return "B"
+        ElseIf moduleMark >= 40 Then
+            Return "C"
+        Else
+            Return "F"
+        End If
+    End Function
+
+    Function getRemark() As String
+        Select Case getModuleGrade()
+            Case "A"
+                Return "Pass"
+            Case "B"
+                Return "Pass"
+            Case "C"
+                Return "Pass"
+            Case "F"
+                If (getModuleMark() >= 30) Then
+                    Return "Resit Exam"
+                End If
+        End Select
+        Return "Retudy"
+    End Function
+
+End Class

it114105/others/ite3711/module_grade/bin/Debug/net5.0-windows/module_grade.deps.json

@@ -0,0 +1,23 @@
+{
+  "runtimeTarget": {
+    "name": ".NETCoreApp,Version=v5.0",
+    "signature": ""
+  },
+  "compilationOptions": {},
+  "targets": {
+    ".NETCoreApp,Version=v5.0": {
+      "module_grade/1.0.0": {
+        "runtime": {
+          "module_grade.dll": {}
+        }
+      }
+    }
+  },
+  "libraries": {
+    "module_grade/1.0.0": {
+      "type": "project",
+      "serviceable": false,
+      "sha512": ""
+    }
+  }
+}

it114105/others/ite3711/module_grade/bin/Debug/net5.0-windows/module_grade.runtimeconfig.dev.json

@@ -0,0 +1,8 @@
+{
+  "runtimeOptions": {
+    "additionalProbingPaths": [
+      "C:\\Users\\Jerry Kwok\\.dotnet\\store\\|arch|\\|tfm|",
+      "C:\\Users\\Jerry Kwok\\.nuget\\packages"
+    ]
+  }
+}

it114105/others/ite3711/module_grade/bin/Debug/net5.0-windows/module_grade.runtimeconfig.json

@@ -0,0 +1,9 @@
+{
+  "runtimeOptions": {
+    "tfm": "net5.0",
+    "framework": {
+      "name": "Microsoft.WindowsDesktop.App",
+      "version": "5.0.0"
+    }
+  }
+}

it114105/others/ite3711/module_grade/module_grade.vbproj

@@ -0,0 +1,33 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <OutputType>WinExe</OutputType>
+    <TargetFramework>net5.0-windows</TargetFramework>
+    <RootNamespace>module_grade</RootNamespace>
+    <StartupObject>Sub Main</StartupObject>
+    <UseWindowsForms>true</UseWindowsForms>
+    <MyType>WindowsForms</MyType>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <Import Include="System.Data" />
+    <Import Include="System.Drawing" />
+    <Import Include="System.Windows.Forms" />
+  </ItemGroup>
+
+  <ItemGroup>
+    <Compile Update="My Project\Application.Designer.vb">
+      <DesignTime>True</DesignTime>
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Application.myapp</DependentUpon>
+    </Compile>
+  </ItemGroup>
+
+  <ItemGroup>
+    <None Update="My Project\Application.myapp">
+      <Generator>MyApplicationCodeGenerator</Generator>
+      <LastGenOutput>Application.Designer.vb</LastGenOutput>
+    </None>
+  </ItemGroup>
+
+</Project>

it114105/others/ite3711/module_grade/module_grade.vbproj.user

@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="Current" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+    <ItemGroup>
+        <Compile Update="Form1.vb">
+            <SubType>Form</SubType>
+        </Compile>
+    </ItemGroup>
+</Project>

it114105/others/ite3711/module_grade/obj/Debug/net5.0-windows/module_grade.AssemblyInfo.vb

@@ -0,0 +1,26 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     這段程式碼是由工具產生的。
+'     執行階段版本:4.0.30319.42000
+'
+'     對這個檔案所做的變更可能會造成錯誤的行為，而且如果重新產生程式碼，
+'     變更將會遺失。
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict Off
+Option Explicit On
+
+Imports System
+Imports System.Reflection
+<Assembly: System.Reflection.AssemblyCompanyAttribute("module_grade"),  _
+ Assembly: System.Reflection.AssemblyConfigurationAttribute("Debug"),  _
+ Assembly: System.Reflection.AssemblyFileVersionAttribute("1.0.0.0"),  _
+ Assembly: System.Reflection.AssemblyInformationalVersionAttribute("1.0.0"),  _
+ Assembly: System.Reflection.AssemblyProductAttribute("module_grade"),  _
+ Assembly: System.Reflection.AssemblyTitleAttribute("module_grade"),  _
+ Assembly: System.Reflection.AssemblyVersionAttribute("1.0.0.0"),  _
+ Assembly: System.Runtime.Versioning.TargetPlatformAttribute("Windows7.0"),  _
+ Assembly: System.Runtime.Versioning.SupportedOSPlatformAttribute("Windows7.0")> 
+
+'由 MSBuild WriteCodeFragment 類別產生。

it114105/others/ite3711/module_grade/obj/Debug/net5.0-windows/module_grade.AssemblyInfoInputs.cache

@@ -0,0 +1 @@
+f19270d139b2739c14460e7e67dcbab1ad1c59ba

it114105/others/ite3711/module_grade/obj/Debug/net5.0-windows/module_grade.GeneratedMSBuildEditorConfig.editorconfig

@@ -0,0 +1,8 @@
+is_global = true
+build_property.TargetFramework = net5.0-windows
+build_property.TargetPlatformMinVersion = 7.0
+build_property.UsingMicrosoftNETSdkWeb = 
+build_property.ProjectTypeGuids = 
+build_property.PublishSingleFile = 
+build_property.IncludeAllContentForSelfExtract = 
+build_property._SupportedPlatformList = Android,iOS,Linux,macOS,Windows

it114105/others/ite3711/module_grade/obj/Debug/net5.0-windows/module_grade.designer.deps.json

@@ -0,0 +1,11 @@
+{
+  "runtimeTarget": {
+    "name": ".NETCoreApp,Version=v5.0",
+    "signature": ""
+  },
+  "compilationOptions": {},
+  "targets": {
+    ".NETCoreApp,Version=v5.0": {}
+  },
+  "libraries": {}
+}

it114105/others/ite3711/module_grade/obj/Debug/net5.0-windows/module_grade.designer.runtimeconfig.json

@@ -0,0 +1,16 @@
+{
+  "runtimeOptions": {
+    "tfm": "net5.0",
+    "framework": {
+      "name": "Microsoft.WindowsDesktop.App",
+      "version": "5.0.0"
+    },
+    "additionalProbingPaths": [
+      "C:\\Users\\Jerry Kwok\\.dotnet\\store\\|arch|\\|tfm|",
+      "C:\\Users\\Jerry Kwok\\.nuget\\packages"
+    ],
+    "configProperties": {
+      "Microsoft.NETCore.DotNetHostPolicy.SetAppPaths": true
+    }
+  }
+}

it114105/others/ite3711/module_grade/obj/Debug/net5.0-windows/module_grade.genruntimeconfig.cache

@@ -0,0 +1 @@
+bae2994753d28fe3c6be2ecbe451a624270c3c32

it114105/others/ite3711/module_grade/obj/Debug/net5.0-windows/module_grade.vbproj.CoreCompileInputs.cache

@@ -0,0 +1 @@
+6ab3353b5e2780a28077cc79435b3b8790a1f09b

it114105/others/ite3711/module_grade/obj/Debug/net5.0-windows/module_grade.vbproj.FileListAbsolute.txt

@@ -0,0 +1,18 @@
+C:\Users\Jerry Kwok\source\repos\module_grade\module_grade\bin\Debug\net5.0-windows\module_grade.exe
+C:\Users\Jerry Kwok\source\repos\module_grade\module_grade\bin\Debug\net5.0-windows\module_grade.deps.json
+C:\Users\Jerry Kwok\source\repos\module_grade\module_grade\bin\Debug\net5.0-windows\module_grade.runtimeconfig.json
+C:\Users\Jerry Kwok\source\repos\module_grade\module_grade\bin\Debug\net5.0-windows\module_grade.runtimeconfig.dev.json
+C:\Users\Jerry Kwok\source\repos\module_grade\module_grade\bin\Debug\net5.0-windows\module_grade.dll
+C:\Users\Jerry Kwok\source\repos\module_grade\module_grade\bin\Debug\net5.0-windows\ref\module_grade.dll
+C:\Users\Jerry Kwok\source\repos\module_grade\module_grade\bin\Debug\net5.0-windows\module_grade.pdb
+C:\Users\Jerry Kwok\source\repos\module_grade\module_grade\obj\Debug\net5.0-windows\module_grade.vbprojAssemblyReference.cache
+C:\Users\Jerry Kwok\source\repos\module_grade\module_grade\obj\Debug\net5.0-windows\module_grade.Form1.resources
+C:\Users\Jerry Kwok\source\repos\module_grade\module_grade\obj\Debug\net5.0-windows\module_grade.vbproj.GenerateResource.cache
+C:\Users\Jerry Kwok\source\repos\module_grade\module_grade\obj\Debug\net5.0-windows\module_grade.GeneratedMSBuildEditorConfig.editorconfig
+C:\Users\Jerry Kwok\source\repos\module_grade\module_grade\obj\Debug\net5.0-windows\module_grade.AssemblyInfoInputs.cache
+C:\Users\Jerry Kwok\source\repos\module_grade\module_grade\obj\Debug\net5.0-windows\module_grade.AssemblyInfo.vb
+C:\Users\Jerry Kwok\source\repos\module_grade\module_grade\obj\Debug\net5.0-windows\module_grade.vbproj.CoreCompileInputs.cache
+C:\Users\Jerry Kwok\source\repos\module_grade\module_grade\obj\Debug\net5.0-windows\module_grade.dll
+C:\Users\Jerry Kwok\source\repos\module_grade\module_grade\obj\Debug\net5.0-windows\ref\module_grade.dll
+C:\Users\Jerry Kwok\source\repos\module_grade\module_grade\obj\Debug\net5.0-windows\module_grade.pdb
+C:\Users\Jerry Kwok\source\repos\module_grade\module_grade\obj\Debug\net5.0-windows\module_grade.genruntimeconfig.cache

it114105/others/ite3711/module_grade/obj/module_grade.vbproj.nuget.dgspec.json

@@ -0,0 +1,65 @@
+{
+  "format": 1,
+  "restore": {
+    "C:\\Users\\Jerry Kwok\\source\\repos\\module_grade\\module_grade\\module_grade.vbproj": {}
+  },
+  "projects": {
+    "C:\\Users\\Jerry Kwok\\source\\repos\\module_grade\\module_grade\\module_grade.vbproj": {
+      "version": "1.0.0",
+      "restore": {
+        "projectUniqueName": "C:\\Users\\Jerry Kwok\\source\\repos\\module_grade\\module_grade\\module_grade.vbproj",
+        "projectName": "module_grade",
+        "projectPath": "C:\\Users\\Jerry Kwok\\source\\repos\\module_grade\\module_grade\\module_grade.vbproj",
+        "packagesPath": "C:\\Users\\Jerry Kwok\\.nuget\\packages\\",
+        "outputPath": "C:\\Users\\Jerry Kwok\\source\\repos\\module_grade\\module_grade\\obj\\",
+        "projectStyle": "PackageReference",
+        "configFilePaths": [
+          "C:\\Users\\Jerry Kwok\\AppData\\Roaming\\NuGet\\NuGet.Config",
+          "C:\\Program Files (x86)\\NuGet\\Config\\Microsoft.VisualStudio.Offline.config"
+        ],
+        "originalTargetFrameworks": [
+          "net5.0-windows7.0"
+        ],
+        "sources": {
+          "C:\\Program Files (x86)\\Microsoft SDKs\\NuGetPackages\\": {},
+          "https://api.nuget.org/v3/index.json": {}
+        },
+        "frameworks": {
+          "net5.0-windows7.0": {
+            "targetAlias": "net5.0-windows",
+            "projectReferences": {}
+          }
+        },
+        "warningProperties": {
+          "warnAsError": [
+            "NU1605"
+          ]
+        }
+      },
+      "frameworks": {
+        "net5.0-windows7.0": {
+          "targetAlias": "net5.0-windows",
+          "imports": [
+            "net461",
+            "net462",
+            "net47",
+            "net471",
+            "net472",
+            "net48"
+          ],
+          "assetTargetFallback": true,
+          "warn": true,
+          "frameworkReferences": {
+            "Microsoft.NETCore.App": {
+              "privateAssets": "all"
+            },
+            "Microsoft.WindowsDesktop.App.WindowsForms": {
+              "privateAssets": "none"
+            }
+          },
+          "runtimeIdentifierGraphPath": "C:\\Program Files\\dotnet\\sdk\\5.0.100\\RuntimeIdentifierGraph.json"
+        }
+      }
+    }
+  }
+}

it114105/others/ite3711/module_grade/obj/module_grade.vbproj.nuget.g.props

@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="utf-8" standalone="no"?>
+<Project ToolsVersion="14.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup Condition=" '$(ExcludeRestorePackageImports)' != 'true' ">
+    <RestoreSuccess Condition=" '$(RestoreSuccess)' == '' ">True</RestoreSuccess>
+    <RestoreTool Condition=" '$(RestoreTool)' == '' ">NuGet</RestoreTool>
+    <ProjectAssetsFile Condition=" '$(ProjectAssetsFile)' == '' ">$(MSBuildThisFileDirectory)project.assets.json</ProjectAssetsFile>
+    <NuGetPackageRoot Condition=" '$(NuGetPackageRoot)' == '' ">$(UserProfile)\.nuget\packages\</NuGetPackageRoot>
+    <NuGetPackageFolders Condition=" '$(NuGetPackageFolders)' == '' ">C:\Users\Jerry Kwok\.nuget\packages\</NuGetPackageFolders>
+    <NuGetProjectStyle Condition=" '$(NuGetProjectStyle)' == '' ">PackageReference</NuGetProjectStyle>
+    <NuGetToolVersion Condition=" '$(NuGetToolVersion)' == '' ">5.8.0</NuGetToolVersion>
+  </PropertyGroup>
+  <ItemGroup Condition=" '$(ExcludeRestorePackageImports)' != 'true' ">
+    <SourceRoot Include="$([MSBuild]::EnsureTrailingSlash($(NuGetPackageFolders)))" />
+  </ItemGroup>
+  <PropertyGroup>
+    <MSBuildAllProjects>$(MSBuildAllProjects);$(MSBuildThisFileFullPath)</MSBuildAllProjects>
+  </PropertyGroup>
+</Project>

it114105/others/ite3711/module_grade/obj/module_grade.vbproj.nuget.g.targets

@@ -0,0 +1,6 @@
+<?xml version="1.0" encoding="utf-8" standalone="no"?>
+<Project ToolsVersion="14.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <MSBuildAllProjects>$(MSBuildAllProjects);$(MSBuildThisFileFullPath)</MSBuildAllProjects>
+  </PropertyGroup>
+</Project>

it114105/others/ite3711/module_grade/obj/project.assets.json

@@ -0,0 +1,70 @@
+{
+  "version": 3,
+  "targets": {
+    "net5.0-windows7.0": {}
+  },
+  "libraries": {},
+  "projectFileDependencyGroups": {
+    "net5.0-windows7.0": []
+  },
+  "packageFolders": {
+    "C:\\Users\\Jerry Kwok\\.nuget\\packages\\": {}
+  },
+  "project": {
+    "version": "1.0.0",
+    "restore": {
+      "projectUniqueName": "C:\\Users\\Jerry Kwok\\source\\repos\\module_grade\\module_grade\\module_grade.vbproj",
+      "projectName": "module_grade",
+      "projectPath": "C:\\Users\\Jerry Kwok\\source\\repos\\module_grade\\module_grade\\module_grade.vbproj",
+      "packagesPath": "C:\\Users\\Jerry Kwok\\.nuget\\packages\\",
+      "outputPath": "C:\\Users\\Jerry Kwok\\source\\repos\\module_grade\\module_grade\\obj\\",
+      "projectStyle": "PackageReference",
+      "configFilePaths": [
+        "C:\\Users\\Jerry Kwok\\AppData\\Roaming\\NuGet\\NuGet.Config",
+        "C:\\Program Files (x86)\\NuGet\\Config\\Microsoft.VisualStudio.Offline.config"
+      ],
+      "originalTargetFrameworks": [
+        "net5.0-windows7.0"
+      ],
+      "sources": {
+        "C:\\Program Files (x86)\\Microsoft SDKs\\NuGetPackages\\": {},
+        "https://api.nuget.org/v3/index.json": {}
+      },
+      "frameworks": {
+        "net5.0-windows7.0": {
+          "targetAlias": "net5.0-windows",
+          "projectReferences": {}
+        }
+      },
+      "warningProperties": {
+        "warnAsError": [
+          "NU1605"
+        ]
+      }
+    },
+    "frameworks": {
+      "net5.0-windows7.0": {
+        "targetAlias": "net5.0-windows",
+        "imports": [
+          "net461",
+          "net462",
+          "net47",
+          "net471",
+          "net472",
+          "net48"
+        ],
+        "assetTargetFallback": true,
+        "warn": true,
+        "frameworkReferences": {
+          "Microsoft.NETCore.App": {
+            "privateAssets": "all"
+          },
+          "Microsoft.WindowsDesktop.App.WindowsForms": {
+            "privateAssets": "none"
+          }
+        },
+        "runtimeIdentifierGraphPath": "C:\\Program Files\\dotnet\\sdk\\5.0.100\\RuntimeIdentifierGraph.json"
+      }
+    }
+  }
+}

it114105/others/ite3711/module_grade/obj/project.nuget.cache

@@ -0,0 +1,8 @@
+{
+  "version": 2,
+  "dgSpecHash": "1M9te5KLB1QSsmI31n2oQahIhZODg7y29rJogSWswd3g1d1hLQE91wdKLaX4xs1pMoDjJ0LLcVzJR5bJ+qCFXQ==",
+  "success": true,
+  "projectFilePath": "C:\\Users\\Jerry Kwok\\source\\repos\\module_grade\\module_grade\\module_grade.vbproj",
+  "expectedPackageFiles": [],
+  "logs": []
+}