ssd1306 und Xmega

    Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

    Aufgrund technischer Veränderungen ist der Mailverkehr innerhalb des Forums (Private Nachrichten) nur noch eingeschränkt möglich. Die Einschränkung ist notwendig, um zusätzliche Betriebskosten für das Forum zu vermeiden. Näheres zu den Hintergründen im Thread "Aktuelles zum Forum".Wir bitten um Verständnis.

    Hinweis kann nach Kenntnisnahme deaktiviert werden!

    • Quellcode

      1. '$external _xmegafix_clear
      2. '$external _xmegafix_rol_r1014
      3. 'First Enable The Osc Of Your Choice , make sure to enable 32 KHz clock or use an external 32 KHz clock
      4. Config Osc = Enabled , 32mhzosc = Enabled
      5. 'configure the systemclock
      6. Config Sysclock = 32mhz , Prescalea = 1 ', Prescalebc = 1_1
      7. Enable Interrupts
      8. Config Priority = Static , Vector = Application , Lo = Enabled , Med = Disabled , Hi = Enabled 'Enable Lo Level Interrupts
      9. Config Com2 = 38400 , Mode = Asynchroneous , Parity = none , Stopbits = 1 , Databits = 8 ' , Clockpol = 0
      10. Open "Com2:" For Binary As #5
      11. Dim Twi_start As Byte 'GAAANZ Wichtig
      12. 'Open "twic" For Binary As #2
      13. 'I2cinit #2 'set i2c pins to right state , open collector , pull up activated
      14. 'Config Twic = 1300000
      15. Config Scl = Portd.5 ' used i2c pins
      16. Config Sda = Portd.4
      17. Config Twi = 400000 ' i2c speed
      18. I2cinit
      19. $lib "i2c_twi.lbx" ' we do not use software emulated I2C but the TWI
      20. $lib "glcdSSD1306-I2C.lib" ' override the default lib with this special one
      21. #if _build < 20784
      22. Dim ___lcdrow As Byte , ___lcdcol As Byte ' dim these for older compiler versions
      23. #endif
      24. Config Graphlcd = Custom , Cols = 128 , Rows = 64 , Lcdname = "SSD1306"
      25. do
      26. Print #5 , "123"; " t"
      27. Cls
      28. Setfont Font8x8tt ' select font
      29. Lcdat 1 , 1 , "BASCOM-AVR"
      30. Lcdat 2 , 10 , "1995-2015"
      31. Lcdat 8 , 5 , "MCS Electronics" , 1
      32. loop
      33. Waitms 3000
      34. 'Showpic 0 , 0 , Plaatje
      35. End
      36. $include "font8x8TT.font" ' this is a true type font with variable spacing
      37. 'Plaatje:
      38. ' $bgf "ks108.bgf" ' include the picture data
      Alles anzeigen
    • Ich fand dazu mal dieses file (es lief, mit Grafik).
      *********************************************
      ' 1ter Test des ATMEL XMEGA-C3 Xplained mit
      ' ATxmega384c3 und Display UG-283HSWEG04 (128x32) mit Controller SSD1306
      '
      ' die Displayansteuerung basiert auf der SW von Hkipnik:
      ' bascom-forum.de/showthread.php…lay-SPI&highlight=ssd1306
      ' bitte auch die dortigen Licencebedingungen beachten
      *****************************************************
      Auf dem Xmega384 Xplained Board ist so ein Display drauf.
      Leider gibt's ja das oben genannte Forum nicht mehr, so dass auch die Lizenzbedingungen nicht mehr zu sehen sind.
      Das file heißt "SSD1306-hug_2016_0312_hk_neu.zip"
      Vielleicht kann Hkipnik das wieder frei geben.
      Das Beispiel im Bascom-Ordner kann nur text.