اطلاعیه

**sobhan68** · 2018-04-15T01:10:16

پاسخ : ساعت با فونت بزرگ

نوشته اصلی توسط ry.mohammad نمایش پست ها

خواهش می کنم
بله میشه
چیزی نشد نداریم
باید تو محل اون دو نقطه برای نیم ثانیه یا کمترو بیشتر کاراکتر خالی رو ال سی دی نشون بدی
بله دماسنج هم میشه با lm35
همه جا پر هست از این پروژه ها
دانلود کن و ازشون الهام بگیر رفیق

باشه داداش
دستت درد نکنه
فردا روش کار میکنم بهت خبرشو میدم
خیلی زحمت کشیدی

**sobhan68** · 2018-04-18T23:36:24

پاسخ : ساعت با فونت بزرگ

نوشته اصلی توسط sobhan68 نمایش پست ها

با سلام خدمت همه اساتید
من میخام یه ساخت معمولی با atmega32 درست کنم ک در اون اعداد با فونت بزرگ نمایش داده بشه
مثل این

البته این عکسو از سایت avr64 گرفتم که با بسکام هستش و من اصلا بلد نیستم

البته نا گفته نماند که کدویژنو خیلی کم بلدم!!!!
اساتید لطفا کمک کنید
اگر کسی هم فایل هگز داره که چ بهتر
ممنون میشم منتظر کمک شما اساتید هستم
ممنون

با عرض سلام خدمت همه دوستان

بالاخره به کمک دوست بسیار خوبم جناب ry.mohammad تونستیم یه ساعت با فونت بزرگ و قابلیت تقویم و دماسنج طراحی کنیم

از ایشون خیلی تشکر میکنم که ب من کمک کرد
و در آخر فایل بسکام+هگز+پرتئوس برنامه برای علاقه مندان به ساعت با فونت بزرگ

http://uupload.ir/view/ghvb_big_font_rtc-clock.rar

**sobhan68** · 2019-02-02T15:18:17

پاسخ : ساعت با فونت بزرگ

نوشته اصلی توسط sobhan68 نمایش پست ها

با عرض سلام خدمت همه دوستان

بالاخره به کمک دوست بسیار خوبم جناب ry.mohammad تونستیم یه ساعت با فونت بزرگ و قابلیت تقویم و دماسنج طراحی کنیم

از ایشون خیلی تشکر میکنم که ب من کمک کرد
و در آخر فایل بسکام+هگز+پرتئوس برنامه برای علاقه مندان به ساعت با فونت بزرگ

http://uupload.ir/view/ghvb_big_font_rtc-clock.rar

سلامم
آقا محمد هستی؟
میخاستم ببینم میشه روز های هفته هم نشون داد؟
مثلا sat sun mon و ....

**sobhan68** · 2019-02-12T23:26:13

پاسخ : ساعت با فونت بزرگ

نوشته اصلی توسط sobhan68 نمایش پست ها

سلامم
آقا محمد هستی؟
میخاستم ببینم میشه روز های هفته هم نشون داد؟
مثلا sat sun mon و ....

دوستان کسی نیست کمکم کنه؟؟؟؟؟

**sobhan68** · 2019-02-13T15:15:15

پاسخ : ساعت با فونت بزرگ

لطفااااا کمکم کنیدددددددددد
please HELP ME

**sobhan68** · 2019-02-20T23:51:08

پاسخ : ساعت با فونت بزرگ

مهندسین محترممم کسی نبود یه کمک بده به من روزای های هفته رو اضافه کنیم

**ry.mohammad** · 2019-03-05T22:35:22

پاسخ : ساعت با فونت بزرگ

نوشته اصلی توسط sobhan68 نمایش پست ها

سلامم
آقا محمد هستی؟
میخاستم ببینم میشه روز های هفته هم نشون داد؟
مثلا sat sun mon و ....

سلام
خوبی؟
منظور شنبه یه شنبه دوشنبست دیگه؟
اول این پست رو بخون اگر متوجه نشدی بگو بیشتر توضیح بدیم
لینک

