نمایش ساعت و دما با LCD

[ha_60]

یک پروژه کوچک برای آشنایی با avr و سنسور دما به همره سورس فایل و شمای پروتیوس

فایلها :
test clock&temp.zip 39.77KB

[belanko]

مهندس من دانلود کردم ولی فایل بسکام نداشت

[ha_60]

چرا خوب نگاه کن داشت

کد:

'----------------------------------------------------

' RND.BAS

' demonstration if RND() function

'----------------------------------------------------

$crystal = 8000000

$regfile = "M32def.dat"

Config Lcd = 16 * 2

Config Lcdpin = Pin , Db4 = Porta.2 , Db5 = Porta.3 , Db6 = Porta.4 , Db7 = Porta.5 , E = Porta.1 , Rs = Porta.0

Config Adc = Single , Prescaler = Auto ',

Config Date = Mdy , Separator = /

Config Clock = Soft

Config Portc = Input

Enable Interrupts

Time$ = "00:00:00"



Dim T As Word

Dim S As String * 16

Cls

Cursor Off

Config Pina.7 = Input

Start Adc

Cls

Do

If Pinc.0 = 1 Then _sec = 0



If Pinc.1 = 1 Then

Incr _min

If _min = 60 Then _min = 0

End If



If Pinc.2 = 1 Then

Incr _hour

If _hour = 24 Then _hour = 0

End If

T = Getadc(7)

T = T / 20

Home

Lcd "Time:" ; Time$ ; " "

Lowerline

S = Str(t)

Lcd "Temp:" ; S ; " "







Loop

End

[parsadsa]

تشکر کاش کد زبان سی هم داشت