\n| \u00a0Backcolor<\/td>\n | \u00a0RRRGGGBB<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n <\/p>\n <\/p>\n <\/p>\n <\/p>\n <\/p>\n <\/p>\n <\/p>\n This will show text on the lcd. It uses the Bascom FONT files for compatibility.
\nTo add or remove fontsets modify these lines in the subroutine;<\/p>\n If<\/strong> Fontset = 1 Then<\/strong> Restore<\/strong> Font8x8
\nIf<\/strong> Fontset = 2 Then<\/strong> Restore<\/strong> Font16x16
\nIf<\/strong> Fontset = 3 Then<\/strong> Restore<\/strong> Font6x8
\nIf<\/strong> Fontset = 4 Then<\/strong> Restore<\/strong> Font5x5<\/p>\nSorry, but there was no better solution.
\nThese are the name\u2019s that you gave to the font, NOT the filename if you don\u2019t know the font name, open the font file in the font editor, and there it is, right on top.
\nDon\u2019t forget to $Include your font files at the end of the program.<\/p>\n <\/p>\n Syntax<\/h4>\nS65_showpicture<\/span>\u00a0 x , y<\/p>\nRemarks<\/h4>\n\n\n\n| \u00a0x<\/td>\n | \u00a0Constant or variable with x position.<\/td>\n<\/tr>\n | \n| \u00a0y<\/td>\n | \u00a0Constant or variable with y position.<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n <\/p>\n <\/p>\n <\/p>\n This will show an Bascom color BGC (Bascom graphic color) on the lcd.
\nDon’t forget to first RESTORE the image name, see the sample.<\/p>\n <\/p>\n Syntax<\/h4>\nS65_line<\/span>\u00a0 x1, y1 , x2 , y2 , color<\/p>\nRemarks<\/h4>\n\n\n\n| \u00a0x1<\/td>\n | \u00a0Starting horizontal location of the line.<\/td>\n<\/tr>\n | \n| \u00a0y1<\/td>\n | \u00a0Starting vertical location of the line.<\/td>\n<\/tr>\n | \n| \u00a0x2<\/td>\n | \u00a0Horizontal end location of the line.<\/td>\n<\/tr>\n | \n| \u00a0y2<\/td>\n | \u00a0Vertical end location of the line.<\/td>\n<\/tr>\n | \n| \u00a0color<\/td>\n | \u00a0RRRGGGBB<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n <\/p>\n <\/p>\n <\/p>\n <\/p>\n <\/p>\n <\/p>\n Draws a line on the lcd.<\/p>\n <\/p>\n Syntax<\/h4>\nS65_pset<\/span>\u00a0 x, y , color<\/p>\nRemarks<\/h4>\n\n\n\n| \u00a0x<\/td>\n | \u00a0The x location.<\/td>\n<\/tr>\n | \n| \u00a0y<\/td>\n | \u00a0The y location.<\/td>\n<\/tr>\n | \n| \u00a0color<\/td>\n | \u00a0RRRGGGBB<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n <\/p>\n <\/p>\n <\/p>\n <\/p>\n Set a pixel on the lcd.<\/p>\n <\/p>\n Syntax<\/h4>\nS65_cls<\/span>\u00a0 backcolor<\/p>\nRemarks<\/h4>\n\n\n\n| \u00a0backcolor<\/td>\n | \u00a0RRRGGGBB<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n <\/p>\n <\/p>\n Clears the lcd in an specified color.<\/p>\n <\/p>\n Example code:<\/p>\n '===================================================================================\r\n'= Siemens S65 display routines for LS020 controller =\r\n'= Special thanks to Dirk Milewski www.comwebnet.de who's routines i have used to get me going. =\r\n'= Copyright, not for private use. by Evert Dekker 2009. =\r\n'= Written and tested with Bascom version 1.11.9.3 =\r\n'===================================================================================\r\n$hwstack = 100\r\n$swstack = 100\r\n$framesize = 100\r\n\r\n$regfile = "m128def.Dat"\r\n$crystal = 16000000\r\n$baud = 19200\r\n\r\n\r\n\r\n'=== Config the hardware ===\r\nRs Alias Porta.1 'S65 Data\/command pin\r\nRes Alias Porta.5 'S65 Reset pin\r\nCs Alias Porta.3 'S65 Chip Select pin\r\nClk Alias Portb.1 'S65 Clock pin\r\nDat Alias Portb.2 'S65 Data pin\r\n\r\nConfig Rs = Output\r\nConfig Dat = Output\r\nConfig Cs = Output\r\nConfig Clk = Output\r\nConfig Res = Output\r\n\r\nConfig Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 128\r\n\r\n'=== Define the constante ===\r\nConst Blue = &B00000011 '8bit color RRRGGGBB\r\nConst Yellow = &B11111100\r\nConst Red = &B11100000\r\nConst Green = &B00011100\r\nConst Black = &B00000000\r\nConst White = &B11111111\r\nConst Brightgreen = &B00111110\r\nConst Darkgreen = &B00010100\r\nConst Darkred = &B10100000\r\nConst Darkblue = &B00000010\r\nConst Brightblue = &B00011111\r\nConst Orange = &B11111000\r\n\r\nConst Displaysize_x = 176\r\nConst Displaysize_y = 132\r\nConst Total_pixels = Displaysize_x * Displaysize_y\r\nConst Landscape = 0 'Change to 0 if you want to use the display in portrait\r\n\r\n\r\nDeclare Sub S65_init()\r\nDeclare Sub S65_pset(byval Lx As Byte , Byval Ly As Byte , Byval Color As Byte)\r\nDeclare Sub S65_line(byval Lx1 As Byte , Byval Ly1 As Byte , Byval Lx2 As Byte , Byval Ly2 As Byte , Byval Color As Byte)\r\nDeclare Sub S65_cls(byval Backcolor As Byte)\r\nDeclare Sub Lcdtext(byval S As String , Byval Xoffset As Byte , Byval Yoffset As Byte , Byval Fontset As Byte , Byval Forecolor As Byte , Byval Backcolor As Byte )\r\nDeclare Sub S65_cmdw(byval Cmd As Word)\r\nDeclare Sub S65_showpicture(byval Xoffset As Byte , Byval Yoffset As Byte)\r\n\r\n\r\n'=== Main prog ===\r\nS65_init 'First thing to do, init the display\r\nS65_cls White 'Clear the display with white background\r\n\r\nDo\r\nLcdtext "Hello world" , 10 , 1 , 1 , Red , White\r\nLcdtext "SIEMENS" , 10 , 12 , 1 , White , Green\r\nLcdtext "S-65" , 10 , 23 , 2 , Blue , White\r\nLcdtext "By Evert Dekker 2009" , 20 , 50 , 4 , Black , White\r\nLcdtext "Landscape & portrait mode" , 5 , 60 , 4 , Black , White\r\n\r\n \r\nRestore Plaatje 'FIRST restore you image before you can show it\r\nS65_showpicture 1 , 70 'Show your image\r\nWait 2\r\nS65_cls White\r\nWait 2\r\nLoop\r\nEnd\r\n\r\n\r\n'=== Subroutines ===\r\nSub S65_init() 'Init the Siemens S65 display\r\nLocal Tempw As Word , Tempb As Byte\r\nSet Res\r\nWaitms 10\r\nReset Res 'HW Reset\r\nSet Cs\r\nSet Clk\r\nSet Dat\r\nSet Rs\r\nWaitms 1\r\nSet Res 'Reset End\r\nWaitms 10\r\nSet Cs\r\nWaitms 1\r\nSet Rs\r\nRestore Init1\r\nFor Tempb = 1 To 12\r\nRead Tempw\r\nS65_cmdw Tempw\r\nNext\r\nWaitms 7\r\nRestore Init2\r\nFor Tempb = 1 To 25\r\nRead Tempw\r\nS65_cmdw Tempw\r\nNext\r\nEnd Sub\r\n\r\nSub S65_cmdw(cmd As Word) 'Send 16bits to the display\r\nReset Cs\r\nShiftout Dat , Clk , Cmd\r\nSet Cs\r\nEnd Sub\r\n\r\n\r\nSub S65_cls(byval Backcolor As Byte) 'Clear the lcd\r\nLocal Pixel As Word\r\nSet Rs\r\nS65_cmdw &HEF90\r\nS65_cmdw &H0500\r\nS65_cmdw &H0600\r\nS65_cmdw &H0700\r\nReset Rs\r\nReset Cs\r\nFor Pixel = 0 To Total_pixels\r\n Shiftout Dat , Clk , Backcolor\r\nNext Pixel\r\nSet Cs\r\nEnd Sub\r\n\r\n\r\n\r\nSub S65_pset(lx As Byte , Ly As Byte , Color As Byte) 'Set a pixel\r\nSet Rs\r\n#if Landscape = 1\r\n Ly = Displaysize_y - Ly\r\n S65_cmdw &H0600 + Ly\r\n S65_cmdw &H0700 + Lx\r\n#else\r\n S65_cmdw &H0600 + Lx\r\n S65_cmdw &H0700 + Ly\r\n#endif\r\nReset Rs\r\nReset Cs\r\nShiftout Dat , Clk , Color\r\nSet Cs\r\nEnd Sub\r\n\r\n\r\n\r\nSub S65_line(byval Lx1 As Byte , Byval Ly1 As Byte , Byval Lx2 As Byte , Byval Ly2 As Byte , Byval Color As Byte) 'Draw a line on the lcd\r\nLocal M As Byte , M1 As Single , M2 As Single\r\nLocal Yg As Byte , Cv As Single , Bn As Integer\r\nLocal R As Byte , B As Byte\r\nM1 = Ly2 - Ly1\r\nM2 = Lx2 - Lx1\r\nCv = M1 \/ M2\r\nBn = Int(cv)\r\nM = Low(bn)\r\nB = M * Lx1\r\nB = -1 * B\r\nB = B + Ly1\r\nFor R = Lx1 To Lx2\r\nYg = M * R\r\nYg = Yg + B\r\nS65_pset R , Yg , Color\r\nNext R\r\nEnd Sub\r\n\r\n\r\n\r\nSub S65_showpicture(xoffset As Byte , Yoffset As Byte) 'Draw an Bascom BGC image on the lcd\r\n' Important that you first RESTORE the image before calling this sub. Examp: [ Restore Plaatje ]\r\nLocal Ysize As Byte , Xsize As Byte , Xpos As Byte , Ypos As Byte 'Dim some local variable\r\nLocal Tempx As Byte , Tempy As Byte\r\nLocal Imagesize As Word , Imagesize_l As Byte , Imagesize_h As Byte\r\nLocal L As Word , Pixel As Byte , Prevpixel As Byte , Repeat As Byte\r\nRead Ysize 'Read the first 4 bytes from the BGC, this contains info about the image\r\nRead Xsize\r\nRead Imagesize_l\r\nRead Imagesize_h\r\nImagesize = Makeint(imagesize_l , Imagesize_h) 'Byte 3&4 contains the image size, add them together\r\nXpos = 1 : Ypos = 1 'Set the pointers to 1\r\nDo\r\nRead Pixel 'Read the value for the pixel\r\n If Pixel = &HAA Then 'BGC file is lre coded &HAA represents this, the byte after &HAA is the number of times that the byte before &HAA wil be repeated\r\n Read Repeat 'Byte after &HAA contains the number of times to repeat\r\n Repeat = Repeat - 1\r\n For L = 1 To Repeat 'Loop the repeat\r\n Tempx = Xpos + Xoffset 'Pixel position is the image postion + the offset\r\n Tempy = Ypos + Yoffset\r\n S65_pset Tempx , Tempy , Prevpixel 'Set the pixel, for repeating it's the byte before &HAA (prevpixel)\r\n Decr Imagesize 'Decrease the bytes still to be processed\r\n Incr Xpos 'Incr the xpos\r\n If Xpos > Xsize Then 'If the xpos is larger then xsize of the image start at a new y line\r\n Xpos = 1 'and set the xpos pos back to the first position on the new line\r\n Incr Ypos 'Start a new y line\r\n End If\r\n Next L 'Next repeat loop\r\n Else 'It's a regular byte, not LRE encoded\r\n Tempx = Xpos + Xoffset 'Pixel position is the image postion + the offset\r\n Tempy = Ypos + Yoffset\r\n S65_pset Tempx , Tempy , Pixel 'Set the pixel\r\n Prevpixel = Pixel 'Store the pixel in a temp byte, maybe we need it if the next byte is &HAA\r\n Decr Imagesize 'Decrease the bytes still to be processed\r\n Incr Xpos\r\n If Xpos > Xsize Then 'If the xpos is larger then xsize of the image start at a new y line\r\n Xpos = 1 'and set the xpos pos back to the first position on the new line\r\n Incr Ypos 'Start a new y line\r\n End If\r\nEnd If\r\nLoop Until Imagesize = 0 'Do until all bytes are processed\r\nEnd Sub\r\n\r\n\r\nSub Lcdtext(byval S As String , Xoffset As Byte , Yoffset As Byte , Fontset As Byte , Forecolor As Byte , Backcolor As Byte ) 'Print text on the display\r\nLocal Tempstring As String * 1 , Temp As Byte 'Dim local the variables\r\nLocal A As Byte , Pixels As Byte , Count As Byte , Carcount As Byte , Lus As Byte\r\nLocal Row As Byte , Byteseach As Byte , Blocksize As Byte , Dummy As Byte\r\nLocal Colums As Byte , Columcount As Byte , Rowcount As Byte , Stringsize As Byte\r\nLocal Xpos As Byte , Ypos As Byte , Pixel As Byte , Pixelcount As Byte\r\nStringsize = Len(s) - 1 'Size of the text string -1 because we must start with 0\r\nFor Carcount = 0 To Stringsize 'Loop for the numbers of caracters that must be displayed\r\n\r\n If Fontset = 1 Then Restore Font8x8 'Add or remove here fontset's that you need or not,\r\n If Fontset = 2 Then Restore Font16x16 'this is the name that you gave to the font, NOT the filename\r\n If Fontset = 3 Then Restore Font6x8 'If you dont know the name, open the font file in wordpad, and there it is,\r\n If Fontset = 4 Then Restore Font5x5 'right on top.\r\n\r\n Temp = Carcount + 1 'Cut the text string in seperate caracters\r\nTempstring = Mid(s , Temp , 1)\r\nRead Row : Read Byteseach : Read Blocksize : Read Dummy 'Read the first 4 bytes from the font file\r\nTemp = Asc(tempstring) - 32 'Font files start with caracter 32\r\nFor Lus = 1 To Temp 'Do dummie read to point to the correct line in the fontfile\r\n For Count = 1 To Blocksize\r\n Read Pixels\r\n Next Count\r\nNext Lus\r\nColums = Blocksize \/ Row 'Calculate the numbers of colums\r\nRow = Row * 8 'Row is always 8 pixels high = 1 byte, so working with row in steps of 8.\r\nRow = Row - 1 'Want to start with row=0 instead of 1\r\nColums = Colums - 1 'Same for the colums\r\n For Rowcount = 0 To Row Step 8 'Loop for numbers of rows\r\n A = Rowcount + Yoffset\r\n For Columcount = 0 To Colums 'Loop for numbers of Colums\r\n Read Pixels\r\n Xpos = Columcount 'Do some calculation to get the caracter on the correct Xposition\r\n Temp = Carcount * Byteseach\r\n Xpos = Xpos + Temp\r\n Xpos = Xpos + Xoffset\r\n For Pixelcount = 0 To 7 'Loop for 8 pixels to be set or not\r\n Ypos = A + Pixelcount 'Each pixel on his own spot\r\n Pixel = Pixels.0 'Set the pixel (or not)\r\n If Pixel = 1 Then\r\n Pixel = Forecolor\r\n Else\r\n Pixel = Backcolor\r\n End If\r\n S65_pset Xpos , Ypos , Pixel 'Finaly we can set the pixel\r\n Shift Pixels , Right 'Shift the byte 1 bit to the right so the next pixel comes availible\r\n Next Pixelcount\r\n Next Columcount\r\n Next Rowcount\r\nNext Carcount\r\nEnd Sub 'End of this amazing subroutine\r\n\r\n\r\n'=== Includes ===\r\n$include "Font8x8.font" 'Includes here your font files\r\n$include "Font16x16.font" 'If you don't need the files in your program, don't include them,\r\n$include "Font6x8.font" 'these are flash memory eaters.\r\n$include "Font5x5.font"\r\n\r\n\r\nPlaatje:\r\n$bgf "mcse.bgc"\r\n\r\n\r\nInit1:\r\nData &HFDFD% , &HFDFD%,\r\nData &HEF00%,\r\nData &HEE04% , &H1B04%,\r\nData &HFEFE% , &HFEFE%,\r\nData &HEF90% , &H4A04% , &H7F3F% , &HEE04% , &H4306%\r\n\r\nInit2:\r\nData &HEF90% , &H0983% , &H0800% , &H0BAF% , &H0A00% , &H0500% , &H0600% , &H0700%,\r\nData &HEF00%,\r\nData &HEE0C%,\r\nData &HEF90% , &H0080%,\r\nData &HEFB0% , &H4902%,\r\nData &HEF00%,\r\nData &H7F01% , &HE181%,\r\nData &HE202%,\r\nData &HE276%,\r\nData &HE183%,\r\nData &H8001%,\r\nData &HEF90%,\r\nData &H0000%\r\nData &HEF90% , &HE801% 'Switch to 8-bit mode<\/pre>\n","protected":false},"excerpt":{"rendered":" The Siemens S65 display with an resolution of 132×176 pixels is a very nice display, it’s bigger and clearer then the Nokia 128×128 display. It’s consumes less power then the Nokia. Signal levels are at 3V so some level converter is needed when connecting to an 5V Avr. Nice schematic sample . These routines […]<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[19],"tags":[26,34],"class_list":["post-304","post","type-post","status-publish","format-standard","hentry","category-bascom","tag-bascom","tag-siemens-s65"],"_links":{"self":[{"href":"https:\/\/evertdekker.com\/wp\/index.php?rest_route=\/wp\/v2\/posts\/304","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/evertdekker.com\/wp\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/evertdekker.com\/wp\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/evertdekker.com\/wp\/index.php?rest_route=\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/evertdekker.com\/wp\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=304"}],"version-history":[{"count":10,"href":"https:\/\/evertdekker.com\/wp\/index.php?rest_route=\/wp\/v2\/posts\/304\/revisions"}],"predecessor-version":[{"id":1830,"href":"https:\/\/evertdekker.com\/wp\/index.php?rest_route=\/wp\/v2\/posts\/304\/revisions\/1830"}],"wp:attachment":[{"href":"https:\/\/evertdekker.com\/wp\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=304"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/evertdekker.com\/wp\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=304"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/evertdekker.com\/wp\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=304"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}} | | | | |