**sobhan68** · 2019-03-05T23:05:02

پاسخ : ساعت با فونت بزرگ

نوشته اصلی توسط ry.mohammad نمایش پست ها

سلام
خوبی؟
منظور شنبه یه شنبه دوشنبست دیگه؟
اول این پست رو بخون اگر متوجه نشدی بگو بیشتر توضیح بدیم
لینک

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

**ry.mohammad** · 2019-03-05T23:39:21

پاسخ : ساعت با فونت بزرگ

نوشته اصلی توسط sobhan68 نمایش پست ها

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

ببین یه تاریخ مبنا در نظر میگیری
فرقی نمی کنه چه تاریخی باشه فقط باید اون روز هفتشو بدونی
مثلا من تاریخ امروز و به عنوان مبنا در نظر می گیرم
1397/12/14 که روزش هم سه شنبه هست
عدد این سه شنبه میشه برابر با چهار (برای شنبه مقدار یک قرار بدی سه شنبه میشه چهار)
خوب من تعداد روزای این تاریخ مبنام رو بدست میارم
1397* 365=509905 ( اگر سال کبیسه باشه باید ضربدر 366 بشه)
12-1=11
یازده ماه یعنی گذشته ، اگر بخواهیم همین تعداد روزای این یازده ماه رو حساب کنیم میشه
6*31=186
5 *30 =150
186+150=336
خوب تعداد روز این یازده ماه هم شد 336
خوب حالا تعداد روزای سپری شده از ماه جاری هم باید بهش اضاف کنیم میشه این:
336+14=350
خوب الان تعداد کل روزای سال و ماه و روز سپری شده میشه
509905+350=510255
پس این عدد مبنای شما تعداد روزش شد 510255 و روز هفته هم در این مبنا سه شنبه یعنی عدد4
عدد مبنا همراه با عدد روز هفته رو یاد داشت کن و تا حالا هر چی حساب کردی فقط تو کاغذ بوده و نباید وارد کامپایلر کنی
اون عددی رو که به عنوان ثابت تعریف می کنی همین 510255 هست و عدد 4

بعد الان میخاوم توی این سال حساب کنم که برابر میشه با چندمین روز هفته
1398/05/09
که من حساب کردم تعداد کل روزش شد 510403
الان من همین عدد رو از عدد مبنا کم می کنم
510403-510255=148
الان همین عدد 148 رو تقسیم می کنم بر تعداد روزای هفته که برابر با هفت هست
148%7=1
خوب چرا جای تقسیم درصد نوشته شده؟
چون درصد نشان دهنده ی باقیمانده هست
مثلا اگر 148 رو تقسیم بر 7 کنم جوابش میشه 21.FFFF و باقیماندش میشه یک
حال اون عدد هفته ی مبنا رو که چهار بود به این اضاف می کنم میشه 5
اگر بشماری میبینی که میشه چهارشنبه
یعنی
1398/05/09 میشه چهارشنبه
از اون قسمت مبنا به بعد باید تو کامپایلر دقیقا این مراحل رو پیاده کنی
امیدوارم که مفیده بوده باشه...

**sobhan68** · 2019-03-05T23:52:38

پاسخ : ساعت با فونت بزرگ

نوشته اصلی توسط ry.mohammad نمایش پست ها

