CUShort Example Syntax VB.NET ASP.NET | CUShort | Source Code

CUShort Example Syntax VB.NET ASP.NET | CUShort | Source Code

Summary: – Illustrates using with in VB.NET ASP.NET.



Purpose:
Converts numbers into UShort data type – UShort data type is a
16-bit (2-byte) unsigned integer that can hold values from 0 to
65,535 (unsigned). Rounds fractions to whole numbers

Syntax:
CUShort(expression)

Parameters Description
expression 0 to 65,535 (unsigned) – will throw Exception if
negative number is passed in. Rounds fractions
to whole numbers

Result Data Type Description
UShort 16-bit (2-byte) unsigned integer

Quick Example
Dim UShort1 As UShort = CUShort(1.33)
TextBox1.Text = UShort1 Returns 1

Step 1: Click on Visual Basic to Cut-n-paste code into CUShort.aspx.vb

Imports System
Imports System.IO
Imports System.Data
 
'********************************************************************************
' Purpose: Converts numbers into UShort data type - UShort data type is a
' 16-bit (2-byte) unsigned integer that can hold values from 0 to
' 65,535 (unsigned). Rounds fractions to whole numbers
' 
' Syntax: 	CUShort(expression)
' 
' Parameter1: expression -  0 to 65,535 (unsigned) - will throw Exception if
' negative number is passed in.  Rounds fractions
' to whole numbers
'
' Result: UShort - 16-bit (2-byte) unsigned integer
'
' Quick Example: Dim UShort1 As UShort = CUShort(1.33)
'        TextBox1.Text = UShort1 ' Returns 1
'
'********************************************************************************
' This example is from http://idealprogrammer.com
 
 
 
Partial Class _CUShort
    Inherits System.Web.UI.Page
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
        Label1.Text = "Example #1: 	 CUShort(1.33) "
 
        Dim UShort1 As UShort = CUShort(1.33)
 
        TextBox1.Text = UShort1 ' Returns 1
 
        Label2.Text = "Example #2: 	CUShort(3.4) "
 
        Dim UShort2 As UShort = CUShort(3.4)
 
        TextBox2.Text = UShort2 ' Returns 3
 
        Label3.Text = "Example #3: 	CUShort(5.5)"
 
        Dim UShort3 As UShort = CUShort(5.5)
 
        TextBox3.Text = UShort3 ' Returns 6
 
 
    End Sub
End Class

Step 2: Click on XML to Cut-n-paste code into CUShort.aspx

< %@ Page Language="VB" AutoEventWireup="false" CodeFile="CUShort.aspx.vb" Inherits="_CUShort" %>
 
< !DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
 
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
    <title></title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
        <h1><asp:label ID="Label1" runat="server" Text="Label"></asp:label> </h1>
         <asp:textbox ID="TextBox1" runat="server"></asp:textbox><br />
          <h1><asp:label ID="Label2" runat="server" Text="Label"></asp:label> </h1>
         <asp:textbox ID="TextBox2" runat="server"></asp:textbox><br />
          <h1><asp:label ID="Label3" runat="server" Text="Label"></asp:label> </h1>
         <asp:textbox ID="TextBox3" runat="server"></asp:textbox><br />
 
 
 
    </div>
    </form>
</body>
</html>

Prerequistes:

  1. Install Visual Web Developer 2010
  2. Install SQL Server Express
  3. Download Northwind and Pubs Databases
  4. Attach Northwind Database to Databases in Sql Express
  5. Attach pubs Database to Databases in Sql Express

Notes:

  • You can build your own library of syntax examples by using same web site over and over and just add new web forms to it.

Instructions:

VB.NET ASP.NET Syntax Functions CUShort
  1. Use Visual Web Developer 2010
  2. Create new web site;
    • Click File/New Web Site
    • Select ASP.NET Website Template
    • Select Visual Basic for Language
    • name of Web Site could be VBNET_ASPNET_Syntax.
  3. Add New folder named “Functions”
    • Right-click project name in solution explorer;
    • add new folder;
    • name of folder could be: Functions
  4. Add New subfolder named “ConversionFunctions”
    • Right-click Functions folder in solution explorer;
    • add new folder;
    • name of folder could be: ConversionFunctions
  5. Add New subfolder named “TypeConversionFunctions”
    • Right-click ConversionFunctions folder in solution explorer;
    • add new folder;
    • name of folder could be: TypeConversionFunctions
  6. Add Web Form Named CUShort to TypeConversionFunctions folder
    • Right-click TypeConversionFunctions folder;
    • add new item;
    • Select Web Form
    • Check place code behind in separate file
    • Web Form name could be CUShort
  7. Click on Visual Basic in step 1 at the top of this page to copy code into code-behind CUShort.aspx.vb
  8. Click on XML in step 2 above to copy code into web form CUShort.aspx
  9. Right-click on CUShort.aspx in solution explorer and select view in browser