سلام
من این پروژه رو انجام دادم.خب البته مشکل که زیاد داره ولی محسوسترینش اینه که وقتی نمایش دما روی 7seg از حلقه for خارج میشه تا دوباره از دمای محیط نمونه برداری کنه یه لحظه 7seg ها چشمک می زنن که خب به نظر من خیلی تو ذوق میزنه.در ضمن باید بگم که من هر دو تا 7seg رو به یه پورت وصل کردم.اگه بیام حلقه for رو حذف کنم که کل برنامه تو یه حلقه قرار بگیره تو نمایش دچار مشکل میشه.دوم اینکه کسی در مورد نحوه ارتباط ال سی دی های کوچیک مثل ساعتهای کامپیوتری یا ماشین حساب اطلاعی داره.از کجا می تونم از این ال سی دی ها گیر بیارم.پروژه کار شده کسی داره ؟؟؟
اینم برنامش :
$regfile = "m16def.dat"
$crystal = 8000000
$baud = 9600
Config Adc = Single , Prescaler = Auto
Config Portb = Output
Config Porta.1 = Output
Config Porta.2 = Output
Dim A As Word
Dim B As Word
Dim L As Single
Dim R As Single
Dim S As Single
Dim C As String * 1
Dim D As String * 1
Dim I As Integer
Dim M As Byte
Dim N As Byte
B = 0
Reset Porta.1
Reset Porta.2
For I = 1 To 6
Portb = Lookup(0 , Seg)
Toggle Porta.1
Toggle Porta.2
Wait 2
Next
Start Adc
Do
For I = 1 To 100
A = Getadc(0)
A = A / 2
B = B + A
Next
B = B / 100
Print B ; " deg C"
C = Str(b)
C = Format(c , "0.0")
S = Val(c)
L = Int(s)
M = L
R = Frac(s)
R = R * 10
R = Round(r)
N = R
For I = 1 To 5000
Portb = Lookup(n , Seg)
Waitms 5
Set Porta.2
Reset Porta.1
Portb = Lookup(m , Seg)
Waitms 5
Set Porta.1
Reset Porta.2
Next
Loop
End
Seg:
Data &H3F , &H06 , &H5B , &H4F , &H66 , &H6D , &H7D , &H07 , &H7F , &H6F