اطلاعیه

Collapse
No announcement yet.

پروژه های حرفه ای و ساده میکرو

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

    کد:
    Ss1:
   Waitms T1
Do
        Debounce Pind.3 , 1 , D7 , Sub
        Debounce Pind.0 , 1 , Ssal
        Debounce Pind.1 , 1 , Ss8
        Debounce Pind.2 , 1 , Ss9
Loop
                                   ' DESINGED BY A.N.T
Ss9:
   Timer2 = 0: Stimer = 0: Ss = 0: Locate 1, 7: Lcd "00": GoTo Ss1
Ss8:
   Timer2 = 0: Stimer = 0
      If Ss > 29 Then Mm = Mm + 1

   If Mm > 59 Then
       Mm = 0: Cc = Cc + 1: Ecc = Cc
       If Cc > 23 Then
         Cc = 0: Roz = Roz + 1: Hafteh = Hafteh + 1
         If Hafteh > 7 Then Hafteh = 1

         If Mah > 6 Then
             If Roz > 30 Then
                Roz = 1: Mah = Mah + 1
                If Mah > 12 Then
                   Mah = 1: Sal = Sal + 1
                   If Sal > 99 Then Sal = 0
                   If Sal < 10 Then : Home L : Lcd " " ; Sal ; "/"
                   Else: Home L: Lcd Sal
                   End If
                   Esal = Sal
                End If

                If Mah < 10 Then : Locate 2 , 4 : Lcd "0" ; Mah ; "/"
                Else: Locate 2, 4: Lcd Mah
                End If
                Emah = Mah
             End If

          ElseIf 7 > Mah Then:
             If Roz > 31 Then
                Roz = 1: Mah = Mah + 1
                If Mah > 12 Then
                   Mah = 1: Sal = Sal + 1
                   If Sal < 10 Then : Home L : Lcd " " ; Sal ; "/"
                   Else : Home L : Lcd Sal ; "/"
                   End If
                   Esal = Sal
                End If

                If Mah < 10 Then : Locate 2 , 4 : Lcd "0" ; Mah ; "/"
                Else: Locate 2, 4: Lcd Mah
                End If

                Emah = Mah
            End If
             Eroz = Roz: Ehafteh = Hafteh
          End If

          Locate 2, 9
          Select Case Hafteh
             Case 1: Lcd " SAT"
             Case 2: Lcd " SUN"
             Case 3: Lcd " MON"
             Case 4: Lcd " TUE"
             Case 5: Lcd " WED"
             Case 6: Lcd " THU"
             Case 7: Lcd " FRI"
          End Select

          Locate 2, 7
          If Roz < 10 Then : Lcd "0" ; Roz
          Else: Lcd Roz
          End If

      End If

        If Cc < 10 Then : Home : Lcd " " ; Cc ; ":"
        Else : Home : Lcd Cc ; ":"
        End If
        Ecc = Cc
   End If
      Locate 1, 4
     If Mm < 10 Then : Lcd "0" ; Mm ; "/00"
     Else : Lcd Mm ; "/00"
     End If

   Ss = 0: GoTo Ss1
Return
                ' BARAT TANZIM SA@ TIMER
Ct:
   F = 4
   For W = 0 To 40000
      If Pind.0 = 0 Then : Goto Ct1 : End If
      Waitus 60
      Debounce Pind.3 , 1 , D7 , Sub
   Next
   GoTo Cc
Ct1:
    Waitms T1 : Z = 10 : Reset Portb.3
Do
        Debounce Pind.3 , 1 , D7 , Sub
        Debounce Pind.0 , 1 , Mt
        Debounce Pind.1 , 1 , Ct8
        Debounce Pind.2 , 1 , Ct9
Loop

Ct8:
      Ct = Ct + 1: If Ct > 23 Then Ct = 0: GoTo Ct1
Ct9:
      Ct = Ct - 1: If Ct > 200 Then Ct = 23: GoTo Ct1
Return
                ' BARAT TANZIM DAGHIGHEH TIMER
Mt:
   Ect = Ct: F = 5: Locate 1, 12: Z = 10

   If Ct < 10 Then : Lcd " " ; Ct ; ":"
   Else : Lcd Ct ; ":"
   End If
Mt1:
   Waitms T1
Do
        Debounce Pind.3 , 1 , D7 , Sub
        Debounce Pind.0 , 1 , Mt2
        Debounce Pind.1 , 1 , Mt8
        Debounce Pind.2 , 1 , Mt9
