GLCD 320x240 projesi kodlari....

bkrtncr · 09 Aralık 2005, 02:03:55

arkadaslar yaklasik 1ay oncesi elimdeki 320*240 glcd de birseyler yapmaya baslamistim...
elimdeki ekranin ozellikleri:
chipset : sed1335 controller,
boyut : 320x240 pixel,
Marka : Winstar....

ekranda yazi ve resim gosteren kodlari vereyim istedim...
gerci cok specific bir proje ama belki ilgilenen bir arkadas olursa kaynak olrak kullanabilir...
program icerisinde cok aciklama yapmadim ama isimlerden ve ilgilenen arkadaslar biraz kafa yorarlarsa, nasil bir isleyis oldugunu anlayacaklardir..

programda once 4-5 satir yazi yaziyor ve ekranin etrafina cerceve ciziyor.. biraz bekledikten sonra ekranda bir LOGO cikiyor ve program bitiyor...

kodlar asagida.... herhangi bir sorunuz olursa yardimci olmaya calisirim...

'****************************************************************
'*  Name    : MYGLCD2.BAS                                        *
'*  Author  : [Bekir Tuncer]                                    *
'*  Notice  : Copyright (c) 2005 [bkr_tncr]                     *
'*          : All Rights Reserved                               *
'*  Date    : 20.11.2005                                        *
'*  Version : 1.0                                               *
'*  Notes   : 320x240 glcd with SED1335                         *
'****************************************************************

TRISA   = 255
TRISB   = 0
TRISD   = 0
TRISC.7 = 0

'---------------------------------
@ DEVICE PIC16F877
@ DEVICE PIC16F877, WDT_ON
@ DEVICE PIC16F877, PWRT_ON
@ DEVICE PIC16F877, PROTECT_OFF
@ DEVICE PIC16F877, XT_OSC
'----------------------------------
                    
'clear all variables
clear

DEFINE  OSC 4			'OSC speed, you may have to tweak the 'strobe'
				        'routine's e_pause constant for other speeds
ADCON1	= 7			    'Make all pins digital, you may adjust as needed

'****************************
'Variable assignments
gl_dat      var PORTB          
gl_a0       var PORTD.6 
gl_rd       var PORTD.7         
gl_wr       var PORTD.5       
gl_cs       var PORTC.7      
gl_rst      var PORTD.4        
gl_tris     var TRISB   

gl_cs   = 0

'***********************************************************
SYS_SET		     con	$40
SYS_SCROLL	     con	$44
SYS_CUR_ADDR     con	$46
SYS_MWRITE	     con	$42
SYS_CUR_DIR_RT	 con	$4c
SYS_CUR_DIR_DN	 con	$4f

LCD_NORMAL  con $00
LCD_L1		con	$00	'Line 1
LCD_L2		con	$28	'Line 2
LCD_L3		con	$50	'Line 3
LCD_L4		con	$78	'Line 4
LCD_L5		con	$A0	'Line 5
LCD_L6		con	$C8	'Line 6
LCD_L7		con	$F0	'Line 7
LCD_L8		con	$118	'Line 8
LCD_L9		con	$140	'Line 9
LCD_L10		con	$168	'Line 10
LCD_L11		con	$190	'Line 11
LCD_L12		con	$1B8	'Line 12
LCD_L13		con	$1E0	'Line 13
LCD_L14		con	$208	'Line 14
LCD_L15		con	$230	'Line 15
LCD_L16		con	$258	'Line 16
LCD_GRH		con	$0960   'Graphic home position

'General Variables used
gl_cmd		var	BYTE
gl_cur      var BYTE
gl_byte		var	BYTE
gl_i		var	BYTE
gl_j		var BYTE
gl_x		var	WORD
gl_y		var	WORD
gl_addr		var	WORD
'***********************************************************

START:
    gl_rst = 0
    pause 5
    gl_rst	= 1		'Make sure reset is high
    pause 5
    
    
goto main		    'Jump over subroutines

'========== SUBROUTINES ============

send_dat:
    gl_wr   = 0
    gl_a0	= 0
    gl_rd   = 1
	gl_dat	= gl_byte
    gl_rd   = 0
	return

