EBKA
مخترع
ارسالها: 1,099
موضوعها: 89
تاریخ عضویت: آذر ۱۳۸۸
تشکرها : 1655
( 2792 تشکر در 982 ارسال )
|
تبدیل سانتی گراد به فارنهایت
سلام...
من عددی رو که از lm35 میگیرم به سانتی گراده!!
حالا اگه بخوام به فارنهایت هم این عددو تبدیل کنم رابطش چیه؟
ابراهیم خوانین زاده
ساعت کار بدن انسان بیشتر وقتها, کمتر از 657.000 ساعت است و بعد از آن از کار می افتد :():کمی فکر کنیم.....
259-734
[/url]
وبلاگ من
وب سایت من
[url=http://www.ebka-intelligent.com/]
آموزش کار با rfm12b,آموزش کامل ای سی ds1307, آموزش اتصال ماژول em18,سنسور رنگ ,سنسور گاز, و ... در وبلاگ من خواهید دید
|
|
۱۱-فروردین-۱۳۸۹, ۲۰:۰۷:۱۷ |
|
تشکر شده توسط : |
|
t3r!p3000
ارسالها: 5,050
موضوعها: 83
تاریخ عضویت: اردیبهشت ۱۳۸۵
تشکرها : 34447
( 17423 تشکر در 5116 ارسال )
|
|
۱۱-فروردین-۱۳۸۹, ۲۰:۲۱:۳۶ |
|
تشکر شده توسط : |
رسول, EBKA |
EBKA
مخترع
ارسالها: 1,099
موضوعها: 89
تاریخ عضویت: آذر ۱۳۸۸
تشکرها : 1655
( 2792 تشکر در 982 ارسال )
|
RE: تبدیل سانتی گراد به فارنهایت
خطا میده
K =(1.8 * H) + 32
why?
ابراهیم خوانین زاده
ساعت کار بدن انسان بیشتر وقتها, کمتر از 657.000 ساعت است و بعد از آن از کار می افتد :():کمی فکر کنیم.....
259-734
[/url]
وبلاگ من
وب سایت من
[url=http://www.ebka-intelligent.com/]
آموزش کار با rfm12b,آموزش کامل ای سی ds1307, آموزش اتصال ماژول em18,سنسور رنگ ,سنسور گاز, و ... در وبلاگ من خواهید دید
|
|
۱۲-فروردین-۱۳۸۹, ۱۴:۰۱:۲۸ |
|
تشکر شده توسط : |
|
EBKA
مخترع
ارسالها: 1,099
موضوعها: 89
تاریخ عضویت: آذر ۱۳۸۸
تشکرها : 1655
( 2792 تشکر در 982 ارسال )
|
RE: تبدیل سانتی گراد به فارنهایت
کد: $regfile = "m32def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 10
$framesize = 40
$lib "glcdKS108.lbx"
Config Graphlcd = 128 * 64sed , Dataport = Portd , Controlport = Portc , Ce = 0 , Ce2 = 1 , Cd = 2 , Rd = 3 , Reset = 4 , Enable = 5
'
'Config Adc = Single , Prescaler = Auto , Reference = Internal
Config Adc = Single , Prescaler = Auto
Dim X As Word , Y As Word , N As Byte , C As Byte , H As Single , Hh As Single
N = 0
Dim Aa As Word
Aa = 800
Dim S As Byte
S = 10
Setfont Font8x8
Stop Adc
Start Adc
Cls
Lcdat 4 , 1 , "EBKA.blogfa.ir"
Wait 2
Cls
'Showpic 0 , 0 , Al
'Waitms 3000
'Cls
Main:
Config Porta.0 = Output
Config Porta.1 = Input
Config Porta.2 = Output
Config Porta.3 = Input
Set Porta.0
Reset Porta.1
Reset Porta.2
Reset Porta.3
X = Getadc(1)
X = X / 4
Waitms S
Config Porta.0 = Input
Config Porta.1 = Output
Config Porta.2 = Input
Config Porta.3 = Output
Reset Porta.0
Set Porta.1
Reset Porta.2
Reset Porta.3
Y = Getadc(2)
Y = Y / 8
Waitms S
Lcdat 1 , 5 , X ; "=x "
Lcdat 1 , 50 , Y ; "=y "
If X > 165 And X < 210 And Y > 0 And Y < 44 Then
Lcdat 5 , 2 , N ; "" ; ""
Incr N
Waitms 150
Lcdat 8 , 1 , "UP"
End If
If X > 0 And X < 72 And Y > 0 And Y < 44 Then
Lcdat 5 , 2 , N ; " "
Decr N
Waitms 150
Lcdat 8 , 94 , "DOWN"
End If
If N < 1 Or N > 250 Then
N = 0
End If
C = Getadc(7)
H = C / 2
Hh =(1.8 * H) + 32
Lcdat 5 , 40 , "TEMP:" ; H ; "C" ; ""
Lcdat 4 , 40 , "temp:" ; Hh ; "F" ; ""
Goto Main
End
$include "font8x8.font"
'Al:
'$bgf "ebka.bgf"
ابراهیم خوانین زاده
ساعت کار بدن انسان بیشتر وقتها, کمتر از 657.000 ساعت است و بعد از آن از کار می افتد :():کمی فکر کنیم.....
259-734
[/url]
وبلاگ من
وب سایت من
[url=http://www.ebka-intelligent.com/]
آموزش کار با rfm12b,آموزش کامل ای سی ds1307, آموزش اتصال ماژول em18,سنسور رنگ ,سنسور گاز, و ... در وبلاگ من خواهید دید
|
|
۱۲-فروردین-۱۳۸۹, ۱۴:۳۴:۰۴ |
|
تشکر شده توسط : |
|