Css.html | C# Online Compiler

Css.html by Harsh padaye

Imports System
Imports System.ComponentModel.DataAnnotations

Namespace HelloWorldMvcApp

	Public Class SampleViewModel
			<Required> _
			<MinLength(10)> _
			<MaxLength(100)> _
			<Display(Name:="Ask Magic 8 Ball any question:")> _
			Public Property Question As String

			'See here for list of answers
			Public Property Answer As String

	End Class

End Namespace

Model

​x
 
Imports System
Imports System.ComponentModel.DataAnnotations
​
Namespace HelloWorldMvcApp
​
    Public Class SampleViewModel
            <Required> _
            <MinLength(10)> _
            <MaxLength(100)> _
            <Display(Name:="Ask Magic 8 Ball any question:")> _
            Public Property Question As String
​
            'See here for list of answers
            Public Property Answer As String
​
    End Class
​
End Namespace
​

#header{  
    color: #247BA0;  
    text-align: center;  
    font-size: 20px;  
}  
#nav{  
    background-color:#FF1654;  
    padding: 5px;  
}  
ul{  
  
    list-style-type: none;  
}  
li a {  
    color: #F1FAEE;  
font-size: 30px;  
column-width: 5%;  
    }  
    li  
   {  
    display: inline;  
    padding-left: 2px;  
    column-width: 20px;  
   }  
   a{  
 text-decoration: none;  
 margin-left:20px  
    }  
   li a:hover{  
    background-color: #F3FFBD;  
    color: #FF1654;  
    padding:1%;  
   }  
   #side{  
    text-align: center;  
    float: right;  
    width: 15%;  
    padding-bottom: 79%;  
    background-color: #F1FAEE;  
   }  
   #article{  
    background-color: #EEF5DB;  
    padding: 10px;  
    padding-bottom: 75%;  
   }  
   #footer{  
    background-color: #C7EFCF;  
    text-align:center;  
    padding-bottom: 5%;  
    font-size: 20px;  
}  
   #con{  
       border:double;  
       border-color:burlywood;  
   }

View

 
#header{  
    color: #247BA0;  
    text-align: center;  
    font-size: 20px;  
}  
#nav{  
    background-color:#FF1654;  
    padding: 5px;  
}  
ul{  
  
    list-style-type: none;  
}  
li a {  
    color: #F1FAEE;  
font-size: 30px;  
column-width: 5%;  
    }  
    li  
   {  
    display: inline;  
    padding-left: 2px;  
    column-width: 20px;  
   }  
   a{  
 text-decoration: none;  
 margin-left:20px  
    }  
   li a:hover{  
    background-color: #F3FFBD;  
    color: #FF1654;  
    padding:1%;  
   }  
   #side{  
    text-align: center;  
    float: right;  
    width: 15%;  
    padding-bottom: 79%;  
    background-color: #F1FAEE;  
   }  
   #article{  
    background-color: #EEF5DB;  
    padding: 10px;  
    padding-bottom: 75%;  
   }  
   #footer{  
    background-color: #C7EFCF;  
    text-align:center;  
    padding-bottom: 5%;  
    font-size: 20px;  
}  
   #con{  
       border:double;  
       border-color:burlywood;  
   }  

Imports System
Imports System.Web.Mvc
Imports System.Collections.Generic

Namespace HelloWorldMvcApp
	Public Class HomeController
		Inherits System.Web.Mvc.Controller

		<HttpGet> _
		Function Index() As ActionResult
			Return View(New SampleViewModel)
		End Function

		<HttpPost> _
		Function GetAnswer(ByVal Question As String) As JsonResult
			Dim index As Integer = 1 + _rnd.Next(_db.Count)
			Dim answer = _db(index)
			Return Json(answer)
		End Function

		Private Shared _rnd As Random = New Random()

		Private Shared _db As List(Of String) = New List(Of String) From {"Yes", "No", "Definitely, yes", "I don't know", "Looks like, yes"}

	End Class
End Namespace

Controller

 
Imports System
Imports System.Web.Mvc
Imports System.Collections.Generic
​
Namespace HelloWorldMvcApp
    Public Class HomeController
        Inherits System.Web.Mvc.Controller
​
        <HttpGet> _
        Function Index() As ActionResult
            Return View(New SampleViewModel)
        End Function
​
        <HttpPost> _
        Function GetAnswer(ByVal Question As String) As JsonResult
            Dim index As Integer = 1 + _rnd.Next(_db.Count)
            Dim answer = _db(index)
            Return Json(answer)
        End Function
​
        Private Shared _rnd As Random = New Random()
​
        Private Shared _db As List(Of String) = New List(Of String) From {"Yes", "No", "Definitely, yes", "I don't know", "Looks like, yes"}
​
    End Class
End Namespace
​

View in Full Screen

View IL Code