Atmega644P

[winnerbt]

Már 600 byte-os stack-eknél tartottam, de visszavettem 100-100-ra, ami furi, hogy csak a DEF-et írom át M16/M32-re, hibátlanul fut a dolog (persze DIP proccsere után, a Jó Isten áldja kezed-lábad a DIP 1284P-ért!)

A MID:
Sajnos ki kell írni az 1-et is. Ha majd lesz ideje valakinek, próbálja ki:

Kód: Egész kijelölése

$regfile = "m128def.dat"
$crystal = 14740000
$baud = 2400                                                ' use baud rate
$baud1 = 9600                                               'RS485
$hwstack = 600                                              ' default use 32 for the hardware stack
$swstack = 600                                              ' default use 10 for the SW stack
$framesize = 300

Dim Lcd_string As String * 40                               'A kiírandó string
Dim K_string As String * 3                                  'temp, az éppen kiírandó karakter
Dim X As Byte                                               'X pos. 0-127
Dim Y As Byte                                               'Y pos. 0-7
Dim Y_ment As Byte                                          'PLOTnál Y mentés
Dim Lcdadatment As Byte
Dim Karct As Byte

Lcd_string = "123456789ABCD"
For Karct = 1 To Len(lcd_string)
K_string = Mid(lcd_string , Karct , 1)
X = X + 1
Next Karct
End

Vedd ki a MID-ből az utolsó egyest, nézd meg szimulátorban.
Már kínomban 3 hosszúra vettem az eredetileg 1-es K_string-et.
De így látványosabb, nekem összeszemeteli az többi változót is.
(ki van gyepálva, LCD karaktergenerátor virtuális képernyő kezelője)
JAni

[winnerbt]

Sziasztok!
Egy változó hosszúságú string 5-ik elemétől végig kellene nekem.
Van erre valami utasítás (túrtam, de nem találtam) vagy le kell kódolnom ki_string=mid(be_string,5,(LEN(Be_string)-5) vagy Right(LEN(be_string)-5) folyamatot?
JAni

[Robert]

string=mid(mit, honnan, maxhossza)
maxhossza:mit hossza - honnan (fejben számolható, konstans)

trükk: a stringben a 0 kodu karakterig "létezik" a string.


teszt:
dim a as string*30
a="1234asd"
replace a,3,chr(0)

fejből ment.

De egyszerűbb, ha
dim a as string*10
dim b as byte overlay at a+3

a="asdfghjkl"
print a
print b
b=0
print b
print a