send_cmd:
    gl_wr   = 0 
    gl_a0	= 1
    gl_rd   = 1
	gl_dat 	= gl_cmd
    gl_rd   = 0
    return

'========= GLCD INITILIZING =========
gl_init:
   'Setup LCD
	gl_cmd = SYS_SET
	gosub send_cmd
	for gl_i = 0 to 7     'P1  P2  P3  P4  P5  P6  P7 P8
		lookup gl_i,[$34,$87,$0F,$27,$42,$EF,$28,$0],gl_byte
		gosub send_dat
	next gl_i

	'scroll
	gl_cmd = SYS_SCROLL
	gosub send_cmd
	for gl_i = 0 to 8
		lookup gl_i,[$0,$0,$EF,$60,$09,$EF,$0,$0,$0],gl_byte
		gosub send_dat
	next gl_i
	
    'Hdot
	gl_cmd = $5A
	gosub send_cmd
	gl_byte =$00
	gosub send_dat

	'Overlay
	gl_cmd = $5B
	gosub send_cmd
	gl_byte = $01    
	gosub send_dat
	
    'DISP OFF
	gl_cmd = $58
	gosub send_cmd
	gl_byte = $04    
	gosub send_dat
	
	gl_cmd = SYS_CUR_ADDR
	gosub send_cmd
	gl_byte = $0
	gosub send_dat
	gl_byte = $0
	gosub send_dat	
	
	'Clear Graphic screen
	gosub gl_grfclr	

	'Clear Text screen
	gosub gl_txtclr
	
    'CSRW set cursor home
	gl_cmd = SYS_CUR_ADDR
	gosub send_cmd
	gl_byte = $0
	gosub send_dat
	gl_byte = $0
	gosub send_dat
	
    gl_cmd = $4C
	gosub send_cmd
	gl_byte = $42
	gosub send_dat
	gl_byte = $0
	gosub send_dat
	
    'CSR FORM
	gl_cmd = $5D
	gosub send_cmd
	gl_byte = $0F
	gosub send_dat
	gl_byte = $87
	gosub send_dat
	
	'CSR DIR
	gl_cmd = $4C
	gosub send_cmd

   	'DISP ON
	gl_cmd = $59
	gosub send_cmd
	gl_byte = $14
	gosub send_dat	
    
return

'=========================================
'Clear Text Screen
gl_txtclr:
	gl_cmd = SYS_CUR_ADDR	  'CSRW command
	gosub send_cmd
	gl_byte = $00
	gosub send_dat
	gl_byte = $00
	gosub send_dat
	
    gl_cmd = $42
	gosub send_cmd
    
    gl_byte = LCD_NORMAL
	for gl_i = 1 to 240
	   for gl_j = 1 to 40
		gosub send_dat
	   next gl_j
	next gl_i
	
return


'Clear Graphic screen
gl_grfclr:
	gl_cmd = SYS_CUR_ADDR	'CSRW command
	gosub send_cmd
	gl_byte = $60
	gosub send_dat
	gl_byte = $09
	gosub send_dat
	
	gl_cmd = $42
	gosub send_cmd
	
	for gl_i = 1 to 240
	   for gl_j = 1 to 40
		gl_byte = $00	
		gosub send_dat
	   next gl_j
	next gl_i

return

gl_setaddr:
	'CSRW set cursor home
	gl_cmd = SYS_CUR_ADDR       'Address command
	gosub send_cmd
	gl_byte = gl_addr.BYTE0     'text memory starts at $0 and graphics at $0960
	gosub send_dat
	gl_byte = gl_addr.BYTE1
	gosub send_dat
	gl_cmd = gl_cur	            'Set cursor movement to left,right,up or down
	gosub send_cmd
return

'End of subroutines

'============================================
'             BEGIN MAIN PROGRAM 
'============================================

main:
	gosub gl_init		'Initialize display
	
	GOSUB gl_grfclr
	gosub gl_txtclr
	
        GOSUB MSJ1
	PAUSE 2000
	GOSUB BORDERS
	PAUSE 3000
	
	GOSUB gl_grfclr
	gosub gl_txtclr
	gosub LOGO
	pause 2000
	gosub BORDERS
	
	goto  FINISH
	