ببین یه تاریخ مبنا در نظر میگیری
فرقی نمی کنه چه تاریخی باشه فقط باید اون روز هفتشو بدونی
مثلا من تاریخ امروز و به عنوان مبنا در نظر می گیرم
1397/12/14 که روزش هم سه شنبه هست
عدد این سه شنبه میشه برابر با چهار (برای شنبه مقدار یک قرار بدی سه شنبه میشه چهار)
خوب من تعداد روزای این تاریخ مبنام رو بدست میارم
1397* 365=509905 ( اگر سال کبیسه باشه باید ضربدر 366 بشه)
12-1=11
یازده ماه یعنی گذشته ، اگر بخواهیم همین تعداد روزای این یازده ماه رو حساب کنیم میشه
6*31=186
5 *30 =150
186+150=336
خوب تعداد روز این یازده ماه هم شد 336
خوب حالا تعداد روزای سپری شده از ماه جاری هم باید بهش اضاف کنیم میشه این:
336+14=350
خوب الان تعداد کل روزای سال و ماه و روز سپری شده میشه
509905+350=510255
پس این عدد مبنای شما تعداد روزش شد 510255 و روز هفته هم در این مبنا سه شنبه یعنی عدد4
عدد مبنا همراه با عدد روز هفته رو یاد داشت کن و تا حالا هر چی حساب کردی فقط تو کاغذ بوده و نباید وارد کامپایلر کنی
اون عددی رو که به عنوان ثابت تعریف می کنی همین 510255 هست و عدد 4

بعد الان میخاوم توی این سال حساب کنم که برابر میشه با چندمین روز هفته
1398/05/09
که من حساب کردم تعداد کل روزش شد 510403
الان من همین عدد رو از عدد مبنا کم می کنم
510403-510255=148
الان همین عدد 148 رو تقسیم می کنم بر تعداد روزای هفته که برابر با هفت هست
148%7=1
خوب چرا جای تقسیم درصد نوشته شده؟
چون درصد نشان دهنده ی باقیمانده هست
مثلا اگر 148 رو تقسیم بر 7 کنم جوابش میشه 21.FFFF و باقیماندش میشه یک
حال اون عدد هفته ی مبنا رو که چهار بود به این اضاف می کنم میشه 5
اگر بشماری میبینی که میشه چهارشنبه
یعنی
1398/05/09 میشه چهارشنبه
از اون قسمت مبنا به بعد باید تو کامپایلر دقیقا این مراحل رو پیاده کنی
امیدوارم که مفیده بوده باشه...

دمتگرمممممم
یه چیزایی حالیم شددد
فقط برنامه نویسش چجوریه؟؟؟
من اصلا بلد نیستم

**ry.mohammad** · 2019-03-06T00:01:32

پاسخ : ساعت با فونت بزرگ

نوشته اصلی توسط sobhan68 نمایش پست ها

دمتگرمممممم
یه چیزایی حالیم شددد
فقط برنامه نویسش چجوریه؟؟؟
من اصلا بلد نیستم

خوب یه سال گذشته از زمان ایجاد تاپیکتون
فک کنم به قدری پیشرفت داشتید که بتونید همینو تو کامپایلر پیاده کنید
شما توی برنامه با متغیر های سال و ماه و روز کار دارید...
دیگه از این به بعدش راحته و بدون مشکل می تونی کد نویسی کنی

**sobhan68** · 2019-03-06T00:06:05

پاسخ : ساعت با فونت بزرگ

نوشته اصلی توسط ry.mohammad نمایش پست ها

خوب یه سال گذشته از زمان ایجاد تاپیکتون
فک کنم به قدری پیشرفت داشتید که بتونید همینو تو کامپایلر پیاده کنید
شما توی برنامه با متغیر های سال و ماه و روز کار دارید...
دیگه از این به بعدش راحته و بدون مشکل می تونی کد نویسی کنی

ن والا نمیتونم

**ry.mohammad** · 2019-03-06T00:14:07

پاسخ : ساعت با فونت بزرگ

نوشته اصلی توسط sobhan68 نمایش پست ها

ن والا نمیتونم

می خوای کلا بده من برنامتو بنویسم بدم بهت

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

برنامتو بنویس هر جاشو موندی بپرس دوستان هستند و منم اینجام و هیچکدوممونم فرار نمی کنیم

**sobhan68** · 2019-03-06T00:19:12

پاسخ : ساعت با فونت بزرگ

نوشته اصلی توسط ry.mohammad نمایش پست ها

می خوای کلا بده من برنامتو بنویسم بدم بهت

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

