SchemaTheek
 
Home Nieuws Forum Schema's Artikelen Magazine Downloads Links Shops Zoeken
 
Controle Paneel
Gebruikersnaam
Wachtwoord
  Onthoud mij
» Wachtwoord?
» Registreren
Site info
» Het Team
» Contact
» FAQ
» Leden
» Upload Archief
Stats
Totaal online: 13
13 gasten
0 leden:
Forum > Digitaal > touch screen defineren
[1] 2 »
CARDAN
Lid
Berichten: 215
Gepost op maandag 30 December 2013 18:14:04 QuoteWijzig

Hoi iede dereen voor allen een goeie gezondheid toegewenst
in 2014 en veel electronica projecten

ik ben niet de laatste maanden actief geweest in de electronica en op deze site mijn excuses daarvoor. ik kamp ook wat met de gezondheid en ben continue bezig met dvbs streamen en amplis op hogere frequentie

onlangs heb ik men easypic 6 uit de kast genomen en zitten spelen met fonts enz dat lukt aardig en goed heb ook touch screen maar heb al zitten googlen voor wat te maken met b.v 2 drukknoppen op het scherm deze drukknoppen maken geen probleem maar dan de ports en hoe gaan uitlezen voor x y pfff amaiii als ik nu b.v 2 leds zou kunnen laten aangaan met op 2 buttons te duwen op men glcd dan ben ik al een stap verder en tevreden ik zou een 16f877a gebruiken of hogere later de glcd word een 128*64 wie kan mij wat op hang brengen echt veel picbasic examples zie ik niet op het net waar ik kan uitleren grtzzzz vanuit de kust den alain
reddevil
Lid
Berichten: 1271
Gepost op maandag 30 December 2013 19:22:01 QuoteWijzig

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.



Veel te weinig tijd voor mijn projecten of heb ik er soms te veel?
CARDAN
Lid
Berichten: 215
Gepost op maandag 30 December 2013 19:44:46 QuoteWijzig

even bekijken alvast thks reddevil !!! hou jullie op de hoogte

CARDAN
Lid
Berichten: 215
Gepost op vrijdag 3 Januari 2014 17:06:20 QuoteWijzig

even gekeken naar de fuses in18f4550 maar blijkbaar werkt men code niet met deze pic op men glcd zelfs niet met wat te zitten testen enz wat doe ik verkeerd ???? ik zie de bomen niet door het bos wel werkte deze code des tijds met een 16f887 op men board??? help help hih bedankt alvast moet in de congis of tris zitten of mischien commandos die ik gewoon vergeet

CARDAN
Lid
Berichten: 215
Gepost op vrijdag 3 Januari 2014 17:07:31 QuoteWijzig


 
[Bericht gewijzigd door CARDAN op Zaterdag 4 Januari 2014 08:22:06]

Stynus
Admin
Berichten: 2854
Gepost op vrijdag 3 Januari 2014 18:20:39 QuoteWijzig

Probeer eens eerst een knipperledje, dan weet je zeker dat de pic goed draait. Verder moet bij xtal als je een pll gebruikt de werkelijke instructiesnelheid komen, niet de kristalfrequentie.


Met vriendelijke groet, Stynus ||| www.elektronicastynus.be
CARDAN
Lid
Berichten: 215
Gepost op zaterdag 4 Januari 2014 08:20:55 QuoteWijzig

[quote=CARDAN]hier de listing programma moet zelfs nog niet werken maaral die fuses daar word ik een beetje zot van



