به یک دستور در بسکام نیاز دارم

[mojtaba bahador]

سلام بر دوستان عزیز
یک دستور در بسکام میخوام که کار زیر رو انجام بده:
من 10 تا متغییر از جنس byte دارم که توی هر کدومشون یه عدد ذخیره شده. مثلا:
D1=0
D2=1
D3=2
.
.
.
D10=9
میخوام مقدار این 10 تا متغییر رو بیارم در کنار هم بذارم و داخل یک متغییر از جنس string بریزم یعنی مقدار متغییرهام، به ترتیب بره داخل یه متغییر از جنس string مثل:
s="0123456789"
باید چی بنویسم؟

[Ahp_online]

پاسخ : به یک دستور در بسکام نیاز دارم

سلام
می تونید از دستور زیر استفاده کنید:
s=str(d1)+str(d2)+str(d3)....

[mojtaba bahador]

پاسخ : به یک دستور در بسکام نیاز دارم

سلام
می تونید از دستور زیر استفاده کنید:
s=str(d1)+str(d2)+str(d3)....

دوست عزیز ممنون از پاسختون...
جواب نداد!!!
چیکار کنم؟؟
کاری که من کردم به این صورت بود که اعداد 0123456789 رو به ترتیب داخل رجیسترهای D1 تا D10 ریختم و بعد طبق فرمایش شما نوشتم:

s = str(d1) + str(d2) + ... + str(d10)

حتی برای اطمینان به این صورت هم نوشتم:

s = str(d10) + str(d9) + ... + str(d1)

ضمنا این دستور توی کتاب علی کاهه به صورت جمع چند عبارت string نیست!!! به نظرتون با گذاشتن جمع (اگر چه خطا نمیده) کاراکترهای اعداد کنار هم قرار میگیرن؟
من همونطور که گفتم میخوام مقدار D1 تا D10 به صورت 0123456789 بره داخل متغییر s
شبیه به این:

s = "0123456789"

[sovary]

پاسخ : به یک دستور در بسکام نیاز دارم

درود بر شما :smile:
اینو امتحان کن

Dim D(10) as Byte
Dim I as Byte
Dim A as String * 10
Dim B as String * 1
For I = 1 to 10
B = Str(D(I))
MID(B ,I ,1) = A
Next

[mojtaba bahador]

پاسخ : به یک دستور در بسکام نیاز دارم

درود بر شما :smile:
اینو امتحان کن

Dim D(10) as Byte
Dim I as Byte
Dim A as String * 10
Dim B as String * 1
For I = 1 to 10
B = Str(D(I))
MID(B ,I ,1) = A
Next

ممنون دوست عزیز. با استفاده از دستور mid درست شد. نمیدونم چرا از دستور mid فراموش کرده بودم. به هر حال ممنونم ازت.