[Fork] Template: Hour of Code VB - Brecksville | C# Online Compiler

[Fork] Template: Hour of Code VB - Brecksville by Raksha Karthikeyan

Imports System.Collections.Generic
Imports System.ComponentModel.DataAnnotations

Namespace HourOfCode.Models

    Public Class ReportCardViewModel

        Private _reportCardMarks As List(Of ReportCardMark)

        Public Sub New()
            Me._reportCardMarks = New List(Of ReportCardMark)()
        End Sub

        Public Property StudentName() As String
            Get
                Return m_StudentName
            End Get

            Set
                m_StudentName = Value
            End Set
        End Property

        Private m_StudentName As String

        Public Property GPA() As String
            Get
                Return m_GPA
            End Get

            Set
                m_GPA = Value
            End Set
        End Property

        Private m_GPA As String

        Public ReadOnly Property ReportCardMarks() As List(Of ReportCardMark)
            Get
                Return _reportCardMarks
            End Get
        End Property
    End Class

    Public Class ReportCardMark

        Public Property CourseName() As String
            Get
                Return m_CourseName
            End Get

            Set
                m_CourseName = Value
            End Set
        End Property

        Private m_CourseName As String

        <Required(ErrorMessage:="A valid mark is required (A - F)")>
        Public Property Mark() As String
            Get
                Return m_Mark
            End Get

            Set
                m_Mark = Value
            End Set
        End Property

        Private m_Mark As String
    End Class
End Namespace

Model

​x
 
Imports System.Collections.Generic
Imports System.ComponentModel.DataAnnotations
​
Namespace HourOfCode.Models
​
    Public Class ReportCardViewModel
​
        Private _reportCardMarks As List(Of ReportCardMark)
​
        Public Sub New()
            Me._reportCardMarks = New List(Of ReportCardMark)()
        End Sub
​
        Public Property StudentName() As String
            Get
                Return m_StudentName
            End Get
​
            Set
                m_StudentName = Value
            End Set
        End Property
​
        Private m_StudentName As String
​
        Public Property GPA() As String
            Get
                Return m_GPA
            End Get
​
            Set
                m_GPA = Value
            End Set
        End Property
​
        Private m_GPA As String
​
        Public ReadOnly Property ReportCardMarks() As List(Of ReportCardMark)
            Get
                Return _reportCardMarks
            End Get
        End Property
    End Class
​
    Public Class ReportCardMark
​
        Public Property CourseName() As String
            Get
                Return m_CourseName
            End Get
​
            Set
                m_CourseName = Value
            End Set
        End Property
​
        Private m_CourseName As String
​
        <Required(ErrorMessage:="A valid mark is required (A - F)")>
        Public Property Mark() As String
            Get
                Return m_Mark
            End Get
​
            Set
                m_Mark = Value
            End Set
        End Property
​
        Private m_Mark As String
    End Class
End Namespace
​

@ModelType HourOfCode.Models.ReportCardViewModel

@Code
	Layout = Nothing
End Code

<!DOCTYPE html>
<!-- template from http://getbootstrap.com/getting-started -->