Device = 18F4550
XTAL 4
CONFIG_START
PLLDIV = 1 ;No prescale (4 MHz oscillator input drives PLL directly)
CPUDIV = OSC1_PLL2 ;[Primary Oscillator Src: /1][96 MHz PLL Src: /2]
USBDIV = 1 ;USB clock source comes directly from the primary oscillator block with no postscale
FOSC = XT_XT ;XT oscillator (XT)
FCMEN = OFF ;Fail-Safe Clock Monitor disabled
IESO = OFF ;Oscillator Switchover mode disabled
PWRT = On ;PWRT enabled
BOR = On ;Brown-out Reset enabled in hardware only (SBOREN is disabled)
BORV = 3 ;Minimum setting
VREGEN = OFF ;USB voltage regulator disabled
WDT = OFF ;WDT disabled (control is placed on the SWDTEN bit)
WDTPS = 32768 ;1:32768
CCP2MX = On ;CCP2 input/output is multiplexed with RC1
PBADEN = OFF ;PORTB<4:0> pins are configured as digital I/O on Reset
LPT1OSC = OFF ;Timer1 configured for higher power operation
MCLRE = On ;MCLR pin enabled; RE3 input pin disabled
STVREN = On ;Stack full/underflow will cause Reset
LVP = OFF ;Single-Supply ICSP disabled
ICPRT = OFF ;ICPORT disabled
XINST = OFF ;Instruction set extension and Indexed Addressing mode disabled (Legacy mode)
Debug = OFF ;Background debugger disabled, RB6 and RB7 configured as general purpose I/O pins
CP0 = OFF ;Block 0 (000800-001FFFh) is not code-protected
CP1 = OFF ;Block 1 (002000-003FFFh) is not code-protected
CP2 = OFF ;Block 2 (004000-005FFFh) is not code-protected
CP3 = OFF ;Block 3 (006000-007FFFh) is not code-protected
CPB = OFF ;Boot block (000000-0007FFh) is not code-protected
CPD = OFF ;Data EEPROM is not code-protected
WRT0 = OFF ;Block 0 (000800-001FFFh) is not write-protected
WRT1 = OFF ;Block 1 (002000-003FFFh) is not write-protected
WRT2 = OFF ;Block 2 (004000-005FFFh) is not write-protected
WRT3 = OFF ;Block 3 (006000-007FFFh) is not write-protected
WRTC = OFF ;Configuration registers (300000-3000FFh) are not write-protected
WRTB = OFF ;Boot block (000000-0007FFh) is not write-protected
WRTD = OFF ;Data EEPROM is not write-protected
EBTR0 = OFF ;Block 0 (000800-001FFFh) is not protected from table reads executed in other blocks
EBTR1 = OFF ;Block 1 (002000-003FFFh) is not protected from table reads executed in other blocks
EBTR2 = OFF ;Block 2 (004000-005FFFh) is not protected from table reads executed in other blocks
EBTR3 = OFF ;Block 3 (006000-007FFFh) is not protected from table reads executed in other blocks
EBTRB = OFF ;Boot block (000000-0007FFh) is not protected from table reads executed in other blocks
CONFIG_END

oeppppssss was verkeerde file die gepost stond

CARDAN
Lid
Berichten: 215
Gepost op zaterdag 4 Januari 2014 08:25:14 QuoteWijzig

heb eens via een 18f4550 en enkele fuses een led laten blinken en dat lukt maar doe ik het met enkele dan gaat het niet denk i/o poorten die moeten gedifineerd worden den 18f4550 is nieuw voor mij en al die instellingen hihihi ff op het net verder zoeken

Stynus
Admin
Berichten: 2854
Gepost op zaterdag 4 Januari 2014 13:29:04 QuoteWijzig

heb je "All_digital = true" wel opstaan?


Met vriendelijke groet, Stynus ||| www.elektronicastynus.be
CARDAN
Lid
Berichten: 215
Gepost op dinsdag 14 Januari 2014 22:37:56 QuoteWijzig

na veel zoekwerk lag het aan de compiler zo te zien en aan de ouwe versie tja alles is mogelijk heb nu eens in men lcd progie de volgende lcd 4*40 aangesloten type

Used on the L40x4 (4x40)
Optrex - DMC-40457

alleen heeft deze 2 e ingangen dus e1 en e2 zitten testen en alles lukt op de gewone e1 dis 2* 40 regels zet ik nu de e2 erbij dan heb ik 4 regels met dezelfde tekst

hoe kun je in picbasic gaan zeggen b.v e1 standaard in lcd protocol op rb5 en dan zou ik willen de 3 e4 rij erachter gaan aansturen en maken dat rb56 dan is uitgeschakeld of werkt het helemaal anders in je lcde pin settings heb je maar 1 keer de e pin dat je kunt configuren lukt me dat zou prachtig zijn

easypic6 bord en pic 16f887 erop en dat werkt op 2 of 4 regels met dezelfde tekst

alvast bedankt voor de tips grtzz Alain

reddevil
Lid
Berichten: 1271
Gepost op woensdag 15 Januari 2014 18:36:44 QuoteWijzig

Precies zelfde probleem als hier. http://www.schematheek.net/index.php?p=forum/topic&t=884&n=2#8641

