تلفیق برنامه ماشین حساب با این برنامه

[omid_phoenix]

آقا من خودم پست میزارم خودمم جواب میدم
دم همه گرم!
----------
من یه تیکه کد نوشتم که نسبت های مثلثاتی رو هم برام بدست میاره اما مشکلش اینه که عدد آخری رو 2 تا حساب میکنه

کد:

Sinusi:
Cls : Lcdat , 1 , 1 , "Sin Cos Tan" : Lcdat , 2 , 1 , "Sinh Cosh Tanh" : Lcdat , 3 , 1 , "Asin Acos ATN" : Lcdat 4 , 1 , "DegToRad Rad To Deg" : Waitms 1000
Cls : Lcdat 1 , 1 , "0"
B2 = 0 : C2 = 0 : Op = ""
Q:
Gosub Keycod
D2 = Key
Gosub Keycod
B2 = Key
Cls
Select Case B2
Case 0 To 9:
C2 = C2 * 10
C2 = C2 + B2
Lcdat 1 , 1 , C2
End Select
If Op = "c" Then
S = 1 'set s for check status
Cls
Goto No_c2 'clear and goto start
End If

If Op = "Sin" Then
Cls : Lcdat 1 , 1 , "Sin" ; C2
C2 = Sin(c2)
Lcdat 2 , 1 , "Ans=" ; C2
End If

If Op = "Cos" Then
Cls : Lcdat 1 , 1 , "Cos" ; C2
C2 = Cos(c2)
Lcdat 2 , 1 , "Ans=" ; C2
End If

If Op = "Tan" Then
Cls : Lcdat 1 , 1 , "Tan" ; C2
C2 = Tan(c2)
Lcdat 2 , 1 , "Ans=" ; C2
End If

Goto Q

چی؟ دقیق نگرفتم!
یعنی دوبار یه محاسبه رو انجام میده؟
فرضا دوبار سینوس میگیره؟

[abbasalifix]

نه
ببین
مثلا من عدد 55 رو میزنم خوب؟
حالا روی ال سی دی 55 نوشته میشه اما داخل حافظه میکرو عدد 555 هست که حساب میشه

---

کد:

Q:
Gosub Keycod
A2 = Key
if c2 =0 then
c2=a2
else
c2=c2*10
C2 = C2 + A2
End If
If C2 <> 0 Then
Cls : Lcdat 1 , 1 , C2


















If Op = "c" Then
S = 1 'set s for check status
Goto Start_new 'clear and goto start
End If

If Op = "Sin" Then
Cls : Lcdat 1 , 1 , "Sin" ; C2
C2 = Sin(c2)
Lcdat 2 , 1 , "Ans=" ; C2
End If

با این هم که تست کردم
مثلا من 12 میزنم عددی که بعد از گرفتن سینوس بهم نشون میده 122 هست

---

مشکل رفع شد ساعت 2:30

[abbasalifix]

مشکل بعدی من دقیق نبودن مقدار های مثلثاتی در بسکام هست
کسی میدونه چطور میشه رفعش کرد ؟

[jansfred]

داداش گلم توي برنامه ماشين حساب منم كه همينطوره
چطور پس ميگيد ماله من مشكل داره؟

[behzady]

اصولا مقدار مثلثاتی ها رو با کسر هایی تخمین میزنن مثلا این مال سینوس هست که ویکی پدیا وسطاش گفته اگر هم مهم نیست می تونید مقدار درجه های کامل رو ذخیره کنید و جای محاسبه اونا رو بدید بیرون

---

والا من برنامه رو دقیق نخوندم ولی به این توجه کردید که درجه نمی گیره رادیان می گیره؟

---

من چک کردم مشکلی نداشت حتما توی رادیان به درجه ای چیز دیگه ای مشکل دارید توابعش درست کار می کنن