Can Oshonsoft use 'byref' in a FUNCTION? (Plus examples of CHAR MATCHING CODE)

DogFlu66 said:

With the new updates to the IDE, the match function of #55 is simplified to the following:

'The corresponding match function (IDE Pic18 v5.30).
Function match(input_str As Word, str_ix As Byte, match_str As Word) As Byte 'variable names can be changes
Symbol position_counter = input_str
Symbol shortposition = match_str
position_counter = input_str + str_ix
While Pointer(shortposition) > 0
If Pointer(position_counter) = Pointer(shortposition) Then
ReturnValue 1 'set the match indicator to valid
shortposition++ 'increment the short string position counter
Else
ReturnValue 0 'set the match indicator To Not valid
Exit 'jump out of the function
Endif
position_counter++
Wend
End Function 'the corresponding match function

Click to expand...

DogFlu66 said:

Can save memory by setting the length of the variables. But you have to keep in mind that you cannot assign a longer variable to a shorter one. The system will not give you an error but the program will not work properly. You have to assign it using "LeftStr" to adapt the lengths.

'***********************************************************************
'Funciones String
'Pic18F26k22, OshonSoft Pic18 Basic Compiler v5.32
'***********************************************************************
#define STRING_MAX_LENGTH = 75
UART1_Init 115200
main:
Dim String0 As String 'Maximum length established with the directive.
Dim String1[6] As String 'Length set by user.
Dim String2[6] As String
Dim String3[6] As String

String0 = "$GNRMC,000000.00,A,3723.02837,N,00150.39853,W,0.820,188.36,110706,,,A*74"

'Copy of a higher variable to a lower variable must be limited to the length of the lower variable.
String1 = LeftStr(String0, 6)
String2 = "GNRMC"

If match(String1, 1, String2) = 1 Then
UART_Write "Ok", CrLf
Else
UART_Write "No match", CrLf
Endif

End
'The corresponding match function (IDE Pic18 v5.32).
Function match(input_str[6] As String, str_ix As Byte, match_str[5] As String) As Byte 'variable names can be changes
Dim position_counter As Byte
Dim shortposition As Byte
position_counter = str_ix
shortposition = 0
While match_str(shortposition) > 0
If input_str(position_counter) = match_str(shortposition) Then
ReturnValue 1 'set the match indicator to valid
shortposition++ 'increment the short string position counter
Else
ReturnValue 0 'set the match indicator To Not valid
Exit 'jump out of the function
Endif
position_counter++
Wend
End Function 'the corresponding match function

Click to expand...

DogFlu66 said:

Yes, many of the abbreviations used in C have been added to the Ide. I imagine that Ide users have requested it. It doesn't particularly bother me, in fact once you get used to it they have many advantages.

Click to expand...

DogFlu66 said:

Applying it particularly to the declaration of arrays, with () is used to indicate the number of elements of a numeric array, and [] are used to declare the number of elements of a string array.

For example:
Dim sum(10) as byte '(Word and Long) Declares an array of 10 elements and each element has a length of 1Byte, the elements are named from 0 to 9 (index).
Accessing the first element of the array:
sum(0) = 20

Dim char[20] as string 'Declares an array of type string that will contain Ascii characters, with a length of 20 elements and each element with a length of one byte. There are a series of special functions to work with strings. You can also access each element of the string by treating it as if it were a normal array.
For example:
char(0) = "A"

Click to expand...

DogFlu66 said:

Sometimes by reading the manual we can find simpler ways to do something.

Match version:

#define STRING_MAX_LENGTH = 75
UART_Init 4800
Dim string1 As String
Dim string2[5] As String
Dim String3[5] As String

string1 = "!AIVDM,1,1,,B,4028jJivO;AJPOhKSNE4QQgP2<3j,0*5B"
string2 = MidStr(string1, 2, 5)
String3 = "AIVDM"

If String3 = string2 Then
UART_Write "Ok", CrLf
Else
UART_Write "No Match", CrLf
Endif

If string3 = MidStr(string1, 2, 5) Then
UART_Write "Ok", CrLf
Else
UART_Write "No Match", CrLf
Endif

While True
Wend

End

Click to expand...

DogFlu66 said:

Currently with the new update it is possible to use ByRef and ByRefOut with functions.

Click to expand...

camerart said:

Hi D,
At the moment I'm working on Shift registers and PWM, but when I come back to this thread, I'll see your note.
Thanks for the update!
C

Click to expand...

DogFlu66 said:

Now yes, with the new update when "By Ref" is used to pass an argument or data type string by reference it does work as a pointer, if you want to use it with string and work with the individual elements of the string you have no choice but to learn how use pointers.

Click to expand...