Loop

Mt8:
     Mt = Mt + 1: If Mt > 59 Then Mt = 0: GoTo Mt1
Mt9:
     Mt = Mt - 1: If Mt > 200 Then Mt = 59: GoTo Mt1
Mt2:
   Emt = Mt: Locate 1, 15
   If Mt < 10 Then : Lcd "0" ; Mt
   Else: Lcd Mt
   End If
   Z = 0 : If B = 1 Then Set Portb.3 : Goto Star
Return
                 ' BARAY FAAL VA GHER FAAL KARDAN TIMER
D7:
   Locate 1, 10
      If B = 0 Then : B = 1 : Lcd Chr(1) : Set Portb.3
      Elseif B = 1 Then : B = 0 : Lcd " " : Reset Portb.3
      Else : B = 1 : Lcd Chr(1) : Set Portb.3
      End If
   Eb = B : Locate 2 , 20 : Reset Portd.7 : Z = 0
   Reset Portd.5 : Reset Portd.6 : If Kk = 1 Then Goto Star
   Waitms T1

Return
Return
                 ' BARAY TANZIM TARIKH SAL
Ssal:
   F = 6: Locate 1, 7
   If Ss < 10 Then : Lcd "0" ; Ss
   Else: Lcd Ss
   End If
Ssal1:
    Waitms T1
Do
        Debounce Pind.3 , 1 , D7 , Sub
        Debounce Pind.0 , 1 , Mmah
        Debounce Pind.1 , 1 , Ssal8
        Debounce Pind.2 , 1 , Ssal9
Loop

Ssal8:
     Sal = Sal + 1: If Sal > 99 Then Sal = 0: GoTo Ssal1
Ssal9:
     Sal = Sal - 1: If Sal > 200 Then Sal = 99: GoTo Ssal1
Return
                 ' BARAY TANZIM TARIKH MAH
Mmah:
   F = 7: Esal = Sal: Home L
   If 10 > Sal Then : Lcd " " ; Sal ; "/"
   Else : Lcd Sal ; "/"
   End If
Mmah1:
   Waitms T1
Do
        Debounce Pind.3 , 1 , D7 , Sub
        Debounce Pind.0 , 1 , Rroz
        Debounce Pind.1 , 1 , Mmah8:
        Debounce Pind.2 , 1 , Mmah9
Loop

Mmah8:
     Mah = Mah + 1: If Mah > 12 Then Mah = 1: GoTo Mmah1

Mmah9:
     Mah = Mah - 1: If Mah = 0 Then Mah = 12: GoTo Mmah1
Return
                 ' BARAY TANZIM TARIKH ROZ
Rroz:
     F = 8: Emah = Mah: Locate 2, 4

   If 10 > Mah Then : Lcd "0" ; Mah ; "/"
   Else : Lcd Mah ; "/"
   End If
Rroz1:
     Waitms T1
     Select Case Mah:
        Case Is > 6:
          If Roz > 30 Then: Roz = 1
          ElseIf Roz = 0 Then: Roz = 30
          End If
        Case Is < 7:
           If Roz > 31 Then: Roz = 1
           ElseIf Roz = 0 Then: Roz = 31
           End If
     End Select
Do
        Debounce Pind.3 , 1 , D7 , Sub
        Debounce Pind.0 , 1 , Hhafteh
        Debounce Pind.1 , 1 , Rroz8
        Debounce Pind.2 , 1 , Rroz9
Loop
Rroz8:
    Roz = Roz + 1: GoTo Rroz1
Rroz9:
    Roz = Roz - 1: GoTo Rroz1
Return
                 ' BARAY TANZIM ROOZ HAFTEH
Hhafteh:

   F = 9: Eroz = Roz: Locate 2, 7

   If Roz < 10 Then : Lcd "0" ; Roz
   Else: Lcd Roz
   End If

Hhafteh1:
   Waitms T1
Do
        Debounce Pind.3 , 1 , D7 , Sub
        Debounce Pind.0 , 1 , Hhafteh2
        Debounce Pind.1 , 1 , Hhafteh8
        Debounce Pind.2 , 1 , Hhafteh9
Loop

Hhafteh8:
     Hafteh = Hafteh + 1: If Hafteh > 7 Then Hafteh = 1: GoTo Hhafteh1

Hhafteh9:
     Hafteh = Hafteh - 1: If Hafteh = 0 Then Hafteh = 7: GoTo Hhafteh1

