Witam, mam problem z prawidłowym przesłaniem argumentu typu „string” do procedury. Według przykładu poniżej bez problemu mogę wysyłać za pomocą pętli „for” i procedury „usbwr” trzy znaki „ram” do usb natomiast, gdy za pomocą procedury „usbwrstr” o parametrze typu „string” chcę dosłać jeszcze pierwszy znak z ww. paczki pojawiają się śmieci. Dlaczego?
Declare Sub USBWr(dana As Byte)
Declare Sub usbwrstr( m As String*3)
Dim a As Byte
Dim b As String*3
Dim c As String*1
Dim d As String*1
Do
b="ram"
For a=1 To 3
c=Mid(b,a,1)
usbwr (Asc(c))
Next
usbwrstr(b)
Loop
Sub usbwrstr (m As String*3)
d=Mid(m,1,1)
usbwr (Asc(d))
End Sub