برنامتو بنویس هر جاشو موندی بپرس دوستان هستند و منم اینجام و هیچکدوممونم فرار نمی کنیم

داداش اولی موافقم
سورسو بدم بهش اضافه کن

چون واقعا نمیدونم از کجا و چجوری شروع کنم

$regfile = "m32def.dat"
$crystal = 1000000
'----------------------------------------
Config Lcdpin = Pin , Db7 = Portd.0 , Db6 = Portd.1 , Db5 = Portd.2 , Db4 = Portd.3 , E = Portd.4 , Rs = Portd.5
Config Lcd = 20 * 4

Config Adc = Single , Prescaler = Auto

Start Adc
Dim A As Byte
Cursor Off : Cls

'Deflcdchar 0 , 32 , 4 , 4 , 4 , 21 , 14 , 4 , 32
'Deflcdchar 1 , 32 , 4 , 14 , 21 , 4 , 4 , 4 , 32
'stopien to Chr(223)
'caly kursor to Chr(255)
'duzy stopien to Chr(219)
'kropkaduza to Chr(161)
Deflcdchar 2 , 31 , 31 , 32 , 32 , 32 , 32 , 32 , 32
Deflcdchar 3 , 32 , 32 , 32 , 32 , 32 , 32 , 31 , 31
Deflcdchar 4 , 31 , 31 , 32 , 32 , 32 , 32 , 31 , 31

Deflcdchar 5 , 24 , 24 , 24 , 24 , 24 , 24 , 24 , 24
Deflcdchar 6 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3
Deflcdchar 7 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31

Const Liczba = 250

Dim Pierwsza As Byte , Druga As Byte , Trzecia As Byte
Dim Help As Byte
Dim Linia_g(10) As String * 4 , Linia_d(10) As String * 12
'----------------------------------------
Config Debounce = 30
Config Clock = Soft
Config Date = Ymd , Separator = /
Dim T As Byte , D As Byte
T = 0 : D = 0
Enable Interrupts
Time$ = "12:19:00"
Date$ = "97/11/26"

Locate 2 , 1
Lcd "CLOCK IS LOADING..."

While A <= 1
Incr A

Locate 3 , 7

Lcd Chr(5)
Waitms 500
Locate 3 , 7
Lcd Chr(6)
Waitms 500
Locate 3 , 7
Lcd Chr(7)
Waitms 500

Locate 3 , 8
Lcd Chr(5)
Waitms 500
Locate 3 , 8
Lcd Chr(6)
Waitms 500
Locate 3 , 8
Lcd Chr(7)
Waitms 500

Locate 3 , 9
Lcd Chr(5)
Waitms 500
Locate 3 , 9
Lcd Chr(6)
Waitms 500
Locate 3 , 9
Lcd Chr(7)
Waitms 500

Locate 3 , 10
Lcd Chr(5)
Waitms 500
Locate 3 , 10
Lcd Chr(6)
Waitms 500
Locate 3 , 10
Lcd Chr(7)
Waitms 500

Locate 3 , 11
Lcd Chr(5)
Waitms 500
Locate 3 , 11
Lcd Chr(6)
Waitms 500
Locate 3 , 11
Lcd Chr(7)
Waitms 500

Locate 3 , 12
Lcd Chr(5)
Waitms 500
Locate 3 , 12
Lcd Chr(6)
Waitms 500
Locate 3 , 12
Lcd Chr(7)
Waitms 500

Wend
Waitms 2000
Cls

Waitms 50
Display Off
Waitms 20
Display On

Enable Timer2

Do

'Cyfra 0
Linia_g(10) = Chr(255) + Chr(2) + Chr(255) + " "
Linia_d(10) = Chr(255) + Chr(3) + Chr(255) + " "

'Cyfra 1
Linia_g(1) = Chr(2) + Chr(255) + " "
Linia_d(1) = Chr(3) + Chr(255) + Chr(3) + " "