'==================================================
'==================================================
'==================================================
'==================================================
	
MSJ1:
    gl_addr = LCD_L2 + 9    'Line 6 and 9 bytes to right
	gl_cur  = SYS_CUR_DIR_RT
	gosub gl_setaddr	
	'MWRITE
	gl_cmd =SYS_MWRITE
	gosub send_cmd
	for gl_i = 0 to 21
		lookup gl_i,["PIC Controlled SED1335"],gl_byte
		gosub send_dat
	next gl_i
	
	gl_addr = LCD_L4 +  10    
	gl_cur  = SYS_CUR_DIR_RT
	gosub gl_setaddr	
	'MWRITE
	gl_cmd =SYS_MWRITE
	gosub send_cmd
	for gl_i = 0 to 18
		lookup gl_i,["320X240 Graphic LCD"],gl_byte
		gosub send_dat
	next gl_i

	gl_addr = LCD_L6 + 7     
	gl_cur  = SYS_CUR_DIR_RT
	gosub gl_setaddr
   	'MWRITE
	gl_cmd =SYS_MWRITE
	gosub send_cmd
	for gl_i = 0 to 26
		lookup gl_i,["Using PicBasicPro Ver. 2.46"],gl_byte
		gosub send_dat
	next gl_i	

	gl_addr = LCD_L10 +  14    
	gl_cur  = SYS_CUR_DIR_RT
	gosub gl_setaddr
   	'MWRITE
	gl_cmd =SYS_MWRITE
	gosub send_cmd
	for gl_i = 0 to 11
		lookup gl_i,["BEKIR TUNCER"],gl_byte
		gosub send_dat
	next gl_i

	
'================BORDERS================	

BORDERS:	
'Left vert Line
	gl_addr = LCD_GRH + 0 	      'Graphic home position $0960
	gl_cur  = SYS_CUR_DIR_DN      'Cur movement to right
	gosub gl_setaddr
    
    'MWRITE
	gl_cmd =SYS_MWRITE
	gosub send_cmd
	gl_byte = %11111111	'Bit 7 set
    for gl_i = 0 to 239		
		gosub send_dat
	next gl_i


'Right vert Line
	gl_addr = LCD_GRH + 39 	      'Graphic home position 
	gl_cur  = SYS_CUR_DIR_DN      'Cur movement to right
	gosub gl_setaddr

	'MWRITE
	gl_cmd =SYS_MWRITE
	gosub send_cmd
	gl_byte = %11111111	'Bit 0 set

	for gl_i = 0 to 239		
		gosub send_dat
	next gl_i
	

'Top Line
	gl_addr = LCD_GRH + 0 	      'Graphic home position $0960
	gl_cur  = SYS_CUR_DIR_RT      'Cur movement to right
	gosub gl_setaddr

	'MWRITE
	gl_cmd =SYS_MWRITE
	gosub send_cmd
	gl_byte = %11111111		'All bits set

	for gl_i = 0 to 39		
		gosub send_dat
	next gl_i

    
'Bottom Line
	gl_addr  = LCD_GRH + $2558  'Set bottom right addr
	gl_cur  = SYS_CUR_DIR_RT    'Cur movement to left
	gosub gl_setaddr

	'MWRITE
	gl_cmd =SYS_MWRITE
	gosub send_cmd
	gl_byte = %11111111		'All bits set

	for gl_i = 0 to 39		
		gosub send_dat
	next gl_i
	
    RETURN
    
'================== LOGO ========================

LOGO:        
'1        
        gl_addr = LCD_GRH + 2026  	   
        gl_cur  = SYS_CUR_DIR_DN                   
	    gosub gl_setaddr

	   'MWRITE
	   gl_cmd =SYS_MWRITE
	   gosub send_cmd
	   for gl_x = 0 to 134
        lookup gl_x,[$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$80,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$E0,$F0,$30,$30,$80,$E0,$70,$30,$30,$F0,$E0,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$3E,$FE,$FE,$C0,$80,$80,$80,$80,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$C0,$C0,$80],gl_byte
        gosub send_dat
       next gl_x
  
