Assessment of Assignment

Submitted by:
Compile Time:3:15:00 PM
Compile Date:Sunday, June 07, 2015

This summary is based on an automated assessment of your submitted work. The application use to assess this work makes certain assumptions, which may not be correct for the approach you used. If you believe you have done something correctly, but it has been marked wrong, please contact the instructor get the issue resolved.

Files Contained in Project

Application Level Information

Req Item Status Possible Pts. Your Score Comment
Development Environment
* ✓ - SLN File True 0 0
* ✓ - vbProj File True 0 0
- VB Version VB Version = Visual Studio 2010 0 0
Application Info
- Splash Screen Has Splashscreen 0 0
- About Box No AboutBox 0 0
- Application Title Process Blackboard Assignments 0 0
- Description There is a lot of administraion needed when grading assignments submitted through Blackboard, expecially when each submission is zipped. Errors due to excessively long file names can result. This application trims each zip filename leaving only the user ID, and then unzips these files placing the contained files in their own subdirectory. It was designed to handle Programming Homework, but it will handle any compressed file submission. 0 0
- Company University of South Carolina 0 0
- Product Process Blackboard Assignments 0 0
- Trademark 0 0
- Copyright Copyright © John Gerdes 2010 0 0
Compile Options
* ✓ - Option Strict On 0 0
✓ - Option Explicit On 0 0

Assessment Results for CRC.vb

Coding Standards

Req Item Status Possible Pts. Your Score Comment
Use of Comments
- First Line of Sub/Function No Subs or Functions found 0 0
- Prior to IF No IF statements found 0 0
- Prior to For No FOR statements found 0 0
- Prior to Do No DO statements found 0 0
- Prior to While No while statements found 0 0
- Prior to Select Case No SELECT CASE statements found 0 0
Data Structures
- Arrays 0 0
- Lists 0 0
- Structures 0 0
Variable Data Types
- Boolean 0 0
- Integer 0 0
- Decimal/Double 0 0
- Date 0 0
- String 0 0
Program Logic
- ElseIF No ElseIF Statements found
0 0
- Nested IF No Nested IF statements found
0 0
- Nested For/Do No Nested FOR statements found
0 0
- String Formatting No Converting to String found
0 0
- Template Parameters No String Formatting found
0 0
- ByRef Parameters No ByRef Parameters found

0 0
- Optional Parameters No Optional Parameters found

0 0
- Concatination No String Concatination found

0 0
- Complex Conditions No Complex Conditions found
0 0
- Case Insensitive Case Insensitivity not found

0 0
Imports
- System.IO 0 0
- System.Net 0 0
- System.DB 0 0

Assessment Results for frmMain.vb

Form Objects