<html lang="en">
	<head>
		<meta charset="utf-8">
		<meta http-equiv="X-UA-Compatible" content="IE=edge">
		<meta name="viewport" content="width=device-width, initial-scale=1">
		<title>Bootstrap 101 Template</title>

		<!-- CSS Includes -->
		<link rel="stylesheet" href="//netdna.bootstrapcdn.com/bootstrap/3.1.1/css/bootstrap.min.css">
		
		<style type="text/css">

			.field-validation-error {
				color: #ff0000;
			}
			
			header {
			/*
				background-color: #336699;
				color: white;
				text-align: center;
				padding: 1em;
			*/
			}
			button {
				display: none;
			}

		</style>
	</head>
	
	<body>
		<div class="container">
			<div class="col-md-10 col-md-offset-2">
				<header>
					<h1></h1>
					<h2></h2>
				</header>
	
				<div>
					<h4></h4>
				</div>
				
			@Using (Html.BeginForm("Index", "Home", FormMethod.Post, New With {.class = "form-horizontal"}))

                @For i = 0 To Model.ReportCardMarks.Count - 1
                    Dim index As Integer = i

                    @<div class="form-group">
                    @Html.LabelFor(Function(Model) Model.ReportCardMarks(index).Mark, Model.ReportCardMarks(index).CourseName, New With {.Class = "col-sm-2 control-label"})

                    <div class="col-sm-10">
					@Html.TextBoxFor(Function(Model) Model.ReportCardMarks(index).Mark, new With { .class = "form-control"})
							@Html.ValidationMessageFor(Function(Model) Model.ReportCardMarks(index).Mark)    
							@Html.HiddenFor(Function(Model) Model.ReportCardMarks(index).CourseName)
                    </div>
                </div>

                Next i

				@<button class="submit" type="button">Calculate GPA</button>
    
            End Using
	
				<br/><br/>
				<div Class="alert alert-success fade">
						<span id = "gpa" ></span>
                </div>

			</div>
		</div>

		<!-- JS includes -->
		<script src="//ajax.googleapis.com/ajax/libs/jquery/1.11.0/jquery.min.js"></script>
		<script src="//netdna.bootstrapcdn.com/bootstrap/3.1.1/js/bootstrap.min.js"></script>
	
		<script src="//ajax.aspnetcdn.com/ajax/jquery.validate/1.11.1/jquery.validate.min.js"></script>
		<script src="//ajax.aspnetcdn.com/ajax/mvc/4.0/jquery.validate.unobtrusive.min.js"></script>
		
		<script type="text/javascript">
		
			function openAlert(txt) {
				var msg = "Your GPA is: " + txt;
				$('#gpa').text(msg);
				$('.alert').addClass('in');
			}
		
			function closeAlert() {
				$('.alert').removeClass('in');
			}
		
			$(function(){
				
				$('#Question').change(closeAlert);
				$('#Question').keyup(closeAlert);
		
				$('.submit').click(function(e){
					e.preventDefault();
					if($('form').valid()) {
					
						$.ajax({
							url: '@Url.RouteUrl(new With { .Action="CalculateGPA", .Controller="Home"})',
							data: $("form").serialize(),
								type: 'POST',
								//dataType: 'json',
								//contentType: "application/json; charset=utf-8",
								success: function(resp) {
								openAlert(resp);
						}});
					}
					else {
						closeAlert();
					}
				});
			
			});

		</script>
	</body>
</html>

View

 
@ModelType HourOfCode.Models.ReportCardViewModel
​
@Code
    Layout = Nothing
End Code
​
<!DOCTYPE html>
<!-- template from http://getbootstrap.com/getting-started -->
​
<html lang="en">
    <head>
        <meta charset="utf-8">
        <meta http-equiv="X-UA-Compatible" content="IE=edge">
        <meta name="viewport" content="width=device-width, initial-scale=1">
        <title>Bootstrap 101 Template</title>
​
        <!-- CSS Includes -->
        <link rel="stylesheet" href="//netdna.bootstrapcdn.com/bootstrap/3.1.1/css/bootstrap.min.css">
        
        <style type="text/css">
​
            .field-validation-error {
                color: #ff0000;
            }
            
            header {
            /*
                background-color: #336699;
                color: white;
                text-align: center;
                padding: 1em;
            */
            }
            button {
                display: none;
            }
​
        </style>
    </head>
    
    <body>
        <div class="container">
            <div class="col-md-10 col-md-offset-2">
                <header>
                    <h1></h1>
                    <h2></h2>
                </header>
    
                <div>
                    <h4></h4>
                </div>
                
            @Using (Html.BeginForm("Index", "Home", FormMethod.Post, New With {.class = "form-horizontal"}))
​
                @For i = 0 To Model.ReportCardMarks.Count - 1
                    Dim index As Integer = i
