کمک برای ساخت تابع در بسکام

[payameashena]

سلام ، من می خوام برنامه ماشین حساب رو با بسکام بنویسم می خوام یک تابع درست کنم که با فراخوانی آن عدد برام بسازه ولی یاد ندارم تابع بنویسم میشه یکی کمکم کنه ؟

[tifoos]

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

سلام ، من می خوام برنامه ماشین حساب رو با بسکام بنویسم می خوام یک تابع درست کنم که با فراخوانی آن عدد برام بسازه ولی یاد ندارم تابع بنویسم میشه یکی کمکم کنه ؟

منظورت مثلا یه تابع درجه 2 ، یه همچین چیزیه ؟
تو بسکام نمیشه ماشین حساب خیلی مهندسی رو پیاده سازیش کرد تا اون جاییکه میدونم مثلا تابع زیگما ، انتگرال و . . . نداره

ولی ساخت یه ماشین حساب معمولی کاره خاصی نداره
اگر موفق به درست کردنش نشدی من برنامشو دارم بگو تا برات بزارم

یا علی ...

[payameashena]

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

برنامه اش رو بلدم بنویسم ولی می خواهم یک تابع درست کنم که با فراخونیش یک عدد واسم درست کنه نمی دونم با کد ویژن کار کردی یا نه ؟ تو کد ویژن تابعش رو نوشتم اما با بسکام و در واقع زبان بیسیک یاد ندارم

[baby_1]

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

سلام
ساخت ماشین حساب به سادگی می توان در bascom هم شکل داد و مزیت آن نسبت به C پشتیبانی راحت تر از توابع رشته ای است اگر منظور شما ایجاد عدد راندوم و تصادفی در bascom هست می تونین از تابع rnd استفاده کنین که به عنوان مثال اگر بخواین عددی تصادفی در بازه 0 تا 100 داشته باشین و خروجی در متغییر x ریخته شود باید بنویسین

x=rnd(101)

[r.babazadeh]

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

function
Sub name [(var1, . . .)]
تعریف یک تابع

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

نام یک پارامتر Var1 :

در آخر هر تابع باید آنرا با End function به پایان رساند .
باید تابع را قبل از استفاده تعریف کنید .
هر تابع باید یک مقدار خروجی داشته باشد
مثال :

Declare Function Myfunction(byval I As Integer , S As String) As Integer
تعریف تابع
Dim K As Integer
Dim Z As String * 10
Dim T As Integer تعریف متغییر ها
K = 5
Z = "123" مقدار دهی متغییر ها
T = Myfunction(k , Z) ارسال متغییر ها به تابع و گرفتن حاصل تابع
Print T نمایش حاصل
End

Function Myfunction(byval I As Integer , S As String) As Integer
تابع
Local P As Integer می توان در تابع متغییر های محلی تعریف کرد
P = I
I = 10
P = Val(s) + I
Myfunction = P

End Function در اخر باید نام تابع رو برابر متغییر خروجی قرار بدهیم

قسمت مشکی برنامه اصلی هست
قسمت ابی نحوه صدا کردن تابع و فرستادن و گرفتن اطلاعات به تابع
قسمت قرمز تابع