Hi All

I Hope someone can help me

I am trying to convert this code from Visual BASIC to Gambas

the code works out the check digit for a barcode number using Mod10CheckDigit (Based on https://www.freevbcode.com/ShowCode.asp?ID=1035)


but when the app runs I get on the following Line

Dim BarcodeLocal As Integer = 10 - IIf(Right(Total, 1) = 0, 10, Right(Total, 1))

Type Mismatch: wanted string, got integer instead in Global:274

I hope someone can advice me

as far as i can see at fast looking … you compare a char (right(Total, 1)) with an integer as you been told  b y the interpreter

as you dim an integer you may should do something like -> val(right(total,1))

PJBlack said

as far as i can see at fast looking … you compare a char (right(Total, 1)) with an integer as you been told  b y the interpreter

as you dim an integer you may should do something like -> val(right(total,1))

Hi PJ,

I tried that but I am still getting the same error. (Im struggling with this in Gambas hell I even struggled with this in VB and VB.net lol)

EDIT: changed to another version

The function just checks the last digit is zero so there are other ways.
Like using % that gives the remainder of a division
eg.

reduced to max …

Which type of barcode are you intending to use? If it is 128B then I have put the necessary code on the Farm called Own_Barcode.

EDIT

I have looked further into this and if you are trying to create codes for EAN barcodes your code needs to calculate the odd and even numbers from right to left see here. The following code seems to work for EAN barcodes used on books.

cogier said

Which type of barcode are you intending to use? If it is 128B then I have put the necessary code on the Farm called Own_Barcode.

EDIT

I have looked further into this and if you are trying to create codes for EAN barcodes your code needs to calculate the odd and even numbers from right to left see here. The following code seems to work for EAN barcodes used on books.

Code (gambas)

1. Public Sub Form_Open()
2.  
3.   Print Calc(978047008293) ''5
4.   Print Calc(978156592400) ''0
5.   Print Calc(978059600025) ''7
6.  
7. End
8.  
9. Public Sub Calc(sBarcode As String) As String
10.  
11.   Dim iLoop, iTotal, iCalc As Integer
12.  
13.   For iLoop = Len(sBarcode) - 1 To 1 Step -2
14.     iTotal += Val(sBarcode[iLoop]) * 3
15.     iTotal += Val(sBarcode[iLoop - 1])
16.   Next
17.  
18.   If Right(Str(iTotal)) <> "0" Then iCalc = Round((iTotal / 10) + 0.5) * 10 Else iCalc = Round(iTotal / 10) * 10
19.  
20.   Return sBarcode & Str(iCalc - iTotal)
21.  
22. End

Thank-you cogier that works perfectly with both EAN8 and EAN13 barcode numbers