​
                    @<div class="form-group">
                    @Html.LabelFor(Function(Model) Model.ReportCardMarks(index).Mark, Model.ReportCardMarks(index).CourseName, New With {.Class = "col-sm-2 control-label"})
​
                    <div class="col-sm-10">
                    @Html.TextBoxFor(Function(Model) Model.ReportCardMarks(index).Mark, new With { .class = "form-control"})
                            @Html.ValidationMessageFor(Function(Model) Model.ReportCardMarks(index).Mark)    
                            @Html.HiddenFor(Function(Model) Model.ReportCardMarks(index).CourseName)
                    </div>
                </div>
​
                Next i
​
                @<button class="submit" type="button">Calculate GPA</button>
    
            End Using
    
                <br/><br/>
                <div Class="alert alert-success fade">
                        <span id = "gpa" ></span>
                </div>
​
            </div>
        </div>
​
        <!-- JS includes -->
        <script src="//ajax.googleapis.com/ajax/libs/jquery/1.11.0/jquery.min.js"></script>
        <script src="//netdna.bootstrapcdn.com/bootstrap/3.1.1/js/bootstrap.min.js"></script>
    
        <script src="//ajax.aspnetcdn.com/ajax/jquery.validate/1.11.1/jquery.validate.min.js"></script>
        <script src="//ajax.aspnetcdn.com/ajax/mvc/4.0/jquery.validate.unobtrusive.min.js"></script>
        
        <script type="text/javascript">
        
            function openAlert(txt) {
                var msg = "Your GPA is: " + txt;
                $('#gpa').text(msg);
                $('.alert').addClass('in');
            }
        
            function closeAlert() {
                $('.alert').removeClass('in');
            }
        
            $(function(){
                
                $('#Question').change(closeAlert);
                $('#Question').keyup(closeAlert);
        
                $('.submit').click(function(e){
                    e.preventDefault();
                    if($('form').valid()) {
                    
                        $.ajax({
                            url: '@Url.RouteUrl(new With { .Action="CalculateGPA", .Controller="Home"})',
                            data: $("form").serialize(),
                                type: 'POST',
                                //dataType: 'json',
                                //contentType: "application/json; charset=utf-8",
                                success: function(resp) {
                                openAlert(resp);
                        }});
                    }
                    else {
                        closeAlert();
                    }
                });
            
            });
​
        </script>
    </body>
</html>
​

Imports HourOfCode.Models
Imports System.Collections.Generic
Imports System.Linq
Imports System.Web
Imports System.Web.Mvc

Namespace HourOfCode.Controllers

    Public Class HomeController
        Inherits Controller

        Public Function Index() As ActionResult
            Dim reportCardService = New ReportCardService()
            Dim viewModel = reportCardService.GetReportCard()
            Return View(viewModel)
        End Function

        <HttpPost>
        Public Function CalculateGPA(viewModel As ReportCardViewModel) As ActionResult
            Dim reportCardService = New ReportCardService()
            Dim gpa as Double = reportCardService.CalculateGPA(viewModel.ReportCardMarks)
            Dim formattedGPA as String = gpa.ToString("N2")
            Return Json(formattedGPA)
        End Function
    End Class

    Public Class ReportCardService

        Public Function GetReportCard() As ReportCardViewModel
			
			' Array of Courses on our report card		
		Dim courses = New String() {  }
            
			' Create a new Model to pass to browser
			Dim reportCardViewModel as ReportCardViewModel = New ReportCardViewModel()
            
			' Loop thru courses and create ReportCardMark objects	
			For Each course As String In courses
                Dim reportCardMark = New ReportCardMark()
                reportCardMark.CourseName = course
                reportCardViewModel.ReportCardMarks.Add(reportCardMark)
            Next

            Return reportCardViewModel
		
		
        End Function

        Public Function CalculateGPA(reportCardMarks As List(Of ReportCardMark)) As Double
			' Implement GPA calculation here
	
			'Dim pointsPossible as Double = 0.0
            'Dim pointsEarned as Double = 0.0
	
			' Loop thru ReportCardMarks entered by user
            'For Each reportCardMark As ReportCardMark In reportCardMarks
                'Dim points = Me.ConvertLetterGradeToPoints(reportCardMark.Mark)
                'pointsEarned += points
                'pointsPossible += 1.0
            'Next

            'Return pointsEarned / pointsPossible
	
            Return 0.0
        End Function

        Private Function ConvertLetterGradeToPoints(letterGrade As String) As Double
			' Implement letter to points here
			'Dim capitalLetterGrade as String = letterGrade.ToUpper()
            'If capitalLetterGrade = "A" Then
            '    Return 4.0
            'ElseIf capitalLetterGrade = "B" Then
            '    Return 3.0
            'ElseIf capitalLetterGrade = "C" Then
            '    Return 2.0
            'ElseIf capitalLetterGrade = "D" Then
            '    Return 1.0
            'Else
            '    Return 0.0
            'End If
	
	
			Return 0.0
        End Function
    End Class