Hhafteh2:
     Ehafteh = Hafteh: Locate 2, 9
     Select Case Hafteh:
        Case 1: Lcd " SAT"
        Case 2: Lcd " SUN"
        Case 3: Lcd " MON"
        Case 4: Lcd " TUE"
        Case 5: Lcd " WED"
        Case 6: Lcd " THU"
        Case 7: Lcd " FRI"
     End Select
GoTo Star

Return
                 ' BARAY TANZIM DAMAY BALA
Dama1:
     F = 11
Do
        Debounce Pind.3 , 1 , D7 , Sub
        Debounce Pind.0 , 1 , Dama2
        If Pind.1 = 0 Then :
           If Pind.2 = 0 Then Exit Do
        End If

Loop
Dama15:
      Waitms T1
Do
        Debounce Pind.3 , 1 , D7 , Sub
        Debounce Pind.0 , 1 , Dama2
        Debounce Pind.1 , 1 , Dama18
        Debounce Pind.2 , 1 , Dama19
Loop

Dama18:
     Cup = Cup + 1: If Cup > 99 Then Cup = 0: GoTo Dama15
Dama19:
     Cup = Cup - 1: If Cup > 200 Then Cup = 99: GoTo Dama15
Return
                 ' BARAY TANZIM DAMAY PAEEN
Dama2:
     F = 12: Waitms T1
Do
        Debounce Pind.3 , 1 , D7 , Sub
        Debounce Pind.0 , 1 , Dama22
        Debounce Pind.1 , 1 , Dama28
        Debounce Pind.2 , 1 , Dama29
Loop

Dama28:
     Cdown = Cdown + 1: If Cdown > 99 Then Cdown = 0: GoTo Dama2
Dama29:
     Cdown = Cdown - 1: If Cdown > 200 Then Cdown = 99: GoTo Dama2
Dama22:
     Ecdown = Cdown: Ecup = Cup: Locate 2, 13

            If A0 < 10 Then : Lcd " " ; A0 ; Chr(0)
            ElseIf A0 > 99 Then: Lcd " ERR"
            Else : Lcd " " ; A0 ; Chr(0)
            End If

      GoTo Star
Return
                 ' BARAY TANZIM ZAMAN T1
Tt1:

     F = 21: Waitms T1: Kk = 0
Do
        Debounce Pind.3 , 1 , D7 , Sub
        Debounce Pind.0 , 1 , Tt13
        Debounce Pind.1 , 1 , Tt11
        Debounce Pind.2 , 1 , Tt12
Loop

Tt11:
     Tt1 = Tt1 + 1: If Tt1 > 15 Then Tt1 = 0: GoTo Tt1
Tt12:
     Tt1 = Tt1 - 1: If Tt1 = 255 Then Tt1 = 15: GoTo Tt1
Tt13:
     Ett1 = Tt1: GoTo Tt2
Return
                 ' BARAY TANZIM ZAMAN T2
Tt2:
     F = 22: Waitms T1
Do
        Debounce Pind.3 , 1 , D7 , Sub
        Debounce Pind.0 , 1 , Tt23
        Debounce Pind.1 , 1 , Tt21
        Debounce Pind.2 , 1 , Tt22
Loop

Tt21:
     Tt2 = Tt2 + 1: If Tt2 > 15 Then Tt2 = 0: GoTo Tt2
Tt22:
     Tt2 = Tt2 - 1: If Tt2 = 255 Then Tt2 = 15: GoTo Tt2
Tt23:
     Ett2 = Tt2: GoTo Tt3
Return
                 ' BARAY TANZIM ZAMAN T3
Tt3:
     F = 23: Waitms T1
Do
        Debounce Pind.3 , 1 , D7 , Sub
        Debounce Pind.0 , 1 , Tt33
        Debounce Pind.1 , 1 , Tt31
        Debounce Pind.2 , 1 , Tt32
Loop

Tt31:
     Tt3 = Tt3 + 1: If Tt3 > 15 Then Tt3 = 0: GoTo Tt3
Tt32:
     Tt3 = Tt3 - 1: If Tt3 = 255 Then Tt3 = 15: GoTo Tt3
Tt33:
     Ett3 = Tt3: GoTo Tt4
Return
                 ' BARAY TANZIM ZAMAN T4
Tt4:
     F = 24: Waitms T1
Do
        Debounce Pind.3 , 1 , D7 , Sub
        Debounce Pind.0 , 1 , Tt43
        Debounce Pind.1 , 1 , Tt41
        Debounce Pind.2 , 1 , Tt42
