VB.NET CUShort Example – Code Sample Syntax

VB.NET CUShort Example – Code Sample Syntax

Abstract: – Illustrates using VB.NET CUShort Code Example.

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

Step 1: Click Visual Basic to Cut-n-paste code into clsCUShort.vb

Public Class clsCUShort
 
    Public Sub Main()
 
 
        '********************************************************************************
        ' 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
        ' 
        ' Range: 0 to 65,535 (unsigned) - will throw Exception if
        ' negative number is passed in.  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
        '
        '
        '********************************************************************************
        ' This example is from http://idealprogrammer.com
 
        Console.WriteLine("Example #1: 	CUShort(expression)")
 
        Dim UShort1 As UShort = CUShort(1.33)
 
        Console.WriteLine(UShort1) ' Returns 1
 
        'write blank line to make output easier to read
        Console.WriteLine()
 
        Console.WriteLine("Example #2: 	CUShort(expression)")
 
        Dim UShort2 As UShort = CUShort(3.4)
 
        Console.WriteLine(UShort2) ' Returns 3
        'write blank line to make output easier to read
        Console.WriteLine()
 
        Console.WriteLine("Example #3: 	CUShort(expression)")
 
        Dim UShort3 As UShort = CUShort(5.5)
 
        Console.WriteLine(CUShort(UShort3)) ' Returns 6
 
        'Prevent console from closing before you press enter
        Console.ReadLine()
 
    End Sub
 
End Class

Step 2: Click Visual Basic to Cut-n-paste code into Module1.vb

Module Module1
 
    Sub Main()
 
 
        Dim myclsCUShort As New clsCUShort
        myclsCUShort.Main()
 
 
 
    End Sub
 
End Module

Prerequistes:

1. Install Visual Basic (Express or Standard Edition)
2. Install SQL Server Express
3. Download Northwind and pubs Database
4. Attach Northwind Database to Databases in Sql Express
5. Attach pubs Database to Databases in Sql Express

Notes:

• Console Application is used to simplify things, but Windows Forms or Web Forms could also be used
• You can build a library of syntax examples by using same project over and over and just commenting out what you do not want to execute in Module1.vb

Instructions:

1. Use Visual Basic 2010 Express or Standard Edition
2. Create new project;
   • Click File/New Project
   • Select Console Application Template
   • Select Visual Basic for Language
   • name of project could be VBNET_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 Class Named clsCUShort to TypeConversionFunctions folder
   • Right-click TypeConversionFunctions folder;
   • add new item;
   • Select class
   • Class name could be clsCUShort
7. Click on Visual Basic in code in step 1 above to copy code into clsCUShort.vb
8. Click on Visual Basic in code in step 2 above to copy code into Module1.vb
9. Click green arrow or press F5 to run program