PDA

توجه ! این یک نسخه آرشیو شده میباشد و در این حالت شما عکسی را مشاهده نمیکنید برای مشاهده کامل متن و عکسها بر روی لینک مقابل کلیک کنید : برنامه نویسی برای ساعت بروی lcd



hadi-e
09-03-2009, 23:56
سلام
این برنامه ساعت بروی یک lcd 2*16 است
$regfile = "M8def.dat"
$crystal = 8000000
Config Lcdpin = Pin , Db4 = Portc.1 , Db5 = Portc.2 , Db6 = _
Portc.3 , Db7 =Portc.4 , E = Portd.2 , Rs = Portd.3
Ddrd.5 = 0 : Portd.5 = 1
Ddrd.4 = 0 : Portd.4 = 1
Config Lcd = 16 * 2
Deflcdchar 1 , 32 , 32 , 32 , 21 , 21 , 31 , 32 , 32 ' replace ? with number (0-7)
Deflcdchar 2 , 8 , 8 , 8 , 8 , 8 , 15 , 32 , 32 ' replace ? with number (0-7)
Deflcdchar 3 , 32 , 32 , 7 , 4 , 4 , 31 , 32 , 32 ' replace ? with number (0-7)
Deflcdchar 4 , 32 , 12 , 32 , 17 , 17 , 31 , 32 , 32 ' replace ? with number (0-7)
Declare Sub Hour
Declare Sub Minute
Dim S As Byte
Dim M As Byte
Dim H As Byte
Saat:
S = 0
M = 0
H = 1
Cls
home
Lcd Chr(4)
Lcd Chr(3)
Lcd Chr(2)
Lcd Chr(1)
Do
If Pind.4 = 0 Then Call Minute
If Pind.5 = 0 Then Call hour
Locate 2 , 1
Lcd " " ; H ; ":" ; M ; ":" ; S
Waitms 112
Incr S
If S > 59 Then
S = 0
Incr M
Shiftcursor Left , 2
Lcd " "
If M > 59 Then
Incr H
M = 0
If H > 12 Then
jmp saat
End If
End If
End If
Loop
End

Minute:
Incr M
If M > 59 Then
M = 0
End If
Return

hour:
Incr H
If H > 12 Then
H = 1
End If
Return
امید وارم که مورد توجه قرار کیرد
این برنامه ساعت بروی یک lcd 2*16 است
$regfile = "M8def.dat"
$crystal = 8000000
Config Lcdpin = Pin , Db4 = Portc.1 , Db5 = Portc.2 , Db6 = _
Portc.3 , Db7 =Portc.4 , E = Portd.2 , Rs = Portd.3
Ddrd.5 = 0 : Portd.5 = 1
Ddrd.4 = 0 : Portd.4 = 1
Config Lcd = 16 * 2
Deflcdchar 1 , 32 , 32 , 32 , 21 , 21 , 31 , 32 , 32 ' replace ? with number (0-7)
Deflcdchar 2 , 8 , 8 , 8 , 8 , 8 , 15 , 32 , 32 ' replace ? with number (0-7)
Deflcdchar 3 , 32 , 32 , 7 , 4 , 4 , 31 , 32 , 32 ' replace ? with number (0-7)
Deflcdchar 4 , 32 , 12 , 32 , 17 , 17 , 31 , 32 , 32 ' replace ? with number (0-7)
Declare Sub Hour
Declare Sub Minute
Dim S As Byte
Dim M As Byte
Dim H As Byte
Saat:
S = 0
M = 0
H = 1
Cls
home
Lcd Chr(4)
Lcd Chr(3)
Lcd Chr(2)
Lcd Chr(1)
Do
If Pind.4 = 0 Then Call Minute
If Pind.5 = 0 Then Call hour
Locate 2 , 1
Lcd " " ; H ; ":" ; M ; ":" ; S
Waitms 112
Incr S
If S > 59 Then
S = 0
Incr M
Shiftcursor Left , 2
Lcd " "
If M > 59 Then
Incr H
M = 0
If H > 12 Then
jmp saat
End If
End If
End If
Loop
End

Minute:
Incr M
If M > 59 Then
M = 0
End If
Return

hour:
Incr H
If H > 12 Then
H = 1
End If
Return
امید وارم که مورد توجه قرار کیرد

jazabtarinha
03-12-2015, 22:41
سلام دوستان و اساتید برای پروژه درس آزمایشگاه میکروکنترلرها یک پروژه داشتم ووو با برنامه بیسیک نمایش ساعت روی lcd
و باید برای استاد توضیح دهم و شماتیک هم نیاز هست و توضیحات دستورات بکار رفته و توضیحات خط به خط
کسی می تواند انجام دهد ؟

jazabtarinha
06-12-2015, 23:43
دوستان دیگه نیاز ندارم دادم یکی بیرون برای انجام دهد 50 هزار تومان هم گرفت . (You can see links before reply)...
کاش کمکم می کردید ...