Loop

Tt41:
     Tt4 = Tt4 + 1: If Tt4 > 15 Then Tt4 = 0: GoTo Tt4
Tt42:
     Tt4 = Tt4 - 1: If Tt4 = 255 Then Tt4 = 15: GoTo Tt4
Tt43:
     Ett4 = Tt4: GoTo Tt5
Return
                 ' BARAY TANZIM ZAMAN T5
Tt5:
     F = 25: Waitms T1
Do
        Debounce Pind.3 , 1 , D7 , Sub
        Debounce Pind.0 , 1 , Tt53
        Debounce Pind.1 , 1 , Tt51
        Debounce Pind.2 , 1 , Tt52
Loop

Tt51:
     Tt5 = Tt5 + 1: If Tt5 > 15 Then Tt5 = 0: GoTo Tt5
Tt52:
     Tt5 = Tt5 - 1: If Tt5 = 255 Then Tt5 = 15: GoTo Tt5
Tt53:
     F = 0: Ett5 = Tt5: Locate 1, 12:
      If Ct < 10 Then : Lcd " " ; Ct
      Else: Lcd Ct
      End If

     Lcd ":": Locate 1, 15:
      If Mt < 10 Then : Lcd "0" ; Mt
      Else: Lcd Mt
      End If

     GoTo Star
Return
                 ' BARAY KHAMOSH KARDAN ETELAAT LCD DAR ZAMAN CHESHMAK ZADAN HENGAM ENTEKHAB GOZINEH MARBOTEH
Offlcd:

If F <> 0 Then:

   If F = 1 Then: Home: Lcd " "
   ElseIf F = 2 Then: Locate 1, 4: Lcd " "
   Else:
        If F = 3 Then: Locate 1, 7: Lcd " "
        ElseIf F = 4 Then: Locate 1, 12: Lcd " "
        End If
   End If

   If F = 5 Then: Locate 1, 15: Lcd " "
   ElseIf F = 6 Then: Locate 2, 1: Lcd " "
   Else:
        If F = 7 Then: Locate 2, 4: Lcd " "
        ElseIf F = 8 Then: Locate 2, 7: Lcd " "
        End If
   End If

   If F = 9 Then: Locate 2, 9: Lcd "  "
   ElseIf F = 25 Then: Locate 1, 15: Lcd "  "
   Else:
        If F = 11 Then : Locate 2 , 13 : Lcd "  " ; Chr(2)
        Elseif F = 12 Then : Locate 2 , 13 : Lcd "  " ; Chr(3)
        End If
   End If
                                   ' DESINGED BY A.N.T
   If F = 21 Then: Locate 1, 15: Lcd "  "
   ElseIf F = 22 Then: Locate 1, 15: Lcd "  "
   Else:
        If F = 23 Then: Locate 1, 15: Lcd "  "
        ElseIf F = 24 Then: Locate 1, 15: Lcd "  "
        End If
   End If
End If
Return
                 ' BARAY NAMAYESH ETELAAT MORED NIYAZ DAR ZAMAN MONASEB BAR ROY LCD
Onlcd:

