تبدیل ارایه به یک عدد در بسکام

[a_l_i_r_e_z_a]

با سلام خدمت دوستان
من یه سوال ساده دارم
اگه یه ارایه داشته باشیم که دارای به طور مثال 5 ارایه باشه اگربخواهیم این ارایه و به به عدد تبدیل کنیم چیکار باید بکنیم
مثال این ارایه
Dim a(5) as byte
A(1)=1
A(2)=2
A(3)=3
A(4)=4
A(5)=5
الان اگر بخوایم این ارایه و به به عدد تبدیل کنم چه کار باید بکنم
اگر کسی اطلاعاتی داره ممنون میشم راهنمایی کنه

[بهنام زکی زاده]

پاسخ : تبدیل ارایه به یک عدد در بسکام

سلام با یه حلقه ارقام رو دونه دونه می خونی و به رشته تبدیل میکنی و به انتهای یه رشته خالی اضافه می کنی، آخرش هم مقدار رشته نهایی رو میریزی تو یه متغیر عددی، کدش اینطوری میشه، متغیر result عدد نهایی رو نگهداری میکنه:

Dim a(5) as byte
A(1)=1
A(2)=2
A(3)=3
A(4)=4
A(5)=5

dim i as long, s as string*20 , result as long
for i = 1 to 5
  s = s + str(a(i))
next i
result = val(s)

[a_l_i_r_e_z_a]

پاسخ : تبدیل ارایه به یک عدد در بسکام

ممنون داداش کار کرد

[بهنام زکی زاده]

پاسخ : تبدیل ارایه به یک عدد در بسکام

خواهش می کنم. :applause: