nemertem.bas

[Friedrich Gábor]

Szóval a helpet olvasgatva az derül ki, hogy sztring esetén egy 0 bájt jelzi
a sztring végét, ettől kezdve tehát nem rakhatok bele 0-át. Pedig szükségem
van mind a nyolc definiálható karakterre. A programmemória meg nem engedi,
hogy chr(0) esetén külön rutin fusson le.
Hogyan tovább?
Fidó

----- Original Message -----
From: "Friedrich Gábor" <igazifido at t-online.hu>
To: "Elektro" <elektro at tesla.hu>
Sent: Sunday, January 01, 2006 1:36 PM
Subject: nemertem.bas


> Buék!
> A gondom a következő: Bascom-ban egy sztringet szeretnék megjeleníteni az
> lcd-n, amiben egy saját definiált karakter van - chr(0). Nem tudom a
> chr(0)-t beilleszteni a sztringbe, bármilyen másik karaktert bevesz
> (chr(1)/chr(2)/....), de a chr(0)-t nem.
> Próba forráskód:
>
> ------------------------------------------------------------
> $crystal = 7372800                                          'Sebesseg
> $regfile = "Attiny2313.dat"                                 'Chip
> $baud = 9600                                                'Sorosport
>
> Config Lcd = 20 * 4                                         'LCD
> Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7
=
> Portb.7 , E = Portb.1 , Rs = Portb.2
>
> Dim Sor As String * 3
>
> Deflcdchar 0 , 32 , 32 , 32 , 31 , 32 , 32 , 32 , 32
>
> Cls
> Cursor Off
>
> Locate 1 , 1
> Lcd Chr(255) ; Chr(0) ; Chr(255)                            'Ezt kéne
látni
>
> Sor = Chr(255) + Chr(000) + Chr(255)                    'Itt 2* kiírja a
> chr(255)-t
> Locate 2 , 1
> Lcd Sor
>
> Sor = "{255}" + "{000}" + "{255}"                            'Meg itt
is....
> Locate 3 , 1
> Lcd Sor
>
> End
> ----------------------------------------------
>
> Mi a gond?
> Köszi
> Fidó
>
> -----------------------------------
>  Szponzorunk: http://tonerbolt.hu/
>
>
> --
> No virus found in this incoming message.
> Checked by AVG Free Edition.
> Version: 7.1.371 / Virus Database: 267.14.8/215 - Release Date:
2005.12.27.
>
>