'Cyfra 2
Linia_g(2) = Chr(4) + Chr(4) + Chr(255) + " "
Linia_d(2) = Chr(255) + Chr(3) + Chr(3) + " "

'Cyfra 3
Linia_g(3) = Chr(2) + Chr(4) + Chr(255) + " "
Linia_d(3) = Chr(3) + Chr(3) + Chr(255) + " "

'Cyfra 4
Linia_g(4) = Chr(255) + Chr(3) + Chr(255) + " "
Linia_d(4) = " " + Chr(255) + " "

'Cyfra 5
Linia_g(5) = Chr(255) + Chr(4) + Chr(4) + " "
Linia_d(5) = Chr(3) + Chr(3) + Chr(255) + " "

'Cyfra 6
Linia_g(6) = Chr(255) + Chr(4) + Chr(4) + " "
Linia_d(6) = Chr(255) + Chr(3) + Chr(255) + " "

'Cyfra 7
Linia_g(7) = Chr(2) + Chr(2) + Chr(255) + " "
Linia_d(7) = " " + Chr(255) + " "

'Cyfra 8
Linia_g(8) = Chr(255) + Chr(4) + Chr(255) + " "
Linia_d(8) = Chr(255) + Chr(3) + Chr(255) + " "

'Cyfra 9
Linia_g(9) = Chr(255) + Chr(4) + Chr(255) + " "
Linia_d(9) = Chr(3) + Chr(3) + Chr(255) + " "

Dim Hour_yekan As Byte
Dim Hour_dahgan As Byte
Hour_yekan = _hour Mod 10
Hour_dahgan = _hour / 10
If Hour_dahgan = 0 Then Hour_dahgan = 10
If Hour_yekan = 0 Then Hour_yekan = 10

Dim Min_sadgan As Byte
Dim Min_hezargan As Byte
Min_sadgan = _min Mod 10
Min_hezargan = _min / 10
Pierwsza = Min_hezargan
Druga = Min_sadgan
If Pierwsza = 0 Then Pierwsza = 10
If Druga = 0 Then Druga = 10

Locate 2 , 2
Lcd " " ; Linia_g(hour_dahgan) ; Linia_g(hour_yekan)
Locate 2 , 13
Lcd Linia_g(pierwsza) ; Linia_g(druga)
Locate 2 , 11
Lcd Chr(223)

Lowerline

Locate 3 , 2
Lcd " " ; Linia_d(hour_dahgan) ; Linia_d(hour_yekan)
Locate 3 , 13
Lcd Linia_d(pierwsza) ; Linia_d(druga)
Locate 3 , 11
Lcd Chr(161)

Waitms 12000
Cls
Locate 2 , 4
Lcd "Date: " ; Date$
A = Getadc(0)
A = A / 2
Locate 3 , 4
Lcd "Temp: " ; A ; Chr(223) ; " C"
Waitms 5000
Cls
Debounce Pinb.0 , 0 , Menu
Repeat:
Loop
End

'----------------------------------------------
Menu:
T = 0
D = 0
Cls
Lcd "Time Setting:"
Do
Debounce Pinb.0 , 0 , Label1
Debounce Pinb.1 , 0 , Timeset
Loop
'----------------------------------------
Label1:
Cls
Lcd "Date Setting:"
Do
Debounce Pinb.0 , 0 , Repeat
Debounce Pinb.1 , 0 , Dateset
Loop
'----------------------------------------
Timeset:
Cls
Incr T
Lcd "Hour: " ; _hour
Do
Debounce Pinb.1 , 0 , Inctime , Sub
Debounce Pinb.0 , 0 , Label2
Loop
'----------------------------------------
Label2:
Cls
Incr T
Lcd "Min: " ; _min
Do
Debounce Pinb.1 , 0 , Inctime , Sub
Debounce Pinb.0 , 0 , Label1
Loop

