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

[saeidjan]

در این برنامه از یک کریستال ساعت استفاده شده که به پایه های TOSC1 و TOSC2 وصل میشه بقیه محاسبات مثل سال کبیسه و ایام هفته جون با تقویم خودمون سازگار و تمام میکرو ها و حتی PC ها گشتیبانی میکنن احتیاجی به محاسبه ندارن.
$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

[saeidjan]

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

---

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