'2       
        gl_addr = LCD_GRH + 2025  	   
        gl_cur  = SYS_CUR_DIR_DN                  
	    gosub gl_setaddr

	   'MWRITE
	   gl_cmd =SYS_MWRITE
	   gosub send_cmd
	   for gl_x = 0 to 136
        lookup gl_x,[$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$80,$C0,$C0,$E0,$F0,$F0,$F0,$F8,$FC,$FC,$FC,$FE,$FE,$FE,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FE,$FE,$FE,$FC,$FC,$F8,$F8,$F0,$F0,$E0,$C0,$C0,$80,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$C3,$E7,$76,$26,$07,$03,$00,$26,$76,$E7,$C3,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$01,$03,$07,$07,$07,$0F,$0F,$0F,$0F,$1F,$1E,$1E,$1E,$3E,$3C,$3C,$3C,$78,$79,$7F,$7E,$78],gl_byte
        gosub send_dat
       next gl_x
  
'3  
        gl_addr = LCD_GRH + 2024  	   
        gl_cur  = SYS_CUR_DIR_DN                   
	    gosub gl_setaddr

	   'MWRITE
	   gl_cmd =SYS_MWRITE
	   gosub send_cmd
	   for gl_x = 0 to 136
        lookup gl_x,[$00,$00,$00,$00,$00,$00,$00,$00,$80,$C0,$E0,$F0,$F8,$FC,$FE,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$7F,$7F,$7F,$7F,$7E,$7D,$F1,$E7,$CF,$1F,$7F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FE,$FE,$FC,$FC,$F0,$E0,$E0,$80,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$C3,$C7,$C6,$CC,$CC,$CC,$CC,$CC,$C6,$C7,$C3,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$3E,$EF,$CF,$8F,$9E,$BC,$F0,$80,$00,$06,$1C,$F8,$F0,$C0],gl_byte
        gosub send_dat
       next gl_x
  
'4  
        gl_addr = LCD_GRH + 2023  	   
        gl_cur  = SYS_CUR_DIR_DN                   
	    gosub gl_setaddr

	   'MWRITE
	   gl_cmd =SYS_MWRITE
	   gosub send_cmd
	   for gl_x = 0 to 136
        lookup gl_x,[$00,$00,$00,$00,$C0,$F0,$F8,$FE,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$83,$01,$00,$00,$78,$7C,$FC,$FC,$FC,$FC,$FC,$F8,$F8,$F8,$F1,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FE,$FC,$F8,$E0,$80,$00,$00,$00,$00,$00,$8C,$CC,$CC,$CC,$EC,$AC,$BC,$BC,$9C,$9C,$8C,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$F0,$F0,$60,$60,$60,$60,$00,$00,$01,$01,$03,$07,$07,$87,$8F,$8F,$8F,$8F,$0F,$07],gl_byte
        gosub send_dat
       next gl_x
  
'5
       gl_addr = LCD_GRH + 2022  	   
        gl_cur  = SYS_CUR_DIR_DN                   
	    gosub gl_setaddr

	   'MWRITE
	   gl_cmd =SYS_MWRITE
	   gosub send_cmd
	   for gl_x = 0 to 139
        lookup gl_x,[$00,$C0,$F8,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FE,$FC,$F3,$E7,$CF,$1F,$7F,$7F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FE,$F0,$00,$00,$00,$E1,$F1,$39,$19,$19,$19,$19,$19,$31,$F1,$E1,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0F,$3C,$70,$E0,$E0,$E0,$E0,$F0,$F0,$F8,$7C,$3E,$1F,$0F,$0F,$07,$07,$07,$07,$0F,$1E,$38,$E0],gl_byte
        gosub send_dat
       next gl_x

'6
       gl_addr = LCD_GRH + 2021  	   
        gl_cur  = SYS_CUR_DIR_DN                  
	    gosub gl_setaddr

	   'MWRITE
	   gl_cmd =SYS_MWRITE
	   gosub send_cmd
	   for gl_x = 0 to 139
        lookup gl_x,[$FC,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$7F,$FF,$FF,$FF,$FC,$F8,$F8,$F0,$E0,$C8,$98,$3C,$7F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FE,$F0,$00,$C1,$E3,$63,$66,$E6,$C6,$C6,$66,$63,$63,$31,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$01,$01,$01,$01,$01,$00,$00,$00,$00,$00,$00,$00,$00,$78,$78,$78,$3C,$3C,$0F],gl_byte
        gosub send_dat
       next gl_x

