| Микроконтроллеры, АЦП, память и т.д Темы касающиеся микроконтроллеров разных производителей, памяти, АЦП/ЦАП, периферийных модулей... |
04.03.2010, 21:58
|
|
|
Прохожий
Регистрация: 12.08.2009
Сообщений: 1
Сказал спасибо: 0
Сказали Спасибо 0 раз(а) в 0 сообщении(ях)
|
Re: Дисплеи от сотовых (схемы подключения, код, datasheet)
Есть дисплеи от Siemens c35 - LPH7794-1 и от sagem myx1 - WD-K1106Z-7WLNv кто подскажет как их подключить к LPT?
|
|
|
|
|
05.03.2010, 12:29
|
|
|
Прохожий
Регистрация: 18.12.2009
Сообщений: 2
Сказал спасибо: 0
Сказали Спасибо 0 раз(а) в 0 сообщении(ях)
|
Re: Дисплеи от сотовых (схемы подключения, код, datasheet)
Да, и у меня. Только названия не знаю 
|
|
|
|
|
|
10.03.2010, 00:22
|
|
|
Прохожий
Регистрация: 16.10.2007
Сообщений: 3
Сказал спасибо: 0
Сказали Спасибо 0 раз(а) в 0 сообщении(ях)
|
Re: Дисплеи от сотовых (схемы подключения, код, datasheet)
Сообщение от Nikopol
|
|
А кто нибудь про LPH9157-2 что нибудь знает. Это дисплей от С75 симена, имеет 10 контактов, нашел какие из них подсветка. Занаю что питается она от 15 вольт. А вот по самому диплею (ну типа интерфейс, система команд и т.д.) ничего толком найти не могу. Может кого есть какая инфа или линки.
|
есть такой же дисплей, есть распиновка, но по командам ничего не знаю( удалось ли его подключить? может остались наработки для CVAVR? а то бьюсь с ним который день...заранее спасибо!
|
|
|
|
|
|
10.03.2010, 00:50
|
|
|
Вид на жительство
Регистрация: 13.02.2010
Сообщений: 372
Сказал спасибо: 12
Сказали Спасибо 15 раз(а) в 12 сообщении(ях)
|
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.
|
|
|
|
|
|
14.03.2010, 10:26
|
|
|
Прохожий
Регистрация: 16.12.2009
Сообщений: 7
Сказал спасибо: 1
Сказали Спасибо 1 раз в 1 сообщении
|
Re: Дисплеи от сотовых (схемы подключения, код, datasheet)
Есть экран от нокиа 7610.
Его кто-то подключал? Есть желание использовать его с атмегой32.
|
|
|
|
|
|
14.03.2010, 21:27
|
|
|
Временная регистрация
Регистрация: 29.09.2008
Сообщений: 50
Сказал спасибо: 6
Сказали Спасибо 2 раз(а) в 2 сообщении(ях)
|
Re: Дисплеи от сотовых (схемы подключения, код, datasheet)
Здесь спрашивали про дисплей от сименса с65.
В архиве даташит, схема подключения к лпт, программа для пк, распиновка (нашёл на vrtp.ru) а также тестовая прожка для PIC24FJ64GA004 (только выводит последовательно пикселы меняющегося цвета). Даташит там очень хороший, я за пару часов этот дисплей запустил 
Ничего серьёзного не писал, всё никак умножитель для подсветки не сделаю. Но без подсветки тоже видно, хоть и слабо. Если что - "подкрутить" значение в регистре контрастности, в программе есть комментарий.
Сам теперь тоже хочу запустить дисплей от Nokia 3220. По схеме телефона контакты на коннекторе подписаны так же, как на 6100, только общих 3 вместо одного. Может быть в них похожие контроллеры. Сделаю переходник, попробую запустить. А если получится, попробую из телефона оригинальную инициализацию считать.
|
|
|
|
|
|
14.03.2010, 21:43
|
|
|
Вид на жительство
Регистрация: 13.02.2010
Сообщений: 372
Сказал спасибо: 12
Сказали Спасибо 15 раз(а) в 12 сообщении(ях)
|
Re: Дисплеи от сотовых (схемы подключения, код, datasheet)
что такое BIAS?
|
|
|
|
|
|
14.03.2010, 22:50
|
|
|
Вид на жительство
Регистрация: 13.02.2010
Сообщений: 372
Сказал спасибо: 12
Сказали Спасибо 15 раз(а) в 12 сообщении(ях)
|
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 |
|
|
|
|
|
|
14.03.2010, 23:06
|
|
|
Гуру портала
Регистрация: 20.11.2004
Сообщений: 10,018
Сказал спасибо: 936
Сказали Спасибо 2,270 раз(а) в 1,565 сообщении(ях)
|
Re: Дисплеи от сотовых (схемы подключения, код, datasheet)
spballiance, Со всем уважением , но выкладывай код лучше в архиве...
__________________
Осторожно , злой кот
|
|
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 01:36.
|
|
