Реклама на сайте English version  DatasheetsDatasheets

KAZUS.RU - Электронный портал. Принципиальные схемы, Datasheets, Форум по электронике

Новости электроники Новости Литература, электронные книги Литература Документация, даташиты Документация Поиск даташитов (datasheets)Поиск PDF
  От производителей
Новости поставщиков
В мире электроники

  Сборник статей
Электронные книги
FAQ по электронике

  Datasheets
Поиск SMD
Он-лайн справочник

Принципиальные схемы Схемы Каталоги программ, сайтов Каталоги Общение, форум Общение Ваш аккаунтАккаунт
  Каталог схем
Избранные схемы
FAQ по электронике
  Программы
Каталог сайтов
Производители электроники
  Форумы по электронике
Удаленная работа
Помощь проекту

Микроконтроллеры, АЦП, память и т.д Темы касающиеся микроконтроллеров разных производителей, памяти, АЦП/ЦАП, периферийных модулей...

 
Опции темы
Непрочитано 04.03.2010, 21:58  
mcvavilon
Прохожий
 
Регистрация: 12.08.2009
Сообщений: 1
Сказал спасибо: 0
Сказали Спасибо 0 раз(а) в 0 сообщении(ях)
mcvavilon на пути к лучшему
По умолчанию Re: Дисплеи от сотовых (схемы подключения, код, datasheet)

Есть дисплеи от Siemens c35 - LPH7794-1 и от sagem myx1 - WD-K1106Z-7WLNv кто подскажет как их подключить к LPT?
Реклама:
mcvavilon вне форума  
Непрочитано 05.03.2010, 12:29  
boban_
Прохожий
 
Регистрация: 18.12.2009
Сообщений: 2
Сказал спасибо: 0
Сказали Спасибо 0 раз(а) в 0 сообщении(ях)
boban_ на пути к лучшему
По умолчанию Re: Дисплеи от сотовых (схемы подключения, код, datasheet)

Да, и у меня. Только названия не знаю
boban_ вне форума  
Непрочитано 10.03.2010, 00:22  
maniya
Прохожий
 
Регистрация: 16.10.2007
Сообщений: 3
Сказал спасибо: 0
Сказали Спасибо 0 раз(а) в 0 сообщении(ях)
maniya на пути к лучшему
По умолчанию Re: Дисплеи от сотовых (схемы подключения, код, datasheet)