'7
       gl_addr = LCD_GRH + 2020  	  
        gl_cur  = SYS_CUR_DIR_DN                   
	    gosub gl_setaddr

	   'MWRITE
	   gl_cmd =SYS_MWRITE
	   gosub send_cmd
	   for gl_x = 0 to 134
        lookup gl_x,[$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FE,$FC,$F9,$F1,$E1,$C1,$81,$01,$61,$E1,$E1,$E1,$F0,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$7F,$00,$EF,$EF,$0C,$0C,$0F,$0F,$0C,$0C,$0C,$0C,$0C,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$3E,$FE,$FE,$C0,$80,$80,$80,$80,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$C0,$C0,$80],gl_byte
        gosub send_dat
       next gl_x

'8
       gl_addr = LCD_GRH + 2019  	   
        gl_cur  = SYS_CUR_DIR_DN                  
	    gosub gl_setaddr

	   'MWRITE
	   gl_cmd =SYS_MWRITE
	   gosub send_cmd
	   for gl_x = 0 to 136
        lookup gl_x,[$00,$0F,$3F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FD,$F9,$F9,$F9,$F1,$F1,$F1,$E3,$E3,$E3,$E3,$E3,$E3,$E3,$E3,$E3,$E3,$E3,$C3,$C7,$C7,$C7,$C7,$C7,$C4,$81,$8B,$8F,$1F,$1F,$1F,$3F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$3F,$07,$00,$00,$9F,$DF,$E3,$43,$03,$03,$03,$43,$E3,$C3,$83,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$C1,$C3,$87,$07,$07,$0F,$0F,$0F,$0F,$1F,$1E,$1E,$1E,$3E,$3C,$3C,$3C,$78,$F9,$7F,$7E,$78],gl_byte
        gosub send_dat
       next gl_x

'9
       gl_addr = LCD_GRH + 2018  	  
        gl_cur  = SYS_CUR_DIR_DN                   
	    gosub gl_setaddr

	   'MWRITE
	   gl_cmd =SYS_MWRITE
	   gosub send_cmd
	   for gl_x = 0 to 136
        lookup gl_x,[$00,$00,$00,$01,$0F,$1F,$7F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$7F,$7F,$7F,$7F,$7F,$7F,$7F,$7F,$7F,$7F,$3F,$3F,$1F,$1F,$1F,$0F,$0F,$0F,$8F,$C7,$C7,$C3,$E3,$E3,$F1,$F0,$F0,$F8,$FC,$FC,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$3F,$0F,$03,$00,$00,$00,$00,$00,$87,$8F,$0C,$18,$98,$98,$18,$18,$0C,$8F,$87,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$01,$F3,$F3,$00,$00,$00,$00,$00,$0F,$3F,$7F,$EF,$1E,$1E,$1E,$3C,$3C,$3C,$7D,$7F,$7E,$78],gl_byte
        gosub send_dat
       next gl_x

'10
       gl_addr = LCD_GRH + 2017  	   
        gl_cur  = SYS_CUR_DIR_DN                   
	    gosub gl_setaddr

	   'MWRITE
	   gl_cmd =SYS_MWRITE
	   gosub send_cmd
	   for gl_x = 0 to 137
        lookup gl_x,[$00,$00,$00,$00,$00,$00,$00,$01,$03,$07,$0F,$1F,$3F,$7F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$E0,$E0,$E0,$E0,$E0,$E0,$C0,$C0,$C0,$C6,$C6,$C6,$87,$8F,$8F,$8F,$9F,$1F,$1F,$1F,$1F,$3F,$3F,$3F,$7F,$7F,$7F,$7F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$7F,$3F,$1F,$0F,$07,$03,$01,$00,$00,$00,$00,$00,$00,$00,$00,$3F,$3F,$30,$30,$3F,$3F,$30,$30,$30,$BF,$BF,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$01,$07,$0E,$0C,$18,$18,$18,$30,$30,$30,$60,$60,$60,$60,$C0,$C0,$C0,$C0,$80,$80,$80,$80],gl_byte
        gosub send_dat
       next gl_x

