امتیاز موضوع:
- 0 رأی - میانگین امتیازات: 0
- 1
- 2
- 3
- 4
- 5
مبدل کوچوله ی میلادی به شمسی
|
نویسنده |
پیام |
saeidjan
كاربر دو ستاره
 
ارسالها: 155
موضوعها: 20
تاریخ عضویت: شهریور ۱۳۸۸
تشکرها : 117
( 164 تشکر در 77 ارسال )
|
مبدل کوچوله ی میلادی به شمسی
$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
دانشمندان امروز دانش آموزان دیروز بودند.
به امید این که فردا دانشمند باشم.
|
|
۲۶-آذر-۱۳۹۰, ۲۳:۲۸:۲۱ |
|
تشکر شده توسط : |
|
موضوعات مرتبط با این موضوع... |
موضوع |
نویسنده |
پاسخ |
بازدید |
آخرین ارسال |
|
مبدل-وایفای-به-سریال-wifi-esp8266 |
kimiafars |
15 |
10,216 |
۰۳-مهر-۱۳۹۵, ۰۳:۲۴:۳۲
آخرین ارسال: jalil2008
|
|
درخواست راهنمایی تقویت کننده ولتاژ (مبدل DC |
sinastar |
1 |
2,700 |
۰۸-فروردین-۱۳۹۵, ۰۱:۳۷:۱۷
آخرین ارسال: alimogmov
|
|
[سوال] مبدل dc dc جهت ایزوله کردن گراند |
hadibarca |
0 |
2,423 |
۰۵-دى-۱۳۹۴, ۲۰:۳۸:۲۲
آخرین ارسال: hadibarca
|
|
برنامه مبدل هگز به زبان c کسی سراغ داره ؟؟! |
saeed450 |
18 |
23,353 |
۲۷-تير-۱۳۹۳, ۱۹:۰۴:۲۲
آخرین ارسال: reza vir
|
|
کتابخانه تبدیل تاریخ میلادی به شمسی |
hadikh73 |
5 |
5,642 |
۳۱-فروردین-۱۳۹۳, ۱۴:۴۶:۳۶
آخرین ارسال: Ambassador
|
|
مبدل فرکانس به ولتاژ |
mazdayadak |
5 |
7,199 |
۰۲-اسفند-۱۳۹۲, ۰۱:۴۴:۳۴
آخرین ارسال: mahdi_jan
|
|
مشکل در مبدل انالوگ به دیجیتال |
kelaran |
9 |
4,605 |
۰۸-آبان-۱۳۹۲, ۰۳:۵۵:۱۶
آخرین ارسال: salehjg
|
|
[سوال] مدار مبدل PWM به سینوسی |
arash67 |
4 |
4,645 |
۱۴-مهر-۱۳۹۱, ۰۱:۳۳:۰۸
آخرین ارسال: student-p
|
|
مبدل ولتاژ به فرکانس و برعکس |
ahsanjan |
14 |
24,368 |
۰۵-تير-۱۳۹۱, ۲۰:۳۰:۳۲
آخرین ارسال: fariba69
|
|
تابلو روان با قابلیت نمایش متن ، ساعت ، روز شمار ، تاریخ شمسی و ... |
rezamolaei |
0 |
4,012 |
۱۹-فروردین-۱۳۹۱, ۰۲:۰۶:۵۶
آخرین ارسال: rezamolaei
|
کاربرانِ درحال بازدید از این موضوع: