oled راه اندازی oled با بسکام برای avr
با سلام بنده ماژولی خریداری کردم که با i2c کار میکنه
ماژول OLED 0.96 Driver IC: SSD1306
حالا براش کد نوشتم و چند نمونه دیگه هم امتحان کردم اصلا روشن نمیشه لطفا راهنمایی بفرمایید
$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
_______________________________________________________________________
عقل نیرویی است که دنیا را اداره میکند.
انجمن الکترونیک و برنامه نویسی
anbordast.ir
|
