$regfile = "M16def.dat"
$crystal = 1000000
$hwstack = 64
$swstack = 64
$framesize = 64
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db7 = Portd.5 , Db6 = Portd.4 , Db5 = Portd.3 , Db4 = Portd.2 , E = Portd.1 , Rs = Portd.0
Cls : Cursor Off
Locate 1 , 2
Lcd "Saeb "
Wait 1
Locate 2 , 2
Lcd "Khorram"
Wait 3
Deflcdchar 0 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31
Config Portb.0 = Input
Dim A As Word , Dim Sum As Single , Dim I As Byte , Dim J As Byte , Dim L As Byte
Cls
Do
Sum = 0
For I = 1 To 10
A = Getadc(0)
Sum = Sum + A
Waitms 25
Next I
Sum = Sum / 10
Sum = Sum / 63
L = Round(sum)
Cls
Upperline
Lcd "LIGHT"
For J = 1 To L
Locate 2 , J
Lcd Chr(0)
Next J
Loop
این برنامه یک نور سنج دیجیتال با فتوسل هست
عکسش هم پیوست کردم اون قسمتی که کادر دورشه واسم توضیح بدین خیلی متشکرم
http://www.xum.ir/images/2014/05/11/UntitledWdGs9.png
$crystal = 1000000
$hwstack = 64
$swstack = 64
$framesize = 64
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db7 = Portd.5 , Db6 = Portd.4 , Db5 = Portd.3 , Db4 = Portd.2 , E = Portd.1 , Rs = Portd.0
Cls : Cursor Off
Locate 1 , 2
Lcd "Saeb "
Wait 1
Locate 2 , 2
Lcd "Khorram"
Wait 3
Deflcdchar 0 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31
Config Portb.0 = Input
Dim A As Word , Dim Sum As Single , Dim I As Byte , Dim J As Byte , Dim L As Byte
Cls
Do
Sum = 0
For I = 1 To 10
A = Getadc(0)
Sum = Sum + A
Waitms 25
Next I
Sum = Sum / 10
Sum = Sum / 63
L = Round(sum)
Cls
Upperline
Lcd "LIGHT"
For J = 1 To L
Locate 2 , J
Lcd Chr(0)
Next J
Loop
این برنامه یک نور سنج دیجیتال با فتوسل هست
عکسش هم پیوست کردم اون قسمتی که کادر دورشه واسم توضیح بدین خیلی متشکرم
http://www.xum.ir/images/2014/05/11/UntitledWdGs9.png
(درس و مشق فعالیتمو تو انجمن کم کرده)
دیدگاه