اطلاعیه

Collapse
No announcement yet.

راه اندازی ماژول OLED 0.96 Driver IC: SSD1306

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

    راه اندازی ماژول OLED 0.96 Driver IC: SSD1306


    سلام از دوستان کسی با بسکام این ماژول راه اندازی کرده
    این چیپش هست از فروشگاه خریدم اما برای بسکام چیزی گیر نیاوردم که کار کنه البته کد زیر را خوندم و نوشتم اما کار نکرد
    Driver IC: SSD1306

    ارتباطش i2c هست



    $regfile = "m32def.dat"
    $crystal = 8000000
    $hwstack = 32
    $swstack = 40
    $framesize = 40

    $lib "i2c_twi.lbx"
    Config Scl = Portc.0
    Config Sda = Portc.1

    Config Twi = 100000

    Const Oled_address = &HA2
    Const Write_cmd = &H01
    Const Oled_reset = &H03
    Const Oled_8x16str = &H10
    Const Disp_area = &H11
    Const Fill_area = &H12
    Const Set_scrohor = &H13
    Const Set_scrover = &H14
    Const Set_scroverhor = &H15
    Const Scroll_up = &H01
    Const Scroll_down = &H00
    Const Scroll_right = &H26
    Const Scroll_left = &H27
    Const Scroll_vr = &H29
    Const Scroll_vl = &H2A
    Const Scrollstop = &H2E

    Dim A As Byte
    Dim B As Byte
    Dim C As String * 1

    Declare Sub Resetdisplay
    Declare Sub Deactivatescroll
    Declare Sub Dispay8x16str(byval Page As Byte , Byval Column As Byte , Byval Char As String )
    Declare Sub Scrollingvertical(byval Rowsfixed As Byte , Byval Rowsscroll As Byte , Byval Scrollsteb As Byte , Byval Stepdelay As Byte)
    Declare Sub Scrollhorizontal(byval Lr As Byte , Byval Spage As Byte , Byval Epage As Byte , Byval Frames As Byte)
    Declare Sub Fillarea(byval Spage As Byte , Byval Epage As Byte , Scloumn As Byte , Byval Ecolumn As Byte , Byval Filldate As Byte , )
    I2cinit

    Do
    Call Resetdisplay
    Waitms 100
    Call Dispay8x16str(0 , 0 , "h&quot
    Call Dispay8x16str(2 , 0 , "g&quot
    Call Dispay8x16str(4 , 0 , "e&quot
    Loop
    End 'end program



    Sub Fillarea(byval Spage As Byte , Byval Epage As Byte , Scloumn As Byte , Byval Ecolumn As Byte , Byval Filldate As Byte , )
    I2cstart
    I2cwbyte Oled_address
    I2cwbyte Fill_area
    I2cwbyte Spage
    I2cwbyte Epage
    I2cwbyte Scloumn
    I2cwbyte Ecolumn
    I2cwbyte Filldate
    I2cstop
    End Sub

    Sub Deactivatescroll
    I2cstart
    I2cwbyte Oled_address
    I2cwbyte Write_cmd
    I2cwbyte Scrollstop
    I2cstop
    End Sub

    Sub Scrollhorizontal(byval Lr As Byte , Byval Spage As Byte , Byval Epage As Byte , Byval Frames As Byte)
    I2cstart
    I2cwbyte Oled_address
    I2cwbyte Set_scrohor
    I2cwbyte Lr
    I2cwbyte Spage
    I2cwbyte Epage
    I2cwbyte Frames
    I2cstop
    End Sub

    Sub Scrollingvertical(byval Rowsfixed As Byte , Byval Rowsscroll As Byte , Byval Scrollsteb As Byte , Byval Stepdelay As Byte)
    I2cstart
    I2cwbyte Oled_address
    I2cwbyte Set_scrover
    I2cwbyte Scroll_up
    I2cwbyte Rowsfixed
    I2cwbyte Rowsscroll
    I2cwbyte Scrollsteb
    I2cwbyte Stepdelay
    i2cstop
    End Sub


    Sub Dispay8x16str(byval Page As Byte , Byval Column As Byte , Byval Char As String )
    I2cstart
    I2cwbyte Oled_address
    I2cwbyte Oled_8x16str
    I2cwbyte Page
    I2cwbyte Column
    I2cwbyte Char
    I2cstop
    End Sub


    Sub Resetdisplay
    I2cstart
    I2cwbyte Oled_address
    I2cwbyte Oled_reset
    I2cstop
    End Sub



    #2
    پاسخ : راه اندازی ماژول OLED 0.96 Driver IC: SSD1306

    نوشته اصلی توسط kimiafars نمایش پست ها
    سلام از دوستان کسی با بسکام این ماژول راه اندازی کرده
    این چیپش هست از فروشگاه خریدم اما برای بسکام چیزی گیر نیاوردم که کار کنه البته کد زیر را خوندم و نوشتم اما کار نکرد
    Driver IC: SSD1306
    سلام، ببخشید که تایپیک قدیمی رو بالا آوردم، مشکل برنامه رو حل کردین؟

    دیدگاه


      #3
      پاسخ : راه اندازی ماژول OLED 0.96 Driver IC: SSD1306

      لطفا برای این نمایشگر OLED با کدویژن CodevisionAVR یک کتابخنه بزارید
      خیلی رایج شده این oled
      , و نیز خیلی کاربرد داره
      این ماژول شش بایه گویا با spi کار میکنه و نه با IIC I2C

      دیدگاه

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