۱۸-بهمن-۱۳۹۱, ۲۳:۵۰:۳۰
(۱۸-بهمن-۱۳۹۱, ۲۱:۵۸:۵۲)abbasalifix نوشته است: [ -> ]آقا من خودم پست میزارم خودمم جواب میدمچی؟ دقیق نگرفتم!
دم همه گرم!
----------
من یه تیکه کد نوشتم که نسبت های مثلثاتی رو هم برام بدست میاره اما مشکلش اینه که عدد آخری رو 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
یعنی دوبار یه محاسبه رو انجام میده؟
فرضا دوبار سینوس میگیره؟
