ايران ويج

نسخه‌ی کامل: basic instructions
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.
سلام...
من می خوام یک ارایه تعریف کنم که مثلا دو تا مقدار هگز را بریزه توش مثلا تو : دیم ارایه(2) اس بایت
ارایه (0) = H00 , &H00 , &H00 , &H00 , &H00 , &H00
ارایه (1) = &H00 , &H00 , &HFA , &H00 , &H00 , &H00

ولی تو بسکام ایراد می گیره که مقدار زیاده و از این حرفا ... کسی می تونه کمکم کنه ؟Sad
مرسی
خوب روش نوشتنتن حتما اشتباه کدی رو که نوشتی و ایراد می گیره رو بنویس
سلام...
فرض کنید این برنامه باشه خودش کلی ایراد می گیره .اون قسمت های ایراد گرفته شده زیاد مهم نیست جز اینکه میگه جا کم داره ...
کد:
Dim Araye(1000) As Byte
Dim Aval As Byte
Dim Dovom As Byte
Dim Sevom As Byte
Dim I As Byte
Dim A As Byte

1 = &H00 , &H00 , &H00 , &H00 , &H00
2 = &H30 , &H78 , &H7C , &H7C , &H3E
3 = &H1F , &H3E , &H7C , &H7C , &H78
P = 1
For I = 0 To 2
Array(i) = P
Incr P
Next I

Rem be har hal mikham akhar sar to arayam be in sorat por she ke harkodum az
Rem : cod ha bere to yek khone az araye be in soorat:

Araye =(&H00 , &H00 , &H00 , &H00 , &H00 &H30 , &H78 , &H7C , &H7C , &H3E &H1F , &H3E , &H7C , &H7C , &H78)
من می خوام به ترتیب هر کدوم از اون کد های هگز که بالا هست مثل :=(&H00 , &H00 , &H00 , &H00 , &H00 &H30 , &H78 بره تو ی ارایمون ...یعنی هر بار که مقدار حلقه یکی بالا تر میره (خونه های ارایه ) یکی از این کد ها توش قرار بگیره...
ممنون
اولا که آرایه اینجوری تعریف می شه
DIM foo(10) AS BYTE
اینجا که نوشتی
1 = &H00 ,...
کلا غلط اصلا معلوم نیست چی می خواستی بنویسی
مقدار دهی رو فقط به به یک متغییر می شه کرد یعنی 3 تا متغییر باید تعریف می کردی (برای اون اعدادی که توی 1و2و3 ریختی) و این مقادیر رو بهشون می دادی