qr code generator c# Private m_Value As Decimal ' 16 bytes storage. in Visual C#

Generator QR Code ISO/IEC18004 in Visual C# Private m_Value As Decimal ' 16 bytes storage.

Public Sub New(ByVal value As Decimal, ByVal currencyCode As String) Me.m_Value = value Me.m_CurrencyCode = currencyCode.ToUpper() Me.m_IsNull = False End Sub

' Get a null instance of the CurrencyValueType type. Public Shared ReadOnly Property Null() As CurrencyValueType Get Dim currValue As CurrencyValueType = New CurrencyValueType() currValue.m_IsNull = True Return currValue End Get End Property

<SqlFacet(MaxSize:=3)> _ Public Property CurrencyCode() As SqlString <SqlMethod(IsPrecise:=True, IsDeterministic:=True)> _ Get If Me.m_IsNull Then Return SqlString.Null End If Return Me.m_CurrencyCode End Get Set(ByVal value As SqlString) Me.m_CurrencyCode = value.Value.ToUpper() If Me.Validate() = False Then Throw New InvalidOperationException( _ "The currency code is invalid.") End If End Set End Property

<SqlFacet(Precision:=38, Scale:=5)> _ Public Property Value() As SqlDecimal <SqlMethod(IsPrecise:=True, IsDeterministic:=True)> _ Get If Me.m_IsNull Then Return SqlDecimal.Null End If Return Me.m_Value End Get

' Called by SQL Server to validate the currency value. Public Function Validate() As Boolean Return System.Text.RegularExpressions.Regex.IsMatch( _ Me.m_CurrencyCode, "^[A-Z]{3}$") End Function

' Convert a string to a currency value. Public Shared Function Parse(ByVal input As SqlString) As CurrencyValueType If input.IsNull Then Return CurrencyValueType.Null End If

Dim space As Integer = input.Value.IndexOf(" ") If space <> 3 Then Throw New InvalidOperationException( _ "The input string cannot be converted to a currency value.") End If

Dim currencyCode As String = input.Value.Substring(0, 3) Dim value As Decimal = SqlDecimal.Parse(input.Value.Substring( _ 4, input.Value.Length - 4)).Value

' Convert a currency value to a string. Public Overrides Function ToString() As String If Me.m_IsNull Then Return Nothing End If Return String.Format("{0} {1}", Me.CurrencyCode.Value, _ Me.Value.ToString()) End Function

' Read the type from SQL Server. Public Sub Read(ByVal r As System.IO.BinaryReader) _ Implements IBinarySerialize.Read Me.m_Value = r.ReadDecimal() Me.m_CurrencyCode = r.ReadString() Me.m_IsNull = False End Sub

' Write the type to SQL Server. Public Sub Write(ByVal w As System.IO.BinaryWriter) _ Implements IBinarySerialize.Write w.Write(Me.m_Value) w.Write(Me.m_CurrencyCode) End Sub

Public ReadOnly Property IsNull() As Boolean Implements INullable.IsNull Get Return Me.m_IsNull End Get End Property End Structure ...

//C#: using System; using System.Data.SqlTypes; using System.Runtime.InteropServices; using Microsoft.SqlServer.Server;

... [SqlUserDefinedType(Format.UserDefined, ValidationMethodName="Validate", IsByteOrdered=false, IsFixedLength=true, MaxByteSize=20)] public struct CurrencyValueType : IBinarySerialize, INullable {

private decimal m_Value; // 16 bytes storage. private string m_CurrencyCode; // 4 bytes storage. private bool m_IsNull; // Not stored. . .

public CurrencyValueType(decimal value, string currencyCode) { this.m_Value = value; this.m_CurrencyCode = currencyCode.ToUpper(); this.m_IsNull = false; }

// Get a null instance of the CurrencyValueType type. static public CurrencyValueType Null { get { return new CurrencyValueType() { m_IsNull = true }; } }

[SqlFacet(MaxSize = 3)] public SqlString CurrencyCode { [SqlMethod(IsPrecise = true, IsDeterministic = true)] get { if (this.m_IsNull) return SqlString.Null; return this.m_CurrencyCode; } set { this.m_CurrencyCode = value.Value.ToUpper(); if (!this.Validate()) { throw new InvalidOperationException("The currency code is invalid."); } } }

[SqlFacet(Precision = 38, Scale = 5)] public SqlDecimal Value { [SqlMethod(IsPrecise=true, IsDeterministic=true)] get { if (this.m_IsNull) return SqlDecimal.Null; return this.m_Value; } set { this.m_Value = value.Value; } }

// Called by SQL Server to validate the currency value. private bool Validate() { return System.Text.RegularExpressions.Regex.IsMatch( this.m_CurrencyCode, "^[A-Z]{3}$"); }

// Convert a string to a currency value. static public CurrencyValueType Parse(SqlString input) { if (input.IsNull) return CurrencyValueType.Null;

int space = input.Value.IndexOf(' '); if (space != 3) throw new InvalidOperationException( "The input string cannot be converted to a currency value.");

string currencyCode = input.Value.Substring(0, 3); decimal value = SqlDecimal.Parse(input.Value.Substring( 4, input.Value.Length - 4)).Value;

return new CurrencyValueType(value, currencyCode); }

// Convert a currency value to a string. override public string ToString() { if (this.m_IsNull) return null; return string.Format("{0} {1}", this.CurrencyCode.Value, this.Value.ToString()); }

// Read the type from SQL Server. void IBinarySerialize.Read(System.IO.BinaryReader r) { this.m_Value = r.ReadDecimal(); this.m_CurrencyCode = r.ReadString(); this.m_IsNull = false; }

// Write the type to SQL Server. void IBinarySerialize.Write(System.IO.BinaryWriter w) { w.Write(this.m_Value); w.Write(this.m_CurrencyCode); }