Bascom und Übergabe von Variable

[wolf4124 (Gast)]

Hallo

Ich bekomme es einfach nicht hin meinen string in eine Funktion zu
übertragen.
Mein Code in Bascom




Declare Sub Test(zahl As string * 1)

Dim Temp As String * 1

Do
Temp = ""
Call Test(Temp)
Loop
End


Sub Test([byref]zahl As string * 1)
local wert as byte

wert = asc(zahl)
print wert

End Sub




Habe auch schon ausprobiert von byref auf byval zu schalten. Auch
nichts.
Er meckert be der Funktion wert = asc(zahl), weil der typ der Variable
nicht übereinstimmt


Danke für eure Hilfe

[harry (Gast)]

hi,

in deinem beispiel ist der string leer
ist WERT als byte definiert?

probier mal:

dim TEMP as string * 1
dim ZAHL as byte
dim WERT as byte

declare sub TEST

do
  for ZAHL = 0 to 255
    TEMP = chr(ZAHL)
    gosub TEST
    waitms 100
  next
loop

End


Sub Test

  wert = asc(TEMP)
  print wert
  return

End Sub