'11
       gl_addr = LCD_GRH + 2016  	  
        gl_cur  = SYS_CUR_DIR_DN                   
	    gosub gl_setaddr

	   'MWRITE
	   gl_cmd =SYS_MWRITE
	   gosub send_cmd
	   for gl_x = 0 to 137
        lookup gl_x,[$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$01,$03,$07,$0F,$0F,$1F,$3F,$3F,$3F,$7F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FE,$FE,$FE,$FC,$FC,$FC,$FF,$7F,$7F,$7F,$3F,$1F,$1F,$0F,$07,$07,$03,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$30,$30,$30,$30,$30,$30,$30,$30,$30,$3F,$3F,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$F0,$78,$F8,$F8,$F8,$FC,$FC,$DC,$9E,$9E,$9E,$8F,$0F,$0F,$0F,$07,$07,$07,$03,$03,$01],gl_byte
        gosub send_dat
       next gl_x

'12
       gl_addr = LCD_GRH + 2015  	  
        gl_cur  = SYS_CUR_DIR_DN                   
	    gosub gl_setaddr

	   'MWRITE
	   gl_cmd =SYS_MWRITE
	   gosub send_cmd
	   for gl_x = 0 to 138
        lookup gl_x,[$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$01,$01,$01,$03,$03,$03,$03,$07,$07,$07,$07,$07,$07,$07,$07,$07,$07,$07,$07,$07,$07,$07,$07,$07,$03,$03,$03,$03,$01,$01,$01,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$7F,$7F,$60,$60,$7F,$7F,$60,$60,$60,$7F,$7F,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$03,$1E,$38,$70,$60,$E0,$E0,$E1,$F1,$71,$01,$03,$03,$03,$03,$07,$06,$06,$0C,$1C,$98,$F0],gl_byte
        gosub send_dat
       next gl_x
       

'B 
        gl_addr = LCD_L7 + 15  	  
        gl_cur  = SYS_CUR_DIR_DN                   
	    gosub gl_setaddr

	   'MWRITE
	   gl_cmd =SYS_MWRITE
	   gosub send_cmd
	   for gl_x = 0 to 10
        lookup gl_x,[$FC,$FE,$C6,$C6,$FC,$FC,$C6,$C6,$C6,$FE,$FC],gl_byte
        gosub send_dat
       next gl_x
        
'E 
        gl_addr = LCD_L7 + 16  	   
        gl_cur  = SYS_CUR_DIR_DN                  
	    gosub gl_setaddr

	   'MWRITE
	   gl_cmd =SYS_MWRITE
	   gosub send_cmd
	   for gl_x = 0 to 10
        lookup gl_x,[$FE,$FE,$C0,$C0,$FE,$FE,$C0,$C0,$C0,$FE,$FE],gl_byte
        gosub send_dat
       next gl_x
       
'K 
        gl_addr = LCD_L7 + 17  	   
        gl_cur  = SYS_CUR_DIR_DN                   
	    gosub gl_setaddr

	   'MWRITE
	   gl_cmd =SYS_MWRITE
	   gosub send_cmd
	   for gl_x = 0 to 10
        lookup gl_x,[$C3,$C6,$CC,$CC,$D8,$FC,$EC,$C6,$C6,$C3,$C3],gl_byte
        gosub send_dat
       next gl_x
       
'I 
        gl_addr = LCD_L7 + 18 	  
        gl_cur  = SYS_CUR_DIR_DN                 
	    gosub gl_setaddr

	   'MWRITE
	   gl_cmd =SYS_MWRITE
	   gosub send_cmd
	   for gl_x = 0 to 10
        lookup gl_x,[$18,$18,$18,$18,$18,$18,$18,$18,$18,$18,$18],gl_byte
        gosub send_dat
       next gl_x
       
'R 
        gl_addr = LCD_L7 + 19  	   
        gl_cur  = SYS_CUR_DIR_DN                  
	    gosub gl_setaddr

	   'MWRITE
	   gl_cmd =SYS_MWRITE
	   gosub send_cmd
	   for gl_x = 0 to 10
        lookup gl_x,[$FC,$FE,$C6,$C6,$FE,$FC,$CC,$C6,$C6,$C6,$C3],gl_byte
        gosub send_dat
       next gl_x       
      
      RETURN

   
