UOM Class

<SerializableAttribute>
Public NotInheritable Class UOM
	Inherits AFObject
	Implements IComparable(Of UOM)

Dim instance As UOM

[SerializableAttribute]
public ref class UOM sealed : public AFObject, 
	IComparable<UOM^>

[<SealedAttribute>]
[<SerializableAttribute>]
type UOM =  
    class
        inherit AFObject
        interface IComparable<UOM>
    end

' This example will create several UOMs of the same UOM class
' and then demonstrate how to perform conversions between them.

' Get the Database
Dim myPISystems As New PISystems
Dim myDB As UOMDatabase = myPISystems.DefaultPISystem.UOMDatabase

' Set the UOM Class
Dim LengthUOMClass As UOMClass = myDB.UOMClasses.Add("QALength", "QAmeter", "QAm")

' Create UOMs
Dim Meter As UOM = myDB.UOMs("QAmeter")
Dim Inch As UOM = myDB.UOMs.Add("QAinch", "QAin", Meter, 0.0254, 0)
Dim Foot As UOM = myDB.UOMs.Add("QAfoot", "QAft", Inch, 12.0#, 0)
Dim Yard As UOM = myDB.UOMs.Add("QAyard", "QAyd", Inch, 3.0# * 12.0#, 0)
Dim Mile As UOM = myDB.UOMs.Add("QAmile", "QAmi", Foot, 5280.0#, 0)

' Display Information each UOM
Dim CurUOM As UOM
For Each CurUOM In myDB.UOMClasses("QALength").UOMs
    Console.WriteLine("Name of UOM = {0}", CurUOM.Name)
    Console.WriteLine("Abbreviation = {0}", CurUOM.Abbreviation)
Next CurUOM

' Convert 18 Inches to Feet
Console.WriteLine("18 Inches converted to Feet = {0}", Foot.Convert(18, Inch))

' Update the Formula for the Yard UOM
Yard.Update(Foot, 3.0#, 0)

' Convert 18 Inches to Yards
Console.WriteLine("18 Inches converted to Yards = {0}", Yard.Convert(18, Inch))

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.