STRING değişkeni yerine ?

[Maxim]

string değişkeni sadece 16 bitlik piclerde kullanılıyormuş ,
yani ,
DIM A1 AS STRING

bunun yerine ne kullanabilirim ?
amacım bir yazıyı hafızada tutmak ve gerektiğinde ekrana yazdırmak .

örnek ,

dim test as byte
dim A1 as string ( bunu 16F628 de kullanamıyorum )
test = 11
A1 = picproje

if test = 11 then
print at 1,1 , A1
endif

devam...

bunu istememdeki sebep ,seri çıkışdan değişkene bağlı olarak text mesajı alabilmek ,

yani yukarıdaki örneğe bakarsak ,
eğer test değişkeni 11 olursa ,
hem lcd ekrana picproje yazacak ,
hemde hrsout yani seri porttan picproje yazısını gönderecek ,

eğer test değişkeni başka birşeyse farklı bir yazı çıkacak ,

umarım anlatabilmişimdir .

[mech]

A1 için ancak tek harf olur. Picproje yazdırmak için strn A1 diye bir komut olacak . Tabi, başta dim A1[9] as byte olarak tanımlamalısın. yani Byte array. Ya da string*8 olarak tanımlarsın. O zaman da str A1 şeklinde yazdırabilir ya da seri gönderebilirsin.

[Maxim]

evet komutumuz "STRN" ,
teşekkürler ..

fakat kullanamadım ,
kullanamadım derken ,çalışıyor problem yok ama
hafızada çok yer kaplıyor bu olay ,yer kalmadığından olmadı .

[isikyasar]

Merhaba,

16f877 ile seri olarak veri okumaktayım. Bu veriyi eproma yazmak istiyorum ve sonrasında okumak istiyorum.Bu konuda hiçbir fikrim yok.

'------------------------------------------
Input PORTC.7
Dim SerString[15] As Byte
'--------------------------------
SerIn PORTC.7 , 16468 , [Str SerString]          'ASCII olarak veriyi okumaktadır.
  DelayMS 50
  Print Str SerString\15             'Hepsini birden veya aşağıdaki gibi teker teker okuyabiliyorum.

  'Print At 36,8, SerString

• ,SerString [1],SerString [2],SerString [3] , SerString [4] ,SerString [5],SerString [6],"-",SerString            [7],SerString [8] , SerString [9] ,SerString [10],"-",SerString [11],SerString [12],SerString [13],SerString [14]," "
  
  '---------------------------------
  mesaj birleştirme:: 02 Ağustos 2013, 00:42:58
  Başka bir konuda Arkadaşımız şöyle bir kod yazmış
  
  Dim deger[15] as byte
  
  
  kayıt:
  For i=0 to 14
  Ewrite i, [deger[ i ] ]
  delayms 200
  Return
  
  Bu kodla arkadaşımız parça parça yazmış eproma . olması gereken bu şekildemi acaba.