اطلاعیه

Collapse
No announcement yet.

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

Collapse
X
 
  • فیلتر
  • زمان
  • Show
Clear All
new posts

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

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


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

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

    نوشته اصلی توسط sobhan68
    کسی نیست کمکم کنه؟؟؟؟
    سلام
    تو وبلاگ زیر برنامش با اتمل استودیو هست:

    دیدگاه


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

      نوشته اصلی توسط M3R-E نمایش پست ها
      سلام
      تو وبلاگ زیر برنامش با اتمل استودیو هست:
      http://www.designer2013.blogsky.com/...%DB%8C-LCD2X16
      ممنونم
      ولی اتمل استودیو بلد نیستم
      میشه لطف کنی یه ساعت بدون آی سی ds برام بزاری؟
      که با RTC خوده میکرو کار کنه و دو تا شاسی باشه برا تنظیمش؟

      دیدگاه


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

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

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

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

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

        دیدگاه


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

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

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


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

          ممنونم

          دیدگاه


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

            نوشته اصلی توسط 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

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

            دیدگاه


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

              نوشته اصلی توسط 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

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

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

              دیدگاه


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

                نوشته اصلی توسط sobhan68 نمایش پست ها
                یکی کمکممممممممممممم کننههههههههه
                شاید این لینک کمکت کنه
                بزبان بسکام هست
                برد جوجه کشی:
                مطالعه پست 1 (حتما مطالعه کنید)


                مطالعه پست 2 (برای مطلع شدن از تغییرات برنامه مطالعه کنید)

                دانلود

                توجه:
                این برد نیمه صنعتی و خانگی هست...
                برای صنعتی شدن حتما برد مخصوص خودتون رو بزنید...

                آی دی کانال تلگرامی مربوط به برد جوجه کشی : electr0o0nic@

                دیدگاه


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

                  نوشته اصلی توسط ry.mohammad نمایش پست ها
                  شاید این لینک کمکت کنه
                  بزبان بسکام هست
                  http://mirley.firlej.org/node/1043
                  والا دیدم
                  سر در نیاوردم
                  این باهاش دماسنج ساخته
                  شما فهمیدی؟
                  چجوری ساعتش کنم؟؟

                  دیدگاه


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

                    نوشته اصلی توسط sobhan68 نمایش پست ها
                    والا دیدم
                    سر در نیاوردم
                    این باهاش دماسنج ساخته
                    شما فهمیدی؟
                    چجوری ساعتش کنم؟؟
                    بله فهمیدم
                    منظور من استفاده از فونت و روشی که به کار برده بود
                    شما که برنامه ساعت رو دارید پس با استفاده از روش نمایش اعداد در لینک بالا می تونید ساعت رو با فونت بزرگ روی ال سی دی نمایش دهید...
                    برد جوجه کشی:
                    مطالعه پست 1 (حتما مطالعه کنید)


                    مطالعه پست 2 (برای مطلع شدن از تغییرات برنامه مطالعه کنید)

                    دانلود

                    توجه:
                    این برد نیمه صنعتی و خانگی هست...
                    برای صنعتی شدن حتما برد مخصوص خودتون رو بزنید...

                    آی دی کانال تلگرامی مربوط به برد جوجه کشی : electr0o0nic@

                    دیدگاه


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

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

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

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

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

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

                      دیدگاه


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

                        محمد جان ببین :
                        کد:
                        [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]
                        توی پرتئوس که ران میکنم دما میزنه




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

                        دیدگاه


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

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

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

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

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

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

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

                          امکانش هست کمکم کنی؟
                          عزیز سعی کن خودت انجام بدی
                          اینجوری رفته رفته می بینی که استاد شدی
                          برد جوجه کشی:
                          مطالعه پست 1 (حتما مطالعه کنید)


                          مطالعه پست 2 (برای مطلع شدن از تغییرات برنامه مطالعه کنید)

                          دانلود

                          توجه:
                          این برد نیمه صنعتی و خانگی هست...
                          برای صنعتی شدن حتما برد مخصوص خودتون رو بزنید...

                          آی دی کانال تلگرامی مربوط به برد جوجه کشی : electr0o0nic@

                          دیدگاه


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

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

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


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

                            دیدگاه


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

                              [QUOTE=ry.mohammad;674349]
                              نوشته اصلی توسط sobhan68 نمایش پست ها
                              محمد جان ببین :
                              [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]
                              ولی هی ساعتو تو دو تا خط توی کل صفحه میچرخونه




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


                              جدیدترین ویرایش توسط sobhan68; ۲۱:۴۱ ۱۳۹۷/۰۱/۲۵.

                              دیدگاه

                              لطفا صبر کنید...
                              X