'----------------------------------------
Dateset:
Cls
Incr D
Lcd "Day: " ; _day
Do
Debounce Pinb.1 , 0 , Incdate , Sub
Debounce Pinb.0 , 0 , Label3
Loop
'----------------------------------------
Label3:
Cls
Incr D
Lcd "Month: " ; _month
Do
Debounce Pinb.1 , 0 , Incdate , Sub
Debounce Pinb.0 , 0 , Label4
Loop
'----------------------------------------
Label4:
Cls
Incr D
Lcd "Year: " ; _year
Do
Debounce Pinb.1 , 0 , Incdate , Sub
Debounce Pinb.0 , 0 , Repeat
Loop

'-------------------------------------
Inctime:
If T = 1 Then
Incr _hour
If _hour = 24 Then
_hour = 0
End If
Cls
Lcd "Hour: " ; _hour
Else
If T = 2 Then
Incr _min
If _min = 60 Then
_min = 0
End If
Cls
Lcd "Min: " ; _min
End If
End If
Return
'-------------------------------------
Incdate:
If D = 1 Then
Incr _day
If _day > 31 Then
_day = 1
End If
Cls
Lcd "Day: " ; _day
Else
If D = 2 Then
Incr _month
If _month > 12 Then
_month = 1
End If
Cls
Lcd "Month: " ; _month
Else
If D = 3 Then
Incr _year
If _year > 100 Then
_year = 0
End If
Cls
Lcd "Year: " ; _year
End If
End If
End If
Return

**ry.mohammad** · 2019-03-06T00:26:17

پاسخ : ساعت با فونت بزرگ

لطف کنید اگر ضروری نیست پیغام خصوصی ندین
مشکلاتتون رو مثلا همینجا مطرح کنید
البته کلی گفتما جناب سبحان عزیز به خودشون نگیرند
باور کنید حوصله جواب دادن به پیغام های خصوصی رو ندارم چون مثل اون سابق حوصله ندارم

از اون دوستانیم که بی جوام موندن معذرت می خوام
قالب eca هم طوریه که کلا همه چی در و برهمه و این باعث میشه که کلا انگیزی کافی برای جواب دادن به پیغامم از دست بدم

راستی سبحان عزیز گفتین که :

چجوری میشه با میکرو و بسکام و توسط دو تا کلید نور یه led رو کم و زیاد کرد؟

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

دلیل: ادغام دو پست برای جلوگیری از اسپم

نوشته اصلی توسط sobhan68 نمایش پست ها

داداش اولی موافقم
سورسو بدم بهش اضافه کن

چون واقعا نمیدونم از کجا و چجوری شروع کنم

کد:

$regfile = "m32def.dat"
$crystal = 1000000
'----------------------------------------
Config Lcdpin = Pin , Db7 = Portd.0 , Db6 = Portd.1 , Db5 = Portd.2 , Db4 = Portd.3 , E = Portd.4 , Rs = Portd.5
Config Lcd = 20 * 4

Config Adc = Single , Prescaler = Auto

Start Adc
Dim A As Byte
Cursor Off : Cls


'Deflcdchar 0 , 32 , 4 , 4 , 4 , 21 , 14 , 4 , 32
'Deflcdchar 1 , 32 , 4 , 14 , 21 , 4 , 4 , 4 , 32
'stopien to Chr(223)
'caly kursor to Chr(255)
'duzy stopien to Chr(219)
'kropkaduza to Chr(161)
Deflcdchar 2 , 31 , 31 , 32 , 32 , 32 , 32 , 32 , 32
Deflcdchar 3 , 32 , 32 , 32 , 32 , 32 , 32 , 31 , 31
Deflcdchar 4 , 31 , 31 , 32 , 32 , 32 , 32 , 31 , 31



Deflcdchar 5 , 24 , 24 , 24 , 24 , 24 , 24 , 24 , 24
Deflcdchar 6 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3
Deflcdchar 7 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31



Const Liczba = 250