Met een extra ic is het op te lossen.


Veel te weinig tijd voor mijn projecten of heb ik er soms te veel?
frans1977
Lid
Berichten: 110
Gepost op woensdag 15 Januari 2014 20:06:26 QuoteWijzig

@CARDAN,

Zoals Reddevil aan gaf en me net voor is.
Kan dit qua enable lijnen opgelost worden met een extra ic.
Namelijk de 74HC08 dit zijn AND poorten.

Ik heb de pin bezetting gebruitk net zoals uit dit topic op CO.
http://www.circuitsonline.net/forum/view/89407 zie schema aan de linkerzijde.

Qua code heb ik dit gemaakt en Reddevil heeft de code wat aangepast zodat het werkte nogmaals mijn dank Reddevil.

Met de code wil ik laten zien wat de definitie is van de poorten
voor een 16F628A in mij schema.

DEVICE 16F628A ;gebruik een 16F628A type
CONFIG INTRC_OSC_NOCLKOUT, WDT_OFF, PWRTE_ON, LVP_OFF, MCLRE_OFF
ALL_DIGITAL TRUE ;Alle ingangen digitaal

SYMBOL EN1 = PORTB.1 ;Uitgang voor LCD Enable 1
SYMBOL EN2 = PORTB.2 ;Uitgang voor LCD Enable 2
DECLARE LCD_ENPIN PORTA.2
DECLARE LCD_RSPIN PORTA.3

DELAYMS 500 ;Initialisatie display
HIGH EN1 ;Enable 1 sturen
HIGH EN2 ;Enable 2 sturen
CLS ;Display wissen
Opnieuw:
DELAYMS 1000 ;1000 milliseconden = 1 seconde
GOSUB Eerste
PRINT AT 1, 1, "Dit is een test." ;Zet tekst op regel 1
DELAYMS 1000 ;1000 milliseconde = 1 seconde
PRINT AT 2, 1, "Dit is een test." ;Zet tekst op regel 2
DELAYMS 1000 ;1000 milliseconde = 1 seconde

GOSUB Derde

PRINT AT 1, 1, "Dit is een test." ;Zet tekst op regel 3
DELAYMS 1000 ;1000 milliseconde = 1 seconde
PRINT AT 2, 1, "Dit is een test." ;Zet tekst op regel 4
DELAYMS 1000 ;1000 milliseconden = 3 seconde

GOTO Opnieuw

Eerste:
HIGH EN1 ;Geef regel 1 en 2 vrij van het LCD display
LOW EN2 ;Blokeer regel 3 en 4 van het LCD display
RETURN

Derde:
LOW EN1 ;Blokeer regel 1 en 2 van het LCD display
HIGH EN2 ;Geef regel 3 en 4 vrij van het LCD display
RETURN

END

Suc6 met het uitwerken.

Mvg,

Frans1977

CARDAN
Lid
Berichten: 215
Gepost op woensdag 15 Januari 2014 20:33:41 QuoteWijzig

hey Frans weer een tijdje geleden ik had ook gedacht met een 4016 te sturen want de hd44... zijn parralel aan elkaar alleen moet je als je wilt schrijven op regel 3 4 de 1e e afleggen want anders staat het gewoon op 4 regels dat heb ik allemaal geprobeert ik bekijk het eens de volgende dagen en zet het dan op het net jammer dat ik momenteel geen fotos kan uploaden


nu weer bezig met een 16f887 en touch screen maar de fusues en al die instellingen tja das wat anders al dagen mee bezig maar heef de moet niet op alles werkt met een 877a maar 887 das wat anders om dan niet van de 18f4550 te spreken bnrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr vele grtzz en thks alain

CARDAN
Lid
Berichten: 215
Gepost op zaterdag 25 Januari 2014 13:07:22 QuoteWijzig

hallo mensen na wat speurwerk ben ik erin geslaagd grafisch een en ander met touchscreen te bouwen dank aan reddevil om de code die ik in stukjes heb gedaan en eventjes in mijn progie heb gelast om te kijken hoe alles werkt ik maak toetsen en pijltjes met pprint mode kan je mooi defineren en trek de lijnen ook grafisch via paint en dan omzetten naar bmp momocrhoom hier de listing en even kijken voor een foto ook van het systeem groetjes en dank je redddevil zo weet ik nu ook hoe je kan possities op je glcd scherm kan zoeken enz de cijfers zijn niet gewoone fonts maar wel zer mooie digitale cijfers zoals een horloge of andere groetjes alain

