ze stringu prečtení znaku na určitém místě

[radareq]

Zdravim potreboval bych zas poradit :
Je to zkraceny, ale hlavne potrebuju nejak udelat aby to na display napsalo čtvrtej znak z toho A....bohuzel takhle to neche fungovat..ted ma U hodnotu 52...ale ja potrebuju 4:)moc dik za rady

Kód: Vybrat vše

Dim A As Long
Dim X As String *20
Dim W(20) As Byte At X Overlay
Dim U As Long

Do
A = 123455
X = Str(a)
U = W(4)

Cls
Lcd U
Waitms 50
Loop
End

[hakamusai]

Nešlo by tam dát něco jako a[4] ? ( takhle je to v Pascalu)

[AB1]

Kód: Vybrat vše

Dim Str1 As String * 20
Dim Z As String * 1

Do
   Str1 = "ABCDEF"
   Z = Mid(str1 , 4 , 1)      'do Z zkopíruj 1 znak od pozice 4
   Cls
   Lcd Z
   Waitms 50
Loop

End

[Andrea]

Zdravim potreboval bych zas poradit :
Je to zkraceny, ale hlavne potrebuju nejak udelat aby to na display napsalo čtvrtej znak z toho A....bohuzel takhle to neche fungovat..ted ma U hodnotu 52...ale ja potrebuju 4:)moc dik za rady

Dyť to funguje správně, čtvrtý znak je '4' a ta má ASCII hodnotu 52. A protože ten znak načítáš do proměnné typu long, tak se zobrazí jako číslo, tj. 52. Pokud to chceš zobrazit jako znak, musíš dát Lcd Chr(U).