ماژول OLED 0.96 Driver IC: SSD1306

[kimiafars]

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

ارتباطش i2c هست

ممنون میشم راهنمایی بفرمایید

[kimiafars]

پایه ریستش رو به کجا بدم

[sharin]

سلام.

سرچ بزنید پیدا می شه...

http://avrhelp.mcselec.com/index.html?gl...06_i2c.htm

موفق باشید.

[kimiafars]

اما متاسفانه هر چی گشتم چیزی گرم نیومد
بزای نوشتن روی نمایشگر فونت هم نیازه و کتابخانه هم می خواد یا میشه بدون این راه اندازیشون کنم
این ماژول i2c هست ام من چند تا کد نوشتم نشد راش بندازم البته پایه ریست 
وd/cc در بعضی پروژههابه پینهای اردیونوداده شده بودن اما در بعضی هم به جایی وصل نبودن نمی دونم باید چکارشون کنم ا

[kimiafars]

کد php:

$regfile = "m32def.dat"
$crystal = 8000000

$hwstack = 32
$swstack = 10
$framesize = 40

'--------cofig---------------------------
Config I2cdelay = 10
Config Sda = Portc.1
Config Scl = Portc.0
Config Twi = 400000
Config Porta = Output
I2cinit

Const Oled_address = &H78
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 Str_char As String * 20
Do

Toggle Porta.2
Waitms 100

Gosub Reset_dis
Waitms 100
Str_char = "test"

I2cstart
I2cwbyte &H78                                               'Oled_address
I2cwbyte &H80                                               'Oled_8x16str
I2cwbyte 0
I2cwbyte 0
I2cwbyte Str_char
I2cstop



Loop

End                                                         'end program

Reset_dis:
  ' I2cstart
  ' I2cwbyte Oled_address
  ' I2cwbyte Oled_reset
  ' I2cstop



Return 


[sharin]

لینکی رو که گذاشتم نگاه کردید؟
اینطور که ازش بر می یاد پایه های i2c و تغذیه باید کافی باشه ...
کتابخانه برای زبان c هم زیاد بود، خود آرداینو هم که کتابخانه هاش متن باز هست، راه اندازیش نباید مشکل باشه ...

[kimiafars]

این کد کجاهاش مشکل داره عزیزان البته ادرس رو عوض کردم

[kimiafars]

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


کد را هم اصلاح کردم و دوباره نوشتم اما باز هم نشد پایه ریست هم به وی سی سی و منفی وصل کردم اما نشد
اینم کدش

کد php:

$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")
  Call Dispay8x16str(2 , 0 , "g")
  Call Dispay8x16str(4 , 0 , "e")
Loop
End 


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 


[kimiafars]

اگه غلط املایی داشت بخاطر اینکه تایپ کردم هست

[kimiafars]

به روز رسانی

[kimiafars]

به روز رسانی