۱۰-اردیبهشت-۱۳۹۴, ۰۹:۲۱:۱۲
![[تصویر: %D9%85%D8%A7%DA%98%D9%88%D9%84-oled-096-...%D8%AF.jpg]](http://eshop.eca.ir/3893-large_default/%D9%85%D8%A7%DA%98%D9%88%D9%84-oled-096-%D8%AF%D9%88-%D8%B1%D9%86%DA%AF-%D8%A2%D8%A8%DB%8C-%D8%B2%D8%B1%D8%AF.jpg)
سلام از دوستان کسی با بسکام این ماژول راه اندازی کرده
این چیپش هست
Driver IC: SSD1306
ارتباطش i2c هست
ممنون میشم راهنمایی بفرمایید
صفحه‌ها: 1 2
سلام از دوستان کسی با بسکام این ماژول راه اندازی کرده
این چیپش هست
Driver IC: SSD1306
ارتباطش i2c هست
ممنون میشم راهنمایی بفرمایید
۱۰-دى-۱۳۹۴, ۱۲:۵۱:۴۵
پایه ریستش رو به کجا بدم
۱۰-دى-۱۳۹۴, ۱۳:۵۳:۲۳
۱۰-دى-۱۳۹۴, ۱۷:۱۹:۰۵
اما متاسفانه هر چی گشتم چیزی گرم نیومد
بزای نوشتن روی نمایشگر فونت هم نیازه و کتابخانه هم می خواد یا میشه بدون این راه اندازیشون کنم
این ماژول i2c هست ام من چند تا کد نوشتم نشد راش بندازم البته پایه ریست
وd/cc در بعضی پروژههابه پینهای اردیونوداده شده بودن اما در بعضی هم به جایی وصل نبودن نمی دونم باید چکارشون کنم ا
بزای نوشتن روی نمایشگر فونت هم نیازه و کتابخانه هم می خواد یا میشه بدون این راه اندازیشون کنم
این ماژول i2c هست ام من چند تا کد نوشتم نشد راش بندازم البته پایه ریست
وd/cc در بعضی پروژههابه پینهای اردیونوداده شده بودن اما در بعضی هم به جایی وصل نبودن نمی دونم باید چکارشون کنم ا
۱۰-دى-۱۳۹۴, ۱۸:۲۳:۲۱
کد 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
۱۰-دى-۱۳۹۴, ۱۸:۲۷:۴۱
لینکی رو که گذاشتم نگاه کردید؟
اینطور که ازش بر می یاد پایه های i2c و تغذیه باید کافی باشه ...
کتابخانه برای زبان c هم زیاد بود، خود آرداینو هم که کتابخانه هاش متن باز هست، راه اندازیش نباید مشکل باشه ...
اینطور که ازش بر می یاد پایه های i2c و تغذیه باید کافی باشه ...
کتابخانه برای زبان c هم زیاد بود، خود آرداینو هم که کتابخانه هاش متن باز هست، راه اندازیش نباید مشکل باشه ...
۱۰-دى-۱۳۹۴, ۱۸:۵۲:۱۶
این کد کجاهاش مشکل داره عزیزان البته ادرس رو عوض کردم
۱۲-دى-۱۳۹۴, ۰۰:۱۰:۱۰
اره عزیزم دیدم ولی هر کاری کردم نشد ریست و دی سی هم میخواد مثل اینکه
برای بسکام میخوام
کد را هم اصلاح کردم و دوباره نوشتم اما باز هم نشد پایه ریست هم به وی سی سی و منفی وصل کردم اما نشد
اینم کدش
برای بسکام میخوام
کد را هم اصلاح کردم و دوباره نوشتم اما باز هم نشد پایه ریست هم به وی سی سی و منفی وصل کردم اما نشد
اینم کدش
کد 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
۱۲-دى-۱۳۹۴, ۰۰:۱۰:۴۲
اگه غلط املایی داشت بخاطر اینکه تایپ کردم هست
۲۱-دى-۱۳۹۴, ۱۸:۵۵:۱۸
به روز رسانی
۱۰-بهمن-۱۳۹۴, ۱۹:۲۰:۳۳
به روز رسانی
صفحه‌ها: 1 2