MOD EDIT: Stynus
Cardan, de code die je hier gepost had was wat groot voor het forum. Daarom heb ik hem hier verwijderd en als apart bestand ge-upload.
Dit bestand is hier te vinden: http://schematheek.net/Leden/CARDAN/Cardan_code_25_01_2014.htm

Verder heb ik je plaatjes uit je volgende posts hier ook bijgezet:


 
[Bericht gewijzigd door Stynus op Zaterdag 25 Januari 2014 15:54:52]

reddevil
Lid
Berichten: 1271
Gepost op zaterdag 25 Januari 2014 19:58:06 QuoteWijzig

Fijn dat het je gelukt is. Die andere karakters ga ik dan wel eens een keer terug lenen van je. Binnenkort ga je iets nieuw zien met zo een scherm en bewegende plaatjes.


Veel te weinig tijd voor mijn projecten of heb ik er soms te veel?
CARDAN
Lid
Berichten: 215
Gepost op zondag 26 Januari 2014 10:25:00 QuoteWijzig

heb nog dezelfde glcd daar word alles 2 maal de helft geprojecteerd en bij de ouwe groene zonder touchscreen is alles errond zwart eigenaardig???

reddevil
ik gebruik de fonts van windows zelf en ga ze dan gaan ophalen met glcd mate die ik converteer naar data in het programma

CARDAN
Lid
Berichten: 215
Gepost op zondag 26 Januari 2014 14:49:32 QuoteWijzig

zelfs de pijltjes maak ik in een font dan neem je b.v de letter A voor pijltje naar boven de letter B voor pijltje inverse enz enz zo kan je veel buttons creeren in een font even kijken voor een afbeelding



zo bedoel ik je kunt alle kanten op


voor echte grote buttons neem je dan b.v font van 14 zolas in mijn systeem veel succes de alain
 
[Bericht gewijzigd door CARDAN op Zondag 26 Januari 2014 14:51:15]

CARDAN
Lid
Berichten: 215
Gepost op donderdag 30 Januari 2014 21:58:48 QuoteWijzig

hallo iedereen mijn glcd en touchscreen knoppen en memorie frequentie veranderingen werken perfect maar met de ouwde i2c commandos (des tijds 16f877) gebeurt er niet veel nu in mijn 18f4550 zijn de commandos zo anders of zijn de instructies anders voor de 18f4550 ik zou graag op porta 1 en 2 of andere zeker niet de porta0 1 en ook niet de ports b0 1 2 3 4 de portc heb ik staan voor output maar er gebeurt ook bitter weinig mijn zender wil niet locken en op men displ komt er pll fout dus unlock wie ziet er wat in groetjes alain of cardan

CARDAN
Lid
Berichten: 215
Gepost op zaterdag 1 Februari 2014 08:10:11 QuoteWijzig

hoi heren des schematheek!!!!

ik heb zitten klooien met i2c in de 18f4550 maar zonder resultaat in mijn vroegere 877a listing werkte het perfect heb zitten lezen en veranderen maar zonder resultaat ze spreken zelfs van i2cout te veranderen naar busout of hbusout maar alles zonder resultaat weet iemand daar raad mee?????? ook voor de poorten te defineren want dat lukt moeilijk zo te zien

Stynus
Admin
Berichten: 2854
Gepost op zaterdag 1 Februari 2014 11:53:44 QuoteWijzig

Kan je de code eens posten?


Met vriendelijke groet, Stynus ||| www.elektronicastynus.be
CARDAN
Lid
Berichten: 215
Gepost op zaterdag 1 Februari 2014 13:32:24 QuoteWijzig

stynus

de file staat op het schematheek download die ik je stuurde heb er uren aan besteed maar zonder resultaat de pic is een 16f4550
vele groetjes alain

[1] 2 »

Active Topics

» ? => Mini kerstlan...
» ATSAMD21J18A-AU backupen
» De gevolgen van een kl...
» De tuin.
» Afstandsbediening plaf...
» Virtual Chemist probleem
» Probleem met Toyota Av...
» Whirlpool kookplaat
» 24 volt motor vertrage...
» Show je mini projecten

» Meer actieve topics

Advertenties

ElektronicaStynus

© 2004-2022 SchemaTheek
Laadtijd: 0.27579 sec.