تعریف تابع در bascome

[noorsoft]

سلام
من قصد دارم یک تابع در بسکام درست کنم که ورودی اون دو متغییر رشته ای باشه و رشته اول روی lcd نمایش داده بشه و رشته دوم با چند کلمه مقایسه بشه با Instr
ولی چند تا مشکل دارم اول اینکه رشته ای در تابع میاد با رشته ای که من تابع رو با آن فراخوانی کردم فرق داره دوم اینکه اجازه استفاده از instr رو به من نمی ده
کسی هست بتونه کمکم کنه؟

[hamed_online62]

پاسخ : تعریف تابع در bascome

نمونه برنامتو اینجا بذار تا بررسی کنیم

[noorsoft]

پاسخ : تعریف تابع در bascome

این یک نمونه

Declare Function Lcdprint(byval Mystring As String , string2 As String)as String

Function Lcdprint(byval Mystring As String , string2 As String ) As String
 Local L3 As Integer
 Local M As String * 20
home
lcd Mystring
 m="test"
if instr(string2,"2") > 0 then 
lcdprint=m
end if
End Function

[hamed_online62]

پاسخ : تعریف تابع در bascome

من اینو نوشتم. البته کامل نیست .
دیگه امتحانش هم نکردم. یه نگاه بهش بنداز. ایرادای منو هم بگو:

$regfile = "m323def.dat"
$crystal = 8000000

$hwstack = 160
$swstack = 50
$framesize = 200

Declare Function Lcdprint(byval Mystring As String , String2 As String)as String

Dim S As String * 20
Dim Mystring As String * 20
Dim String2 As String * 20
Dim Lcdprint As String * 20

Mystring = "result"
String2 = "test2"

Cls

Do

S = Lcdprint(mystring , String2)
Print S

Loop

End

Function Lcdprint(byval Mystring As String , String2 As String ) As String
Local M As String * 20
Home
Lcd Mystring
M = "test"
If Instr(string2 , "2&quot > 0 Then
Lcdprint = M
End If
End Function

[noorsoft]

پاسخ : تعریف تابع در bascome

روشی وجود نداره که ورودی زیر برنامه ها و توابع را مستقیما مقدار دهی کنیم
در زبانهای برنامه نویسی استفاده از Byval باعث میشه به ورودی هم مستقیما مقدار بدیم و هم یک متغییر را به عنوان ورودی وارد کنیم
چرا در بسکام این امکان وجود نداره و فقط باید ورودی خودش یک متغییر دیگه باشه :question: