June 30, 2003

SemiCRC – A fast CRC-like algorithm

‘ Evaluate the 16-bit Checksum of an array of bytesFunction SemiCRC(ByVal source() As Byte) As Integer Dim crc, temp As Integer, i As Long Const divisor As Integer = 32768

Print3D – Drawing a text with 3D effect

‘ Display a text with 3D effect” g: a Graphics object’ text: the text to be displayed’ coords: the Point with the X and Y coordinates’ col: the text color’

Ask a Yes/no question and return a Boolean

‘ Ask a Yes/no question’ returns True if the user replies “Yes”‘ Example: MessageBox.Show(AskYesOrNo(“Do you like me?”, “ME”, True))Function AskYesOrNo(ByVal text As String, ByVal title As String, _ ByVal defaultAnswer

ChangeDriveIcon – Changing the icon of a drive

‘ Change the icon of a drive’ Example: ChangeDriveIcon(“d”, “c:myicon.ico”)Sub ChangeDriveIcon(ByVal driveLetter As String, ByVal icoPath As String) ‘ create the parent key Dim regKey As Microsoft.Win32.RegistryKey = _ Microsoft.Win32.Registry.LocalMachine.CreateSubKey(

Scaling Out With Object-Relational Mapping on .NET

long with the proliferation of the Internet and large-scale intranets, the requirements of enterprise applications have evolved. Launching a service in an expanding enterprise could put an ever-increasing load on