۱۷-اردیبهشت-۱۳۹۲, ۲۳:۱۹:۱۹
يه برنامه ساعت با ال سي دي نوشتم ولي نميدونم چرا كار نميكنه اينم برنامش:
كريستال ساعت هم براش گزاشتم ساعت روي ال سي دي نمايش داده ميشه ولي راه نميفته و كار نميكنه
لطفا راهنمايي كنيد
کد:
$regfile = "m32def.dat"
$crystal = 1000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Portb.0 , E = Portb.1 , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5
Config Clock = Soft , Gosub = Sectic
Enable Interrupts
Dim H As Byte
Dim S As Byte
Dim M As Byte
Dim X As Bit
H = 11
M = 59
S = 50
X = 1
Cursor Off
Do
If S > 59 Then
Incr M
S = 0
If M > 59 Then
Incr H
M = 0
End If
End If
Locate 1 , 3
Lcd \":\"
Locate 1 , 6
Lcd \":\"
If H > 9 Then
Locate 1 , 1
Lcd H
Else
Locate 1 , 1
Lcd \"0\" ; H
End If
If M > 9 Then
Locate 1 , 4
Lcd M
Else
Locate 1 , 4
Lcd \"0\" ; M
End If
If S > 9 Then
Locate 1 , 7
Lcd S
Else
Locate 1 , 7
Lcd \"0\" ; S
End If
If X = 0 Then
If H > 12 Then H = 1
Locate 1 , 10
Lcd \"PM\"
Else
If H > 11 Then H = 0
Toggle X
Locate 1 , 10
Lcd \"AM\"
End If
Loop
End
Sectic:
Incr S
Returnلطفا راهنمايي كنيد
![[تصویر: u1j7k4r4on0trh38nt8o.jpg]](http://upload.tehran98.com/img1/u1j7k4r4on0trh38nt8o.jpg)