I am getting a error on line Dim LocalBarcodeNumber As Integer = the error is "wanted sting got integer instead"

I though I had translated this right from VB.net but I must have missed something

Can some one spot where I have gone wrong as I have spent most of the day trying to figure out what I have done wrong.

If it works it should return a barcode number 10000007

Below is the VB Orginal code

You will have to see what the VB Right() function does.

In gambas it is a String function and can only be used on strings not integers.
you can use Str() and CInt() to convert to string and back to integer

Maybe something like this works…


Note: i did not use the second value of 1 for Right() as 1 is the default

and that end line…

 Return Mod10CheckDigit = (Barcode & BarcodeLocal)

what's that about?  you can't use the function name in the return value like that in gambas.

might be something more like this…

 Return CInt(Str(Barcode & BarcodeLocal))

 

In vb.net this is what the right command does


returns a specified number of characters from the right side of a string.

 But Total is an Integer not a String so  why are you using it on an integer value?

Any way I have no idea what it is supposed to do but this code works and does something


Note: you may get overflow if the number is too large using Integer and Long might be better

 Maybe check out the gambas barcode readers on the farm and forget VB code translating.

Cogier who runs this site wrote 3 of them so i'm sure he will be great for any help you may need.

(Click to enlarge)

BruceSteers said

Any way I have no idea what it is supposed to do but this code works and does something

Code (gambas)

1. Public Function Mod10CheckDigit(BarcodeNumber As String) As Integer
2.   Dim I As Integer
3.   Dim TotalOdd As Integer
4.   Dim TotalEven As Integer
5.   Dim Total As Integer
6.   BarcodeNumber = Trim(BarcodeNumber)
7.   'Get the Odd numbers
8.     For i = 1 To Len(BarcodeNumber) Step 2
9.         TotalOdd += CInt(Mid(BarcodeNumber, i, 1))
10.     Next
11.     TotalOdd = TotalOdd * 3
12.   'Get the Even numbers
13.     For i = 2 To Len(BarcodeNumber) Step 2
14.         TotalEven += CInt(Mid(BarcodeNumber, i, 1))
15.     Next
16.     Total = TotalOdd + TotalEven
17.     Dim LocalBarcodeNumber As Integer = 10 - IIf(Right(Str(Total), 1) = "0", 10, Right(Str(Total), 1))
18.    
19.    Return CInt(BarcodeNumber & CInt(LocalBarcodeNumber))
20.  
21. End Function
22.  
23.  

Note: you may get overflow if the number is too large using Integer and Long might be better

Thank you BruceSteers This worked perfectly