Dim Pierwsza As Byte , Druga As Byte , Trzecia As Byte
Dim Help As Byte
Dim Linia_g(10) As String * 4 , Linia_d(10) As String * 12
'----------------------------------------
Config Debounce = 30
Config Clock = Soft
Config Date = Ymd , Separator = /
Dim T As Byte , D As Byte
T = 0 : D = 0
Enable Interrupts
Time$ = "12:19:00"
Date$ = "97/11/26"




Locate 2 , 1
Lcd "CLOCK IS LOADING..."

While A <= 1
Incr A

Locate 3 , 7

Lcd Chr(5)
Waitms 500
Locate 3 , 7
Lcd Chr(6)
Waitms 500
Locate 3 , 7
Lcd Chr(7)
Waitms 500


Locate 3 , 8
Lcd Chr(5)
Waitms 500
Locate 3 , 8
Lcd Chr(6)
Waitms 500
Locate 3 , 8
Lcd Chr(7)
Waitms 500


Locate 3 , 9
Lcd Chr(5)
Waitms 500
Locate 3 , 9
Lcd Chr(6)
Waitms 500
Locate 3 , 9
Lcd Chr(7)
Waitms 500


Locate 3 , 10
Lcd Chr(5)
Waitms 500
Locate 3 , 10
Lcd Chr(6)
Waitms 500
Locate 3 , 10
Lcd Chr(7)
Waitms 500


Locate 3 , 11
Lcd Chr(5)
Waitms 500
Locate 3 , 11
Lcd Chr(6)
Waitms 500
Locate 3 , 11
Lcd Chr(7)
Waitms 500


Locate 3 , 12
Lcd Chr(5)
Waitms 500
Locate 3 , 12
Lcd Chr(6)
Waitms 500
Locate 3 , 12
Lcd Chr(7)
Waitms 500

Wend
Waitms 2000
Cls



Waitms 50
Display Off
Waitms 20
Display On

Enable Timer2

Do

'Cyfra 0
Linia_g(10) = Chr(255) + Chr(2) + Chr(255) + " "
Linia_d(10) = Chr(255) + Chr(3) + Chr(255) + " "

'Cyfra 1
Linia_g(1) = Chr(2) + Chr(255) + "  "
Linia_d(1) = Chr(3) + Chr(255) + Chr(3) + " "

'Cyfra 2
Linia_g(2) = Chr(4) + Chr(4) + Chr(255) + " "
Linia_d(2) = Chr(255) + Chr(3) + Chr(3) + " "

'Cyfra 3
Linia_g(3) = Chr(2) + Chr(4) + Chr(255) + " "
Linia_d(3) = Chr(3) + Chr(3) + Chr(255) + " "

'Cyfra 4
Linia_g(4) = Chr(255) + Chr(3) + Chr(255) + " "
Linia_d(4) = "  " + Chr(255) + " "

'Cyfra 5
Linia_g(5) = Chr(255) + Chr(4) + Chr(4) + " "
Linia_d(5) = Chr(3) + Chr(3) + Chr(255) + " "

'Cyfra 6
Linia_g(6) = Chr(255) + Chr(4) + Chr(4) + " "
Linia_d(6) = Chr(255) + Chr(3) + Chr(255) + " "

'Cyfra 7
Linia_g(7) = Chr(2) + Chr(2) + Chr(255) + " "
Linia_d(7) = "  " + Chr(255) + " "

'Cyfra 8
Linia_g(8) = Chr(255) + Chr(4) + Chr(255) + " "
Linia_d(8) = Chr(255) + Chr(3) + Chr(255) + " "

'Cyfra 9
Linia_g(9) = Chr(255) + Chr(4) + Chr(255) + " "
Linia_d(9) = Chr(3) + Chr(3) + Chr(255) + " "


 Dim Hour_yekan As Byte
 Dim Hour_dahgan As Byte
 Hour_yekan = _hour Mod 10
 Hour_dahgan = _hour / 10
 If Hour_dahgan = 0 Then Hour_dahgan = 10
 If Hour_yekan = 0 Then Hour_yekan = 10


 Dim Min_sadgan As Byte
 Dim Min_hezargan As Byte
 Min_sadgan = _min Mod 10
 Min_hezargan = _min / 10
 Pierwsza = Min_hezargan
 Druga = Min_sadgan
 If Pierwsza = 0 Then Pierwsza = 10
 If Druga = 0 Then Druga = 10





 Locate 2 , 2
 Lcd " " ; Linia_g(hour_dahgan) ; Linia_g(hour_yekan)
  Locate 2 , 13
 Lcd Linia_g(pierwsza) ; Linia_g(druga)
 Locate 2 , 11
