۱۱-فروردین-۱۳۸۹, ۲۰:۰۷:۱۷
۱۱-فروردین-۱۳۸۹, ۲۰:۱۱:۴۱
یه سرچ کوچولو فقط تو گوگل می خواست !
کد:
F=(1/8×C)+32
۱۲-فروردین-۱۳۸۹, ۱۴:۰۱:۲۸
خطا میده
K =(1.8 * H) + 32
why?
K =(1.8 * H) + 32
why?
۱۲-فروردین-۱۳۸۹, ۱۴:۲۵:۲۰
چیو خطا می ده !
کجا خطا میده !
توجه داشته باش تو بسکام تو هر خط فقط می تونی یه عمل ریاضی انجام بدی !
کجا خطا میده !
توجه داشته باش تو بسکام تو هر خط فقط می تونی یه عمل ریاضی انجام بدی !
۱۲-فروردین-۱۳۸۹, ۱۴:۳۴:۰۴
کد:
$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"
۱۲-فروردین-۱۳۸۹, ۱۴:۳۹:۱۶
خوب مشخصه خطا می ده !
این خط :
که باید اینجوری بنویسش :
این خط :
کد php:
Hh =(1.8 * H) + 32
که باید اینجوری بنویسش :
کد php:
Hh = 1.8 * H
Hh = Hh + 32