سنسور دما
سلام بر همه دوستان
من یه کد دارم که دما رو روی سون سگمنت نشون میده فقط میخوام بدونم که اندازه دما رو چه طوری میتونم به دست بیارم یعنی دما تو کدوم متغیر ذخیره میشه؟( سنسور دما DC1621 هست)
با تشکر.
[/align]
Dim D As Byte
Dim N As Byte , L As Byte , W As Byte
Dim Teller As Word
Dim Tempmsb As Byte
Dim Templsb As Byte
Dim Confg As Byte
Dim Count As Byte
Dim Slope As Byte
Dim Nneg As Byte
Dim Alarmtemp As Byte
Dim Blinkrate As Byte
$crystal = 10000000
Const Digit1 = &B01000000
Const Digit2 = &B00100000
Const Digit3 = &B00010000
Declare Sub Cpos(number As Byte)
Declare Sub Cneg(number As Byte)
Declare Sub Cover
Declare Sub Readtemp(tempmsb As Byte)
Declare Sub Startconvert()
Config Portb = Output
Config Pind.4 = Output
Config Pind.5 = Output
Config Pind.6 = Output
Config Sda = Portd.1
Config Scl = Portd.0
Alarmtemp = 30
'******** test display **************************
Portb = 255
Portd = &B01110000
'******** Main program **************************
Call Startconvert
Waitms 1000
Do
Call Readtemp(tempmsb)
Tempmsb = Tempmsb - 3
For Teller = 1 To 250
Select Case Tempmsb
Case 0 To 99 : Call Cpos(tempmsb) 'temp >0 show temp on display
Case 100 To 127 : Call Cover 'temp > 99.5 show -- on display
Case 128 To 245 : Call Cover 'temp < -9.5 show -- on dsiplay
Case 246 To 255 : Call Cneg(tempmsb) 'temp <0 show temp on displa
End Select
Next Teller
Loop
'******** end main program **********************
'******** start convert *************************
Sub Startconvert()
I2cstart
I2cwbyte &H90
I2cwbyte &HEE
I2cstop
End Sub
'************************************************
'******** read temperature **********************
Sub Readtemp(tempmsb As Byte)
'-------------
I2cstart
I2cwbyte &H90 'send adress byte
I2cwbyte &HAA 'send register byte
I2cstop
I2cstart
I2cwbyte &H91 'read register
I2crbyte Tempmsb , Ack
I2crbyte Templsb , Nack
I2cstop
End Sub Readtemp
'************************************************
'******** convert and display temperature *******
Sub Cpos(number)
If Templsb = 0 Then
N = 0
Else
N = 5
End If
D = Lookup(n , Digits)
Portd = Digit1
Portb = D
Waitms 5
N = Number Mod 10
D = Lookup(n , Digits)
Portd = Digit2
Portb = D + 128
Waitms 5
N = Number \ 10
D = Lookup(n , Digits)
Portd = Digit3
If N < 1 Then
Portb = 0
Else
Portb = D
End If
Waitms 5
Portd = 0
If Tempmsb > Alarmtemp Then
For W = 1 To 10
Waitms 15
Next W
End If
End Sub
'************************************************
Sub Cneg(number)
Nneg = 0 - Number
Nneg = Nneg - 1
If Templsb = 0 Then N = 5 Else N = 0 'If Templsb = 0 Then N = 0 Else N = 5
D = Lookup(n , Digits)
Portd = Digit1
Portb = D
Waitms 5
N = Nneg Mod 10
D = Lookup(n , Digits)
Portd = Digit2
Portb = D + 128
Waitms 5
N = 10
D = Lookup(n , Digits)
Portd = Digit3
Portb = D
Waitms 5
End Sub Cneg(number As Byte)
'************************************************
Sub Cover
N = 10
D = Lookup(n , Digits)
Portd = Digit1
Portb = D
Waitms 5
N = 10
D = Lookup(n , Digits)
Portd = Digit2
Portb = D
Waitms 5
N = 10
D = Lookup(n , Digits)
Portd = Digit3
Portb = D
Waitms 5
End Sub
'************************************************
End
'************************************************
'******** Data **********************************
Digits:
Data 63 , 6 , 91 , 79 , 102 , 109 , 125 , 7 , 127 , 111 , 64 , 128 , 56 , 70
' 0 1 2 3 4 5 6 7 8 9 - dp L +
'************************************************
|
صفحه اصلی
انجمن
جستجو
فهرست اعضا
افزونه های فایرفاکس
» 
تشکر شده توسط :
