Download code, schematic and buttons<\/a><\/p>\n$regfile = "m128def.DAT"\r\n$crystal = 7372800\r\n$baud = 19200\r\n$eepleave\r\n$loadersize = 512\r\n$hwstack = 100\r\n$swstack = 75\r\n$framesize = 40\r\n\r\n\r\nConfig Graphlcd = 240 * 128 , Dataport = Porta , Controlport = Portc , Ce = 3 , Cd = 0 , Wr = 2 , Rd = 1 , Reset = 4 , Fs = 5 , Mode = 6\r\nConfig Adc = Single , Prescaler = Auto , Reference = Internal\r\nConfig Timer1 = Timer , Prescale = 1024\r\nConst Timer1preload = 58336\r\nConfig Pinb.4 = Output\r\nRxtx Alias Porte.2\r\nSpeaker Alias Portf.7\r\nBacklight Alias Portb.4\r\nConst Buttonreturndelay = 20 'Buttonreturndelay in ms\r\nDim Temp As Byte , X As Word , Y As Word\r\nDim Hoofdmenutijdrun As Bit\r\nDim Row As Byte , Keyarray(3) As Byte , Col As Byte , Key As Byte , Keylus As Byte\r\nDim Keypressed As Byte , Menu As Byte , Holdmenu As Bit\r\nDim Tijdcount As Byte\r\nEnable Ovf1\r\nEnable Interrupts\r\nOn Timer1 1secint\r\nStart Adc\r\nStart Timer1\r\nReset Hoofdmenutijdrun\r\n\r\n\r\n\r\n' Main\r\nReset Backlight 'switch backlight on\r\n Cls\r\nCursor Off\r\nTemp = 0\r\nGosub Showbasisknoppen\r\nGosub Showhoofdmenu\r\nDo\r\n'Your main prog here\r\n Gosub Readtouch\r\n Gosub Bepaaltoets\r\nIf Menu > 1 Then\r\n Hoofdmenutijdrun = 1\r\nElse\r\n Hoofdmenutijdrun = 0\r\nEnd If\r\n\r\nIf Keypressed > 0 Then\r\n Select Case Menu\r\n Case 1 : Select Case Keypressed 'Hoofdmenu\r\n Case 11 : Gosub Foutje 'Key not used, so beep\r\n Case 12 : Print "you pressed key " ; Keypressed ; " in menu " ; Menu\r\n Gosub Showhoofdmenu 'Current menu must be reload to refill the buttons\r\n Case 13 : Print "you pressed key " ; Keypressed ; " in menu " ; Menu\r\n Gosub Showhoofdmenu 'Current menu must be reload to refill the buttons\r\n Case 14 : Gosub Showwandmeubelmenu\r\n Case 21 : Gosub Foutje\r\n Case 22 : Print "you pressed key " ; Keypressed ; " in menu " ; Menu\r\n Gosub Showhoofdmenu 'Current menu must be reload to refill the buttons\r\n Case 23 : Print "you pressed key " ; Keypressed ; " in menu " ; Menu\r\n Gosub Showhoofdmenu 'Current menu must be reload to refill the buttons\r\n Case 24 : Print "you pressed key " ; Keypressed ; " in menu " ; Menu\r\n Gosub Showhoofdmenu 'Current menu must be reload to refill the buttons\r\n Case 31 : Gosub Foutje\r\n Case 32 : Print "you pressed key " ; Keypressed ; " in menu " ; Menu\r\n Gosub Showhoofdmenu 'Current menu must be reload to refill the buttons\r\n Case 33 : Gosub Showjaloezvoormenu\r\n Case 34 : Print "you pressed key " ; Keypressed ; " in menu " ; Menu\r\n Gosub Showhoofdmenu 'Current menu must be reload to refill the buttons\r\n Case 41 : Gosub Foutje\r\n Case 42 : Print "you pressed key " ; Keypressed ; " in menu " ; Menu\r\n Gosub Showhoofdmenu 'Current menu must be reload to refill the buttons\r\n Case 43 : Print "you pressed key " ; Keypressed ; " in menu " ; Menu\r\n Gosub Showhoofdmenu 'Current menu must be reload to refill the buttons\r\n Case 44 : Gosub Showhoofdmenu2\r\n End Select\r\n Case 2 : Select Case Keypressed 'Jaloezieen voor menu\r\n Case 11 : Gosub Foutje\r\n Case 12 : Print "you pressed key " ; Keypressed ; " in menu " ; Menu\r\n Gosub Showjaloezvoormenu 'Current menu must be reload to refill the buttons\r\n Case 13 : Print "you pressed key " ; Keypressed ; " in menu " ; Menu\r\n Gosub Showjaloezvoormenu 'Current menu must be reload to refill the buttons\r\n Case 14 : Print "you pressed key " ; Keypressed ; " in menu " ; Menu\r\n Gosub Showjaloezvoormenu 'Current menu must be reload to refill the buttons\r\n Case 21 : Gosub Foutje\r\n Case 22 : Print "you pressed key " ; Keypressed ; " in menu " ; Menu\r\n Gosub Showjaloezvoormenu 'Current menu must be reload to refill the buttons\r\n Case 23 : Print "you pressed key " ; Keypressed ; " in menu " ; Menu\r\n Gosub Showjaloezvoormenu 'Current menu must be reload to refill the buttons\r\n Case 24 : Gosub Foutje\r\n Case 31 : Gosub Foutje\r\n Case 32 : Print "you pressed key " ; Keypressed ; " in menu " ; Menu\r\n Gosub Showjaloezvoormenu 'Current menu must be reload to refill the buttons\r\n Case 33 : Print "you pressed key " ; Keypressed ; " in menu " ; Menu\r\n Gosub Showjaloezvoormenu 'Current menu must be reload to refill the buttons\r\n Case 34 : Gosub Foutje\r\n Case 41 : Gosub Foutje\r\n Case 42 : Gosub Foutje\r\n Case 43 : Gosub Foutje\r\n Case 44 : Gosub Showhoofdmenu\r\n End Select\r\n\r\n Case 12 : Select Case Keypressed 'Wandmeubel\r\n Case 11 : Gosub Foutje\r\n Case 12 : Print "you pressed key " ; Keypressed ; " in menu " ; Menu\r\n Gosub Showwandmeubelmenu 'Current menu must be reload to refill the buttons\r\n Case 13 : Print "you pressed key " ; Keypressed ; " in menu " ; Menu\r\n Gosub Showwandmeubelmenu 'Current menu must be reload to refill the buttons\r\n Case 14 : Gosub Foutje\r\n Case 21 : Gosub Foutje\r\n Case 22 : Print "you pressed key " ; Keypressed ; " in menu " ; Menu\r\n Gosub Showwandmeubelmenu 'Current menu must be reload to refill the buttons\r\n Case 23 : Print "you pressed key " ; Keypressed ; " in menu " ; Menu\r\n Gosub Showwandmeubelmenu 'Current menu must be reload to refill the buttons\r\n Case 24 : Gosub Foutje\r\n Case 31 : Gosub Foutje\r\n Case 32 : Print "you pressed key " ; Keypressed ; " in menu " ; Menu\r\n Gosub Showwandmeubelmenu 'Current menu must be reload to refill the buttons\r\n Case 33 : Print "you pressed key " ; Keypressed ; " in menu " ; Menu\r\n Gosub Showwandmeubelmenu 'Current menu must be reload to refill the buttons\r\n Case 34 : Gosub Foutje\r\n Case 41 : Gosub Foutje\r\n Case 42 : Print "you pressed key " ; Keypressed ; " in menu " ; Menu\r\n Gosub Showwandmeubelmenu 'Current menu must be reload to refill the buttons\r\n Case 43 : Print "you pressed key " ; Keypressed ; " in menu " ; Menu\r\n Gosub Showwandmeubelmenu 'Current menu must be reload to refill the buttons\r\n Case 44 : Gosub Showhoofdmenu ' esc knop\r\n End Select\r\n\r\n Case 21 : Select Case Keypressed 'Hoofdmenu 2\r\n Case 11 : Gosub Foutje\r\n Case 12 : Print "you pressed key " ; Keypressed ; " in menu " ; Menu\r\n Gosub Showhoofdmenu2 'Current menu must be reload to refill the buttons\r\n Case 13 : Gosub Foutje\r\n Case 14 : Gosub Showhoofdmenu 'Back to hoofdmenu1\r\n Case 21 : Gosub Foutje\r\n Case 22 : Gosub Foutje\r\n Case 23 : Gosub Foutje\r\n Case 24 : Gosub Foutje\r\n Case 31 : Gosub Foutje\r\n Case 32 : Gosub Foutje\r\n Case 33 : Gosub Foutje\r\n Case 34 : Gosub Foutje\r\n Case 41 : Gosub Foutje\r\n Case 42 : Gosub Foutje\r\n Case 43 : Gosub Foutje\r\n Case 44 : Gosub Foutje\r\n End Select\r\n\r\nEnd Select\r\n\r\n Keypressed = 0\r\nEnd If\r\nLoop\r\n\r\n\r\n'=== Subroutines===\r\n\r\n\r\n1secint:\r\nIf Hoofdmenutijdrun = 1 Then\r\n Incr Tijdcount\r\n If Tijdcount => 10 Then 'Time delay return to hoofdmenu (mainmenu)\r\n Hoofdmenutijdrun = 0 : Tijdcount = 0\r\n If Holdmenu = 0 Then\r\n Gosub Showhoofdmenu\r\n End If\r\n Else\r\n End If\r\nEnd If\r\nTimer1 = Timer1preload\r\nReturn\r\n\r\n\r\n\r\nShowwandmeubelmenu:\r\nMenu = 12 : Holdmenu = 0\r\nShowpic 0 , 0 , Hwandmeubel 'show a comnpressed picture\r\nShowpic 6 , 36 , Ledsaan\r\nShowpic 6 , 68 , Ledsuit\r\nShowpic 6 , 100 , Leeg\r\nShowpic 66 , 36 , Beidedeurenup\r\nShowpic 66 , 68 , Beidedeurendown\r\nShowpic 66 , 100 , Leeg\r\nShowpic 126 , 36 , Linkerdeurup\r\nShowpic 126 , 68 , Linkerdeurdown\r\nShowpic 126 , 100 , Leeg\r\nShowpic 186 , 36 , Rechterdeurup\r\nShowpic 186 , 68 , Rechterdeurdown\r\nShowpic 186 , 100 , Esc\r\nReturn\r\n\r\n\r\nShowjaloezvoormenu:\r\nMenu = 2 : Holdmenu = 0\r\nShowpic 0 , 0 , Hjalvoor 'show a comnpressed picture\r\nShowpic 6 , 36 , Pijlomhoog\r\nShowpic 6 , 68 , Stopbutton\r\nShowpic 6 , 100 , Pijlomlaag\r\nShowpic 66 , 36 , Jalvf1\r\nShowpic 66 , 68 , Jalvf3\r\nShowpic 66 , 100 , Leeg\r\nShowpic 126 , 36 , Jalvf2\r\nShowpic 126 , 68 , Jalvf4\r\nShowpic 126 , 100 , Leeg\r\nShowpic 186 , 36 , Leeg\r\nShowpic 186 , 68 , Leeg\r\nShowpic 186 , 100 , Esc\r\nReturn\r\n\r\n\r\nShowhoofdmenu:\r\nMenu = 1 : Holdmenu = 0\r\nShowpic 0 , 0 , Headerhoofdmenu 'show a comnpressed picture\r\nShowpic 6 , 36 , Lichteettafel\r\nShowpic 66 , 36 , Lichtsalontafel\r\nShowpic 126 , 36 , Lichtkeuken\r\nShowpic 186 , 36 , Schemerlamp\r\nShowpic 6 , 68 , Lichttuin\r\nShowpic 66 , 68 , Leeg\r\nShowpic 126 , 68 , Jalvoor\r\nShowpic 186 , 68 , Jalachter\r\nShowpic 6 , 100 , Wandmeubel\r\nShowpic 66 , 100 , Versterker\r\nShowpic 126 , 100 , Autoprog\r\nShowpic 186 , 100 , Pijlrechts\r\nReturn\r\n\r\nShowhoofdmenu2:\r\nMenu = 21 : Holdmenu = 1\r\n'Normaly the screen will go after 10sec back to the main menu. With Holdmenu=1 the screen will stay in this menu.\r\nShowpic 0 , 0 , Hhoofdmenu2 'show a comnpressed picture\r\nShowpic 6 , 36 , Leeg\r\nShowpic 66 , 36 , Leeg\r\nShowpic 126 , 36 , Leeg\r\nShowpic 186 , 36 , Leeg\r\nShowpic 6 , 68 , Leeg\r\nShowpic 66 , 68 , Leeg\r\nShowpic 126 , 68 , Leeg\r\nShowpic 186 , 68 , Leeg\r\nShowpic 6 , 100 , Pijllinks\r\nShowpic 66 , 100 , Leeg\r\nShowpic 126 , 100 , Leeg\r\nShowpic 186 , 100 , Leeg\r\nReturn\r\n\r\n\r\n\r\n\r\n\r\nBepaaltoets:\r\nSelect Case X\r\n Case 160 To 317 : Col = 10\r\n Case 318 To 477 : Col = 20\r\n Case 478 To 633 : Col = 30\r\n Case 634 To 788 : Col = 40\r\n Case Else Col = 0\r\nEnd Select\r\nSelect Case Y\r\n Case 329 To 414 : Row = 1\r\n Case 415 To 497 : Row = 2\r\n Case 498 To 584 : Row = 3\r\n Case 585 To 652 : Row = 4\r\n Case Else Row = 0\r\nEnd Select\r\nKey = Col + Row\r\n'locate 4 , 2 : Lcd "Je drukte op knop ; " ; key\r\nIf Key > 0 Then\r\n Keyarray(keylus) = Key\r\n Incr Keylus\r\n If Keylus > 3 Then Keylus = 1\r\n If Keyarray(1) = Keyarray(2) Then\r\n If Keyarray(2) = Keyarray(3) Then\r\n ' If Buzzertoggle = 0 then\r\n Sound Speaker , 1 , 65000\r\n Keypressed = Key\r\n Gosub Showpressedkey\r\n Tijdcount = 0\r\n End If\r\n End If\r\n End If\r\nReturn\r\n\r\nShowpressedkey: 'Routine for "animated" buttons\r\nSelect Case Keypressed\r\nCase 12\r\n Showpic 0 , 33 , Knopin\r\n Waitms Buttonreturndelay\r\n Showpic 0 , 33 , Knop\r\nCase 13\r\n Showpic 0 , 65 , Knopin\r\n Waitms Buttonreturndelay\r\n Showpic 0 , 65 , Knop\r\nCase 14\r\n Showpic 0 , 97 , Knopin\r\n Waitms Buttonreturndelay\r\n Showpic 0 , 97 , Knop\r\nCase 22\r\n Showpic 61 , 33 , Knopin\r\n Waitms Buttonreturndelay\r\n Showpic 61 , 33 , Knop\r\nCase 23\r\n Showpic 61 , 65 , Knopin\r\n Waitms Buttonreturndelay\r\n Showpic 61 , 65 , Knop\r\nCase 24\r\n Showpic 61 , 97 , Knopin\r\n Waitms Buttonreturndelay\r\n Showpic 61 , 97 , Knop\r\nCase 32\r\n Showpic 121 , 33 , Knopin\r\n Waitms Buttonreturndelay\r\n Showpic 121 , 33 , Knop\r\nCase 33\r\n Showpic 121 , 65 , Knopin\r\n Waitms Buttonreturndelay\r\n Showpic 121 , 65 , Knop\r\nCase 34\r\n Showpic 121 , 97 , Knopin\r\n Waitms Buttonreturndelay\r\n Showpic 121 , 97 , Knop\r\nCase 42\r\nShowpic 181 , 33 , Knopin\r\n Waitms Buttonreturndelay\r\n Showpic 181 , 33 , Knop\r\nCase 43\r\nShowpic 181 , 65 , Knopin\r\n Waitms Buttonreturndelay\r\n Showpic 181 , 65 , Knop\r\n Case 44\r\nShowpic 181 , 97 , Knopin\r\n Waitms Buttonreturndelay\r\n Showpic 181 , 97 , Knop\r\nEnd Select\r\nReturn\r\n\r\nShowbasisknoppen:\r\nShowpic 0 , 33 , Knop\r\nShowpic 0 , 65 , Knop\r\nShowpic 0 , 97 , Knop\r\nShowpic 61 , 33 , Knop\r\nShowpic 61 , 65 , Knop\r\nShowpic 61 , 97 , Knop\r\nShowpic 121 , 33 , Knop\r\nShowpic 121 , 65 , Knop\r\nShowpic 121 , 97 , Knop\r\nShowpic 181 , 33 , Knop\r\nShowpic 181 , 65 , Knop\r\nShowpic 181 , 97 , Knop\r\nReturn\r\n\r\nReadtouch:\r\nConfig Pinf.0 = Output\r\nConfig Pinf.2 = Output\r\nSet Portf.0\r\nReset Portf.2\r\nDdrf.1 = 0 : Portf.1 = 1\r\nDdrf.3 = 0 : Portf.3 = 1\r\nWaitms 20\r\nY = Getadc(3)\r\nY = 1024 - Y\r\n'Locate 4 , 2 : Lcd "WAARDE X ; " ; X : Waitms 200\r\nConfig Pinf.1 = Output\r\nConfig Pinf.3 = Output\r\nSet Portf.1\r\nReset Portf.3\r\nDdrf.0 = 0 : Portf.0 = 1\r\nDdrf.2 = 0 : Portf.2 = 1\r\nWaitms 20\r\nX = Getadc(2)\r\nX = 1024 - X\r\n'locate 4 , 2 : Lcd "WAARDE Y ; " ; Y :waitms 200\r\nReturn\r\n\r\n\r\n\r\nFoutje:\r\nSound Speaker , 2 , 65000\r\nWaitms 50\r\nReturn\r\n\r\n\r\nHeaderhoofdmenu:\r\n$bgf "..\\TouchbuttonsLarge\\HeaderHoofdmenu.bgf"\r\nHhoofdmenu2:\r\n$bgf "..\\TouchbuttonsLarge\\HHoofdmenu2.bgf"\r\nHjalvoor:\r\n$bgf "..\\TouchbuttonsLarge\\HJalVoor.bgf"\r\nHwandmeubel:\r\n$bgf "..\\TouchbuttonsLarge\\HWandmeubel.bgf"\r\nKnop:\r\n$bgf "..\\TouchbuttonsLarge\\knop.bgf"\r\nKnopin: 'Button pressed in\r\n$bgf "..\\TouchbuttonsLarge\\knopin.bgf"\r\nLeeg:\r\n$bgf "..\\TouchbuttonsLarge\\Leeg.bgf"\r\nAutoprog:\r\n$bgf "..\\TouchbuttonsLarge\\Autoprog.bgf"\r\nLichtsalontafel:\r\n$bgf "..\\TouchbuttonsLarge\\Lichtsalontafel.bgf"\r\nLichteettafel:\r\n$bgf "..\\TouchbuttonsLarge\\Lichteettafel.bgf"\r\nLichtkeuken:\r\n$bgf "..\\TouchbuttonsLarge\\LichtKeuken.bgf"\r\nLichttuin:\r\n$bgf "..\\TouchbuttonsLarge\\LichtTuin.bgf"\r\nSchemerlamp:\r\n$bgf "..\\TouchbuttonsLarge\\Schemerlamp.bgf"\r\nJalvoor:\r\n$bgf "..\\TouchbuttonsLarge\\Jalvoor.bgf"\r\nJalachter:\r\n$bgf "..\\TouchbuttonsLarge\\JalAchter.bgf"\r\nWandmeubel:\r\n$bgf "..\\TouchbuttonsLarge\\Wandmeubel.bgf"\r\nVersterker:\r\n$bgf "..\\TouchbuttonsLarge\\Versterker.bgf"\r\nPijlrechts:\r\n$bgf "..\\TouchbuttonsLarge\\Pijlrechts.bgf"\r\nPijllinks:\r\n$bgf "..\\TouchbuttonsLarge\\Pijllinks.bgf"\r\nPijlomhoog:\r\n$bgf "..\\TouchbuttonsLarge\\Pijlomhoog.bgf"\r\nPijlomlaag:\r\n$bgf "..\\TouchbuttonsLarge\\Pijlomlaag.bgf"\r\nJalvf1:\r\n$bgf "..\\TouchbuttonsLarge\\JalvF1.bgf"\r\nJalvf2:\r\n$bgf "..\\TouchbuttonsLarge\\JalvF2.bgf"\r\nJalvf3:\r\n$bgf "..\\TouchbuttonsLarge\\JalvF3.bgf"\r\nJalvf4:\r\n$bgf "..\\TouchbuttonsLarge\\JalvF4.bgf"\r\nEsc:\r\n$bgf "..\\TouchbuttonsLarge\\Esc.bgf"\r\nStopbutton:\r\n$bgf "..\\TouchbuttonsLarge\\Stopbutton.bgf"\r\nF1:\r\n$bgf "..\\TouchbuttonsLarge\\F1.bgf"\r\nF2:\r\n$bgf "..\\TouchbuttonsLarge\\F2.bgf"\r\nF3:\r\n$bgf "..\\TouchbuttonsLarge\\F3.bgf"\r\nF4:\r\n$bgf "..\\TouchbuttonsLarge\\F4.bgf"\r\nLinkerdeurup:\r\n$bgf "..\\TouchbuttonsLarge\\Linkerdeurup.bgf"\r\nLinkerdeurdown:\r\n$bgf "..\\TouchbuttonsLarge\\Linkerdeurdown.bgf"\r\nRechterdeurup:\r\n$bgf "..\\TouchbuttonsLarge\\Rechterdeurup.bgf"\r\nRechterdeurdown:\r\n$bgf "..\\TouchbuttonsLarge\\Rechterdeurdown.bgf"\r\nBeidedeurenup:\r\n$bgf "..\\TouchbuttonsLarge\\Beidedeurenup.bgf"\r\nBeidedeurendown:\r\n$bgf "..\\TouchbuttonsLarge\\Beidedeurendown.bgf"\r\nLedsaan:\r\n$bgf "..\\TouchbuttonsLarge\\Ledsaan.bgf"\r\nLedsuit:\r\n$bgf "..\\TouchbuttonsLarge\\Ledsuit.bgf"<\/pre>\n","protected":false},"excerpt":{"rendered":"Here is the code in Bascom for my 5″ touchscreen. The schematic and code are adapted for the ledsee.com 240×128 touchscreen. This code is not very well documentated, for a better explanation of the code check my 3″ application note at the Bascom web site. Download code, schematic and buttons $regfile = "m128def.DAT" $crystal = […]<\/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":[46,26,45],"class_list":["post-365","post","type-post","status-publish","format-standard","hentry","category-bascom","tag-46","tag-bascom","tag-touchscreen"],"_links":{"self":[{"href":"https:\/\/evertdekker.com\/wp\/index.php?rest_route=\/wp\/v2\/posts\/365","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=365"}],"version-history":[{"count":5,"href":"https:\/\/evertdekker.com\/wp\/index.php?rest_route=\/wp\/v2\/posts\/365\/revisions"}],"predecessor-version":[{"id":1879,"href":"https:\/\/evertdekker.com\/wp\/index.php?rest_route=\/wp\/v2\/posts\/365\/revisions\/1879"}],"wp:attachment":[{"href":"https:\/\/evertdekker.com\/wp\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=365"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/evertdekker.com\/wp\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=365"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/evertdekker.com\/wp\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=365"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}