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
Dim Dizi() As Byte = BitConverter.GetBytes(CLng(LongSayı))
denermisin hocam
Ö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.
aynı şey hocam
dim Dizi() as byte
dim UzunSayi as long=&hAABBCCDDEEFF9900
dizi()=BitConverter.GetBytes(UzunSayi)