ماشین حساب 4*4

[fffkral]

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

http://www.4shared.com/file/pO16rljQ/Program.html

[as_6872]

پاسخ : ماشین حساب 4*4

سلام
اول از همه 2تا متغییر تعریف کن(مانند زیر).

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

حالا 2تا عدد گرفته شده از کیپد درون متغییر های f4 و f5 ذخیره شده اند و میتونی عملیات مورد نظرت رو برنامه نویسی کنی.

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

[fffkral]

پاسخ : ماشین حساب 4*4

سلام
اول از همه 2تا متغییر تعریف کن(مانند زیر).

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

حالا 2تا عدد گرفته شده از کیپد درون متغییر های f4 و f5 ذخیره شده اند و میتونی عملیات مورد نظرت رو برنامه نویسی کنی.

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

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

[fffkral]

پاسخ : ماشین حساب 4*4

سلام
اول از همه 2تا متغییر تعریف کن(مانند زیر).

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

حالا 2تا عدد گرفته شده از کیپد درون متغییر های f4 و f5 ذخیره شده اند و میتونی عملیات مورد نظرت رو برنامه نویسی کنی.

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

بازم ممنون ، من راهنمایی شما رو انجام دادم ولی تو پروتئوس مشکلی که هست ، enter R نمایش داده شده وعددمورد نظر را میتوان نوشت اما ورودی دومی در کار نیست!!
من دستور
If Op = "=" Then
End If
بین دستورات شما نوشتم تا شاید با فشردن کلید مساوی enter L هم نمایش داده شده و ورودی دوم هم گرفته شود اما نتیجه نداد!
لطفا منو راهنمایی کنید!

[as_6872]

پاسخ : ماشین حساب 4*4

سلام کاکو،

اگه یه خورده دقت کنی متوجه میشی که مشکل از برنامه نویسی من هست که از همین جا عذرخواهی میکنم.

در قسمت دوم بجای Enter R باید Enter L روی LCD نمایش داده بشود.

اینو تغییر بده و دوباره برنامه رو Test کن.

[fffkral]

پاسخ : ماشین حساب 4*4

سلام کاکو،

اگه یه خورده دقت کنی متوجه میشی که مشکل از برنامه نویسی من هست که از همین جا عذرخواهی میکنم.

در قسمت دوم بجای Enter R باید Enter L روی LCD نمایش داده بشود.

اینو تغییر بده و دوباره برنامه رو Test کن.

بازم خیلی ممنون ولی مشکل اینه که بعد ازگرفتن ورودی چطور به برنامه بهمونم که ارقام ورودی تموم شد و پاسخ را نمایش بده!؟
ممنون میشم این تیکه رو هم راهنمایی کنید!! :redface:

[as_6872]

پاسخ : ماشین حساب 4*4

سلام

دوست عزیز، چه عملیاتی رو میخوای انجام بدی..؟

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

البته خیلی هم مشکل نیستا، بعد از برنامه ای که نوشتم، عملیات مورد نظر رو بنویس و روی lcd نمایش بده
آخه بعد از گرفتن اعداد و فشرده شدن یکی از کلیدهای عملیاتی کیپد برنامه متوجه میشه که ورودی تمام شده است و به برنامه اصلی برمیگرده (خط بعد gosub set_number1)

[fffkral]

پاسخ : ماشین حساب 4*4

بازم سلام :redface:
دوست گرامی من مثلا دستورات زیر رو طبق راهنمایی شما وارد کردم (اول ارور هایی میداد که فک کنم مربوط به کانفیگ میشد، از اول که همه چی رو انجام دادم )بدون مشکل کامپایل شد ولی نمیدونم چرا تو پروتئوس جواب نمیده !؟ :angry:
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 L"
Shft = 0 : I1 = 0 : I2 = 0 : S = 0 : N = 0
Gosub Set_number1
F5 = F1
F6 = F4 + F5
Cls
Lcd "C=",F6

قبلا f4,f5,f6 تعریف شدن
البته من نمیخوام پاسخ بصورت Ans=xxxxx نمایش داده بشه!
حتی خط Lcd "C=",F6 ارور میده! oo:
Error:42 line :85 Numeric parameter expected ["c="],in File:Program\Program.bas

[fffkral]

پاسخ : ماشین حساب 4*4

سلام
منتظر راهنمایی شما هستم لطفا!!

[as_6872]

پاسخ : ماشین حساب 4*4

سلام دوست عزیز،

برنامه رو درست نوشتی بجز همون خطی که error میده.

کاکو نگاه کن، وقتی که میخوای دوتا متغییر یا عبارت رو روی lcd نمایش بدی میبایست بین اون دوتا متغییر یا عبارت ویرگول قرار بدی.

یعنی برنامه رو باید اینجوری بنویسی : Lcd "C=" ; F6

"به همین راحتی."

اگه مشکل دیگه ای داشتی بهم بگو که خوشحال میشم اگه بتونم کمکت کنم.

[fffkral]

پاسخ : ماشین حساب 4*4

سلام
دوست عزیز ببخشید که من اینقد تازه کارم! ولی میشه شما طلف کنین و یبار اینو تو پروتئوس امتحان کنید ،چون جواب نمیده! اگه این لطفو بکنین خیلی خیلی ممنون میشم! :redface:

[fffkral]

پاسخ : ماشین حساب 4*4

سلام
دوست گرامی جواب نداد!؟ فکر کنم مشکل اینه که ورودی دوم در F5 ذخیره نمیشه.

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 L"
Shft = 0 : I1 = 0 : I2 = 0 : S = 0 : N = 0
Gosub Set_number1
F5 = F1
F6 = F5 - F4
Cls
Lcd "C=";F6

منتظر کمک شما هستم لطفا!!!

[as_6872]

پاسخ : ماشین حساب 4*4

لام

ببخشد که خیلی دور به دور جواب میدم

من برنامه رو ویرایش کردم، فایل بیسیک و پروتئوس رو در زیر قرار دادم

http://www.4shared.com/file/zdWfF8F9/Program-Calculator-advance.html
(دانلود فایل بیسیک)

http://www.4shared.com/file/H2XC4SLd/Calculator-advance.html
(دانلود پروتئوس)