3510i_stefan03.bas

利用诺基亚3510显示屏制作的小冬冬。包括源代码。

Call Lcd_parameter(&H5)
Call Lcd_parameter(&H6)
Call Lcd_parameter(&H8)
Call Lcd_parameter(&Hf)
'blau
Call Lcd_parameter(&H0)
Call Lcd_parameter(&H3)
Call Lcd_parameter(&H6)
Call Lcd_parameter(&Hf)
Gosub Cs

'Memory access control
'durch Reset definiert

'Page address set
'durch Reset definiert

'Column address set
'durch Reset defniert

'Memory write
Call Lcd_command(&H2c)

'Beipsiel-Routine zeichnet horizontale farbige Balken im 12-bit Modus
'Leider ist die Bascom-Demo-Version speicherlimitiert, daher gr鲞ten
'Teil der Schleifen l鰏chen

'roter Balken
For R = 1 To 588
 'RRRGGGBB invers!!!
 Call Lcd_parameter(&B00011111)
Next R

Gosub Cs

'gr黱er Balken
For R = 1 To 588
 Call Lcd_parameter(&B11100011)
Next R

'blauer Balken
For R = 1 To 588
 Call Lcd_parameter(&B11111100)
Next R

'gelber Balken
For R = 1 To 588
 Call Lcd_parameter(&B00000011)
Next R

'magenta Balken
For R = 1 To 588
 Call Lcd_parameter(&B00011100)
Next R

'cyan Balken
For R = 1 To 588
 Call Lcd_parameter(&B11100000)
Next R

'wei遝r Balken
For R = 1 To 588
 Call Lcd_parameter(0)
Next R

'schwarzer Balken
For R = 1 To 588
 Call Lcd_parameter(255)
Next R

'wei遝r Balken
For R = 1 To 588
 Call Lcd_parameter(&B00010011)
Next R

'schwarzer Balken
For R = 1 To 588
 Call Lcd_parameter(&B10000011)
Next R

'wei遝r Balken
For R = 1 To 686
 Call Lcd_parameter(0)
Next R

Gosub Cs

'Display ON
Call Lcd_command(&H29)
Gosub Cs
Wait 10

Call Lcd_command(&H2c)

'wei遝r Balken
For R = 1 To 616
 Call Lcd_parameter(0)
Next R

Restore Iceage
For R = 1 To 5536
 Read A
 Call Lcd_parameter(a)
Next

For R = 1 To 414
 Call Lcd_parameter(0)
Next R

Gosub Cs

End

'Unterprogramme, Timing der Datenleitungen

'Senden eines Befehls
Sub Lcd_command(lcommand As Byte)

'Cs auf 0  Start der Sequenz
Portc.4 = 0
'0 f黵 Command
Portb.5 = 0
Portb.4 = 0
Portb.5 = 1

Spiinit
Spiout Lcommand , 1

End Sub

'Senden eines Wertes
Sub Lcd_parameter(lparameter As Byte)
'Cs auf 0  Start der Sequenz
Portc.4 = 0
'1 f黵 Parameter
Portb.5 = 0
Portb.4 = 1
Portb.5 = 1

Spiinit
Spiout Lparameter , 1

End Sub

Cs:
Portc.4 = 1
Return

Iceage:
Data &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00100100 , &B00000000 , &B00000000 , &B00000000
Data &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000
Data &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000
Data &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000
Data &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000
Data &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000
Data &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000
Data &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000
Data &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000
Data &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000
Data &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000
Data &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B01101101 , &B01101101
Data &B01101110 , &B10011101 , &B10011110 , &B10011110 , &B10111110 , &B10111110 , &B10111110 , &B10111110
Data &B01101101 , &B00100100 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000
Data &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000
Data &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000
Data &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000
Data &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000
Data &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000
Data &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000
Data &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000
Data &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000
Data &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000
Data &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B01001001 , &B01101110 , &B01111110
Data &B01101101 , &B01101110 , &B01111101 , &B10111111 , &B11011110 , &B11011111 , &B11011111 , &B11011110