آرایه در بس کام

[John Lock]

:nerd: سلام میشه بهم بگید چطرور توی بس کام میشه یک رشته حرف رو داخل آرایه بریزم بعد دونه به دونه بهش دسترسی داشته باشم .

[feshwari]

پاسخ : آرایه در بس کام

dim abuffer(100) dim as byte

dim i as byte

do
for i = 1 to 100
abuffer( i ) = i
loop

[naeimwtg]

پاسخ : آرایه در بس کام

سلام دوستان منظورس ایجاد ارایه نبوده این که معلومه احتمالا میخواسته مثل بقیه نرم افزار ها نحوه وارد کردن اطلاعات رو بصورت یکجا بدونه

dim a(5)=}10,15,14,13,12}

ولی توی بسکام نمی تونی اینجوری بنویسی
باید جدا جدا تعریف کنی

[John Lock]

پاسخ : آرایه در بس کام

آره دقیقا منظورم اینه که چطور توی بسکام میتونم به آرایه مقدار اولیه بدم مثل همون مثال
dim a(5)=10,15,14,13,12
یعنی بگم 5 تا خونه داره و 5 تا خونه هم این مقدار ها رو داره :cry2:

[khast khodaiebehnam]

پاسخ : آرایه در بس کام

dim omid(7) as byte
omid(1)=1
omid(2)=5
omid(3)=8

[John Lock]

پاسخ : آرایه در بس کام

دوست عزیر اونو که خودم بلدم مثل تعریف توی بیسک در هنگام تعریف اولیه تابع می خوام که خطی تعریف شه :nerd:

[khast khodaiebehnam]

پاسخ : آرایه در بس کام

گشتم نبود نگرد نیست :nerd:

[naeimwtg]

پاسخ : آرایه در بس کام

گشتم نبود نگرد نیست :nerd:

ایول منم که همینو گفتم

تازه یه چیز دیگه این بسکام توی برنامه نویسی و مخصوصا ساخت function و sun کلی مشکل داره
1- متغییر ها درست ارسال نمیشه مخصوصا کاراکتری
2- چه این sub ها رو صدا کنی چه این کارو نکنی خودشون یک بار اجرا میشن که این خودش یک ضعف بسیار بزرگه

[John Lock]

پاسخ : آرایه در بس کام

دوستان مچطور میشه حروف یونی کد یعنی همین فارسی رو توی یک متغیر قرار بدیم اصلا بس کام حروق یونی کد یونی رو تشخیص میده :nice:

[khast khodaiebehnam]

پاسخ : آرایه در بس کام

ایول منم که همینو گفتم

تازه یه چیز دیگه این بسکام توی برنامه نویسی و مخصوصا ساخت function و sun کلی مشکل داره
1- متغییر ها درست ارسال نمیشه مخصوصا کاراکتری
2- چه این sub ها رو صدا کنی چه این کارو نکنی خودشون یک بار اجرا میشن که این خودش یک ضعف بسیار بزرگه

نه دیگه نشد.اومدی نسازی .ببین گل بی عیب خداست.نمیشه همه رو با هم بخوای قبول دارم bascom یه سری ضعف داره(البته تا با چی مقایسش کنی)ولی در کل دوستان خدایی یه برنامه نویسی سخت مثلا درایو fat و mmc رو با هر برنامه ای که دلتون خواست بنویسین با bascom هم بنویسین و مقایسه کنین(بحث عوض شد شرمنده)

در جواب سوال دوستمون من تا حالا این کار رو نکردم(پس چیزی که می گم تیوری هستش)

بیا کدهای اسکی مربوط به کیبورد رو در بیار و بعد روی میکرو بریز و پرینت کن به پورت سریال(ایشالله که جواب بگیری)

[amir_HASANI]

پاسخ : آرایه در بس کام

گشتم نبود نگرد نیست :nerd:

از جدول LOOKUP نمیشه استفاده کرد؟
میشه؟
نمیشه؟
ولی فکر کنم بشه ها!!!!!!!!!!!!!!! :mrgreen: :mrgreen: :mrgreen: :mrgreen:

[khast khodaiebehnam]

پاسخ : آرایه در بس کام

نه دوست من نمیشه
lookup فقط نسبت به محتوای متغیر یه متغیر دیگه پس میده
حالا چه گیریه که به این چیز ساده بدیم؟؟؟

خوب تو خط بعدش راحت بنویس واسش :icon_razz:

[_e_]

پاسخ : آرایه در بس کام

ایول منم که همینو گفتم

تازه یه چیز دیگه این بسکام توی برنامه نویسی و مخصوصا ساخت function و sun کلی مشکل داره
1- متغییر ها درست ارسال نمیشه مخصوصا کاراکتری
2- چه این sub ها رو صدا کنی چه این کارو نکنی خودشون یک بار اجرا میشن که این خودش یک ضعف بسیار بزرگه

سلام
دوست عزیز میشه مثالی رو بیاری که به مشکل خوردی؟ دو موردی رو که ذکر کردی برای بنده اتفاق نیفتاده.بنده هیچ گونه تعصبی ندارم ولی این مواردی که ذکر کردی جزء مسائل روتین کامپایلر هاست.به هر حال اگر کدی که در اون به مشکل خوردی رو بذاری شاید بشه کاری کرد یا قضاوتی انجام بشه. ممنون می شم.
موفق باشی

[naeimwtg]

پاسخ : آرایه در بس کام

برای آرایه میشه از lookup استفاده کرد و خیلی هم راحته

lookup(2,dd)

dd:
data 1,2,3,4,5,6

البته جدول اینجا از صفر شروع میشه

[naeimwtg]

پاسخ : آرایه در بس کام

برای آرایه میشه از lookup استفاده کرد و خیلی هم راحته

lookup(2,dd)

dd:
data 1,2,3,4,5,6

البته جدول اینجا از صفر شروع میشه

ببین دوست عزیز این کد را توی شبیه ساز اجرا کن ببین چی میبینی

$regfile = "m323def.dat"
$crystal = 4000000
$baud = 9200
Dim A As Integer
Declare Function Is_in_array(byval Name2 As String , Byval Name1 As String , Byval Co As Integer , Byval Name4 As Integer) As Integer
A = Is_in_array( "eca" , "www" , 110 , 12)


Function Is_in_array(byval Name2 As String , Byval Name1 As String , Byval Co As Integer , Byval Name4 As Integer) As Integer
Print Name2
Print Name1
Print Co
Print Name4

End Function
End