End Namespace

Controller

 
Imports HourOfCode.Models
Imports System.Collections.Generic
Imports System.Linq
Imports System.Web
Imports System.Web.Mvc
​
Namespace HourOfCode.Controllers
​
    Public Class HomeController
        Inherits Controller
​
        Public Function Index() As ActionResult
            Dim reportCardService = New ReportCardService()
            Dim viewModel = reportCardService.GetReportCard()
            Return View(viewModel)
        End Function
​
        <HttpPost>
        Public Function CalculateGPA(viewModel As ReportCardViewModel) As ActionResult
            Dim reportCardService = New ReportCardService()
            Dim gpa as Double = reportCardService.CalculateGPA(viewModel.ReportCardMarks)
            Dim formattedGPA as String = gpa.ToString("N2")
            Return Json(formattedGPA)
        End Function
    End Class
​
    Public Class ReportCardService
​
        Public Function GetReportCard() As ReportCardViewModel
            
            ' Array of Courses on our report card       
        Dim courses = New String() {  }
            
            ' Create a new Model to pass to browser
            Dim reportCardViewModel as ReportCardViewModel = New ReportCardViewModel()
            
            ' Loop thru courses and create ReportCardMark objects   
            For Each course As String In courses
                Dim reportCardMark = New ReportCardMark()
                reportCardMark.CourseName = course
                reportCardViewModel.ReportCardMarks.Add(reportCardMark)
            Next
​
            Return reportCardViewModel
        
        
        End Function
​
        Public Function CalculateGPA(reportCardMarks As List(Of ReportCardMark)) As Double
            ' Implement GPA calculation here
    
            'Dim pointsPossible as Double = 0.0
            'Dim pointsEarned as Double = 0.0
    
            ' Loop thru ReportCardMarks entered by user
            'For Each reportCardMark As ReportCardMark In reportCardMarks
                'Dim points = Me.ConvertLetterGradeToPoints(reportCardMark.Mark)
                'pointsEarned += points
                'pointsPossible += 1.0
            'Next
​
            'Return pointsEarned / pointsPossible
    
            Return 0.0
        End Function
​
        Private Function ConvertLetterGradeToPoints(letterGrade As String) As Double
            ' Implement letter to points here
            'Dim capitalLetterGrade as String = letterGrade.ToUpper()
            'If capitalLetterGrade = "A" Then
            '    Return 4.0
            'ElseIf capitalLetterGrade = "B" Then
            '    Return 3.0
            'ElseIf capitalLetterGrade = "C" Then
            '    Return 2.0
            'ElseIf capitalLetterGrade = "D" Then
            '    Return 1.0
            'Else
            '    Return 0.0
            'End If
    
    
            Return 0.0
        End Function
    End Class
End Namespace
​

View in Full Screen

0
1
1
2
3
6
12
24
48
96
192

Last Run:	9:34:02 am
Compile:	0.157s
Execute:	0s
Memory:	0b
CPU:	0.016s

View IL Code