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
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