Lcd Chr(223)


 Lowerline

 Locate 3 , 2
 Lcd " " ; Linia_d(hour_dahgan) ; Linia_d(hour_yekan)
   Locate 3 , 13
 Lcd Linia_d(pierwsza) ; Linia_d(druga)
 Locate 3 , 11
Lcd Chr(161)



Waitms 12000
Cls
 Locate 2 , 4
Lcd "Date: " ; Date$
A = Getadc(0)
A = A / 2
Locate 3 , 4
Lcd "Temp: " ; A ; Chr(223) ; " C"
Waitms 5000
Cls
Debounce Pinb.0 , 0 , Menu
Repeat:
 Loop
End

'----------------------------------------------
Menu:
T = 0
D = 0
Cls
Lcd "Time Setting:"
Do
Debounce Pinb.0 , 0 , Label1
Debounce Pinb.1 , 0 , Timeset
Loop
'----------------------------------------
Label1:
Cls
Lcd "Date Setting:"
Do
Debounce Pinb.0 , 0 , Repeat
Debounce Pinb.1 , 0 , Dateset
Loop
'----------------------------------------
Timeset:
Cls
Incr T
Lcd "Hour: " ; _hour
Do
Debounce Pinb.1 , 0 , Inctime , Sub
Debounce Pinb.0 , 0 , Label2
Loop
'----------------------------------------
Label2:
Cls
Incr T
Lcd "Min: " ; _min
Do
Debounce Pinb.1 , 0 , Inctime , Sub
Debounce Pinb.0 , 0 , Label1
Loop

'----------------------------------------
Dateset:
Cls
Incr D
Lcd "Day: " ; _day
Do
Debounce Pinb.1 , 0 , Incdate , Sub
Debounce Pinb.0 , 0 , Label3
Loop
'----------------------------------------
Label3:
Cls
Incr D
Lcd "Month: " ; _month
Do
Debounce Pinb.1 , 0 , Incdate , Sub
Debounce Pinb.0 , 0 , Label4
Loop
'----------------------------------------
Label4:
Cls
Incr D
Lcd "Year: " ; _year
Do
Debounce Pinb.1 , 0 , Incdate , Sub
Debounce Pinb.0 , 0 , Repeat
Loop

'-------------------------------------
Inctime:
If T = 1 Then
  Incr _hour
  If _hour = 24 Then
     _hour = 0
  End If
  Cls
  Lcd "Hour: " ; _hour
Else
If T = 2 Then
  Incr _min
  If _min = 60 Then
     _min = 0
  End If
  Cls
  Lcd "Min: " ; _min
End If
End If
Return
'-------------------------------------
Incdate:
If D = 1 Then
  Incr _day
  If _day > 31 Then
    _day = 1
  End If
  Cls
  Lcd "Day: " ; _day
Else
If D = 2 Then
  Incr _month
  If _month > 12 Then
     _month = 1
  End If
  Cls
  Lcd "Month: " ; _month
Else
If D = 3 Then
  Incr _year
  If _year > 100 Then
     _year = 0
  End If
  Cls
  Lcd "Year: " ; _year
End If
End If
End If
Return

اولی رو شما موافقید ولی من نه وقتشو دارم نه موافق
الان دیر وقته بزار بمونه واسه فردا
این کدم اینجوری پست نکن اینجا اون بالا اینو (#) بزن و کدت رو بین این قرار بده تاپیک جمع و جورتر بشه

اطلاعیه

ساعت با فونت بزرگ

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه