Monthly Archives: July 2010

Pedal Automobiles. The Dream of Every Soviet Child

Pedal Automobiles. The Dream of Every Soviet Child Na ez volt az igazi királyság!!!

Posted in Kategorizálatlan | Leave a comment

Boolean Gray Code

Public Function GraySeq(ByVal N As Long) As String()   ReDim ret(0 To 2 ^ N – 1) As String     If N = 1 Then     ret(0) = "0": ret(1) = "1"   ElseIf N > 1 Then     … Continue reading

Posted in Kategorizálatlan | Leave a comment

Boolean Gray Code 4,6

?join(GraySeq(4),vbnewline) 00000001001100100110011101010100110011011111111010101011 1001 1000 ?join(GraySeq(6),vbnewline) 000000000001000011000010000110000111000101000100001100001101001111001110001010001011001001001000011000011001011011011010011110011111011101011100010100010101010111010110010010010011010001010000110000110001110011110010110110110111110101110100111100111101111111111110111010111011111001111000101000101001101011101010101110101111101101101100100100100101100111100110100010100011100001100000

Posted in Visual Basic 6 | Leave a comment