Diskuzní fórum Elektro Bastlírny

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

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

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

radareq píše: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).

Diskuzní fórum Elektro Bastlírny

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

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

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