Сообщение от Nikopol Посмотреть сообщение
А кто нибудь про LPH9157-2 что нибудь знает. Это дисплей от С75 симена, имеет 10 контактов, нашел какие из них подсветка. Занаю что питается она от 15 вольт. А вот по самому диплею (ну типа интерфейс, система команд и т.д.) ничего толком найти не могу. Может кого есть какая инфа или линки.
есть такой же дисплей, есть распиновка, но по командам ничего не знаю( удалось ли его подключить? может остались наработки для CVAVR? а то бьюсь с ним который день...заранее спасибо!
maniya вне форума  
Непрочитано 10.03.2010, 00:50  
spballiance
Вид на жительство
 
Регистрация: 13.02.2010
Сообщений: 372
Сказал спасибо: 12
Сказали Спасибо 15 раз(а) в 12 сообщении(ях)
spballiance на пути к лучшему
По умолчанию Re: Дисплеи от сотовых (схемы подключения, код, datasheet)

HD66760 - SE T68i
распиновка

ни у кого библиотечки не завалялось?
нашел такую вещь
Код:
;=====i2c lcd test for Ericsson T68 CSTN ======02/09/2007==
;	iic lcd driver: UC1682
;	ra0,ra1     sdata,sclock
;	rb0 to rb7	led outputs
;	internal clock
;	standard crystal 4.000 MHz XT - 1us pe instructiune
;	Program realizat de Ing. Bergthaller Iulian-Alexandru 
;------------------------------------------------------------
;------------------------------------------------------------
     LIST P=16F627;f=inhx8m
        #include "P16F627.INC"  ; Include header file
	__CONFIG	_PWRTE_ON  & _WDT_OFF & _INTRC_OSC_NOCLKOUT & _BODEN_OFF & _LVP_OFF & _CP_OFF & _MCLRE_OFF
;------------------------------------------------------------
	cblock 0x20	; Beginn General Purpose-Registerstatus	
	count1	
	count2	
	count3	
	transo	
	count4
	count5
	count6
	endc
;------------------------------------------------------------
#DEFINE sclk	PORTA,1
#DEFINE sdta	PORTA,0
#DEFINE led	PORTA,2
;------------------------------------------------------------
	org	0x00
	goto	init
	org	0x04
;------------------------------------------------------------
init	nop
	bcf	STATUS,RP0	; Bank 0
	movlw	0x07		; Turn comparators off and enable pins for I/O 
	movwf	CMCON	
	bsf	STATUS,RP0	; Bank 1
	movlw	0x00
	movwf	TRISA
	movlw	0x00	; output
	movwf	TRISB
	bcf	STATUS,RP0	; Bank 0
;*************************************************  **
start	movlw	0xFF
	movwf	PORTB
	call	halta
	movlw	0x00
	movwf	PORTB
	movlw	0xFF
	movwf	PORTB
	call	pause	
	bcf	led
;*************************************************  **
;* Lcd init commands                               *
;*************************************************  **
	call	iict	; i2c start
	movlw	0x01	; 	
	call	act
	movlw	0xFF	; 	
	call	act
	call	iicp	; i2c stop 
	call	halta

	call	iict	; i2c start
	movlw	0x72	; 	
	call	act
	movlw	0x00	; 	
	call	act
	movlw	0x00	; 	
	call	act
	call	iicp	; i2c stop 
	call	halta

scrie	call	iict	; i2c start
	movlw	0x72	; device write cmd address
	call	act	; i2c send subroutine

	movlw	0x03	; 	
	call	act
	movlw	0x01	; 	
	call	act

	movlw	0x02	; 	
	call	act
	movlw	0x00	; 	
	call	act

	movlw	0x00	; 	
	call	act
	movlw	0x46	; 	
	call	act

	movlw	0x01	; 	
	call	act
	movlw	0x00	; 	
	call	act

	movlw	0x06	; 	
	call	act
	movlw	0x01	; 	
	call	act

	movlw	0x07	; 	
	call	act
	movlw	0x1B	; 	
	call	act

	movlw	0x08	; 	
	call	act
	movlw	0x7F	; 	
	call	act

	movlw	0x09	; 	
	call	act
	movlw	0x00	; 	
	call	act

	movlw	0x0A	; 	
	call	act
	movlw	0x4F	; 	
	call	act

	movlw	0x0E	; 	
	call	act
	movlw	0x4F	; 	
	call	act

	movlw	0x0F	; 	
	call	act
	movlw	0x10	; 	
	call	act

	movlw	0x10	; 	
	call	act
	movlw	0x02	; 	
	call	act

	movlw	0x11	; 	
	call	act
	movlw	0x17	; 	
	call	act

	movlw	0x12	; 	
	call	act
	movlw	0x25	; 	
	call	act

	movlw	0x13	; 	
	call	act
	movlw	0x01	; 	
	call	act

	movlw	0x15	; 	
	call	act
	movlw	0x00	; 	
	call	act

	movlw	0x16	; 	
	call	act
	movlw	0x1C	; 	
	call	act

	movlw	0x17	; 	
	call	act
	movlw	0x00	; 	
	call	act

	movlw	0x18	; 	
	call	act
	movlw	0x00	; 	
	call	act

	movlw	0x19	; 
	call	act
	movlw	0x00	; 
	call	act

	movlw	0x1A	; 
	call	act
	movlw	0x00	; 
	call	act

	movlw	0x1B	; 
	call	act
	movlw	0x50	; 
	call	act

	movlw	0x1C	; 
	call	act
	movlw	0x50	;
	call	act

	movlw	0x1D	; 
	call	act
	movlw	0x26	; 
	call	act

	movlw	0x1E	; 
	call	act
	movlw	0x26	; 
	call	act

	movlw	0x1F	; 
	call	act
	movlw	0x00	; 
	call	act

	movlw	0x20	; 
	call	act
	movlw	0x00	; 
	call	act

	movlw	0x34	; 
	call	act
	movlw	0x27	; 
	call	act

	movlw	0x35	; 
	call	act
	movlw	0x73	; 
	call	act

	movlw	0x36	; 
	call	act
	movlw	0x04	; 
	call	act

	movlw	0x37	; 
	call	act
	movlw	0x31	;
	call	act

	movlw	0x38	; 
	call	act
	movlw	0x06	; 
	call	act

	movlw	0x39	; 
	call	act
	movlw	0x2C	; 
	call	act

	movlw	0x3A	; 
	call	act
	movlw	0x24	; 
	call	act

	movlw	0x40	; 
	call	act
	movlw	0x08	; 
	call	act

	movlw	0x41	; 
	call	act
	movlw	0x00	; 
	call	act

	movlw	0x42	; 
	call	act
	movlw	0x07	;
	call	act

	movlw	0x43	; 
	call	act
	movlw	0x08	;
	call	act

	movlw	0x44	; 
	call	act
	movlw	0x09	; 
	call	act

	movlw	0x45	; 
	call	act
	movlw	0x0A	; 
	call	act

	movlw	0x46	; 
	call	act
	movlw	0x0B	; 
	call	act

	movlw	0x47	; 
	call	act
	movlw	0x0D	;
	call	act

	movlw	0x48	; 
	call	act
	movlw	0x10	;
	call	act

	movlw	0x49	; 
	call	act
	movlw	0x00	; 
	call	act

	movlw	0x4A	; 
	call	act
	movlw	0x05	; 
	call	act

	movlw	0x4B	; 
	call	act
	movlw	0x07	; 
	call	act

	movlw	0x4C	; 
	call	act
	movlw	0x08	;
	call	act

	movlw	0x4D	; 
	call	act
	movlw	0x09	;
	call	act

	movlw	0x4E	; 
	call	act
	movlw	0x0A	; 
	call	act

	movlw	0x4F	; 
	call	act
	movlw	0x0C	; 
	call	act

	movlw	0x50	; 
	call	act
	movlw	0x10	; 
	call	act

	movlw	0x51	; 
	call	act
	movlw	0x00	;
	call	act

	movlw	0x52	; 
	call	act
	movlw	0x07	;
	call	act

	movlw	0x53	; 
	call	act
	movlw	0x09	;
	call	act

	movlw	0x54	; 
	call	act
	movlw	0x10	; 
	call	act

	movlw	0x55	; 
	call	act
	movlw	0x00	; 
	call	act

	movlw	0x56	; 
	call	act
	movlw	0x06	;
	call	act

	movlw	0x57	; 
	call	act
	movlw	0x07	; 
	call	act

	movlw	0x58	; 
	call	act
	movlw	0x08	; 
	call	act

	movlw	0x59	; 
	call	act
	movlw	0x09	; 
	call	act

	movlw	0x5A	; 
	call	act
	movlw	0x0A	; 
	call	act

	movlw	0x5B	; 
	call	act
	movlw	0x0B	; 
	call	act

	movlw	0x5C	; 
	call	act
	movlw	0x10	;
	call	act

	movlw	0x5D	; 
	call	act
	movlw	0x00	;
	call	act

	movlw	0x5E	; 
	call	act
	movlw	0x06	; 
	call	act

	movlw	0x5F	; 
	call	act
	movlw	0x07	; 
	call	act

	movlw	0x60	; 
	call	act
	movlw	0x08	; 
	call	act

	movlw	0x61	; 
	call	act
	movlw	0x09	;
	call	act

	movlw	0x62	; 
	call	act
	movlw	0x0A	;
	call	act

	movlw	0x63	; 
	call	act
	movlw	0x0B	; 
	call	act

	movlw	0x64	; 
	call	act
	movlw	0x10	; 
	call	act

	movlw	0x65	; 
	call	act
	movlw	0x00	; 
	call	act

	movlw	0x66	; 
	call	act
	movlw	0x07	;
	call	act

	movlw	0x67	; 
	call	act
	movlw	0x09	;
	call	act

	movlw	0x68	; 
	call	act
	movlw	0x10	; 
	call	act

	movlw	0x78	; 
	call	act
	movlw	0x01	; 
	call	act

	movlw	0x00	; 
	call	act
	movlw	0x42	; 
	call	act
	movlw	0x04	; 
	call	act
	movlw	0x1B	;
	call	act
	movlw	0x05	; 
	call	act
	movlw	0x00	;
	call	act
	call	iicp	; i2c stop 
	call	halta ; Vlcd 13.4V it's now activ

	call	iict	; i2c start
	movlw	0x72	; 	
	call	act
	movlw	0x39	; contrast settings	
	call	act
	movlw	0x2A	; 	
	call	act
	call	iicp	; i2c stop 
	call	halta

	call	iict	; i2c start
	movlw	0x72	; 	
	call	act
	movlw	0x38	; lcd enable	
	call	act
	movlw	0x02	; 	
	call	act
	movlw	0x00	; 	
	call	act
	movlw	0x52	; 	
	call	act
	call	iicp	; i2c stop 
	call	halta

	call	iict	; i2c start
	movlw	0x72	; 	
	call	act
	movlw	0x04	; 	
	call	act
	movlw	0x1B	; 	
	call	act
	movlw	0x05	; 	
	call	act
	movlw	0x00	; lcd home address	
	call	act
	call	iicp	; i2c stop 
	call	halta	

	call	iict	; i2c start
	movlw	0x72	; 	
	call	act
	movlw	0x8C	; send data 	
	call	act
	movlw	0x50
	movwf	count5
wdh2	movlw	0x4
	movwf	count6
wdh1	movlw	0x07	;  ram data
	call	act
	movlw	0x07	;  ram data
	call	act
	movlw	0x07	;  ram data
	call	act
	movlw	0x07	;  ram data
	call	act
	movlw	0x38	;  ram data
	call	act
	movlw	0x38	;  ram data
	call	act
	movlw	0x38	;  ram data
	call	act
	movlw	0x38	;  ram data
	call	act
	movlw	0x38	;  ram data
	call	act
	movlw	0xC0	;  ram data
	call	act
	movlw	0xC0	;  ram data
	call	act
	movlw	0xC0	;  ram data
	call	act
	movlw	0xC0	;  ram data
	call	act
	movlw	0xC0	;  ram data
	call	act
	movlw	0xC0	;  ram data
	call	act
	movlw	0xC0	;  ram data
	call	act
	movlw	0xC0	;  ram data
	call	act
	movlw	0xC0	;  ram data
	call	act
	movlw	0xC0	;  ram data
	call	act
	movlw	0xC0	;  ram data
	call	act
	movlw	0xC0	;  ram data
	call	act
	movlw	0xC0	;  ram data
	call	act
	movlw	0x1F	;  ram data
	call	act
	movlw	0x1F	;  ram data
	call	act
	movlw	0x1F	;  ram data
	call	act
	decfsz	count6,F   
	goto  wdh1
	movlw	0x1F	;  ram data
	call	act
    	decfsz	count5,F   
	goto  wdh2      
	call	iicp	; i2c stop 



homa	goto	homa
;*************************************************  **
act	movwf	transo	; iic data transmission 
	call	oled	
	movlw	0x08
	movwf	count3
vbit	bcf	sclk
	call	pause
	btfsc	transo,7	
	bsf	sdta
	btfss	transo,7
	bcf	sdta
	call	pause
	bsf	sclk
	call	pause
	bcf	sclk
	call	pause
	rlf	transo,F
	decfsz	count3,F
	goto	vbit
	call	ackp
	retlw	0x00
;*************************************************  **
iicp	bcf	sdta	; stop condition module
	call	pause
	bsf	sclk
	call	pause
	bsf	sdta	; stop command
	call	pause
	bcf	sclk
	call	pause
	retlw	0x00
;*************************************************  **	
iict	bsf	sdta	; start condition module 
	bsf	sclk
	call	pause
	bcf	sdta	; start command
	call	pause
	bcf	sclk
	call	pause
	retlw	0x00
;*************************************************  **
ackp	call	s_in
	bsf	sclk	; one clock step for acknowledge (not read)
	call	pause
	btfss	sdta	;sda=0 ?
	bsf	led
	;call	halta
	call	pause
	bcf	led
	bcf	sclk
	call	pause
	call	s_out
	retlw	0x00
;*************************************************  **
oled	;call	halta	; iic data before transmission displayed on portb
	movlw	0x00
	movwf	PORTB
	movf	transo,W
	movwf	PORTB
	;call	halta
	call	pause
	movlw	0x00
	movwf	PORTB
	retlw	0x00
;*************************************************  **
s_out	bsf	STATUS,RP0	; Bank 1
	movlw	0x00
	movwf	TRISA
	bcf	STATUS,RP0	; Bank 0
	retlw	0x00
;*************************************************  **
s_in	bsf	STATUS,RP0	; Bank 1
	movlw	0x01
	movwf	TRISA
	bcf	STATUS,RP0	; Bank 0
	retlw	0x00
;*************************************************  **
pause	movlw	0x02	; delay
	movwf	count1
d1	movlw	0x2F	  
	movwf	count2
d2	decfsz	count2,F	
	goto 	d2		
	decfsz	count1,F
	goto 	d1		
 	retlw	0x00
;*************************************************  **
halta	movlw	0x02	;  delay
	movwf	count3
r3	movlw	0x7A
	movwf	count1
r1	movlw	0xFA	  
	movwf	count2
r2	decfsz	count2,F	
	goto 	r2		
	decfsz	count1,F	
	goto 	r1		
	decfsz	count3,F   
	goto  r3          
	retlw	0x00
;------------------------------------------------------------
	end
;=================================================  ===========
кто может портировать с СИ для АВР?

Последний раз редактировалось spballiance; 10.03.2010 в 01:28.
spballiance вне форума  
Непрочитано 14.03.2010, 10:26  
sae74
Прохожий
 
Регистрация: 16.12.2009
Сообщений: 7
Сказал спасибо: 1
Сказали Спасибо 1 раз в 1 сообщении
sae74 на пути к лучшему
По умолчанию Re: Дисплеи от сотовых (схемы подключения, код, datasheet)

Есть экран от нокиа 7610.
Его кто-то подключал? Есть желание использовать его с атмегой32.
sae74 вне форума  
Непрочитано 14.03.2010, 21:27  
hort1
Временная регистрация
 
Регистрация: 29.09.2008
Сообщений: 50
Сказал спасибо: 6
Сказали Спасибо 2 раз(а) в 2 сообщении(ях)
hort1 на пути к лучшему
По умолчанию Re: Дисплеи от сотовых (схемы подключения, код, datasheet)

Здесь спрашивали про дисплей от сименса с65.
В архиве даташит, схема подключения к лпт, программа для пк, распиновка (нашёл на vrtp.ru) а также тестовая прожка для PIC24FJ64GA004 (только выводит последовательно пикселы меняющегося цвета). Даташит там очень хороший, я за пару часов этот дисплей запустил
Ничего серьёзного не писал, всё никак умножитель для подсветки не сделаю. Но без подсветки тоже видно, хоть и слабо. Если что - "подкрутить" значение в регистре контрастности, в программе есть комментарий.
Сам теперь тоже хочу запустить дисплей от Nokia 3220. По схеме телефона контакты на коннекторе подписаны так же, как на 6100, только общих 3 вместо одного. Может быть в них похожие контроллеры. Сделаю переходник, попробую запустить. А если получится, попробую из телефона оригинальную инициализацию считать.
Вложения:
Тип файла: zip C65.ZIP (1.46 Мб, 379 просмотров)
hort1 вне форума  
Непрочитано 14.03.2010, 21:43  
spballiance
Вид на жительство
 
Регистрация: 13.02.2010
Сообщений: 372
Сказал спасибо: 12
Сказали Спасибо 15 раз(а) в 12 сообщении(ях)
spballiance на пути к лучшему
По умолчанию Re: Дисплеи от сотовых (схемы подключения, код, datasheet)

что такое BIAS?
spballiance вне форума  
Непрочитано 14.03.2010, 22:50  
spballiance
Вид на жительство
 
Регистрация: 13.02.2010
Сообщений: 372
Сказал спасибо: 12
Сказали Спасибо 15 раз(а) в 12 сообщении(ях)
spballiance на пути к лучшему
По умолчанию Re: Дисплеи от сотовых (схемы подключения, код, datasheet)

нашел для Т68
Код:
VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "T68 LCD test"
   ClientHeight    =   1455
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   3675
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   1455
   ScaleWidth      =   3675
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton Command7 
      Caption         =   "Test Addresses"
      Height          =   195
      Left            =   120
      TabIndex        =   7
      Top             =   1200
      Width           =   1815
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Clock"
      Height          =   285
      Left            =   90
      TabIndex        =   6
      ToolTipText     =   "Show BIG clock"
      Top             =   840
      Width           =   915
   End
   Begin VB.CommandButton Command4 
      Caption         =   "Image"
      Height          =   285
      Left            =   90
      TabIndex        =   5
      ToolTipText     =   "Show image"
      Top             =   480
      Width           =   915
   End
   Begin VB.CommandButton Command3 
      Caption         =   "Miniclock"
      Height          =   285
      Left            =   1080
      TabIndex        =   4
      ToolTipText     =   "Show small clock"
      Top             =   840
      Width           =   915
   End
   Begin VB.Timer Timer2 
      Enabled         =   0   'False
      Interval        =   500
      Left            =   2520
      Top             =   960
   End
   Begin VB.CommandButton Command1 
      Caption         =   "P. OFF"
      Height          =   285
      Left            =   1080
      TabIndex        =   3
      ToolTipText     =   "Power LCD off "
      Top             =   120
      Width           =   915
   End
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   500
      Left            =   2040
      Top             =   960
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   1200
      Left            =   2070
      Picture         =   "Form1.frx":08CA
      ScaleHeight     =   80
      ScaleMode       =   0  'Usuario
      ScaleWidth      =   101.5
      TabIndex        =   2
      ToolTipText     =   "Send image"
      Top             =   120
      Width           =   1530
   End
   Begin VB.CommandButton Command6 
      Caption         =   "Clear"
      Height          =   285
      Left            =   1080
      TabIndex        =   1
      ToolTipText     =   "Clear screen"
      Top             =   480
      Width           =   915
   End
   Begin VB.CommandButton Command5 
      Caption         =   "Init"
      Height          =   285
      Left            =   90
      TabIndex        =   0
      ToolTipText     =   "Initialise LCD"
      Top             =   120
      Width           =   915
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Sub PortOut Lib "IO.DLL" (ByVal Port As Integer, ByVal Data As Byte)
Private Declare Function PortIn Lib "IO.DLL" (ByVal Port As Integer) As Byte

Dim ACK As Integer


Private Function ReadByte() As Byte 'ReadByte
ReadByte = 0
For i = 7 To 0 Step -1
If RXBIT ‹› 0 Then ReadByte = ReadByte + 2 ^ i
Next i

If ACK = 1 Then
TXBIT (0)
Sda (1)
End If

End Function


Private Sub WriteByte(bite As Byte) 'WriteByte

For i = 7 To 0 Step -1
TXBIT (bite And 2 ^ i)
Next i
 
If RXBIT Then
  ACK = 0       'No ACK -› error
 Else
  ACK = 1
End If

End Sub



Private Sub TXBIT(bit As Boolean)
Sda (bit)
Clock (1)
Clock (0)
End Sub

Private Function RXBIT() As Boolean
Sda (1)
Clock (1)
If (PortIn(&H379) And 8) Then
 RXBIT = 1
Else
 RXBIT = 0
End If
Clock (0)
End Function


Private Sub StartEE() 'START - S
Sda (1)
Clock (1)
Sda (0)
Clock (0)
End Sub

Private Sub StopEE() 'STOP - P
Clock (0)
Sda (0)
Clock (1)
Sda (1)
End Sub

Private Sub Sda(bit As Boolean)  ' SDA
PortOut &H378, bit
End Sub

Private Sub Clock(bit As Boolean) ' SCL
If bit Then
PortOut &H37A, 4
Else
PortOut &H37A, 0
End If
End Sub



Private Sub Command1_Click()
Timer1.Enabled = False
Timer2.Enabled = False
StartEE
WriteByte (&H72)
WriteByte (&H0)
WriteByte (&H42)
WriteByte (&H38)
WriteByte (&HA)
WriteByte (&H39)
WriteByte (&H0)
Pause (1)
WriteByte (&H72)
WriteByte (&H0)
WriteByte (&H46)
Pause (1)
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Timer2.Enabled = True
End Sub

Private Sub Command3_Click()
Timer1.Enabled = True
Timer2.Enabled = False
End Sub

Private Sub Command4_Click()
   Picture1_Click           'Send raw image (same as image click)
End Sub

Private Sub Command5_Click()
Timer1.Enabled = False
Timer2.Enabled = False
StartEE
WriteByte (&H72)
WriteByte (&H3)
WriteByte (&H1)
WriteByte (&H2)
WriteByte (&H0)
WriteByte (&H0)
WriteByte (&H46)
WriteByte (&H1)
WriteByte (&H0)
WriteByte (&H6)
WriteByte (&H1)
WriteByte (&H7)
WriteByte (&H1B)
WriteByte (&H8)
WriteByte (&H7F)
WriteByte (&H9)
WriteByte (&H0)
WriteByte (&HA)
WriteByte (&H4F)
WriteByte (&HE)
WriteByte (&H4F)
WriteByte (&HF)
WriteByte (&H10)
WriteByte (&H10)
WriteByte (&H2)
WriteByte (&H11)
WriteByte (&H17)
WriteByte (&H12)
WriteByte (&H25)
WriteByte (&H13)
WriteByte (&H1)
WriteByte (&H15)
WriteByte (&H0)
WriteByte (&H16)
WriteByte (&H1C)
WriteByte (&H17)
WriteByte (&H0)
WriteByte (&H18)
WriteByte (&H0)
WriteByte (&H19)
WriteByte (&H0)
WriteByte (&H1A)
WriteByte (&H0)
WriteByte (&H1B)
WriteByte (&H50)
WriteByte (&H1C)
WriteByte (&H50)
WriteByte (&H1D)
WriteByte (&H26)
WriteByte (&H1E)
WriteByte (&H26)
WriteByte (&H1F)
WriteByte (&H0)
WriteByte (&H20)
WriteByte (&H0)
WriteByte (&H34)
WriteByte (&H27)
WriteByte (&H35)
WriteByte (&H73)
WriteByte (&H36)
WriteByte (&H4)
WriteByte (&H37)
WriteByte (&H31)
WriteByte (&H38)
WriteByte (&H6)
WriteByte (&H39)
WriteByte (&H28) 'contrast (default = 2C)
WriteByte (&H3A)
WriteByte (&H24)
WriteByte (&H40)
WriteByte (&H8)
WriteByte (&H41)
WriteByte (&H0)
WriteByte (&H42)
WriteByte (&H7)
WriteByte (&H43)
WriteByte (&H8)
WriteByte (&H44)
WriteByte (&H9)
WriteByte (&H45)
WriteByte (&HA)
WriteByte (&H46)
WriteByte (&HB)
WriteByte (&H47)
WriteByte (&HD)
WriteByte (&H48)
WriteByte (&H10)
WriteByte (&H49)
WriteByte (&H0)
WriteByte (&H4A)
WriteByte (&H5)
WriteByte (&H4B)
WriteByte (&H7)
WriteByte (&H4C)
WriteByte (&H8)
WriteByte (&H4D)
WriteByte (&H9)
WriteByte (&H4E)
WriteByte (&HA)
WriteByte (&H4F)
WriteByte (&HC)
WriteByte (&H50)
WriteByte (&H10)
WriteByte (&H51)
WriteByte (&H0)
WriteByte (&H52)
WriteByte (&H7)
WriteByte (&H53)
WriteByte (&H9)
WriteByte (&H54)
WriteByte (&H10)
WriteByte (&H55)
WriteByte (&H0)
WriteByte (&H56)
WriteByte (&H6)
WriteByte (&H57)
WriteByte (&H7)
WriteByte (&H58)
WriteByte (&H8)
WriteByte (&H59)
WriteByte (&H9)
WriteByte (&H5A)
WriteByte (&HA)
WriteByte (&H5B)
WriteByte (&HB)
WriteByte (&H5C)
WriteByte (&H10)
WriteByte (&H5D)
WriteByte (&H0)
WriteByte (&H5E)
WriteByte (&H6)
WriteByte (&H5F)
WriteByte (&H7)
WriteByte (&H60)
WriteByte (&H8)
WriteByte (&H61)
WriteByte (&H9)
WriteByte (&H62)
WriteByte (&HA)
WriteByte (&H63)
WriteByte (&HB)
WriteByte (&H64)
WriteByte (&H10)
WriteByte (&H65)
WriteByte (&H0)
WriteByte (&H66)
WriteByte (&H7)
WriteByte (&H67)
WriteByte (&H9)
WriteByte (&H68)
WriteByte (&H10)
WriteByte (&H78)
WriteByte (&H1)
WriteByte (&H0)
WriteByte (&H42)
WriteByte (&H4)
WriteByte (&H1B)
WriteByte (&H5)
WriteByte (&H0)
StopEE

Pause (1)

StartEE         'Power ON
WriteByte (&H72)
WriteByte (&H38)
WriteByte (&H2)
WriteByte (&H0)
WriteByte (&H52)
StopEE

End Sub

Private Sub Command6_Click()
Timer1.Enabled = False
Timer2.Enabled = False

StartEE         ' Set cursor
WriteByte (&H72)
WriteByte (&H4)
WriteByte (&H1B)
WriteByte (&H5)
WriteByte (&H0)
StopEE

StartEE         ' Clear all
WriteByte (&H72)
WriteByte (&H8C)
For i = 0 To 8079
WriteByte (&H0)
Next
StopEE

End Sub


Private Sub Command7_Click()
  Dim Text
  Picture1.Picture = LoadPicture() 'Clear Picture
  Picture1.FontSize = 8
  Picture1.CurrentX = 2
  Picture1.CurrentY = 2
  
  'Test 0x70 (S-43200A;type=03)
  Text = "Testing 0x70: "
  StartEE
  WriteByte (&H70)
  StopEE
  If ACK = 0 Then
    Text = Text + "ERR!"
  Else
    Text = Text + "OK"
  End If
  Picture1.Print Text
  
  'Test 0x72 (S-4595;type=01)
  Text = "Testing 0x72: "
  StartEE
  WriteByte (&H72)
  StopEE
  If ACK = 0 Then
    Text = Text + "ERR!"
  Else
    Text = Text + "OK"
  End If
  Picture1.Print Text

  'Test 0x74 (HD66760;type=02)
  Text = "Testing 0x74: "
  StartEE
  WriteByte (&H74)
  StopEE
  If ACK = 0 Then
    Text = Text + "ERR!"
  Else
    Text = Text + "OK"
  End If
  Picture1.Print Text

End Sub

Private Sub Form_Load()
Sda (1)
Clock (1)
End Sub



Private Sub Form_Unload(Cancel As Integer)
Clock (1)
Sda (1)
End Sub




Public Sub Pause(Value As Single)
Dim Start
Start = Timer
    Do While Timer ‹ Start + Value
        DoEvents
    Loop
End Sub

Private Sub Picture1_Click()
Dim i As Integer, j As Integer
Dim Color As Byte

    Picture1.CurrentX = 0
    Picture1.CurrentY = 0

Timer1.Enabled = False
Timer2.Enabled = False

StartEE
WriteByte (&H72)
WriteByte (&H4)
WriteByte (&H1B)
WriteByte (&H5)
WriteByte (&H0)
StopEE

StartEE
WriteByte (&H72)
WriteByte (&H8C)

Open "image.raw" For Binary Access Read As #1
For i = 1 To 8080
   Get #1, i, Color
   WriteByte (Color)
Next
Close #1

StopEE

End Sub



Private Sub Timer1_Timer()

Dim i As Integer, j As Integer
Dim clrValue As Long
Picture1.Refresh

    Picture1.Picture = LoadPicture("pict.bmp")
    Picture1.FontSize = 11
    Picture1.CurrentX = 40
    Picture1.CurrentY = 30
    Picture1.Print Time


StartEE
WriteByte (&H72)
WriteByte (&H8C)
For j = 0 To 79
     For i = 0 To 100
         Bitmap = 255
            If Picture1.Point(i, j) = 0 Then Bitmap = 0
       WriteByte (Bitmap)
   Next
Next
StopEE

End Sub

Private Sub Timer2_Timer()
Dim i As Integer, j As Integer
Dim clrValue As Long
Picture1.Refresh
    Picture1.Picture = LoadPicture()
    Picture1.FontSize = 18
    Picture1.CurrentX = 2
    Picture1.CurrentY = 2
    Picture1.Print Time

StartEE
WriteByte (&H72)
WriteByte (&H8C)
For j = 0 To 79
     For i = 0 To 100
       Bitmap = 0
          If Picture1.Point(i, j) = 0 Then Bitmap = 255
       WriteByte (Bitmap)
   Next
Next
StopEE
End Sub
spballiance вне форума  
Непрочитано 14.03.2010, 23:06  
dosikus
Гуру портала
 
Аватар для dosikus
 
Регистрация: 20.11.2004
Сообщений: 10,127
Сказал спасибо: 960
Сказали Спасибо 2,563 раз(а) в 1,624 сообщении(ях)
dosikus на пути к лучшему
По умолчанию Re: Дисплеи от сотовых (схемы подключения, код, datasheet)

spballiance, Со всем уважением , но выкладывай код лучше в архиве...
__________________
Осторожно , злой кот
dosikus вне форума  
Непрочитано 14.03.2010, 23:06  
spballiance
Вид на жительство
 
Регистрация: 13.02.2010
Сообщений: 372
Сказал спасибо: 12
Сказали Спасибо 15 раз(а) в 12 сообщении(ях)
spballiance на пути к лучшему
По умолчанию Re: Дисплеи от сотовых (схемы подключения, код, datasheet)

жаль нет спойлеров

во вложении 3510i на языке дольчен золдатен для avr.
комментирование и перевод - привествуется
Тип экрана цветной STN экран, 4.10 тыс цветов

Размер изображения число строк - 4, 98x67 пикс.
цена 50 рублей

также ссылки

http://jumptuck.wordpress.com/2008/1...d-hello-world/


http://translate.google.com/translat...%3Den%26sa%3DN

http://www.xmail.net/martin-k/display.htm

__________________________________________________ ______________
motorola c350

Тип экрана цветной STN экран, 4.10 тыс цветов

Размер изображения число строк - 4, 96x65 пикс.
40 рублей

http://chipenable.ru/index.php/how-c...-c350-avr.html
Вложения:
Тип файла: zip AVR3510i_1.0.zip (64.7 Кб, 313 просмотров)

Последний раз редактировалось spballiance; 15.03.2010 в 01:27.
spballiance вне форума  
 

Закладки

Метки
lcd
Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Кто использовал дисплеи от сотовых телефонов - помогите! Afandi Делимся опытом 12 14.01.2012 09:48
дисплеи от сотовых Sp-alex-trio Ремонт оргтехники 5 22.05.2009 15:11
преобразователь код-код zazan111 TTL и CMOS логика 18 05.01.2009 06:11
TV LCD дисплеи NecroSS Ремонт оргтехники 1 08.12.2008 11:48


Часовой пояс GMT +4, время: 18:07.


Powered by vBulletin® Version 3.8.4
Copyright ©2000 - 2021, Jelsoft Enterprises Ltd. Перевод: zCarot