اطلاعیه

Collapse
No announcement yet.

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

Collapse
X
Collapse
 
  • صفحه of 4
  • فیلتر
  • زمان
  • Show
Clear All
new posts
قبلی 1 2 3 4 template بعدی
    #16
    پاسخ : ساعت با فونت بزرگ

    دوست عزیز ظاهرا که هیچی بلد نیستید
    پس فرصت خوبیه که یاد بگیرید
    من قسمت ساعت رو روی ال سی دی نشون دادم
    شما هم قسمت دقیقه رو روی ال سی دی نشون بدید
    بعد این کدهای زیر
    کد:
    'Cyfra 9
Linia_g(9) = Chr(255) + Chr(4) + Chr(255) + " "
Linia_d(9) = Chr(3) + Chr(3) + Chr(255) + " "
    تا دستور cls هرچی هست پاک کن و کد زیر رو جایگزین کن
    ول کن بیا این کد کامل
    قسمت دقیقه اش رو با الهام گرفتن از کد خودت بنویس

    کد:
    $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) + " "


Time$ = "05:45"
 Cursor Off
Enable Interrupts
 dim hour_yekan as byte
 dim hour_dahgan as Byte
 hour_yekan=_hour mod 10
 hour_dahgan=_hour/10
 pierwsza=hour_dahgan
 druga= hour_yekan
 If Pierwsza = 0 Then Pierwsza = 10
 If Druga = 0 Then Druga = 10
Cls

 Waitms 100

 home
 Lcd " " ; Linia_g(pierwsza) ; Linia_g(Druga) ; Chr(223)
 Lowerline
 Lcd " " ; Linia_d(pierwsza) ; Linia_d(Druga) ; Chr(161)

end
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
    [/CODE]
    برد جوجه کشی:
    مطالعه پست 1 (حتما مطالعه کنید)

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

    دانلود

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

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

    دیدگاه

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

      نوشته اصلی توسط ry.mohammad نمایش پست ها
      دوست عزیز ظاهرا که هیچی بلد نیستید
      پس فرصت خوبیه که یاد بگیرید
      من قسمت ساعت رو روی ال سی دی نشون دادم
      شما هم قسمت دقیقه رو روی ال سی دی نشون بدید
      بعد این کدهای زیر
      کد:
      'Cyfra 9
Linia_g(9) = Chr(255) + Chr(4) + Chr(255) + " "
Linia_d(9) = Chr(3) + Chr(3) + Chr(255) + " "
      تا دستور cls هرچی هست پاک کن و کد زیر رو جایگزین کن
      ول کن بیا این کد کامل
      قسمت دقیقه اش رو با الهام گرفتن از کد خودت بنویس

      کد:
      $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) + " "


Time$ = "05:45"
 Cursor Off
Enable Interrupts
 dim hour_yekan as byte
 dim hour_dahgan as Byte
 hour_yekan=_hour mod 10
 hour_dahgan=_hour/10
 pierwsza=hour_dahgan
 druga= hour_yekan
 If Pierwsza = 0 Then Pierwsza = 10
 If Druga = 0 Then Druga = 10
Cls

 Waitms 100

 home
 Lcd " " ; Linia_g(pierwsza) ; Linia_g(Druga) ; Chr(223)
 Lowerline
 Lcd " " ; Linia_d(pierwsza) ; Linia_d(Druga) ; Chr(161)

end
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
      [/CODE]
      دقیقا داداش هیچی بلد نیستم

      ی کوچولو تو دانشگا یاد گرفتم
      دست گلت درد نکنههههه
      ی دونه ایییی

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

      دیدگاه

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

        یادت باشه بعد دستور end هیچ کدی دیگه اجرا نمیشه
        پس دستور end رو یا پاک کن یا ببر آخر
        برد جوجه کشی:
        مطالعه پست 1 (حتما مطالعه کنید)

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

        دانلود

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

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

        دیدگاه

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

          نوشته اصلی توسط ry.mohammad نمایش پست ها
          یادت باشه بعد دستور end هیچ کدی دیگه اجرا نمیشه
          پس دستور end رو یا پاک کن یا ببر آخر
          آهان ممنوم داداش

          فقط ی سوال
          اون mod 10 یعنی چی؟
          برا دقیقه نوشتم کامپایلر میگه
          Error : 93 Line : 97 Variable not dimensioned [_MINUTES] , in File :
          یعنی چی؟

          دیدگاه

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

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

            فقط ی سوال
            اون mod 10 یعنی چی؟
            برا دقیقه نوشتم کامپایلر میگه
            Error : 93 Line : 97 Variable not dimensioned [_MINUTES] , in File :
            یعنی چی؟
            A=B mod 10
            یعنی عدد B رو تقسیم بر 10 کن بعد باقیمانده هر چی شد تو متغیر A ذخیره کن
            و به جای _MINUTES
            از _min استفاده کن
            برد جوجه کشی:
            مطالعه پست 1 (حتما مطالعه کنید)

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

            دانلود

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

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

            دیدگاه

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

              نوشته اصلی توسط ry.mohammad نمایش پست ها
              A=B mod 10
              یعنی عدد B رو تقسیم بر 10 کن بعد باقیمانده هر چی شد تو متغیر A ذخیره کن
              و به جای _MINUTES
              از _min استفاده کن
              ممنونم
              آقا درست شد فقط ی مشکل
              دقیقه رو جای ساعت نشون میده
              چکارش کنم؟

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

              آقا محمد اینو نگا کن
              کد:
              [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

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




Time$ = "15:20"
 Cursor Off
Enable Interrupts
 dim hour_yekan as byte
 dim hour_dahgan as Byte
 hour_yekan=_hour mod 10
 hour_dahgan=_hour/10
 pierwsza=hour_dahgan
 druga= hour_yekan
 If Pierwsza = 0 Then Pierwsza = 10
 If Druga = 0 Then Druga = 10



 Waitms 100

 home
 Lcd " " ; Linia_g(pierwsza) ; Linia_g(Druga) ; Chr(223)
 Lowerline
 Lcd " " ; Linia_d(pierwsza) ; Linia_d(Druga) ; Chr(161)


 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



 Waitms 100

  Locate 2 , 16

 Lcd " " ; Linia_g(pierwsza) ; Linia_g(Druga) ;
 Lowerline
 Lcd " " ; Linia_d(pierwsza) ; Linia_d(Druga) ;


end
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]
              لوکیشنم بهش دادم ولی بازم قاطی میزنه

              دیدگاه

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

                کد زیر رو کامپایل کن
                دقت کن که کد ها یکم تغییر و جابه جا شدند
                کد:
                
$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

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




Time$ = "15:20"
 Cursor Off
Enable Interrupts
 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


 Waitms 100

 home
 Lcd " " ; Linia_g(hour_dahgan) ; Linia_g(hour_yekan)
 locate 1,9
 lcd  Chr(223) ; Linia_g(pierwsza) ; Linia_g(Druga)
 Lowerline
 Lcd " " ; Linia_d(hour_dahgan) ; Linia_d(hour_yekan)
 locate 2,9
 lcd Chr(161)  ; Linia_d(pierwsza) ; Linia_d(Druga)




end
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
                برد جوجه کشی:
                مطالعه پست 1 (حتما مطالعه کنید)

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

                دانلود

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

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

                دیدگاه

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

                  نوشته اصلی توسط ry.mohammad نمایش پست ها
                  کد زیر رو کامپایل کن
                  دقت کن که کد ها یکم تغییر و جابه جا شدند
                  کد:
                  


$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

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




Time$ = "15:20"
 Cursor Off
Enable Interrupts
 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


 Waitms 100

 home
 Lcd " " ; Linia_g(hour_dahgan) ; Linia_g(hour_yekan)
 locate 1,9
 lcd  Chr(223) ; Linia_g(pierwsza) ; Linia_g(Druga)
 Lowerline
 Lcd " " ; Linia_d(hour_dahgan) ; Linia_d(hour_yekan)
 locate 2,9
 lcd Chr(161)  ; Linia_d(pierwsza) ; Linia_d(Druga)




