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

[iman_naderi]

سلام دوستان
من یک برنامه با بیسکام نوشتم که توش از تابع sqr استفاده کردم
متغیر من از نوع single هست و می خوام از یک عدد خیلی کوچک در حدود 0.00000123 جذر بگیرم
به محض اینکه میکرو به این خط میرسه یا ریست میشه یا یه عدد عجیب غریب نشون میده.
توی راهنمای بیسکام نوشته باید موقع استفاده از تابع SQR از فایل کتابخونه ای FP_trig.lbx استفاده کنم اما جواب نمیده
کسی میتونه کمکی بکنه .
سپاسگزارم

[mojtaba bahador]

پاسخ : بروز خطا در هنگام استفاد از تابع SQR بیسکام

سلام دوستان
من یک برنامه با بیسکام نوشتم که توش از تابع sqr استفاده کردم
متغیر من از نوع single هست و می خوام از یک عدد خیلی کوچک در حدود 0.00000123 جذر بگیرم
به محض اینکه میکرو به این خط میرسه یا ریست میشه یا یه عدد عجیب غریب نشون میده.
توی راهنمای بیسکام نوشته باید موقع استفاده از تابع SQR از فایل کتابخونه ای FP_trig.lbx استفاده کنم اما جواب نمیده
کسی میتونه کمکی بکنه .
سپاسگزارم

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

[mahdi421]

پاسخ : بروز خطا در هنگام استفاد از تابع SQR بیسکام

سلام

[left]
$regfile = "m16def.dat"
$crystal = 8000000

Dim Num As Single
Dim Sqr_num As Single

Num = 0.00000123
Sqr_num = Sqr(num)

Print Sqr_num '0.001109001

[mojtaba bahador]

پاسخ : بروز خطا در هنگام استفاد از تابع SQR بیسکام

سلام

[left]
$regfile = "m16def.dat"
$crystal = 8000000

Dim Num As Single
Dim Sqr_num As Single

Num = 0.00000123
Sqr_num = Sqr(num)

Print Sqr_num '0.001109001

سلام.ممنون؛
در این حالت جواب میده ولی من یه برنامه نوشتم که بعد از کلی محاسبات ریاضی میخواد جذر بگیره که نمیگیره.خیلی جالبه.اول برنامه دستور جذر رو به همین صورتی که شما فرمودی انجام میده ولی بعد از محاسبات مقدارش روی lcd صفره. برنامه تقریبا 450 خط شده نمیتونم بذارم اینجا و مطمئنا کسی حوصله خوندن نداره. همین قسمت محاسبات رو میذارم بقیه برنامه مربوط به جلوه های ال سی دی و دریافت اعداد ورودیه.

Calculation:
X1 = K106 : Y1 = K206 : X2 = K306 : Y2 = K406

A1 = X1 / 17.777
A1 = Deg2rad(a1)
A1 = Sin(a1)
A1 = Y1 * A1

A2 = X2 / 17.777
A2 = Deg2rad(a2)
A2 = Sin(a2)
A2 = Y2 * A2

F1 = A1 - A2

B1 = X1 / 17.777
B1 = Deg2rad(b1)
B1 = Cos(b1)
B1 = Y1 * B1

B2 = X2 / 17.777
B2 = Deg2rad(b2)
B2 = Cos(b2)
B2 = Y2 * B2

G1 = B1 - B2

H1 = F1 / G1
H1 = Deg2rad(h1)
H1 = Atn(h1)
H1 = 17.777 * H1

If F1 > 0 Then
If G1 > 0 Then
Z1 = H1
Goto Lexit
End If
End If

If F1 < 0 Then
If G1 > 0 Then
Z1 = H1 + 6400
Goto Lexit
End If
End If

If G1 < 0 Then
Z1 = H1 + 3200
End If

Lexit:
F1 = F1 * F1
G1 = G1 * G1
Z2 = F1 + G1
Z2 = Sqr(z2)
Z2_1 = 15 / 16
Z2_1 = Z1 * Z2_1


Cls
Lcdat 1 , 1 , Z1
Lcdat 3 , 1 , Z2
Lcdat 5 , 1 , Z2_1

[mojtaba bahador]

پاسخ : بروز خطا در هنگام استفاد از تابع SQR بیسک&#

یه فایل پروتئوس با قسمتی از برنامه رو گذاشتم اگه کسی بتونه کمک کنه ممنون میشم. دقت بفرمایید که در قسمت آخر برنامه که Z2 بدست میاد روی lcd صفر نشون میده. در صورتی که تا قبل از جذر گیری مقدار Z2 برابر با چهاره! برای تست قسمت جذر گیری رو حذف کنید تا ببینید!
جالب اینه که اگر اول همین برنامه به صورت دستی به Z2 مقدار 4 بدیم و جذر بگیریم و بدون انجام بقیه محاسبات نمایش بدیم، درست کار میکنه.
پلود سنتر سایت به وارد شدنم گیر داد ناچارا توی 4share پ کردم. ببخشید.!
http://www.4shared.com/zip/kEMB-Zkp/sqr.html

[mahdi421]

پاسخ : بروز خطا در هنگام استفاد از تابع SQR بیسکام

سلام
اگه کل برنامه همین هست و باز عدد صفر به جای Z2 نشون میده (بعد از جذر گرفتن) مشکل از کرک یا ورژن پایین نرم افزار هست و اگه این یه تیکه از کل برنامتون هست به احتمال خیلی زیاد قبل از نمایش رو lcd یه بلایی سر Z2 میارید که صفر میشه. من برنامه ارسال شده رو تست کردام صفر نشون میداد ولی وقتی دوباره کامپایل کردام عدد 1.99 رو نشون داد. (نسخه کرک شده 2.0.7.3)

[mojtaba bahador]

پاسخ : بروز خطا در هنگام استفاد از تابع SQR بیسکام

ممنون دوست عزیز.
مشکل اینه که پروتئوس جواب نمیده. عملی بستم جواب میده.