Alex_Kech
Вот немного есть по 128х32, работало.

Для Sergik07
Попробовал материал который вы дали с библиотекой glcdSSD1306-I2C.lib. Все работает как и до этого, но идет мигание, в секунду раза 2-3 на взгляд. Или у меня библиотека скачалась с ошибкой или надо в ней менять настройки. А в асиме я совершенно не силен. Если у вас есть такая библиотека - сбросьте пож. Я пользуюсь переделанным примером с немецкого сайта , это немного не удобно, зато точно работает.
Самое интересное- в протеус работает!!!

Отредактировано Alex_Kech (2017-11-17 11:24:41)

Понимаю что нет. Впечатление такое, будто сразу прорисовывает, тут же стирает, опять рисует. Не знаю что это такое. Пример с кодом на баскоме работает абсолютно нормально !??

Друзья, возникла непонятка с работой OLED дисплея вот такого:

Вот код программы:

$regfile = "m328pdef.dat"
$crystal = 16000000
$hwstack = 100
$swstack = 100
$framesize = 100

Config Scl = Portc.5                                        ' used i2c pins
Config Sda = Portc.4
Config Twi = 400000                                         ' i2c speed
I2cinit : Waitms 5

$lib "i2c_twi.lbx"
$lib "glcdSSD1306-I2C.lib"                                  ' override the default lib with this special one

#if _build < 20784

Dim ___lcdrow As Byte , ___lcdcol As Byte                   ' dim these for older compiler versions
#endif

Config Graphlcd = Custom , Cols = 128 , Rows = 64 , Lcdname = "SSD1306"

'-------------------------------- Program --------------------------------------
I2cstart
I2cwbyte &H78
I2cwbyte &H00
I2cwbyte &HDA                                               'Enable COM Left/Right remap
I2cwbyte &H22
I2cstop

Do
  Cls
   Setfont Font12x16
   Lcdat 1 , 30 , "Test"
   Setfont Font6x8
   Lcdat 3 , 34 , "Switch On!"
   Lcdat 4 , 45 , "Font 6x8"

   Wait 1

   Cls
   Lcdat 1 , 30 , "Stage 1"
   Wait 1
   Cls
   Lcdat 2 , 30 , "Stage 2"
   Wait 1
   Cls
   Lcdat 3 , 30 , "Stage 3"
   Wait 1
   Loop

End

'===============================================================================
$include "font12x16.font"
$include "font6x8.font"

Суть в том, что работает, но ужасно мельтешит как стробоскоп:

https://youtu.be/SWArLxUWm_A

В чем может быть проблема?

Много Cls в основном цикле,а МК работает на 16 мгц,мне думается от того так и происходит.

Варьировал значения Wait и вовсе убирал CLS из цикла. Все уже перекрутил и пробовал на разных платах и контроллерах. Результат все тот же.
Пробовал просто вывести статичную надпись без использования цикла. Без изменений...

Если его исключить, то не запустится I2C, не активируются адреса дисплея и до дисплея не достучаться.

Avus
Вот код,который работает у меня:

'LCD SSD 1306

$regfile = "m8adef.dat"
$crystal = 7372800                                          '8000000
$hwstack = 86
$swstack = 86
$framesize = 110
$baud = 4800
'-----------------------------------------------------------------------------
Config Scl = Portc.5                              ' used i2c pins
Config Sda = Portc.4
Config Twi = 400000                               ' i2c speed
Wait 1
I2cinit
$lib "i2c_twi.lbx"                                ' we do not use software emulated I2C but the TWI
$lib "glcdSSD1306-I2C.lib"                        ' override the default lib with this special one
'#if _build < 20784
  ' Dim ___lcdrow As Byte , ___lcdcol As Byte      ' dim these for older compiler versions
'#endif

Config Graphlcd = Custom , Cols = 128 , Rows = 64 , Lcdname = "SSD1306"

Доброго дня, уважаемые знатоки !

Тоже решил потестить олед. Приобрел 128х96, по IIS работают.
Непонятно поведение дисплеев: залил тестовую програмку, которая с библиотекой шла, и которую, как я понял, все шьют для проверки дисплея.

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

Config Portd.7 = Output
Lll Alias Portd.7

Config Scl = Portc.5                                        ' used i2c pins
Config Sda = Portc.4
Config Twi = 400000                                         ' i2c speed
I2cinit : Waitms 5

$lib "i2c_twi.lbx"
$lib "glcdSSD1306-I2C.lib"                                  ' override the default lib with this special one

#if _build < 20784
Dim ___lcdrow As Byte , ___lcdcol As Byte                   ' dim these for older compiler versions
#endif

Config Graphlcd = Custom , Cols = 128 , Rows = 64 , Lcdname = "SSD1306"

'-------------------------------- Program --------------------------------------
I2cstart
I2cwbyte &H78
'i2cwbyte &H3C
I2cwbyte &H00
I2cwbyte &HDA                                               'Enable COM Left/Right remap
I2cwbyte &H22
I2cstop

Do
   Cls
   Setfont Font12x16
   Lcdat 1 , 30 , "SSD1306"

   Setfont Font6x8
   Lcdat 3 , 34 , "Text testing"
   Lcdat 4 , 45 , "Font 6x8"
   Wait 1

   Showpic 0 , 0 , Pic
   Wait 1

Set Lll
Waitms 50
Reset Lll

Loop

End

'===============================================================================
$include "font12x16.font"
$include "font6x8.font"
Pic:
$bgf "picture.bgf"

Дисплеи сразу заработали, показывают тестовую информацию. Но, как выяснилось - если потом отключить программатор и просто подать питание на МК с дисплеем - дисплей не работает.
Опытным путем (светодиод в цикл) было выяснено, что мк стартует и программа выполняется.
Если в баскомовской прошивалке (F4) просто проинить мк - дисплей оживает.
Оба дисплея ведут себя одинаково.
Пробовал вставлять задержки в программу - не помогает.

Подскажите, куда копать ?

Отредактировано Gordon_shumway (2018-05-23 07:30:56)

Спасибо, попробовал - к сожалению без результата. В фузах у меня уже стояла максимальная задержка, а остальное проверил.
С питанием - от программатора 3,3 вольта приходит, еще от лабораторника пробовал - не запускается дисплей.
Там на дисплее свой стабилизатор на 3,3 вольта стоит. Я его сдул, замкнул вход с выходом - все равно никак...
А после переинивания - стабильно запускается.
PS если мк ресетнуть на землю - тоже не помогает.

Gordon_shumway
Очень полезная инфа,конечно выкладывай!

Так нужно открыть библиотеку и попытаться найти этот злополучный адрес.

Каким образом? У дисплея там нет никаких настроек. Просто компонент UG-2864HSWEG01.