نمایش نسخه قابل چاپ
درود بر همگی.من می خوام یه آرایه رو به صورت کامل به تابع ارسال کنم اما به هر دری میزنم جواب نمیگیرم.
Declare function test(byval get_array() as string) as byte
Dim array1(2) as string * 8
array1(1) = "persian"
array(2) = "english"
Temp = test(array1(1))
Function test(byval get_array() as string) as byte
Lcd get_array(1)
Lcd get_array(2)
End function
لطفا کمک کنید
دوستان خواهشا اگه جواب سوال منو میدونید کمک کنید
تا اونجا که من اطلاع دارم در bascom امکان پاس دادن آرایه به ارگومان تابع وجود ندارد. و این هم اندر وصف بیخود بودن این کامپایلر...
دقیق بگو میخوای چیکار کنی تا راهنماییت کنم...
درود بر شما.کاملا روشنه دوست عزیزم.می خوام کل یه آرایه رو به عنوان سطرهای منویی که در قالب یک تابع طراحی کردم ارسال کنم و هر کودوم رو در یک سطر نمایش بدم اما چون از آرایه نتیجه ای نگرفتم جدول lookup رو فعلا جایگزین کردم اما مشکل جدیدم اینه که نمیتونم برچسب سطر رو در قالب یه متغیر جایگزین کنم.
Temp = "lang"
Lcd lookupstr(i , temp)
Lang:
Data "persian" , "english"
میتونید آرایه رو با استفاده از دستور ()mid بصورت کاراکتر کاراکتر بفرستید.
دوست عزیز نیازی نیست آدرس تابع رو بفرستی
بردار رو بصورت عمومی تعریف کن و تو تابع ازش استفاده کن
این که مشکلی نداره