Array an Funktion übergeben

[for_ro]

Hallo Chris,
wenn du wenig Zeit hast, dann geht ByVal eigentlich gar nicht, denn dann würde der ganze String in den Frame kopiert, was unendlich Zeit benötigt. Wieso du dann für jeden String eine eigene Funktion brauchst, verstehe ich nicht.

Wenn du die Funktion so deklarierst:
Declare Function Searchstring(Strar() as byte, strsearch as byte) as byte
dann funktioniert die Übergabe als Array.

[Che Guevara]

Hi,

ich weiß, aber anders weiß ich momentan nicht, wie ichs machen soll!?
Wenn ich es so deklariere und dann so aufrufe:

   Tmp = Searchstring(gps_ovl(1) , 58)

gibts einen Fehler: "Byval should be used" weil eben gps_ovl() nicht in der Funktionsdeklaration drinnen ist.
Mit Byref greife ich ja auf den schon vorhandenen String zu, d.h. ich muss schon beim Programm schreiben festlegen, welchen String ich verwenden will. Wenn ich jetzt 5 Strings habe (wie in meinem Fall), dann bräuchte ich doch 5 Funktionen, wenn ich Byref verwende, oder verstehe ich da was falsch?

Gruß
Chris

[for_ro]

Hallo Chris,
den ByVal Hinweis bekommst du für die 58, weil er die ja nicht per ByRef übergeben kann.
In der Funktionsdeklaration ist natürlich ein lokales Array drin, nicht das Argument des Aufrufs. Daher brauchst du keine 5 Funktionen.

Declare Function Searchstring(Strar() as byte, byVal strsearch as byte) as byte
Tmp = Searchstring(gps_ovl(1) , 58)

[Che Guevara]

Hi,

ok, der Fehler ist schonmal weg, danke!
Ich dachte immer, mit Byref arbeitet man quasi mit einem Pointer, aber da war ich wohl falsch informiert.
Jetzt meckert er aber wieder:

$sim
$regfile = "xm32a4def.dat"
$crystal = 32000000
$framesize = 100
$hwstack = 100
$swstack = 100

$lib "xmega.lib"
$external _xmegafix_clear
$external _xmegafix_rol_r1014


Config Osc = Disabled , 32mhzosc = Enabled
Config Sysclock = 32mhz , Prescalea = 1 , Prescalebc = 1_1


Declare Function Searchstring(strar() As Byte , Strsearch As Byte) As Byte



Dim Gpsdata As String * 100
Dim Gps_ovl(100) As Byte At Gpsdata Overlay

Dim Tmp As Byte



Gpsdata = "asdfkjadshfb:lasdfjha:lasdj:laksdfj:"



Do


   Tmp = 58                                                 'Asc( ":")
   Tmp = Searchstring(gps_ovl(1) , Tmp)
   Print Tmp


Loop

End


Function Searchstring(strar() As Byte , Strsearch As Byte) As Byte

   Local I As Byte


   Searchstring = 0                                         'Vorbelegung, wenn Zeichen nicht gefunden

   For I = 1 To 255 Step 1
      If Strar(i) = 10 Then                                 'Lf
         'Exit For
      End If
      If Strar(i) = Strsearch Then
         Searchstring = I
         'Exit For
      End If
      Print Asc(strar(i)) ; ":" ;
   Next I


End Function

Bei der Zeile "If Strar(i) = 10 Then" ....

Gruß
Chris

[for_ro]

Arbeitest du vielleicht mit einer älteren Version des Compilers?
Irgendwann wurde das mal umgestellt. Bei mir (2.0.7.6) meckert er nicht.

[Che Guevara]

Ja, ich hab hier auf dem PC noch die 2.0.7.3 drauf... Wie wars den vorher? Mein I-net hier ist nicht so der Hit.

Gruß
Chris

[for_ro]

In der alten Version ging es so, wie du es anfangs geschrieben hattest, also einfach strar ohne Klammern.
Allerdings hast du bei genauerem Hinsehen noch andere Fehler drin.
Dies hier
Tmp = Searchstring(gps_ovl(1) , Tmp)
wird nicht gehen, weil du gleich zu Anfang den Funktionswert auf 0 setzt und damit wird Tmp auch auf 0 gesetzt.
Zum Testen hast du wohl noch dies drin
Print Asc(strar(i))
in strar(i) steht ja schon der ASCII Wert der Stringzeichen, die Funktion Asc ist also unnötig.