Req Item Status Possible Pts. Your Score Comment
Design Time Form Properties
✓ - Form Text Prepare Student VB Apps 0 0
✗ - Accept Button Accept Button not set at design time. 0 0 [1]
✗ - Cancel Button Cancel Button not set at design time. 0 0 [2]
✓ - Start Position Set to: CenterScreen 0 0
✓ - Non-Gray Form Color Form color is nongray (#C0C0FF) 0 0
- Form OnLoad Method 0 0
Feedback

[1] - The AcceptButton Property is used to specify which button on the form is activated when the user clicks the enter key. While this can be specified in code, it is best practice to do it at design time in the Properties Window.

[2] - The CancelButton Property is used to specify which button on the form is activated when the user clicks the Esc key. While this can be specified in code, it is best practice to do it at design time in the Properties Window.

Form Object Names Incorporate Object Prefix
✓ - Form (frm) frmMain.vb does start with the frm prefix 0 0
✓ - Buttons (btn) Button objects with proper prefix
 0 0
- Textboxes (txt) None Found 0 0
✗ - Active Labels (lbl) Active Label objects with proper prefix
• lblNZips ["lblNZips"]
• lblDir ["Select Directory"]
• lblSelectedTemplate ["Select Template File"]
• lblMsg []
• lblMessage []
0 0 [1]
✓ - NonActive Labels (no prefix needed) Nonactive Label objects with proper prefix
• Label2 ["Successful"]
• Label3 ["Problem Found"]
• Label4 ["Process Student Blackboard Su ...]
0 0
- Combobox (cbx) None Found 0 0
✓ - Listbox (lbx) Listbox objects with proper prefix
 0 0
✓ - Radiobutton (rbn) RadioButton objects with proper prefix
 0 0
✓ - Checkbox (cbx) CheckBox objects with proper prefix
 0 0
- Groupbox (gbx) None Found 0 0
✗ - OpenFileDialog (ofd) 1 OpenFileDialog do not have proper prefix
- OpenFileDialog1 []
0 0
- SaveFileDialog (sfd) None Found 0 0
- WebBrowser (wb) None Found 0 0
Feedback

[1] - It is best practice to use a lbl prefix for all labels that are utilized in the code (i.e., it is actively referenced in the code).

Coding Standards

Req Item Status Possible Pts. Your Score Comment
Use of Comments
✗ - First Line of Sub/Function Subs / Functions Missing Descriptive Comments (Line No.)
• (48) - Private Sub BackgroundWorker1_DoWork
• (795) - Private Sub btnGetDir_Click
• (846) - Private Sub BackgroundWorker1_RunWorkerCompleted
• (861) - Sub ExtractGUID
• (953) - Private Function Get_Files


Subs / Functions Includes Descriptive Comments (Line No.)
• (357) - Private Function PrefixString
• (380) - Private Sub btnProcessApps_Click
• (503) - Private Sub ProcessVBSubmission
• (778) - Private Sub frmMain_Load
• (785) - Private Sub btnExit_Click
• (791) - Private Sub btnOutput_Click
• (818) - Private Sub btnGetTemplate_Click
• (852) - Private Sub Sort_Submissions
• (960) - Private Sub btnGUID_Click

 0 0 [1]
✗ - Prior to IF IF statements with missing Descriptive Comments (Line No.)
(88), (89), (99), (109), (117), (121), (130), (138), (139), (161), (162), (165), (206), (209), (217), (232), (250), (251), (252), (264), (310), (312), (319), (327), (331), (348), (364), (367), (392), (393), (412), (427), (443), (450), (453), (454), (470), (471), (482), (523), (534), (540), (552), (553), (554), (555), (557), (569), (576), (595), (687), (692), (718), (719), (720), (721), (723), (744), (747), (749), (751), (752), (753), (801), (878), (918), (919)

IF statements that include Descriptive Comments (Line No.)
(183), (249), (262), (283), (325), (438), (602), (631)
0 0 [1]
✗ - Prior to For FOR statements with missing Descriptive Comments (Line No.)
(87), (97), (112), (208), (263), (308), (366), (415), (419), (423), (481), (533), (548), (568), (628), (716), (742), (743), (882), (917)

FOR statements that include Descriptive Comments (Line No.)
(193), 468)
0 0
✗ - Prior to Do DO statements with missing Descriptive Comments (Line No.)
(104), (440), (447), (559), (591), (605), (725)
0 0
✗ - Prior to While WHILE statements with missing Descriptive Comments (Line No.)
(642), (663), (689)

0 0
✗ - Prior to Select Case SELECT statements with missing Descriptive Comments (Line No.)
(141), (146), (648), (669), (831)

0 0
Data Structures
- Arrays • (9) - Dim files_Compressed(200) As String

• (23) - Dim VBProjects(200) As MyVBProjects

• (25) - Dim crcData() As crcdatum

• (42) - Dim FormClass() As myFormClass

• (45) - Dim StudentHW(300) As myStudentHW

• (407) - Dim files_7z() As String = IO.Directory.GetFiles(FolderBrowserDialog1.SelectedPath, "*.7Z")

• (408) - Dim files_rar() As String = IO.Directory.GetFiles(FolderBrowserDialog1.SelectedPath, "*.rar")
• (409) - Dim files_zip() As String = IO.Directory.GetFiles(FolderBrowserDialog1.SelectedPath, "*.zip")
• (620) - Dim strArray2() As String
• (621) - Dim delim2() As String = {"Private Sub", "Public Sub", "Private Function", "Public Function"}
• (710) - Dim delim() As String = {" Me."}
• (711) - Dim strObjects() As String = {"", "Form", "Label", "Button", "TextBox", "ListBox", "ComboBox", "OpenFileDialog", "SaveFileDialog", "RadioButton", "CheckBox", "GroupBox", "WebBrowser", "WebClient"}
• (734) - Dim strArray() As String
 0 0
- Lists 0 0
- Structures • (34) - Public Structure myFormClass
• (39) - Public Structure myStudentHW
 0 0
Feedback

[1] - Variables can be single variables or grouped together in an array. Here is some information about Arrays.

  • Here is a reference related to working with arrays: Arrays in Visual Basic
  • An Array can be one dimensional (i.e., just a one column). You could put the Months of the year in an array, with January being the first item in the array, up through December being the 12 item. WARNING, a long time ago Computer Scientists decided to start counting things starting at zero. So our array of 12 months would go from item(0) for January and item(11) for December.
  • So always keep this in mind - arrays start at zero and go to one less the number of items in the array.
  • Arrays can be multi dimensional, or have multiple columns. Think of it as a spreadsheet with lots of rows, and multiple columns. Lets say you are making a budget, with 12 rows (one for each month), and four columns (i.e., Month, Rent, Food, Utilities). The way you specify this is to define the name for the array, say Budget, and give it the dimension, so Dim Budget(11,3) as double. Looks odd doesn't it. Again remember that the counting starts at 0, so this indicates 12 rows, and 4 columns.
  • You can change the size of an array using a redim statement. So if I wanted to add another column it would be redim Budget(11,4). But if you do this you get a nasty surprise - it throws all the data away that is in the array. To save the data, add a Preserver attribute, such as redim Preserve Budget(11,4).
  • Lists are special forms of arrays that have some useful properties.

Variable Data Types
- Boolean • (6) - Dim GenerateGradesheets As Boolean
• (7) - Dim hasWordTemplateBeenSpecified As Boolean = False
• (13) - Dim hasOptionStrict As Boolean
• (41) - Dim slnFile As Boolean
• (57) - Dim isExists As Boolean? = Nothing
• (58) - Dim isOKToOverwrite As Boolean? = Nothing
• (59) - Dim isOKToOverwriteAll As Boolean = False
• (67) - Dim hasSLNFile As Boolean = Nothing
• (68) - Dim hasvbFile As Boolean = Nothing
• (69) - Dim hasFiles As Boolean = False
• (299) - Dim DupFlag As Boolean
• (300) - Dim NoDesignerVB As Boolean = True
• (508) - Dim isSourceFile As Boolean
• (510) - Dim hasFiles As Boolean = False
• (511) - Dim hasOptionStrict As Boolean = False
• (874) - Dim Match As Boolean
 0 0
- Integer • (24) - Dim nVBProjects As Integer
• (30) - Dim crcN As Integer = -1
• (36) - Dim Ncomments As Integer
• (52) - Dim n, nn As Integer
• (64) - Dim userinput As Integer = 0
• (65) - Dim userinput2 As Integer = Nothing ' ?
• (70) - Dim percentdone As Integer
• (72) - Dim x As Integer
• (78) - Dim studentindex As Integer
• (359) - Dim i As Integer
• (360) - Dim n As Integer
• (383) - Dim i As Integer
• (384) - Dim n As Integer
• (385) - Dim f1, f2 As Integer ' Holds index to two files used to find prefix.
• (386) - Dim strlen As Integer
• (410) - Dim ncompressed As Integer = files_7z.Count + files_rar.Count + files_zip.Count
• (506) - Dim nComment As Integer = 0
• (507) - Dim i As Integer = 0
• (873) - Dim i As Integer = 0
 0 0
- Decimal/Double 0 0
- Date 0 0
- String • (8) - Dim strPrefix As String = ""
• (9) - Dim files_Compressed(200) As String
• (12) - Dim strDirName As String
• (14) - Dim VersionNumber As String
• (18) - Dim UserID As String
• (19) - Dim Filename As String
• (20) - Dim vbCRC As String
• (35) - Dim FormName As String
• (40) - Dim ID As String
• (46) - Dim AssignmentName As String = ""
• (54) - Dim path As String
• (55) - Dim studentID As String = ""
• (56) - Dim fileext As String = ""
• (60) - Dim origFilename As String = ""
• (61) - Dim newfilename As String = ""
• (71) - Dim filename As String
• (73) - Dim PathPrefix As String
• (74) - Dim FilePrefix As String
• (75) - Dim strDir As String
• (76) - Dim lastStudentID As String
• (80) - Dim filesource As String = ""
• (185) - Dim ZipToUnpack As String = filename ' newfilename & fileext ' "C1P3SML.zip"
• (186) - Dim TargetDir As String = path ' "C1P3SML"
• (294) - Dim fname As String
• (296) - Dim lastUser As String = ""
• (297) - Dim lastCRC As String = ""
• (298) - Dim ShortFilename As String = ""
• (381) - Dim fn1 As String = ""
• (382) - Dim fn2 As String = ""
• (407) - Dim files_7z() As String = IO.Directory.GetFiles(FolderBrowserDialog1.SelectedPath, "*.7Z")
• (408) - Dim files_rar() As String = IO.Directory.GetFiles(FolderBrowserDialog1.SelectedPath, "*.rar")
• (409) - Dim files_zip() As String = IO.Directory.GetFiles(FolderBrowserDialog1.SelectedPath, "*.zip")
• (504) - Dim filesource As String
• (505) - Dim fn2 As String
• (509) - Dim cmt As String
• (512) - Dim s1, s2, s3 As String
• (513) - Dim s0 As String
• (620) - Dim strArray2() As String
• (621) - Dim delim2() As String = {"Private Sub", "Public Sub", "Private Function", "Public Function"}
• (710) - Dim delim() As String = {" Me."}
• (711) - Dim strObjects() As String = {"", "Form", "Label", "Button", "TextBox", "ListBox", "ComboBox", "OpenFileDialog", "SaveFileDialog", "RadioButton", "CheckBox", "GroupBox", "WebBrowser", "WebClient"}
• (733) - Dim strLayout As String = returnBetween(filesource, "Private Sub InitializeComponent()", "Me.SuspendLayout()")
• (734) - Dim strArray() As String
• (862) - Dim GUID As String = ""
• (863) - Dim fname As String
• (866) - Dim s As String
• (867) - Dim student As String
 0 0
Program Logic
- ElseIF ElseIF Statements found (Line No.)
• (803) - ElseIf rbnMyDocuments.Checked Then
• (805) - ElseIf rbnDownloads.Checked Then

 0 0
- Nested IF Nested IF statements found (Line No.)
(138), (139), (161), (162), (165), (183), (206), (209), (217), (232), (249), (250), (251), (252), (262), (264), (283), (312), (327), (331), (393), (453), (454), (470), (471), (482), (540), (569), (576), (595), (602), (631), (692), (744), (747), (749), (751), (752), (753), (918), (919)
0 0
- Nested For/Do Nested FOR statements found (Line No.)
(193), (208), (263), (568), (628), (742), (743)
0 0
- String Formatting Converting to String found (Line No.)
Converting to Strings

Using .ToString to convert to string


0 0
- Template Parameters No String Formatting found
0 0
- ByRef Parameters No ByRef Parameters found

0 0
- Optional Parameters No Optional Parameters found

0 0
- Concatination String Concatination found (Line No.)
 (118), (128), (132), (137), (140), (163), (165), (176), (185), (198), (218), (233), (235), (239), (246), (253), (289), (302), (304), (313), (316), (332), (334), (346), (520), (521), (522), (524), (526), (569), (577), (580), (585), (586), (596), (598), (610), (618), (619), (634), (637), (650), (652), (671), (673), (683), (687), (693), (701), (712), (713), (715), (728), (750), (754), (756), (764), (806), (879), (890), (906), (923)
0 0
✓ - Complex Conditions Complex Conditions found (Line No.)
• (310) - If Not .Filename.ToUpper.Contains("DESIGNER.VB") And Not .Filename.ToUpper.Contains("ASSEMBLYINFO.VB") Then
• (312) - If Submissions(i).vbCRC = Submissions(i + 1).vbCRC Or DupFlag = True Then
• (327) - If Not .Filename.ToUpper.Contains("DESIGNER.VB") And Not .Filename.ToUpper.Contains("ASSEMBLYINFO.VB") Then
• (440) - Do While Not files_Compressed(i).Contains("_") And i < n
• (447) - Do While Not files_Compressed(i).Contains("_") And i < n

 0 0
✓ - Case Insensitive Utilization of Case Insensitivity found (Line No.)
 Case Insensitivity not found

• (183) - If fileext.ToUpper = ".ZIP" Then
• (310) - If Not .Filename.ToUpper.Contains("DESIGNER.VB") And Not .Filename.ToUpper.Contains("ASSEMBLYINFO.VB") Then
• (327) - If Not .Filename.ToUpper.Contains("DESIGNER.VB") And Not .Filename.ToUpper.Contains("ASSEMBLYINFO.VB") Then
• (602) - If Not fn2.ToUpper.Contains("SPLASH") Then

 0 0
Imports
- System.IO • (1) - Imports System.IO
• (2) - Imports System.IO.Compression
• (3) - Not found
 0 0
- System.Net • (1) - Not found
• (2) - Not found
• (3) - Not found
 0 0
- System.DB • (1) - Not found
• (2) - Not found
• (3) - Not found
 0 0

Assessment Results for frmOutput.vb

Form Objects

Req Item Status Possible Pts. Your Score Comment
Design Time Form Properties
✓ - Form Text frmOutput 0 0
✗ - Accept Button Accept Button not set at design time. 0 0 [1]
✗ - Cancel Button Cancel Button not set at design time. 0 0 [2]
✓ - Start Position Set to: CenterScreen 0 0
✗ - Non-Gray Form Color Form Color was not changed at design time (still gray) 0 0 [3]
- Form OnLoad Method • (778) - Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 0 0
Feedback

[1] - The AcceptButton Property is used to specify which button on the form is activated when the user clicks the enter key. While this can be specified in code, it is best practice to do it at design time in the Properties Window.

[2] - The CancelButton Property is used to specify which button on the form is activated when the user clicks the Esc key. While this can be specified in code, it is best practice to do it at design time in the Properties Window.

[3] - Setting the form BackColor Property modifies the form color. This check determines if the developer changed the form color from the default gray.

Form Object Names Incorporate Object Prefix
✓ - Form (frm) frmOutput.vb does start with the frm prefix 0 0
✓ - Buttons (btn) Button objects with proper prefix
• btnClose ["close"]
0 0
- Textboxes (txt) None Found 0 0
- Active Labels (lbl) None Found 0 0
- NonActive Labels (no prefix needed) None Found 0 0
- Combobox (cbx) None Found 0 0
- Listbox (lbx) None Found 0 0
- Radiobutton (rbn) None Found 0 0
- Checkbox (cbx) None Found 0 0
- Groupbox (gbx) None Found 0 0
- OpenFileDialog (ofd) None Found 0 0
- SaveFileDialog (sfd) None Found 0 0
- WebBrowser (wb) None Found 0 0

Coding Standards

Req Item Status Possible Pts. Your Score Comment
Use of Comments
- First Line of Sub/Function Subs / Functions Includes Descriptive Comments (Line No.)
• (3) - Private Sub frmOutput_Load
• (8) - Private Sub btnClose_Click
• (12) - Private Sub RichTextBox1_TextChanged

 0 0
- Prior to IF No IF statements found 0 0
- Prior to For No FOR statements found 0 0
- Prior to Do No DO statements found 0 0
- Prior to While No while statements found 0 0
- Prior to Select Case No SELECT CASE statements found 0 0
Data Structures
- Arrays 0 0
- Lists 0 0
- Structures 0 0
Variable Data Types
- Boolean 0 0
- Integer 0 0
- Decimal/Double 0 0
- Date 0 0
- String 0 0
Program Logic
- ElseIF No ElseIF Statements found
0 0
- Nested IF No Nested IF statements found
0 0
- Nested For/Do No Nested FOR statements found
0 0
- String Formatting No Converting to String found
0 0
- Template Parameters No String Formatting found
0 0
- ByRef Parameters No ByRef Parameters found

0 0
- Optional Parameters No Optional Parameters found

0 0
- Concatination No String Concatination found

0 0
- Complex Conditions No Complex Conditions found
0 0
✓ - Case Insensitive Utilization of Case Insensitivity found (Line No.)
 Utilization of Case Insensitivity found (Line No.)
 Case Insensitivity not found

• (183) - If fileext.ToUpper = ".ZIP" Then
• (310) - If Not .Filename.ToUpper.Contains("DESIGNER.VB") And Not .Filename.ToUpper.Contains("ASSEMBLYINFO.VB") Then
• (327) - If Not .Filename.ToUpper.Contains("DESIGNER.VB") And Not .Filename.ToUpper.Contains("ASSEMBLYINFO.VB") Then
• (602) - If Not fn2.ToUpper.Contains("SPLASH") Then


 0 0
Imports
- System.IO 0 0
- System.Net 0 0
- System.DB 0 0

Assessment Results for GUIDClass.vb

Coding Standards

Req Item Status Possible Pts. Your Score Comment
Use of Comments
- First Line of Sub/Function No Subs or Functions found 0 0
- Prior to IF No IF statements found 0 0
- Prior to For No FOR statements found 0 0
- Prior to Do No DO statements found 0 0
- Prior to While No while statements found 0 0
- Prior to Select Case No SELECT CASE statements found 0 0
Data Structures
- Arrays 0 0
- Lists 0 0
- Structures 0 0
Variable Data Types
- Boolean 0 0
- Integer 0 0
- Decimal/Double 0 0
- Date 0 0
- String 0 0
Program Logic
- ElseIF No ElseIF Statements found
0 0
- Nested IF No Nested IF statements found
0 0
- Nested For/Do No Nested FOR statements found
0 0
- String Formatting No Converting to String found
0 0
- Template Parameters No String Formatting found
0 0
- ByRef Parameters No ByRef Parameters found

0 0
- Optional Parameters No Optional Parameters found

0 0
- Concatination No String Concatination found

0 0
- Complex Conditions No Complex Conditions found
0 0
✓ - Case Insensitive Utilization of Case Insensitivity found (Line No.)
 Utilization of Case Insensitivity found (Line No.)
 Utilization of Case Insensitivity found (Line No.)
 Case Insensitivity not found

• (183) - If fileext.ToUpper = ".ZIP" Then
• (310) - If Not .Filename.ToUpper.Contains("DESIGNER.VB") And Not .Filename.ToUpper.Contains("ASSEMBLYINFO.VB") Then
• (327) - If Not .Filename.ToUpper.Contains("DESIGNER.VB") And Not .Filename.ToUpper.Contains("ASSEMBLYINFO.VB") Then
• (602) - If Not fn2.ToUpper.Contains("SPLASH") Then



 0 0
Imports
- System.IO 0 0
- System.Net 0 0
- System.DB 0 0

Assessment Results for JHGModule1.vb

Coding Standards

Req Item Status Possible Pts. Your Score Comment
Use of Comments
✗ - First Line of Sub/Function Subs / Functions Missing Descriptive Comments (Line No.)
• (8) - Public Function RemoveWhiteSpace
• (47) - Public Function RemoveBetween
• (72) - Public Function TrimUpTo
• (89) - Public Function UseSmaller
• (104) - Public Sub Pause


Subs / Functions Includes Descriptive Comments (Line No.)
• (28) - Public Function returnBetween
• (99) - Public Function LeftNChar
• (114) - Public Function ReturnLastField

 0 0 [1]
✗ - Prior to IF IF statements with missing Descriptive Comments (Line No.)
(36), (54), (56), (77), (78)

IF statements that include Descriptive Comments (Line No.)
(53), (92)
0 0 [1]
✗ - Prior to For FOR statements with missing Descriptive Comments (Line No.)
(14)

0 0
✗ - Prior to Do DO statements with missing Descriptive Comments (Line No.)
(110)
0 0
✗ - Prior to While WHILE statements with missing Descriptive Comments (Line No.)
(18), (22)

0 0
- Prior to Select Case No SELECT CASE statements found 0 0
Data Structures
- Arrays • (115) - Dim ss() As String
• (116) - Dim d() As String = {delim}
 0 0
- Lists 0 0
- Structures 0 0
Feedback

[1] - Variables can be single variables or grouped together in an array. Here is some information about Arrays.

  • Here is a reference related to working with arrays: Arrays in Visual Basic
  • An Array can be one dimensional (i.e., just a one column). You could put the Months of the year in an array, with January being the first item in the array, up through December being the 12 item. WARNING, a long time ago Computer Scientists decided to start counting things starting at zero. So our array of 12 months would go from item(0) for January and item(11) for December.
  • So always keep this in mind - arrays start at zero and go to one less the number of items in the array.
  • Arrays can be multi dimensional, or have multiple columns. Think of it as a spreadsheet with lots of rows, and multiple columns. Lets say you are making a budget, with 12 rows (one for each month), and four columns (i.e., Month, Rent, Food, Utilities). The way you specify this is to define the name for the array, say Budget, and give it the dimension, so Dim Budget(11,3) as double. Looks odd doesn't it. Again remember that the counting starts at 0, so this indicates 12 rows, and 4 columns.
  • You can change the size of an array using a redim statement. So if I wanted to add another column it would be redim Budget(11,4). But if you do this you get a nasty surprise - it throws all the data away that is in the array. To save the data, add a Preserver attribute, such as redim Preserve Budget(11,4).
  • Lists are special forms of arrays that have some useful properties.

Variable Data Types
- Boolean 0 0
- Integer • (11) - Dim i As Integer
• (30) - Dim SearchStart As Integer = 0, SearchEnd As Integer = 0
• (49) - Dim i, j As Integer
• (75) - Dim i As Integer
 0 0
- Decimal/Double 0 0
- Date • (107) - Dim CurrentTime As Date = Now()
 0 0
- String • (29) - Dim s As String = Str
• (115) - Dim ss() As String
• (116) - Dim d() As String = {delim}
• (117) - Dim s As String
 0 0
Program Logic
- ElseIF No ElseIF Statements found
0 0
- Nested IF Nested IF statements found (Line No.)
(56), (78)
0 0
- Nested For/Do No Nested FOR statements found
0 0
- String Formatting No Converting to String found
0 0
- Template Parameters No String Formatting found
0 0
- ByRef Parameters No ByRef Parameters found

0 0
- Optional Parameters Optional Parameters found (Line No.)
Public Function returnBetween defined in line (28) has an Optional Parameter

0 0
- Concatination String Concatination found (Line No.)
 (62), (67)
0 0
- Complex Conditions No Complex Conditions found
0 0
✓ - Case Insensitive Utilization of Case Insensitivity found (Line No.)
 Utilization of Case Insensitivity found (Line No.)
 Utilization of Case Insensitivity found (Line No.)
 Utilization of Case Insensitivity found (Line No.)
 Case Insensitivity not found

• (183) - If fileext.ToUpper = ".ZIP" Then
• (310) - If Not .Filename.ToUpper.Contains("DESIGNER.VB") And Not .Filename.ToUpper.Contains("ASSEMBLYINFO.VB") Then
• (327) - If Not .Filename.ToUpper.Contains("DESIGNER.VB") And Not .Filename.ToUpper.Contains("ASSEMBLYINFO.VB") Then
• (602) - If Not fn2.ToUpper.Contains("SPLASH") Then




 0 0
Imports
- System.IO 0 0
- System.Net 0 0
- System.DB 0 0

Assessment Results for ModuleCRC.vb

Coding Standards

Req Item Status Possible Pts. Your Score Comment
Use of Comments
✗ - First Line of Sub/Function Subs / Functions Missing Descriptive Comments (Line No.)
• (5) - Public Function GetCRC32


 0 0 [1]
✗ - Prior to IF IF statements with missing Descriptive Comments (Line No.)
(23)

0 0 [1]
✗ - Prior to For FOR statements with missing Descriptive Comments (Line No.)
(22), (35)

FOR statements that include Descriptive Comments (Line No.)
(20)
0 0
- Prior to Do DO statements that include Descriptive Comments (Line No.)
(34)

0 0
- Prior to While No while statements found 0 0
- Prior to Select Case No SELECT CASE statements found 0 0
Data Structures
- Arrays • (11) - Dim Buffer(4096) As Byte
• (14) - Dim CRC32Table(256) As Integer
 0 0
- Lists 0 0
- Structures 0 0
Feedback

[1] - Variables can be single variables or grouped together in an array. Here is some information about Arrays.

  • Here is a reference related to working with arrays: Arrays in Visual Basic
  • An Array can be one dimensional (i.e., just a one column). You could put the Months of the year in an array, with January being the first item in the array, up through December being the 12 item. WARNING, a long time ago Computer Scientists decided to start counting things starting at zero. So our array of 12 months would go from item(0) for January and item(11) for December.
  • So always keep this in mind - arrays start at zero and go to one less the number of items in the array.
  • Arrays can be multi dimensional, or have multiple columns. Think of it as a spreadsheet with lots of rows, and multiple columns. Lets say you are making a budget, with 12 rows (one for each month), and four columns (i.e., Month, Rent, Food, Utilities). The way you specify this is to define the name for the array, say Budget, and give it the dimension, so Dim Budget(11,3) as double. Looks odd doesn't it. Again remember that the counting starts at 0, so this indicates 12 rows, and 4 columns.
  • You can change the size of an array using a redim statement. So if I wanted to add another column it would be redim Budget(11,4). But if you do this you get a nasty surprise - it throws all the data away that is in the array. To save the data, add a Preserver attribute, such as redim Preserve Budget(11,4).
  • Lists are special forms of arrays that have some useful properties.

Variable Data Types
- Boolean 0 0
- Integer • (10) - Dim CRC32Result As Integer = &HFFFFFFFF
• (12) - Dim ReadSize As Integer = 4096
• (13) - Dim Count As Integer = FS.Read(Buffer, 0, ReadSize)
• (14) - Dim CRC32Table(256) As Integer
• (15) - Dim DWPolynomial As Integer = &HEDB88320
• (16) - Dim DWCRC As Integer
• (17) - Dim i As Integer, j As Integer, n As Integer
 0 0
- Decimal/Double 0 0
- Date 0 0
- String 0 0
Program Logic
- ElseIF No ElseIF Statements found
0 0
- Nested IF No Nested IF statements found
0 0
- Nested For/Do Nested FOR statements found (Line No.)
(22)
0 0
- String Formatting No Converting to String found
0 0
- Template Parameters No String Formatting found
0 0
- ByRef Parameters No ByRef Parameters found

0 0
- Optional Parameters No Optional Parameters found

0 0
- Concatination No String Concatination found

0 0
✓ - Complex Conditions Complex Conditions found (Line No.)
• (23) - If CBool(DWCRC And 1) Then

 0 0
✓ - Case Insensitive Utilization of Case Insensitivity found (Line No.)
 Utilization of Case Insensitivity found (Line No.)
 Utilization of Case Insensitivity found (Line No.)
 Utilization of Case Insensitivity found (Line No.)
 Utilization of Case Insensitivity found (Line No.)
 Case Insensitivity not found

• (183) - If fileext.ToUpper = ".ZIP" Then
• (310) - If Not .Filename.ToUpper.Contains("DESIGNER.VB") And Not .Filename.ToUpper.Contains("ASSEMBLYINFO.VB") Then
• (327) - If Not .Filename.ToUpper.Contains("DESIGNER.VB") And Not .Filename.ToUpper.Contains("ASSEMBLYINFO.VB") Then
• (602) - If Not fn2.ToUpper.Contains("SPLASH") Then





 0 0
Imports
- System.IO • (1) - Not found
• (2) - Imports System.IO
 0 0
- System.Net • (1) - Not found
• (2) - Not found
 0 0
- System.DB • (1) - Not found
• (2) - Not found
 0 0