If F <> 0 Then:

      Home
      If Cc < 10 Then : Lcd " " ; Cc
      Else: Lcd Cc
      End If

      Locate 1, 4
      If Mm < 10 Then : Lcd "0" ; Mm
      Else: Lcd Mm
      End If


      Locate 1, 7
      If Ss < 10 Then : Lcd "0" ; Ss
      Else: Lcd Ss
      End If

      Home L
      If Sal < 10 Then : Lcd " " ; Sal
      Else: Home L: Lcd Sal
      End If

   If F = 5 Then
      Locate 1, 15:
      If Mt < 10 Then : Lcd "0" ; Mt
      Else: Lcd Mt
      End If
   ElseIf F = 4 Then
      Locate 1, 12:
      If Ct < 10 Then : Lcd " " ; Ct
      Else: Lcd Ct
      End If
   End If

      Locate 2, 4
      If Mah < 10 Then : Lcd "0" ; Mah
      Else: Lcd Mah
      End If

      Locate 2, 7
      If Roz < 10 Then : Lcd "0" ; Roz
      Else: Lcd Roz
      End If

      Locate 2, 9
      Select Case Hafteh
         Case 1: Lcd " SAT"
         Case 2: Lcd " SUN"
         Case 3: Lcd " MON"
         Case 4: Lcd " TUE"
         Case 5: Lcd " WED"
         Case 6: Lcd " THU"
         Case 7: Lcd " FRI"
      End Select

   If F = 25 Then
      Locate 1, 12:: Lcd "T5="
      If Tt5 < 10 Then : Lcd "0" ; Tt5
      Else: Lcd Tt5
      End If
   End If

   If F = 11 Then
      Locate 2, 14
      If Cup < 10 Then : Lcd "0" ; Cup
      Else: Lcd Cup
      End If
   ElseIf F = 12 Then:
      Locate 2, 14
      If Cdown < 10 Then : Lcd "0" ; Cdown
      Else: Lcd Cdown
      End If
   End If

   If F = 21 Then
      Locate 1, 12: Lcd "T1="
      If Tt1 < 10 Then : Lcd "0" ; Tt1
      Else: Lcd Tt1
      End If
   ElseIf F = 22 Then
      Locate 1, 12:: Lcd "T2="
      If Tt2 < 10 Then : Lcd "0" ; Tt2
      Else: Lcd Tt2
      End If
   End If

   If F = 23 Then
      Locate 1, 12: Lcd "T3="
      If Tt3 < 10 Then : Lcd "0" ; Tt3
      Else: Lcd Tt3
      End If
   ElseIf F = 24 Then
      Locate 1, 12:: Lcd "T4="
      If Tt4 < 10 Then : Lcd "0" ; Tt4
      Else: Lcd Tt4
      End If
   End If

End If
Return
                                   ' DESINGED BY A.N.T
End
    وقتی یه نفر تشکر میکنه آدم خستگیش در میره دمتون گرم هرچی خواستید بگید من میزارم ولی خیلی سخت نباشه چون نمیتونم چیزی رو ازنو بنویسم ولی اگه قبلا انجامش داده باشم میزارم رو تخم چشام oo:
    دودمانم بر باد رفت

    دیدگاه

      #17
      کنترول کامپیوتر با کنترول تلوزیون

      این عکسش هست

      از مدیران می خوام این یه مورد رو منتقل نکنن میدونم مال میکرو نیست
      اینم لینک برنامه
      http://folder.persiangig.com/SOFTWARE/IR Control.zip
      دودمانم بر باد رفت

      دیدگاه

        #18
        دانلود پروژه دزدگیر با PIR و میکرو AVR

        این دزدگیر با PIR هست من تستش نکردم اما دوستم که طراحیش کرده گفته درسته

        این پروژه با توجه به استفاده از سنسور PIR وحساسیت نسبتا خوب آن میتواند با تشخیص حرکت یک انسان مقابل خود به شماره تلفن مشخص شده زنگ بزند .

        سورس کامل برنامه با بسکام + شماتیک + توضیحات لازمه برای این پروژه + دیتاشیت سنسور PIR + مدار راه انداز و درایور سنسور PIR

        حجم: 374 کیلوبایت
        http://dl.bargh20.com/hamid/1/dozdgi...rgh20.com).rar
        منبع: www.lachini.com

        پسورد فایل: www.bargh20.com
        باز چیزی بسازم یا گیرم بیاد میزارم :bye
        دودمانم بر باد رفت

        دیدگاه

          #19
          قفل دیجیتالی

          هرکی مدار قفل الکترونیکی داره بزاره دریق نکنه :nice: :nerd:
          دودمانم بر باد رفت

          دیدگاه

            #20
            مدار دیمر دیجیتالی

            کد مدار
            کد:
             '*********************************************
'ECA
GT700
MOHAMMAD_GT700@YAHOO.COM
DIMER
'*********************************************
$regfile = "m8def.dat"
$crystal = 4000000

Config Pinb.1 = Output    ' Gate Triac
Config Pind.7 = Input     ' Key Up
Config Pinb.0 = Input     ' Key Dn

Config Int0 = Rising
On Int0 Int0_int

Enable Interrupts
Enable Int0

Dim E As Eram Byte
Dim B As Byte
Dim D As Byte

If E > 9 Then E = 9
B = E
D = 0
Set Portb.1

Do
  If Pind.7 = 0 Then
    If B > 1 Then Decr B
    Waitms 10
    E = B
  End If

  If Pinb.0 = 0 Then
    If B < 9 Then Incr B
    Waitms 10
    E = B
  End If
Loop
End 'end program

Int0_int:

Set Portb.1
For D = 0 To B
  Waitus 200
