Een hele brok code maar dit is een test programma dat ik voor mijn touch screen gebruik. Controleer wel je poorten of deze hetzelfde zijn.
Code |
'****************************************************************
'* Name : UNTITLED.BAS *
'* Author : REDDEVIL *
'* Notice : Copyright (c) 2013 REDDEVIL *
'* : All Rights Reserved *
'* Date : 30/12/2013 *
'* Version : 1.0 *
'* Notes : *
'* : *
'****************************************************************
DEVICE = 18F452
XTAL = 20
ALL_DIGITAL = true
DECLARE LCD_DTPORT PORTD
DECLARE LCD_ENPIN PORTB.4
DECLARE LCD_CS1PIN PORTB.0
DECLARE LCD_CS2PIN PORTB.1
DECLARE LCD_RWPIN PORTB.3
DECLARE LCD_RSPIN PORTB.2
PORTB.5 = 1
DECLARE LCD_TYPE 1
DECLARE INTERNAL_FONT 1
DECLARE GLCD_CS_INVERT 0
DECLARE GLCD_STROBE_DELAY 0
DECLARE ADIN_RES 10
DECLARE ADIN_TAD 32_FOSC
DECLARE ADIN_STIME 100
TRISA = %00000011 ' Configure AN0 (PORTA.0) as an input
TRISB = %00000000
TRISC = %00000000
TRISD = %00000000
TRISE = %000
ADCON1 = %10000000 ' Set analogue input on PORTA.0 10001110
DIM yline AS BYTE
DIM glcd_data AS BYTE
DIM data_pointer AS WORD
DIM XPOS AS BYTE
DIM YPOS AS BYTE
DIM t AS BYTE
DIM var1 AS WORD
DIM var2 AS WORD
DIM var3 AS WORD
DIM var4 AS WORD
DIM drukknopx1 AS BYTE
DIM drukknopx2 AS BYTE
DIM x AS BYTE
DIM y AS BYTE
DIM kolom AS BYTE
DIM rij AS BYTE
DIM drukknop AS BYTE
CLEAR
DELAYMS 200
CLS
yline = 0
data_pointer = 0
CLS
REPEAT
REPEAT
glcd_data = LREAD pompen + data_pointer
LCDWRITE yline,XPOS,[glcd_data]
INC XPOS
INC data_pointer
UNTIL XPOS = 128
XPOS = 0
INC yline
UNTIL yline = 8
MainLoop:
'Hier worden de drukknoppen ingelezen!!!!!
'2 poorten worden op 2 draden van het touch screen aangesloten c.0 en c.1
'2 poorten worden op de 2 andere draden van het touch screen aangesloten a.0 en a.1
PORTC.0 = 1;
PORTC.1 = 0;
DELAYMS 5
var1 = ADIN 0
PRINT AT 1,1, DEC5 var1
PORTC.0 = 0;
PORTC.1 = 1;
DELAYMS 5
var2 = ADIN 1
PRINT AT 2,1, DEC5 var2
SELECT var1
CASE 100 TO 350
kolom = 30
CASE 351 TO 640
kolom = 20
CASE 641 TO 920
kolom = 10
CASE ELSE
kolom = 0
ENDSELECT
SELECT var2
CASE 251 TO 880
rij = 1
CASE 130 TO 251
rij = 2
CASE ELSE
rij = 0
ENDSELECT
SELECT kolom + rij
CASE 0
drukknop = 0
CASE 11
drukknop = 1
CASE 21
drukknop = 2
CASE 31
drukknop = 3
CASE 12,22,32
drukknop = 4
CASE ELSE
drukknop = 0
ENDSELECT
PRINT AT 3,1, DEC2 drukknop
PRINT AT 3,9, DEC2 drukknop
PRINT AT 4,1, DEC2 kolom
PRINT AT 5,1, DEC2 rij
PRINT AT 6,1, DEC2 rij+kolom
GOTO MainLoop:
GOTO MainLoop 'dit is een afbeelding.
pompen:
LDATA $FC,$02,$01,$21,$71,$F9,$71,$71,$71,$01,$01,$01,$01,$01,$01,$01,_
$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,_
$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,_
$01,$01,$F9,$29,$29,$11,$01,$71,$89,$89,$71,$01,$F9,$11,$21,$11,_
$F9,$01,$F9,$29,$29,$11,$01,$F9,$A9,$89,$01,$F9,$11,$21,$F9,$01,_
$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,_
$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,_
$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$02,$FC,_ ' Y_Bytes 0
$C1,$22,$14,$14,$14,$14,$14,$14,$14,$14,$14,$14,$14,$14,$14,$14,_
$14,$14,$14,$14,$14,$14,$14,$14,$14,$14,$14,$14,$14,$14,$14,$14,_
$14,$14,$14,$14,$14,$14,$14,$14,$24,$C4,$04,$04,$C4,$24,$14,$14,_
$14,$14,$14,$14,$14,$14,$14,$14,$14,$14,$14,$14,$14,$14,$14,$14,_
$14,$14,$14,$14,$14,$14,$14,$14,$14,$14,$14,$14,$14,$14,$14,$14,_
$14,$14,$14,$24,$C4,$04,$04,$C4,$24,$14,$14,$14,$14,$14,$14,$14,_
$14,$14,$14,$14,$14,$14,$14,$14,$14,$14,$14,$14,$14,$14,$14,$14,_
$14,$14,$14,$14,$14,$14,$14,$14,$14,$14,$14,$14,$14,$14,$22,$C1,_ ' Y_Bytes 1
$FF,$00,$00,$00,$00,$00,$00,$F8,$48,$48,$30,$00,$F0,$08,$08,$F0,_
$00,$F8,$10,$20,$10,$F8,$00,$F8,$48,$48,$30,$00,$00,$00,$00,$00,_
$10,$F8,$00,$00,$00,$00,$00,$00,$00,$FF,$00,$00,$FF,$00,$00,$00,_
$00,$00,$F8,$48,$48,$30,$00,$F0,$08,$08,$F0,$00,$F8,$10,$20,$10,_
$F8,$00,$F8,$48,$48,$30,$00,$00,$00,$00,$00,$10,$88,$48,$30,$00,_
$00,$00,$00,$00,$FF,$00,$00,$FF,$00,$00,$00,$00,$00,$F8,$48,$48,_
$30,$00,$F0,$08,$08,$F0,$00,$F8,$10,$20,$10,$F8,$00,$F8,$48,$48,_
$30,$00,$00,$00,$00,$00,$08,$48,$48,$B0,$00,$00,$00,$00,$00,$FF,_ ' Y_Bytes 2
$FF,$00,$00,$00,$00,$00,$00,$03,$00,$00,$00,$00,$01,$02,$02,$01,_
$00,$03,$00,$00,$00,$03,$00,$03,$00,$00,$00,$00,$00,$00,$00,$00,_
$02,$03,$02,$00,$00,$00,$00,$00,$00,$FF,$00,$00,$FF,$00,$00,$00,_
$00,$00,$03,$00,$00,$00,$00,$01,$02,$02,$01,$00,$03,$00,$00,$00,_
$03,$00,$03,$00,$00,$00,$00,$00,$00,$00,$00,$03,$02,$02,$02,$00,_
$00,$00,$00,$00,$FF,$00,$00,$FF,$00,$00,$00,$00,$00,$03,$00,$00,_
$00,$00,$01,$02,$02,$01,$00,$03,$00,$00,$00,$03,$00,$03,$00,$00,_
$00,$00,$00,$00,$00,$00,$02,$02,$02,$01,$00,$00,$00,$00,$00,$FF,_ ' Y_Bytes 3
$FF,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$80,$60,$10,$08,$04,_
$04,$02,$02,$02,$02,$02,$02,$02,$04,$04,$08,$10,$60,$80,$00,$00,_
$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF,$00,$00,$FF,$00,$00,$00,_
$00,$00,$00,$00,$00,$00,$00,$80,$60,$10,$08,$04,$04,$02,$02,$02,_
$02,$02,$02,$02,$04,$04,$08,$10,$60,$80,$00,$00,$00,$00,$00,$00,_
$00,$00,$00,$00,$FF,$00,$00,$FF,$00,$00,$00,$00,$00,$00,$00,$00,_
$00,$00,$80,$60,$10,$08,$04,$04,$02,$02,$02,$02,$02,$02,$02,$04,_
$04,$08,$10,$60,$80,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF,_ ' Y_Bytes 4
$FF,$00,$00,$00,$00,$00,$07,$07,$07,$07,$07,$0F,$30,$40,$80,$00,_
$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$80,$40,$30,$0F,$07,$07,_
$07,$07,$07,$00,$00,$00,$00,$00,$00,$FF,$00,$00,$FF,$00,$00,$00,_
$00,$00,$07,$07,$07,$07,$07,$0F,$30,$40,$80,$00,$00,$00,$00,$00,_
$00,$00,$00,$00,$00,$00,$80,$40,$30,$0F,$07,$07,$07,$07,$07,$00,_
$00,$00,$00,$00,$FF,$00,$00,$FF,$00,$00,$00,$00,$00,$07,$07,$07,_
$07,$07,$0F,$30,$40,$80,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,_
$00,$80,$40,$30,$0F,$07,$07,$07,$07,$07,$00,$00,$00,$00,$00,$FF,_ ' Y_Bytes 5
$FF,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$01,_
$01,$02,$02,$02,$02,$02,$02,$02,$01,$01,$00,$00,$00,$00,$00,$00,_
$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF,$00,$00,$FF,$00,$00,$00,_
$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$01,$01,$02,$02,$02,_
$02,$02,$02,$02,$01,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,_
$00,$00,$00,$00,$FF,$00,$00,$FF,$00,$00,$00,$00,$00,$00,$00,$00,_
$00,$00,$00,$00,$00,$00,$01,$01,$02,$02,$02,$02,$02,$02,$02,$01,_
$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF,_ ' Y_Bytes 6
$3F,$40,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,_
$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,_
$80,$80,$80,$80,$80,$80,$80,$80,$40,$3F,$00,$00,$3F,$40,$C0,$80,_
$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,_
$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,_
$80,$80,$80,$40,$3F,$00,$00,$3F,$40,$80,$80,$80,$80,$80,$80,$80,_
$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,_
$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$40,$3F ' Y_Bytes 7
FONT:- CDATA $00,$00,$00,$00,$00,$00 'Graphic character 0
CDATA $FF,$FF,$FF,$FF,$FF,$FF 'Graphic character 1
CDATA $07,$07,$07,$00,$00,$00 'Graphic character 2
CDATA $00,$00,$00,$07,$07,$07 'Graphic character 3
CDATA $E0,$E0,$E0,$00,$00,$00 'Graphic character 4
CDATA $00,$00,$00,$E0,$E0,$E0 'Graphic character 5
CDATA $FF,$FF,$FF,$00,$00,$00 'Graphic character 6
CDATA $00,$00,$00,$FF,$FF,$FF 'Graphic character 7
CDATA $07,$07,$07,$07,$07,$07 'Graphic character 8
CDATA $E0,$E0,$E0,$E0,$E0,$E0 'Graphic character 9
CDATA $E0,$E0,$E0,$07,$07,$07 'Graphic character 10
CDATA $07,$07,$07,$E0,$E0,$E0 'Graphic character 11
CDATA $FF,$FF,$FF,$E0,$E0,$E0 'Graphic character 12
CDATA $E0,$E0,$E0,$FF,$FF,$FF 'Graphic character 13
CDATA $07,$07,$07,$FF,$FF,$FF 'Graphic character 14
CDATA $FF,$FF,$FF,$07,$07,$07 'Graphic character 15
CDATA $55,$AA,$55,$AA,$55,$AA 'Graphic character 16
CDATA $AA,$55,$AA,$55,$AA,$55 'Graphic character 17
CDATA $01,$01,$01,$01,$01,$01 'Graphic character 18
CDATA $80,$80,$80,$80,$80,$80 'Graphic character 19
CDATA $FF,$00,$00,$00,$00,$00 'Graphic character 20
CDATA $00,$00,$00,$00,$00,$FF 'Graphic character 21
CDATA $FF,$01,$01,$01,$01,$01 'Graphic character 22
CDATA $01,$01,$01,$01,$01,$FF 'Graphic character 23
CDATA $FF,$80,$80,$80,$80,$80 'Graphic character 24
CDATA $80,$80,$80,$80,$80,$FF 'Graphic character 25
CDATA $00,$00,$00,$00,$F0,$F0 'User defined character 26
CDATA $00,$00,$00,$00,$0F,$0F 'User defined character 27
CDATA $00,$00,$00,$00,$00,$00 'User defined character 28
CDATA $00,$00,$00,$00,$00,$00 'User defined character 29
CDATA $00,$00,$00,$00,$00,$00 'User defined character 30
CDATA $00,$00,$00,$00,$00,$00 'User defined character 31
CDATA $00,$00,$00,$00,$00,$00 '32 - - 20
CDATA $00,$00,$4F,$00,$00,$00 '33 - ! - 21
CDATA $00,$07,$00,$07,$00,$00 '34 - " - 22
CDATA $14,$7F,$14,$7F,$14,$00 '35 - # - 23
CDATA $24,$2A,$7F,$2A,$12,$00 '36 - $ - 24
CDATA $23,$13,$08,$64,$62,$00 '37 - % - 25
CDATA $36,$49,$55,$22,$50,$00 '38 - & - 26
CDATA $00,$05,$03,$00,$00,$00 '39 - ' - 27
CDATA $1C,$22,$41,$00,$00,$00 '40 - ( - 28
CDATA $00,$00,$41,$22,$1C,$00 '41 - ) - 29
CDATA $14,$08,$3E,$08,$14,$00 '42 - * - 2A
CDATA $08,$08,$3E,$08,$08,$00 '43 - + - 2B
CDATA $00,$50,$30,$00,$00,$00 '44 - , - 2C
CDATA $08,$08,$08,$08,$08,$00 '45 - - - 2D
CDATA $00,$60,$60,$00,$00,$00 '46 - . - 2E
CDATA $20,$10,$08,$04,$02,$00 '47 - / - 2F
CDATA $3E,$51,$49,$45,$3E,$00 '48 - 0 - 30
CDATA $00,$42,$7F,$40,$00,$00 '49 - 1 - 31
CDATA $42,$61,$51,$49,$46,$00 '50 - 2 - 32
CDATA $21,$41,$45,$4B,$31,$00 '51 - 3 - 33
CDATA $18,$14,$12,$7F,$10,$00 '52 - 4 - 34
CDATA $27,$45,$45,$45,$39,$00 '53 - 5 - 35
CDATA $3C,$4A,$49,$49,$30,$00 '54 - 6 - 36
CDATA $01,$71,$09,$05,$03,$00 '55 - 7 - 37
CDATA $36,$49,$49,$49,$36,$00 '56 - 8 - 38
CDATA $06,$49,$49,$49,$3E,$00 '57 - 9 - 39
CDATA $00,$36,$36,$00,$00,$00 '58 - : - 3A
CDATA $00,$56,$36,$00,$00,$00 '59 - ; - 3B
CDATA $08,$14,$22,$41,$00,$00 '60 - < - 3C
CDATA $14,$14,$14,$14,$14,$00 '61 - = - 3D
CDATA $00,$41,$22,$14,$08,$00 '62 - > - 3E
CDATA $02,$01,$51,$09,$06,$00 '63 - ? - 3F
CDATA $32,$49,$79,$41,$3E,$00 '64 - @ - 40
CDATA $7E,$11,$11,$11,$7E,$00 '65 - A - 41
CDATA $7F,$49,$49,$49,$36,$00 '66 - B - 42
CDATA $3E,$41,$41,$41,$22,$00 '67 - C - 43
CDATA $7F,$41,$41,$22,$1C,$00 '68 - D - 44
CDATA $7F,$49,$49,$49,$41,$00 '69 - E - 45
CDATA $7F,$09,$09,$09,$01,$00 '70 - F - 46
CDATA $3E,$41,$49,$49,$7A,$00 '71 - G - 47
CDATA $7F,$08,$08,$08,$7F,$00 '72 - H - 48
CDATA $00,$41,$7F,$41,$00,$00 '73 - I - 49
CDATA $20,$40,$41,$3F,$01,$00 '74 - J - 4A
CDATA $7F,$08,$14,$22,$41,$00 '75 - K - 4B
CDATA $7F,$40,$40,$40,$40,$00 '76 - L - 4C
CDATA $7F,$02,$0C,$02,$7F,$00 '77 - M - 4D
CDATA $7F,$04,$08,$10,$7F,$00 '78 - N - 4E
CDATA $3E,$41,$41,$41,$3E,$00 '79 - O - 4F
CDATA $7F,$09,$09,$09,$06,$00 '80 - P - 50
CDATA $3E,$41,$51,$21,$5E,$00 '81 - Q - 51
CDATA $7F,$09,$19,$29,$46,$00 '82 - R - 52
CDATA $46,$49,$49,$49,$31,$00 '83 - S - 53
CDATA $01,$01,$7F,$01,$01,$00 '84 - T - 54
CDATA $3F,$40,$40,$40,$3F,$00 '85 - U - 55
CDATA $1F,$20,$40,$20,$1F,$00 '86 - V - 56
CDATA $3F,$40,$38,$40,$3F,$00 '87 - W - 57
CDATA $63,$14,$08,$14,$63,$00 '88 - X - 58
CDATA $07,$08,$70,$08,$07,$00 '89 - Y - 59
CDATA $61,$51,$49,$45,$43,$00 '90 - Z - 5A
CDATA $7F,$41,$41,$00,$00,$00 '91 - [ - 5B
CDATA $02,$04,$08,$10,$20,$00 '92 - - 5C
CDATA $00,$00,$41,$41,$7F,$00 '93 - ] - 5D
CDATA $04,$02,$01,$02,$04,$00 '94 - ^ - 5E
CDATA $40,$40,$40,$40,$40,$00 '95 - _ - 5F
CDATA $00,$01,$02,$04,$00,$00 '96 - ` - 60
CDATA $20,$54,$54,$54,$78,$00 '97 - a - 61
CDATA $7F,$48,$44,$44,$38,$00 '98 - b - 62
CDATA $38,$44,$44,$44,$20,$00 '99 - c - 63
CDATA $38,$44,$44,$48,$7F,$00 '100 d - 64
CDATA $38,$54,$54,$54,$18,$00 '101 e - 65
CDATA $08,$7E,$09,$01,$02,$00 '102 f - 66
CDATA $0C,$52,$52,$52,$3E,$00 '103 g - 67
CDATA $7F,$08,$04,$04,$78,$00 '104 h - 68
CDATA $00,$44,$7D,$40,$00,$00 '105 i - 69
CDATA $00,$20,$40,$44,$3D,$00 '106 j - 6A
CDATA $7F,$10,$28,$44,$00,$00 '107 k - 6B
CDATA $00,$41,$7F,$40,$00,$00 '108 l - 6C
CDATA $7C,$04,$18,$04,$78,$00 '109 m - 6D
CDATA $7C,$08,$04,$04,$78,$00 '110 n - 6E
CDATA $38,$44,$44,$44,$38,$00 '111 o - 6F
CDATA $7C,$14,$14,$14,$08,$00 '112 p - 70
CDATA $08,$14,$14,$18,$7C,$00 '113 q - 71
CDATA $7C,$08,$04,$04,$08,$00 '114 r - 72
CDATA $48,$54,$54,$54,$20,$00 '115 s - 73
CDATA $04,$3F,$44,$40,$20,$00 '116 t - 74
CDATA $3C,$40,$40,$20,$7C,$00 '117 u - 75
CDATA $1C,$20,$40,$20,$1C,$00 '118 v - 76
CDATA $3C,$40,$30,$40,$3C,$00 '119 w - 77
CDATA $44,$28,$10,$28,$44,$00 '120 x - 78
CDATA $0C,$50,$50,$50,$3C,$00 '121 y - 79
CDATA $44,$64,$54,$4C,$44,$00 '122 z - 7A
CDATA $08,$36,$41,$00,$00,$00 '123 { - 7B
CDATA $00,$00,$7F,$00,$00,$00 '124 | - 7C
CDATA $00,$00,$41,$36,$08,$00 '125 } - 7D
CDATA $00,$08,$04,$08,$04,$00 '126 ~ - 7E
END
|
en schema, normaal gebruik ik hetzelfde systeem als easypic.

|