تصحیح برنامه ساعت با تاریخ شمسی (بسکام)

[samin20]

سلام
موقع کامپایل برنامه اخطار میده مشکل از کجاست


$regfile = "m8def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0
Cls : Home : Cursor Off
Config Clock = Soft , Gosub = Sectic
Disable Interrupts
Config Portd = &B11111000
Dim Flag As Bit
Dim S As Byte
Dim M As Byte
Dim H As Byte
Dim Y As Word
Dim Mo As Byte
Dim D As Byte
Dim Slc As Byte
Dim Bg As Byte
Slc = 0
Y = 1385
Mo = 1
D = 1
Bg = 1
H = 12
Flag = 0
Dim Ge As Byte
For Ge = 1 To 23
Locate 1 , 1
Lcd "by:m-zarei m-zarei"
Waitms 700
Locate 2 , 1
Lcd "!!**email:m_zarei@ir-micro.com**!!"
Shiftlcd Left
Next Ge
Scan:
If Pind.0 = 0 Then Slc = Slc + 1
If Slc = 5 Then Slc = 0
If Pind.2 = 0 Then
Flag = 0
Goto Wait1s
End If
On Slc Goto Hour , Minute , Year , Month , Day
Goto Scan
Wait1s:
Enable Interrupts
Do
Ge = 10
If Pind.0 = 0 Then
Waitms 400
Cls : Home
Goto Scan
Year:
If Pind.1 = 0 Then Y = Y + 1
If Y = 1400 Then Y = 1385
Lcd "year=" ; Y
Waitms 400
Cls : Home
Goto Scan
Month:
If Pind.1 = 0 Then Mo = Mo + 1
If Mo = 13 Then Mo = 1
Lcd "month=" ; Mo
Waitms 400
Cls : Home
Goto Scan
Day:
If Pind.1 = 0 Then D = D + 1
If D = 32 Then D = 1
Lcd "day=" ; D
Waitms 400
Cls : Home
Goto Scan

[ry.mohammad]

پاسخ : تصحیح برنامه ساعت با تاریخ شمسی (بسکام)

سلام
این برنامه مشکلاتی داره که از جملش همون قرار ندادن end if و loop هست اینا رو قرار دادم ولی مشکل بعدیش
لیبل های تعریف شده هست یعنی تو برنامه گفته شده که لیبل های Hour , Minute , Year , Month , Day هست ولی سه تا لیبل Year , Month , Day تعریف شده اون دوتا تعریف نشده
علاوه بر اون لیبل Sectic هم هست که باز در ادامه تعریف نشده
شما اگه می خوای برنامت ارور نده یا باید این لیبل ها رو خودت تعریف کنی یا اینکه آونا رو حذف کنی که برنامت ناقص میشه یعنی فقط تاریخ هست ساعت نیست این برنامه دستکاری شده و باید مشکلاتش رو رفع کنید تا کامپایل بشه

$regfile = "m8def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0
Cls : Home : Cursor Off
Config Clock = Soft , Gosub = Sectic
Disable Interrupts
Config Portd = &B11111000
Dim Flag As Bit
Dim S As Byte
Dim M As Byte
Dim H As Byte
Dim Y As Word
Dim Mo As Byte
Dim D As Byte
Dim Slc As Byte
Dim Bg As Byte
Slc = 0
Y = 1385
Mo = 1
D = 1
Bg = 1
H = 12
Flag = 0
Dim Ge As Byte
For Ge = 1 To 23
Locate 1 , 1
Lcd "by:m-zarei m-zarei"
Waitms 700
Locate 2 , 1
Lcd "!!**email:m_zarei@ir-micro.com**!!"
Shiftlcd Left
Next Ge
Scan:
If Pind.0 = 0 Then Slc = Slc + 1
If Slc = 5 Then Slc = 0
If Pind.2 = 0 Then
Flag = 0
Goto Wait1s
[glow=red,2,300]End If[/glow]
On Slc Goto Hour , Minute , Year , Month , Day
Goto Scan
Wait1s:
Enable Interrupts
Do
Ge = 10
If Pind.0 = 0 Then
Waitms 400
Cls : Home
Goto Scan
End If
[glow=red,2,300]loop[/glow]
Year:
If Pind.1 = 0 Then Y = Y + 1
If Y = 1400 Then Y = 1385
Lcd "year=" ; Y
Waitms 400
Cls : Home
Goto Scan
Month:
If Pind.1 = 0 Then Mo = Mo + 1
If Mo = 13 Then Mo = 1
Lcd "month=" ; Mo
Waitms 400
Cls : Home
Goto Scan
Day:
If Pind.1 = 0 Then D = D + 1
If D = 32 Then D = 1
Lcd "day=" ; D
Waitms 400
Cls : Home
Goto Scan

[samin20]

پاسخ : تصحیح برنامه ساعت با تاریخ شمسی (بسکام)

میتونی زحمتش بکشی

[ry.mohammad]

پاسخ : تصحیح برنامه ساعت با تاریخ شمسی (بسکام)

میتونی زحمتش بکشی

شما فایل اصلی این رو بزارید تا ببینم چیه این فایل معلومه که خیلی دستـــــــــــــــــــــــــــــــــکاری شده