Next D
Reset Portb.1
 
Return
            اینم عکسش
            دودمانم بر باد رفت

            دیدگاه

              #21
              پاسخ : پروژه های حرفه ای و ساده میکرو

              آقا من دیگه نمیدونم چی بزارم شما یه چیز بگین من بزارم oo:
              مغزم پخت :nice: oo: :nerd:
              تا پروژه نگین من همین روندو دارم :angry:
              دودمانم بر باد رفت

              دیدگاه

                #22
                پاسخ : پروژه های حرفه ای و ساده میکرو

                دزد گیر لرزشی اگه داری که خیلی به درد میخوره :job:
                هنگامی که چیزی مینویسی، کاری نکن تنها کسی که از مغزش استفاده کرده باشد ،مدادت باشد .

                \|/_\/_

                دیدگاه

                  #23
                  پاسخ : پروژه های حرفه ای و ساده میکرو

                  دوست عزیز اگر پروژه ای در باره راه اندازی دوربین با avr داری ممنون میشم یه توضیحی در بارش بدی.
                  موفقیت بدست آوردن چیزیست که دوست داری و خوشبختی دوست داشتن چیزیست که بدست آوردهآ‌ای.

                  دیدگاه

                    #24
                    پاسخ : پروژه های حرفه ای و ساده میکرو

                    نوشته اصلی توسط mahziyar
                    دوست عزیز اگر پروژه ای در باره راه اندازی دوربین با avr داری ممنون میشم یه توضیحی در بارش بدی.
                    چنو دوربینی معمولی .آیپی کمرا
                    مودلش چیه
                    ازینا که رو ربات میزارن :question:
                    دودمانم بر باد رفت

                    دیدگاه

                      #25
                      پاسخ : پروژه های حرفه ای و ساده میکرو

                      نوشته اصلی توسط MEGAMAN
                      دزد گیر لرزشی اگه داری که خیلی به درد میخوره :job:
                      این مدلی که گفتی باید چه جوری باشه شما مودل کاری رو بگو ینی چجوری باید فعال بشه
                      ینوش هست در که باز میشه می لرزه اون خبر میکنه نیاز به میکرو هم نداره یه آی سی تو مدلای cd یا lm بود فکذ کنم حالا باید ببینم
                      دودمانم بر باد رفت

                      دیدگاه

                        #26
                        پاسخ : پروژه های حرفه ای و ساده میکرو

                        نوشته اصلی توسط gt700
                        این مدلی که گفتی باید چه جوری باشه شما مودل کاری رو بگو ینی چجوری باید فعال بشه
                        مثل سنسوره لرزشی دزدگیر ماشین.
                        نوشته اصلی توسط gt700
                        ینوش هست در که باز میشه می لرزه اون خبر میکنه نیاز به میکرو هم نداره یه آی سی تو مدلای cd یا lm بود فکذ کنم حالا باید ببینم
                        اون لرزشی نیست .بهش میگن مگنت آهنربایی
                        حالا اگه شماتیک دزدگیر لرزشی حتما بزار
                        mer30
                        هنگامی که چیزی مینویسی، کاری نکن تنها کسی که از مغزش استفاده کرده باشد ،مدادت باشد .

                        \|/_\/_

                        دیدگاه

                          #27
                          پاسخ : کنترول کامپیوتر با کنترول تلوزیون

                          نوشته اصلی توسط gt700
                          این عکسش هست

                          از مدران می خوام این یه مورد رو منتقل نکنن میدونم مال میکرو نیست
                          اینم لینک برنامه
                          http://folder.persiangig.com/SOFTWARE/IR Control.zip
                          PCB این مدار را طراحی کردم و به همراه چند عکس کمکی در پوشه ای قرار دادم.
                          PCB در پروتئوس باز میشود.میتوانید آن را دانلود کنید.
                          البته اگه کسی مشگلی داشت مطرح کنه تا کمکش کنم

                          فایل های پیوست شده
                          هنگامی که چیزی مینویسی، کاری نکن تنها کسی که از مغزش استفاده کرده باشد ،مدادت باشد .

                          \|/_\/_

                          دیدگاه

                            #28
                            پاسخ : پروژه های حرفه ای و ساده میکرو

                            سلام
                            مرسی از این همه انرژی که می ذارین

                            احیانا :rolleyes: فرستنده ir با uart نداری که 100% کار بکنه؟
                            چنتا ساختم ولی کار نکردن :cry2:
                            می خوام با infrared دیتا بفرستم به گوشی! با boud 9600

                            درست می کنی؟ -O<
                            پشت به کنکور ، رو به سربازی...

                            دیدگاه

                              #29
                              پاسخ : پروژه های حرفه ای و ساده میکرو

                              نوشته اصلی توسط black-8
                              سلام
                              مرسی از این همه انرژی که می ذارین

                              احیانا :rolleyes: فرستنده ir با uart نداری که 100% کار بکنه؟
                              چنتا ساختم ولی کار نکردن :cry2:
                              می خوام با infrared دیتا بفرستم به گوشی! با boud 9600

                              درست می کنی؟ -O<
                              این پروژه خیلی وقت میبره
                              می خوای با پرت سریال باشه ؟
                              ینی میکرو سر راه نباشه؟
                              این جزء برنامه نویسی ویبی میشه برو تو قسمت کامپیوتر درخواست کن مثل مدار بالایی هست ولی برکسش فرستنده.
                              با میکرو هم میشه ولی زمان می بره چون باید داستگه بهش شناسونده بشه ینو درایور بازی میشه :nerd: :nice: oo:
                              دودمانم بر باد رفت

                              دیدگاه

                                #30
                                مدار سیگنال ژنراتور

                                این مدار سیگنال ژنراتور هستش با موج رمپ سینوسی و ای سی این مال یکی از دوستا هست که کاربر سایت هم میباشه ولی اسم شریفشان رو یادم رفته

                                کد:
                                #include <mega32.h>
