برنامه نمونه نمایش اعداد اعشاری ( منفی و مثبت) در PIC Basic

[arvinfx]

سلام

این برنامه رو با هزار دردسر نوشتم برای تبدیل عدد 3 رقمی به 2 رقم عدد صحیح و یک رقم اعشار -> 125 = 12.5
منتهی اعداد منفی رو هم میشناسه ! :wow:

چقدر سخته با بیسیک کار های ساده رو انجام داد بر عکس کارهای سخت که آسونه


اینارو اول برنامه تعریف کنید :

tempcon var word
tempstr var byte[6]

این پروسیجر رو هم بزارین ته برنامه

convert_temp:
if tempcon > 3000 then ' agar manfi bod

tempstr[0] = "-"
tempstr[4] = $30 + (1+65535- tempcon ) dig 0
tempcon = (1+65535 - tempcon) /10

else ' agar + bod
tempstr[0] = "+"
tempstr[4] = $30 + tempcon dig 0
tempcon = tempcon / 10
endif
tempstr[1] = $30 + tempcon dig 1
tempstr[2] = $30 + tempcon dig 0
tempstr[3] = "."
return

خوب حالا هر جا که خاستین دما یا هر عدد دیگه ای رو نشون بدین مثلا 246 رو به متغیر tempcon بدین و پروسیجر رو صدا کنید اینطوری:

tempcon = 246
gosub convert_temp

بعد با این دستور میتونید نمایشش بدین:

lcdout ,str tempstr

:nerd: