مبدل کوچوله ی میلادی به شمسی

[saeidjan]

$regfile = "M32DEF.DAT"
$crystal = 8000000

Lcdrs Alias Pina.5 'LCD RS
Lcde Alias Pina.4 'LCD E
Lcdb4 Alias Pina.3 'LCD DB4
Lcdb5 Alias Pina.2 'LCD DB5
Lcdb6 Alias Pina.1 'LCD DB6
Lcdb7 Alias Pina.0 'LCD DB7

Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Lcdrs , E = Lcde , Db4 = Lcdb4 , Db5 = Lcdb5 , Db6 = Lcdb6 , Db7 = Lcdb7
Cursor Off
Cls

Config Portb = Input
Enable Interrupts
Dim Rooz As Integer , Mah As Byte , Sal As Byte
Dim I As Byte , Endm As Byte

Config Date = Ymd , Separator = /
Config Clock = Soft , Gosub = Sectic
_sec = 57 : _min = 13 : _hour = 23 : _day = 11 : _month = 11 : _year = 11

Gosub Shdate
Do
Loop
'=============

Sectic:
Locate 1 , 1
Lcd Time$
If _hour = 0 And _min = 0 And _sec = 0 Then Gosub Shdate
Return

'============
Shdate:
Rooz = Dayofyear()
If Rooz > 78 Then
Sal = _year + 79
Rooz = Rooz - 78
If Rooz > 186 Then
Rooz = Rooz - 186
Mah = 7
Else
Mah = 1
End If
If Mah > 6 Then Endm = 30 Else Endm = 31
Else
Sal = _year + 78
Mah = 10
If Rooz =< 78 Then Rooz = Rooz + 11
Endm = 30
End If
For I = 1 To 6
If Rooz > 30 Then Rooz = Rooz - Endm Else Exit For
Mah = Mah + 1
Next


Locate 2 , 1
If Rooz < 10 Then
Lcd "0"
End If
Lcd Rooz ; "/"
If Mah < 10 Then
Lcd "0"
End If
Lcd Mah ; "/" ; Sal
Return