#include <math.h> 
#include <delay.h>
#include <stdio.h>
#asm
  .equ __lcd_port=0x18 ;PORTB
#endasm
#include <lcd.h>
char a[256],i=0,s[16],select=0,t;

void ramp(void){    
    PORTD=i;
    i++;
    t++;
    if(t==255){
    t=0;
    lcd_gotoxy(0,0);
    lcd_putsf("Mode: Ramp ");
    lcd_gotoxy(0,1);
    lcd_puts(s);
    }    
}
   
void square(void){    
    if(i<127) PORTD=255;
    else PORTD=0;
    i++;
    t++;
    if(t==255){
    t=0;
    lcd_gotoxy(0,0);
    lcd_putsf("Mode: Square");
    lcd_gotoxy(0,1);
    lcd_puts(s);
    }   
    }        

void sine(void){    
    PORTD=a[i];
    i++;
    t++;
    if(t==255){
    t=0;
    lcd_gotoxy(0,0);
    lcd_putsf("Mode: Sin  ");
    lcd_gotoxy(0,1);
    lcd_puts(s);
    }   
}

interrupt [TIM0_COMP] void timer0_comp_isr(void){     
switch (select){
    case 0:
     sine();
     break;
    case 1:
     square();
     break;
    case 2:
     ramp();
     break; 
    }    
    if (PINC.1==0 |PINC.0==0 | PINC.2==0 )
    { 
      delay_ms(100);
      if (PINC.1==0){ 
         OCR0++;   
         sprintf(s,"F: %d ",OCR0);
         }
      if (PINC.0==0){
         OCR0--;
         sprintf(s,"F: %d ",OCR0);
         }
      if(PINC.2==0)
      {   
        if (select<2)
           select++;  
        else
           select=0;
      }
}
}