end
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
                  داداش ی دوونه ایییییییی

                  فقط ی سوال
                  با استفاده از کلید ساعت و دقیقه؛ ساعت و دقیقه کم و زیاد نمیشن





                  آقا محمد ی مشکل دگ هم داره اینه ک ساعت از 20 و 55 تکون نمیخوره
                  الان 5 دقیقه س ران کردم همین مونده
                  جدیدترین ویرایش توسط sobhan68; ۲۳:۳۰ ۱۳۹۷/۰۱/۲۵.

                  دیدگاه

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

                    یه حلقه do loop درست کن
                    یعنی بالای
                    کد:
                    'Cyfra 0
                    یه do بنویس
                    و بالای end هم loop بنویس
                    بعد اون دستور
                    کد:
                    Time$ = "15:20"
                    رو از وسط برنامه انتقال بده به بالای do

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

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

                    دانلود

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

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

                    دیدگاه

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

                      نوشته اصلی توسط ry.mohammad نمایش پست ها
                      یه حلقه do loop درست کن
                      یعنی بالای
                      کد:
                      'Cyfra 0
                      یه do بنویس
                      و بالای end هم loop بنویس
                      بعد اون دستور
                      کد:
                      Time$ = "15:20"
                      رو از وسط برنامه انتقال بده به بالای do

                      دستور do loop یه حلقه ی بی نهایت ایجاد می کنه وقتی میرسه به do
                      میکرو دیگه از do شروع می کنه تا loop و بعد اینکه رسید به loop دوباره برمیگرده و از do دستورات رو اجرا می کنه
                      شما اون مقدار تایم رو بالای do انتقال دادین پس تایم فقط در مرحله اول راه اندازی میکرو تنظیم میشه سپس در حلقه وارد میشه
                      شما داخل این حلقه می تونید برنامه کم و بیشتر کردن ساعت رو بنویسید
                      آقا من اینکارو کردم ولی متاسفانه بازم نشد
                      ن با دکمه ها تغییر کرد ن خوده ساعت
                      کد:
                      [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

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
[COLOR=#ff0000]
Time$ = "15:20"
do[/COLOR]

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





 Cursor Off
Enable Interrupts
 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


 Waitms 100

 home
 Lcd " " ; Linia_g(hour_dahgan) ; Linia_g(hour_yekan)
 locate 1,9
 lcd  Chr(223) ; Linia_g(pierwsza) ; Linia_g(Druga)
 Lowerline
 Lcd " " ; Linia_d(hour_dahgan) ; Linia_d(hour_yekan)
 locate 2,9
 lcd Chr(161)  ; Linia_d(pierwsza) ; Linia_d(Druga)

[COLOR=#ff0000]loop[/COLOR]

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

end
[/LEFT]
                      اونایی ک قرمز کردم رو انجام دادم

                      مشکل از کجاس؟؟؟
                      جدیدترین ویرایش توسط sobhan68; ۰۰:۱۶ ۱۳۹۷/۰۱/۲۶.

                      دیدگاه

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

                        مشکل از عدم تعریف صحیح تابع هاست
                        کد تغییر داده شده
                        تابع هات حذف شده و به داخل حلقه اورده شده
                        کد:
                        $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

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
[COLOR=#008000]
Time$ = "15:20"
Cursor Off
Enable Interrupts
enable timer2[/COLOR]
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


 Waitms 100

 home
 Lcd " " ; Linia_g(hour_dahgan) ; Linia_g(hour_yekan)
 locate 1,9
 lcd  Chr(223) ; Linia_g(pierwsza) ; Linia_g(Druga)
 Lowerline
 Lcd " " ; Linia_d(hour_dahgan) ; Linia_d(hour_yekan)
 locate 2,9
 lcd Chr(161)  ; Linia_d(pierwsza) ; Linia_d(Druga)
 '/////////////////////////[COLOR=#008000]
 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
endif[/COLOR]
 '/////////////////////////
loop
end
                        برد جوجه کشی:
                        مطالعه پست 1 (حتما مطالعه کنید)

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

                        دانلود

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

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

                        دیدگاه

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

                          نوشته اصلی توسط ry.mohammad نمایش پست ها
                          مشکل از عدم تعریف صحیح تابع هاست
                          کد تغییر داده شده
                          تابع هات حذف شده و به داخل حلقه اورده شده
                          کد:
                          $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

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
[COLOR=#008000]
Time$ = "15:20"
Cursor Off
Enable Interrupts
enable timer2[/COLOR]
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


 Waitms 100

 home
 Lcd " " ; Linia_g(hour_dahgan) ; Linia_g(hour_yekan)
 locate 1,9
 lcd  Chr(223) ; Linia_g(pierwsza) ; Linia_g(Druga)
 Lowerline
 Lcd " " ; Linia_d(hour_dahgan) ; Linia_d(hour_yekan)
 locate 2,9
 lcd Chr(161)  ; Linia_d(pierwsza) ; Linia_d(Druga)
 '/////////////////////////[COLOR=#008000]
 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
endif[/COLOR]
 '/////////////////////////
loop
end
                          دمتگرممم داداشششش

                          سپاس گزارم

                          خیلی گلی

                          فقط ی چیزی 1 دقیقه این ساعته حدود 1 دقیقه و 30 ثانیه طول میکشه
                          بنظرت چرا؟؟؟

                          آقا محمد اگ نمیزنی
                          میشه تاریخم بهش اضافه کرد؟؟؟؟

                          دیدگاه

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

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

                            سپاس گزارم

                            خیلی گلی

                            فقط ی چیزی 1 دقیقه این ساعته حدود 1 دقیقه و 30 ثانیه طول میکشه
                            بنظرت چرا؟؟؟

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

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

                            دانلود

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

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

                            دیدگاه

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

                              نوشته اصلی توسط ry.mohammad نمایش پست ها
                              خواهش می کنم دوست عزیز
                              هدف اینه که با همدیگه یاد بگیریم
                              توی پروتیوس همینجوریه هیچ وقت درست کار نمی کنه
                              در ضمن فرکانس کریستال رو 32.768 کیلو هرتز بکن (توی پروتیوس)
                              اضاف کردنش که میشه ولی تاریخ میلادی هست رفیق
                              شمسی نیست
                              ممنونم دوست گلم
                              خیلی بهت زحمت دادم
                              اوکی
                              ی چیز دگ اون دو نطقه وسط رو میشه چشمک زن کرد؟؟؟

                              و امکان اضافه کردن دماسنج با lm 35 چطور؟

                              دیدگاه

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

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

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

                                دانلود

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

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

                                دیدگاه

                                قبلی 1 2 3 4 template بعدی
                                لطفا صبر کنید...
                                X