logo elektroda
logo elektroda
X
logo elektroda
REKLAMA
REKLAMA
Adblock/uBlockOrigin/AdGuard mogą powodować znikanie niektórych postów z powodu nowej reguły.

[atmega128][FastAVR]problem z argumentem typu string

Salomon 24 Sie 2009 20:36 627 0
REKLAMA
  • #1 6930052
    Salomon
    Poziom 11  
    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
    
  • REKLAMA
REKLAMA