یه کمک کوچولو لطفا"!!!

[fffkral]

با درود به دوستان گرامی
راستش من فایل زیر رو دانلود کردم که یه ماشین حسابه 4*4 است با یه کلید شیفت که با فشردن اون 4 گزینه سینوس کسینوس و... رو هم میشه حساب کرد.
اگه من بخوام بجای محاسبه سینوس و.. با فشردن شیفت یه متن مثل"enter R"نمایش داده شده و یه ورودی گرفته ودوباره "Eenter L"و یه ورودی دیگه بگیره واون هارو در دو متغیر ذخیره کنه تا بشه تو یه فرمول جاگزاری کرد ،چی تغییراتی باید توش انجام بدم!؟(البته میدونم کمکه زیاد کوچولوییم نیس!)
اگه تا 22ام که باید تحویلش بدم راهنماییم کنید خیلی خیلی ممنون میشم

[sheitunak]

دوست عزیز شما با چه نرم افزاری برنامه را نوشتین؟

[reza555]

bascom

[sheitunak]

یه سری از کدها شبیه بسکامه اما یه سری فرق میکنه
مثلا توی بسکام میگیم " $regfaile=m16def.dat" اما اینجا گفته " Chip=m16def.dat"

دوست عزیز اگه از کریستال داخلی استفاده میکنین باید توی برنامه تنظیم کنین

[fffkral]

سلام
دوستان من در سورس بسکام این فایل ابتدا دو متغیر تعریف کردم
dim f4 as single , f5 as single
بد در قسمت cal_fun دستورات زیر را جاگزاری کردم
Cls
Locate 2 , 1
Lcd "Enter R"
Shft = 0 : I1 = 0 : I2 = 0 : S = 0 : N = 0
Gosub Set_number1
F4 = F1
Cls
Locate 2 , 1
Lcd "Enter R"
Shft = 0 : I1 = 0 : I2 = 0 : S = 0 : N = 0
Gosub Set_number1
F5 = F1
ولي تو پروتئوس مشکلي که هست ، enter R نمايش داده شده وعددمورد نظر را ميتوان نوشت اما ورودي دومي در کار نيست!!
من دستور
If Op = "=" Then
End If
بين دستورات نوشتم تا شايد با فشردن کليد مساوي enter L هم نمايش داده شده و ورودي دوم هم گرفته شود اما نتيجه نداد!
لطفا منو راهنمايي کنيد!

[fffkral]

کسی از دوستان نمی خواد راهنمایی کنه!!!؟

---

کسی از دوستان نمیخواد راهنمایی کنه!!!؟