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

[sobhan68]

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


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

[M3R-E]

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

کسی نیست کمکم کنه؟؟؟؟

سلام
تو وبلاگ زیر برنامش با اتمل استودیو هست:

http://www.designer2013.blogsky.com/1395/04/24/post-164/%D9%86%D9%85%D8%A7%DB%8C%D8%B4-%D8%A7%D8%B9%D8%AF%D8%A7%D8%AF-%D8%A8%D8%B2%D8%B1%DA%AF-%D8%B1%D9%88%DB%8C-LCD2X16

[sobhan68]

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

سلام
تو وبلاگ زیر برنامش با اتمل استودیو هست:
http://www.designer2013.blogsky.com/...%DB%8C-LCD2X16

ممنونم
ولی اتمل استودیو بلد نیستم
میشه لطف کنی یه ساعت بدون آی سی ds برام بزاری؟
که با RTC خوده میکرو کار کنه و دو تا شاسی باشه برا تنظیمش؟

[sobhan68]

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

اساتید گرامی من اینساعتو پیدا کردم از سایت robo pardaz
فقط دو تا مشکل دترم:
1.آی سی ds1307 تو کرج پیدا نمیشه
2.مدار مورد نظر شاسی برا تنظیم ساعت و دقیقه نداره

دوستانی که با اتمل استودیو کار کردن لطف کنن آی سی ds1307 رو حذف کنن و بجاش با RTC خوده میکرو و کریستال طراحی کنن و لطف کنن دو تا کلید هم برای تنظیم ساعت و دقیقه

http://robopardaz.com/ds1307-avr/

بی نهایت سپاس گزارم

[sobhan68]

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

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

اینم فایلش:

http://uupload.ir/view/pr01_bigfont_lcd.rar/

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

ممنونم

[sobhan68]

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

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

اینم فایلش:

http://uupload.ir/view/pr01_bigfont_lcd.rar/

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

ممنونم

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

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


$regfile = "m8def.dat"
$crystal = 1000000
Config Pinb.0 = Input
Config Pinb.1 = Input
Config Pinb.2 = Input
Hour Alias Pinb.0 : Mine Alias Pinb.1 : Seco Alias Pinb.2
Config Clock = Soft
Time$ = "0200"
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db7 = Portc.5 , Db6 = Portc.4 , _
Db5 = Portc.3 , Db4 = Portc.2 , Rs = Portc.0 , E = Portc.1
Cursor Off
Enable Interrupts
Declare Sub A
Declare Sub B
Declare Sub C
Cls
Dim V As Byte
Do
Call A
Call B

Loop
End

Sub A
Home : Lcd "TIME:" ; Time$ ; " "
End Sub

Sub B
If Hour = 0 Then
Incr _hour
If _hour > 23 Then _hour = 0
End If

If Mine = 0 Then
Incr _min
If _min > 59 Then _min = 0
End If

If Seco = 0 Then
Incr _sec
If _sec > 59 Then _sec = 0
End If
Call C
End Sub

Sub C
For V = 0 To 5
Call A
Next
End sub

لطفا از اساتید محترم کمک کنید ک چجوری از اون فونت های بزرگ استفاده کنم

[sobhan68]

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

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

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


$regfile = "m8def.dat"
$crystal = 1000000
Config Pinb.0 = Input
Config Pinb.1 = Input
Config Pinb.2 = Input
Hour Alias Pinb.0 : Mine Alias Pinb.1 : Seco Alias Pinb.2
Config Clock = Soft
Time$ = "0200"
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db7 = Portc.5 , Db6 = Portc.4 , _
Db5 = Portc.3 , Db4 = Portc.2 , Rs = Portc.0 , E = Portc.1
Cursor Off
Enable Interrupts
Declare Sub A
Declare Sub B
Declare Sub C
Cls
Dim V As Byte
Do
Call A
Call B

Loop
End

Sub A
Home : Lcd "TIME:" ; Time$ ; " "
End Sub

Sub B
If Hour = 0 Then
Incr _hour
If _hour > 23 Then _hour = 0
End If

If Mine = 0 Then
Incr _min
If _min > 59 Then _min = 0
End If

If Seco = 0 Then
Incr _sec
If _sec > 59 Then _sec = 0
End If
Call C
End Sub

Sub C
For V = 0 To 5
Call A
Next
End sub

لطفا از اساتید محترم کمک کنید ک چجوری از اون فونت های بزرگ استفاده کنم

یکی کمکممممممممممممم کننههههههههه

[ry.mohammad]

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

یکی کمکممممممممممممم کننههههههههه

شاید این لینک کمکت کنه
بزبان بسکام هست

http://mirley.firlej.org/node/1043

[sobhan68]

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

شاید این لینک کمکت کنه
بزبان بسکام هست
http://mirley.firlej.org/node/1043

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

[ry.mohammad]

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

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

بله فهمیدم
منظور من استفاده از فونت و روشی که به کار برده بود
شما که برنامه ساعت رو دارید پس با استفاده از روش نمایش اعداد در لینک بالا می تونید ساعت رو با فونت بزرگ روی ال سی دی نمایش دهید...

[sobhan68]

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

بله فهمیدم
منظور من استفاده از فونت و روشی که به کار برده بود
شما که برنامه ساعت رو دارید پس با استفاده از روش نمایش اعداد در لینک بالا می تونید ساعت رو با فونت بزرگ روی ال سی دی نمایش دهید...

داداش من متوجه نشدم

