Tamsayı 64bit dizi elemanlarına atama.Hızlı komut vamıdır?

[rree]

    Programı aşağıdaki gibi yazdım ama  uzun zaman hacadığını düşünüyorum. mesela son satırda 56 defa sağa kaydırma işlemi yapacak. Bunun yerine değişken adresinden doğrudan atama  yapılabilirmi?
   
     Amaç long türündeki veriyi her bytını ayrı ayrı diziye yerleştirmek.


        '  Usb_AdresMMC  Ulong   tamsayı değişkeni
       
        Giden_Buffer(1) = Usb_AdresMMC And &HFF
        Giden_Buffer(2) = (Usb_AdresMMC >> 8) And &HFF
        Giden_Buffer(3) = (Usb_AdresMMC >> 16) And &HFF
        Giden_Buffer(4) = (Usb_AdresMMC >> 24) And &HFF
        Giden_Buffer(5) = (Usb_AdresMMC >> 32) And &HFF
        Giden_Buffer(6) = (Usb_AdresMMC >> 40) And &HFF
        Giden_Buffer(7) = (Usb_AdresMMC >> 48) And &HFF
        Giden_Buffer(8) = (Usb_AdresMMC >> 56) And &HFF

[muhittin_kaplan]

Dim Dizi() As Byte = BitConverter.GetBytes(CLng(LongSayı))
denermisin hocam

[rree]

   Önceden tanımlı dizi atayabilirmiyiz.   
        Dim Giden_Buffer(64) As Byte
                Bu dizinin ilk 8 baytını atama yapılabirimi.?
   Yazdığın komut ilgimi çekti.  Başka nesneye bağlı yeni nesnemi üretiliyor.

[muhittin_kaplan]

aynı şey hocam

dim Dizi() as byte
dim UzunSayi as long=&hAABBCCDDEEFF9900
dizi()=BitConverter.GetBytes(UzunSayi)