如果有人使用帶有ILI9325顯示控制器的諾基亞N96液晶顯示器,請告訴我。AVR Microbasic TFT ILI9325 LCD Proteus仿真
我正在寫基本代碼,可以幫助在屏幕上顯示一個字符。屏幕是320×240像素的矩陣。該控制器提供了一個GRAM(圖形RAM)存儲器,我們在這裏寫入數據以顯示相應的字符。
我發現Proteus的庫TFT ILI9325形成此鏈接: dll file of ILI9325 GLCD for proteus 和 Proteus simulation on bascom
這樣,我想將它與下面的代碼更改爲mirobasic軟件,LCD不顯示任何東西!
基於ILI9325數據表的Microbasic代碼:
program MyProject
'*******************************************************************************
'----- Color LCD CONFIG --------------------------------------------------------
'*******************************************************************************
dim Back_light as sbit at Portg0_bit
dim Color_lcd_cs as sbit at Porta3_bit
dim Color_lcd_rs as sbit at PORTa0_bit
dim Color_lcd_wr as sbit at PORTa1_bit
dim Color_lcd_rd as sbit at PORTa2_bit
dim Color_lcd_rst as sbit at PORTa4_bit
dim Color_lcd_lsb_port as byte at PORTD ' this is where PORTAlias is fully defined
dim Color_lcd_msb_port as byte at PORTE ' this is where PORTAlias is fully defined
Dim Entry_mod As Word 'Horizantal=&H1028,Vertical=&H1030
Dim Color_lcd_index As Byte 'Index Variable
Dim Color_lcd_data As Word 'Data Variable
Dim Lcd_buff As String [ 25]
Dim xX As Word
Dim Yy As Word
Dim O As Word
Dim X_c As Word
Dim Y_c As Word
'*******************************************************************************
'*******************************************************************************
'----- COLOR LCD SUBROUTINES ---------------------------------------------------
'*******************************************************************************
'*******************************************************************************
Sub procedure Triger_color_lcd()
Color_lcd_rst=0
delay_ms(60)
Color_lcd_rst=1
delay_ms(200)Color_lcd_index = 0xE3 '' Write_color_lcd_index
Color_lcd_data = 0x3008 '' Write_color_lcd_data
Color_lcd_index = 0x00E7 '' Write_color_lcd_index
Color_lcd_data = 0x0000 '' Write_color_lcd_data
End Sub
Sub procedure Write_color_lcd_index()
Color_lcd_cs=0
Color_lcd_rs=0
Color_lcd_rd=1
Color_lcd_msb_port = 0x00
Color_lcd_lsb_port = Color_lcd_index
Color_lcd_wr=0
Color_lcd_wr=1
Color_lcd_cs=1
End Sub
Sub procedure Write_color_lcd_data()
Color_lcd_cs=0
Color_lcd_rs=1
Color_lcd_rd=1
Color_lcd_msb_port = Hi(color_lcd_data)
Color_lcd_lsb_port = Lo(color_lcd_data)
Color_lcd_wr=
Color_lcd_wr=1
Color_lcd_cs=1
end sub
'*******************************************************************************
main:
Color_lcd_index = 0x13 '' Write_color_lcd_index
Color_lcd_data = 0x1111 '' Write_color_lcd_data
Write_color_lcd_index()
Write_color_lcd_data()
while True
wend
' Main program
end.
與變形蟲的代碼是[這裏]:
www.filepi.com/i/1pnpxUD
和結果與此圖相同:
www.i.stack.imgur.com/7xsR2.jpg