یعنی اون کدای اعداد بزرگ رو کپی کردم و کد های ساعتم کپی کردم نشد
دما میزنه

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

من برنامه نویسیم خیلی ضعیفه

امکانش هست کمکم کنی؟

[sobhan68]

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

محمد جان ببین :

[LEFT]
$regfile = "m8def.dat"
$crystal = 1000000
Config Pinb.0 = Input
Config Pinb.1 = Input
Config Pinb.2 = Input
Hour Alias Pinb.0 : Mine Alias Pinb.1 : Seco Alias Pinb.2

Config Lcdpin = Pin , Db7 = Portc.5 , Db6 = Portc.4 , _
 Db5 = Portc.3 , Db4 = Portc.2 , Rs = Portc.0 , E = Portc.1
 Config Lcd = 16 * 2
 Config Clock = Soft


Cursor Off Noblink
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

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 * 4


'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) + " "



 Trzecia = Liczba Mod 10
 If Trzecia = 0 Then Trzecia = 10
 Help = Liczba / 10
 Pierwsza = Help / 10
 If Pierwsza = 0 Then Pierwsza = 10
 Druga = Help Mod 10
 If Druga = 0 Then Druga = 10

Cls

 Waitms 100


 Lcd " " ; Linia_g(pierwsza) ; Linia_g(druga) ; " " ; Linia_g(trzecia) ; Chr(223) ; "C"
 Lowerline
 Lcd " " ; Linia_d(pierwsza) ; Linia_d(druga) ; Chr(161) ; Linia_d(trzecia)

 End


 Time$ = "05:45"
 Cursor Off
Enable Interrupts
Declare Sub A
Declare Sub B
Declare Sub C
Cls
Dim V As Byte
Do
Call A
Call B

Loop
End

Sub A
Home : Lcd ; Time$ ; " "
End Sub

Sub B
If Hour = 0 Then
Incr _hour
If _hour > 23 Then _hour = 0
End If

If Mine = 0 Then
Incr _min
If _min > 59 Then _min = 0
End If


 Call C
End Sub

Sub C
For V = 0 To 5
Call A
Next

End Sub
[/LEFT]

توی پرتئوس که ران میکنم دما میزنه




لطف میکنی بگی مشکل کجاس؟؟؟

[ry.mohammad]

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

[QUOTE=sobhan68;674344]محمد جان ببین :
[CODE]
خوب معلومه که دما رو نشون میده
شما قسمت دما رو تو کامپایلر پاک کن و برنامه ساعت خودت رو جای اون بنویس

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

داداش من متوجه نشدم

یعنی اون کدای اعداد بزرگ رو کپی کردم و کد های ساعتم کپی کردم نشد
دما میزنه

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

من برنامه نویسیم خیلی ضعیفه

امکانش هست کمکم کنی؟

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

[sobhan68]

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

[QUOTE=ry.mohammad;674349]

محمد جان ببین :
[CODE]
خوب معلومه که دما رو نشون میده
شما قسمت دما رو تو کامپایلر پاک کن و برنامه ساعت خودت رو جای اون بنویس

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


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

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

[sobhan68]

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

[QUOTE=ry.mohammad;674349]

محمد جان ببین :
[CODE]
خوب معلومه که دما رو نشون میده
شما قسمت دما رو تو کامپایلر پاک کن و برنامه ساعت خودت رو جای اون بنویس

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


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

محمد جان بنظرم قسمت دما اون دو خط آخر بود
آره؟؟؟؟

پاکش کردم به اینصورت نوشتم

[LEFT]$regfile = "m8def.dat"
$crystal = 1000000
Config Pinb.0 = Input
Config Pinb.1 = Input
Config Pinb.2 = Input
Hour Alias Pinb.0 : Mine Alias Pinb.1 : Seco Alias Pinb.2
Config Clock = Soft
Time$ = "02:20"
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db7 = Portc.5 , Db6 = Portc.4 , _
 Db5 = Portc.3 , Db4 = Portc.2 , Rs = Portc.0 , E = Portc.1
Cursor Off
Enable Interrupts
Declare Sub A
Declare Sub B
Declare Sub C
Cls
Dim V As Byte
Do
Call A
Call B

Loop
End


'Deflcdchar 0 , 32 , 4 , 4 , 4 , 21 , 14 , 4 , 32            ' strzalka w dol
'Deflcdchar 1 , 32 , 4 , 14 , 21 , 4 , 4 , 4 , 32            ' strzalka w gore
'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        ' gorna kreseczka
Deflcdchar 3 , 32 , 32 , 32 , 32 , 32 , 32 , 31 , 31        ' dolna kreseczka
Deflcdchar 4 , 31 , 31 , 32 , 32 , 32 , 32 , 31 , 31        ' dwie kreseczki

Const Liczba = 206


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 * 4


'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) + " "



Cls

 Waitms 100


Sub A

 Lcd ; Time$ ; " "; Linia_g(pierwsza) ; Linia_g(druga) ; " " ; Linia_g(trzecia) ;

 End Sub



Sub B
If Hour = 0 Then
Incr _hour
If _hour > 23 Then _hour = 0
End If

If Mine = 0 Then
Incr _min
If _min > 59 Then _min = 0
End If


 Call C
End Sub

Sub C
For V = 0 To 5
Call A
Next

End Sub
[/LEFT]

ولی هی ساعتو تو دو تا خط توی کل صفحه میچرخونه




میشه بگی مشکل کجاست؟؟؟؟؟