FINISH:

END

kasif · 16 Aralık 2005, 21:47:16

Acaba ekran çıktılarının resimlerini göndermen mümkün mü?

bkrtncr · 13 Ocak 2006, 22:19:24

slm....
askerde oldugum icin @kasif'in sorusunu yeni okudum...
resimleri suan gonderemem maalesef.. firsat bulabilirsem ilerde koymaya calisirim.. ama ancak 5ay sonra olabilir...

OG · 13 Ocak 2006, 22:31:47

Burada ufak tefek birşeyler var:
http://www.compsys1.com/workbench/
http://www.compsys1.com/support/gli2/sed1330/gltool/g2tool.bas

kasif · 17 Ocak 2006, 12:53:21

Bu aralar GLCD ile ilgileniyorum, picbasic pro ile GLCD olayının zor olduğunu belirtiyorlar,

çok mu zor, yani asm kodları ile mi uğraşılıyor.

16F877 ile birşey yapamaz mıyım.

GLCD almadım, eğer 16F877 ile birşeyler yapabileceksem hangi çözünürşüğü tavsiye edersiniz. Daha çok örnek bulma durumunu da düşünmeliyim.

240x128
128x64

elfvos · 25 Ocak 2006, 22:26:35

Arkadaşlar merhaba, aranıza yeni katıldım,

320x240 glcd'yi picle sürebilmenin yolunu araştırırken forumunuza rastladım. netten, sed1335 ile sürülen, 320x240 dokunmatik siyah/beyaz bi rglcd buldum. Ancak siparişi vermeden önce picle nasıl sürüleceği hakkında kabaca fikir edinmek istedim. Eğer yardımcı olabilirseniz sevinirim.

Emir Burak YILDIZ
msnmessenger: eburakyildiz@msn.com

kasif · 06 Şubat 2006, 22:25:08

Bulduğun LCD + dokunmatik ekran internet adresini verebilirmisin. Fiyat ne durumda bende merak ettim.

GLCD lerin fiyatları çözünürlük arttıkça çok fazla büyüyor. Bunun için bir çok kişi cep telefonu ekranı kullanıyor.

Benim aklıma el bilgisayarları geldi. Biraz bunlara bakacağım. Dokunmatik ekranları da var.

kasif · 19 Şubat 2006, 15:10:13

bkrtncr,

pic basic pro, 16F877, ile çalışan tek GLCD program olarak bu nu bulabildim.

Bunu 128x64 e çevirmeye çalışıyorum, GLCD konusunda ise çok yeniyim. bir kaç kez 16F877 ile çalıştırayım, hemen 18F4550 ye geçeceğim.

128x64 yapmak için yardımına ihtiyacım var, değişkenleden neler satır neler sütunu gösteriyor, 128x64 yapmak için neleri değiştirmem gerekiyor.

Teşekkürler,

gocebe · 16 Mart 2006, 16:38:16

Alıntı yapılan: "kasif"bkrtncr,

pic basic pro, 16F877, ile çalışan tek GLCD program olarak bu nu bulabildim.

Bunu 128x64 e çevirmeye çalışıyorum, GLCD konusunda ise çok yeniyim. bir kaç kez 16F877 ile çalıştırayım, hemen 18F4550 ye geçeceğim.

128x64 yapmak için yardımına ihtiyacım var, değişkenleden neler satır neler sütunu gösteriyor, 128x64 yapmak için neleri değiştirmem gerekiyor.

Teşekkürler,

selamlar, glcd konusunda bende çok yeniyim. şu sıralar 320*240 bi lcd yi programlamaya çalışıyorum. 128x64 içinse sana tevsiyem proteustaki örnek uygulamalardan "EPE Graphics LCD Demo" yu icelemen. eminim faydası dokunacaktır. programı bu siteden download edebilirsin.

iyi çalışmalar.

Picproje Elektronik Sitesi

Haberler:

GLCD 320x240 projesi kodlari....

bkrtncr

kasif

bkrtncr

OG

kasif

elfvos

kasif

kasif

gocebe