Imports System
Imports Microsoft.VisualBasic
Public Module Module1
'Xor all the binary digits of 'input'.
Public Function Parity(input As Integer) As Integer
Dim output As Integer = 0
While input <> 0
output = output Xor (input And 1)
input = input >> 1
End While
Return output
End Function
'Move the 2 least significant bits into the most significant positions.
'Assume the input is 16 bits long (i.e. 4 hexadecimal digits).
Public Function LeftRotateBy2(input As Integer) As Integer
Return ((input And 3)<<14) Or (input>>2)
End Function
'Convert 'input' into a 'numDigits' digit hexadecimal string
Public Function ConvertToHex(input As Integer, numDigits As Integer) As String
Dim hexDigits As String = "0123456789ABCDEF"
Dim output As String = ""
For i As Integer = 1 To numDigits
output = Mid(hexDigits, (input And 15)+1, 1) & output
input = input >> 4
Next
Return output
End Function
'Create table
Public Sub Main()
Dim result As Integer
Dim resultHiDigits, resultLoDigits As Integer
For n As Integer = 0 To 255
result = LeftRotateBy2((Parity(n)*7<<8) Xor n Xor (n<<1))
'Split result into two
resultHiDigits = result>>8
resultLoDigits = result And 255
'Display result as two 2 digit hexadecimal numbers
Console.WriteLine("{0,3} : {1} {2}", n,
ConvertToHex(resultHiDigits, 2),
ConvertToHex(resultLoDigits, 2))
Next
End Sub
End ModuleVB6 VBA PropVar .NET
Byte Byte VT_UI1 Byte
n/a n/a VT_UI2 UShort
n/a n/a VT_UI4 UInteger
n/a n/a VT_UI8 ULong
n/a n/a VT_I1 SByte
Integer Integer VT_I2 Short
Long Long VT_I4 Integer
in Variant LongLong VT_I8 Long
And, when in a Variant, they can be either
ByVal (in the Variant) or ByRef (Variant points to).SendKeys "^{backspace}"Sub LOAD_Numero_Automatique()
Call ConnectionDatabase
If US.State = adStateOpen Then US.Close
US.Open "[UsermanLog]", DB, adOpenStatic, adLockOptimistic
max_Numero = US.RecordCount
If max_Numero = 0 Then
Text1.Text = Val(1)
Else
Text1.Text = Val(max_Numero) + 1
End If
End SubGdipDeleteGraphics hGraphics
GdipCreateFromHDC GetWindowDC(GetForegroundWindow()), hGraphics
GdipTranslateWorldTransform hGraphics, CSng(730 / 2) - CSng(lngwidth / 2), CSng(311 / 2) - CSng(lngheight / 2), MatrixOrderAppend
GdipRotateWorldTransform hGraphics, 75!, MatrixOrderPrepend
GdipDrawImageRectRect hGraphics, HBITMAP, 100, 100, lngwidth, lngheight, 0, 0, lngwidth, lngheight, UnitPixel, ImageAttributes
GdipDisposeImageAttributes ImageAttributes