اطلاعيه

Collapse
No announcement yet.

آموزش سریع میکروکنترلر AVR

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

    آموزش سریع میکروکنترلر AVR

    آموزش سریع میکروکنترلر AVR

    نوشته شده توسط رضا سپاس یار

    فهرست مطالب:

    فيوز بيت ها، منابع کلاک وReset
    آشنايي با زبان C
    پروژه 1: فلاشر ساده
    پروژه 2: کانتر يک رقمي با 7-Segment
    پروژه 3: نمايشگر کريستال مايع (LCD)
    پروژه 4: اسکن صفحه کليد ماتريسي
    پروژه 5: نمايشگرهاي LED Dot Matrix
    وقفه هاي خارجي
    پروژه 6: آشکار ساز عبور از صفر
    تايمر/کانتر صفر
    پروژه 7: فرکانس متر ديجيتال
    پروژه 8: کنترل موتورDC باPWM
    عملکرد تايمر دو
    پروژه 9: ساعت با وضعیت آسنکرون تایمر
    تايمر/کانتر يک
    پروژه 10: کنترل سروُ موتور
    پروژه 11: توليد موج سينوسي
    پورت سريال (RS-232)
    پروژه 12: پورت سريال در ويژوال بيسيک
    پروژه 13: ارتباط دهي USB با RS232
    I2C Bus (TWI)
    پروژه 1۴: ارتباط با EEPROM هاي I2C
    مبدل آنالوگ به ديجيتال
    پروژه 1۵: اندازه گيري دما با سنسور LM35
    مقايسه کننده ي آنالوگ
    SPI Bus
    Mode هاي Sleep و تايمر Watchdog


    http://www.avr.ir/files/avr.zip
    هرکه را اسرار حق آموختند
    مهر کردند و دهانش دوختند

    #2
    سلام
    کسی برنامه ی سنسور lm35 با atmega8 داره؟به زبان بیسیک

    نظر


      #3
      با سلام این برنامه سنسور دما با ال سی دی و 7سگمنت هستش امیدوارم بتونین استفاده کنین:
      فقط کافیه این برنامه رو کپی کرده و در بسکام وارد کنید.در داخل برنامه فونت های به هم ریخته درست میشن.

      $regfile = "m32def.dat"
      Config Lcdpin = Pin , Rs = Pinc.1 , E = Pinc.2 , Db4 = Pinc.3 , Db5 = Pinc.4 , Db6 = Pinc.5 , Db7 = Pinc.6
      Config Adc = Single , Prescaler = Auto , Reference = Off
      Config Porta = Input
      Config Portb = Output
      Config Portd = Output
      Config Portc = Output
      Config Lcd = 16 * 2
      Enable Interrupts
      Start Adc
      Enable Adc
      Start Adc
      Dim A As Word
      Dim B As Single
      Dim M As String * 10
      Dim X As Single
      Dim I As Single
      Dim J As Single
      Dim D As String * 10
      Dim Q As Single
      Cls

      Do

      A = Getadc(0)
      B = A / 2.046
      M = Fusing(b , "#.##")
      X = Val(m)
      X = Int(x)
      X = X / 10
      I = Int(x)
      J = Frac(x)
      D = Fusing(j , "#.##")
      Q = Val(d)
      'Q = Fusing(q , "#.##")

      Select Case I
      Case 0 : Portb = &H3F
      Case 1 : Portb = &H06
      Case 2 : Portb = &H5B
      Case 3 : Portb = &H4F
      Case 4 : Portb = &H66
      Case 5 : Portb = &H6D
      Case 6 : Portb = &H7D
      Case 7 : Portb = &H07
      Case 8 : Portb = &H7F
      Case 9 : Portb = &H6F
      End Select

      Select Case Q
      Case 0.00 To 0.09 : Portd = &H3F
      Case 0.091 To 0.19 : Portd = &H06
      Case 0.191 To 0.29 : Portd = &H5B
      Case 0.291 To 0.39 : Portd = &H4F
      Case 0.391 To 0.49 : Portd = &H66
      Case 0.491 To 0.59 : Portd = &H6D
      Case 0.591 To 0.69 : Portd = &H7D
      Case 0.691 To 0.79 : Portd = &H07
      Case 0.791 To 0.89 : Portd = &H7F
      Case 0.891 To 0.99 : Portd = &H6F
      End Select

      Locate 1 , 1
      Lcd I
      Locate 2 , 1
      Lcd Q

      Loop

      End 'end program
      7seg:
      Data &H3F , &H06 , &H5B , &H4F , &H66 , &H6D , &H7D , &H07 , &H7F , &H6F

      نظر


        #4
        سلام کسی پروژه رو با میکروکنترلر آرم و lpc 1768 نداره ؟ لطفا کمکم کنین

        نظر

        Working...
        X