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
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
Bitte melde dich an um einen Beitrag zu schreiben. Anmeldung ist kostenlos und dauert nur eine Minute.
Bestehender Account
Schon ein Account bei Google/GoogleMail? Keine Anmeldung erforderlich!
Mit Google-Account einloggen
Mit Google-Account einloggen
Noch kein Account? Hier anmelden.