bascon x51 a LCD

[Saša Svobodová]

Zdravíčko,

    já to rozchodila v BasComu pro AVR nejprve to stávkovalo, pak mě 
postrčil kamarád a už to šlape jako hodinky :-)

' LCD tester - program pro testovani LCD modulu
' verze X.Y
' (c) Ja :))

$regfile = "2313def.dat"
$crystal = 8000000

Dim Zobraz1 As String * 24
Dim Zobraz2 As String * 24
Dim Tmp As String * 5
Dim Citac As Word
Dim X As Byte

Config Lcd = 24 * 2
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , 
Db7 = Portb.7 , E = Portb.3 , Rs = Portb.2

Cls
Cursor Off

Do

For X = 1 To 19 Step 1
Tmp = Format(str(citac) , "00000")
Incr Citac
Zobraz1 = "LCD Tester    2x24 znaku"
Zobraz2 = " " + Tmp
Locate 1 , 1
Lcd Zobraz1
Locate 2 , X
Lcd Zobraz2
Waitms 300
Next X

For X = 19 To 1 Step -1
Tmp = Format(str(citac) , "00000")
Incr Citac
Zobraz1 = "LCD Tester    2x24 znaku"
Zobraz2 = + Tmp + " "
Locate 1 , 1
Lcd Zobraz1
Locate 2 , X
Lcd Zobraz2
Waitms 300
Next X

Loop

End

    Myslím si že to bude nastejno v obou verzích BasComu :-)

Z Ústí nad Labem zdraví a hezký den přeje


					Saša K. Svobodová


*****************************************************************

            web: http://www.sasa.monty.cz

           mail: sasa.svobodova@centrum.cz
   mobilni mail: svobodova.alex@mujoskar.cz - max 120 znaků !!!

            ICQ:  260 344 186								

*****************************************************************



ondra centrum wrote:

>Najde se tady nekdo, kdo rozchodil LCD display (2*16 znaku) v bascomu pro
>x51 ???
>
>Ondra
>



---
avast! Antivirus: Odchozi zprava mozna cista :))
Virova databaze (VPS): 0509-5, 04.03.2005
Testovano: 24.3.2005 6:22:41
avast! (c) copyright 1988-2004 ALWIL Software.
http://www.avast.com