void main(void)
{

a[0]=131; a[1]=134; a[2]=137; a[3]=140; a[4]=144; a[5]=147; a[6]=150; a[7]=153;
a[8]=156; a[9]=159; a[10]= 162; a[11]= 165; a[12]=168;a[13] = 171;a[14]= 174;a[15] =177;a[16]=180;a[17]=183;a[18]=185;a[19]=188;a[20]=191;
a[21]=194;a[22]= 196;a[23]=199;a[24]= 201;a[25]= 204;a[26]=206;a[27]= 209;a[28] =211;a[29]= 214;a[30]=216;a[31]=218;a[32]=220;a[33]=222;
a[34]=225;a[35]= 227;a[36]=229;a[37]= 230;a[38]= 232;a[39]=234;a[40]= 236;a[41]=237;a[42]= 239;a[43]=240;a[44]= 242;a[45]= 243;a[46]=245;
a[47]=246;a[48]= 247;a[49] =248;a[50]=249;a[51] =250;a[52] =251;a[53] =252;a[54] =252;a[55] =253;a[56]=254;a[57]= 254;a[58]= 255;a[59]= 255;
a[60]=255;a[61]=255;a[62] =255;a[63]= 255;a[64] =255;a[65]= 255;a[66] =255;a[67]= 255;a[68]= 255;a[69] =254;a[70] =254;a[71] =253;a[72]= 252;
a[73]=252;a[74]= 251;a[75] =250;a[76]= 249;a[77] =248;a[78]= 247;a[79]= 246;a[80] =245;a[81]= 243;a[82] =242;a[83] =240;a[84] =239;a[85] =237;
a[86]=236;a[87]= 234;a[88] =232;a[89]= 230;a[90] =229;a[91]= 227;a[92]= 225;a[93] =222;a[94]= 220;a[95] =218;a[96] =216;a[97] =214;a[98] =211;
a[99]=209;a[100]= 206;a[101]= 204;a[102]= 201;a[103]= 199;a[104]= 196;a[105]= 194;a[106] =191;a[107] =188;a[108] =185;a[109] =183;a[110]= 180;a[111] =177;
a[112]=174;a[113]= 171;a[114] =168;a[115]= 165;a[116]= 162;a[117]= 159;a[118]= 156;a[119]= 153;a[120]= 150;a[121]= 147;a[122] =144;a[123]= 140;a[124] =137;
a[125]=134;a[126]= 131;a[127] =128;a[128]= 125;a[129]= 122;a[130]= 119;a[131] =116;a[132]= 112;a[133]= 109;a[134]= 106;a[135] =103;a[136]= 100;a[137] = 97;
a[138]=94;a[139] = 91;a[140] =88;a[141] = 85;a[142] = 82;a[143] = 79;a[144] = 76;a[145] = 73;a[146] = 71;a[147] = 68;a[148] =65;a[149]= 62;a[150] = 60;
a[151]=57;a[152] = 55;a[153] =52;a[154] = 50;a[155] = 47;a[156] = 45;a[157] = 42;a[158] = 40;a[159]= 38;a[160] = 36;a[161] = 34;a[162]= 31;a[163] = 29;
a[164]=27;a[165] = 26;a[166] =24;a[167] = 22;a[168] = 20;a[169] = 19;a[170] = 17;a[171] = 16;a[172] = 14;a[173] = 13;a[174] =11;a[175]= 10;a[176] = 9;
a[177]=8;a[178] = 7;a[179]  =6;a[180] = 5;a[181] = 4;a[182] = 4;a[183] = 3;a[184] = 2;a[185] = 2;a[186] = 1;a[187] = 1;a[188] = 1;a[189] = 1;
a[190]=1;a[191] = 1;a[192]  =1;a[193] = 1;a[194] = 1;a[195] = 1;a[196] = 1;a[197] = 2;a[198] = 2;a[199] = 3;a[200] = 4;a[201] = 4;a[202] = 5;
a[203]=6;a[204] = 7;a[205]  =8;a[206] = 9;a[207] =10;a[208] =11;a[209] = 13;a[210] =14;a[211] =16;a[212] =17;a[213] =19;a[214] = 20;a[215] = 22;
a[216]=24;a[217] = 26;a[218] =27;a[219] = 29;a[220] = 31;a[221] = 34;a[222] =36;a[223] = 38;a[224] =40;a[225] = 42;a[226] = 45;a[227]= 47;a[228]= 50;
a[229]=52;a[230] = 55;a[231] =57;a[232] = 60;a[233] = 62;a[234] = 65;a[235] =68;a[236] = 71;a[237] =73;a[238] = 76;a[239] = 79;a[240]= 82;a[241]= 85;
a[242]= 88;a[243]= 91;a[244]= 94;a[245]= 97;a[246]= 100;a[247]= 103;a[248] =106;a[249]= 109;a[250] =112;a[251]= 116;a[252]= 119;a[253]= 122;a[254]=125;a[255]=128;

DDRA=0xFF;
DDRB=0x00;
DDRC=0xFF;
DDRD=0xFF;

TCCR0=0x09;
TCNT0=0x00;
OCR0=255;
TIMSK=0x02;
ACSR=0x80;
SFIOR=0x00;
PORTC=255;

lcd_init(16);
#asm("sei")
sprintf(s,"F: %d ",OCR0);
while (1)
   { 
   };
}
                                من می خوام تو اینجا یه ups بسازم بیاد کمک
                                http://www.eca.ir/forum2/index.php?topic=43792.0
                                کمک کمک کمک
                                دودمانم بر باد رفت

                                دیدگاه

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