VB to DBPro - how to read VB command layout.

Author

Message

HowDo

23

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 12th Apr 2012 13:43

Link

Hi, found a program which I am tring to convewrt but there a bit is does that I am not sure how you read to get it to do the same in DBPro.

it looks like this

+ Code Snippet

Public Function ConvertToBarCode(stLine As String) As String
    Dim StartA As Integer, StartB As Integer, check_digit As String
    Dim bar_str As String, bar_val As Integer, checksum As Long
    Dim I As Integer
    Dim LineSrc As String
    Dim bcChar As String
    Dim Myresult As Integer
    LineSrc = UCase(Trim(stLine))
    StartA = 103
    StartB = 104
    check_digit = 0
    bar_str = "{"
    bar_val = 0
    checksum = StartA


    For I = 1 To Len(LineSrc)
        bcChar = Mid(LineSrc, I, 1)


        If bcChar = " " Then
            bar_str = bar_str + Chr(174)
            checksum = checksum + (0 * I)
        Else
            bar_str = bar_str + bcChar
            bar_val = GetBarCodeID(bcChar)
            checksum = checksum + (bar_val * I)
        End If
    Next I
    Myresult = checksum Mod StartA
    check_digit = GetBarCodeStr(Myresult)
    ConvertToBarCode = bar_str + check_digit + "~"
End Function

the line that I am not sure about is second from end, is it put the result there or trying to call the function again.
Got most of the code converted but cannot see how that be works.

here a link to page with the full code.
http://www.planet-source-code.com/vb/scripts/ShowCodeAsText.asp?txtCodeId=33826&lngWId=1

here's what I have so far in DBPro

SYNC ON
SYNC RATE 60

do
sync
input "input number to be convert to string ",text$

result$ = ConvertToBarCode(text$)
print result$
sync
sync

LOOP

Function ConvertToBarCode(stLine As String)
    StartA As Integer  
    StartB As Integer  
    check_digit As String
    bar_str As String  
    bar_val As Integer  
    checksum As integer
    I As Integer
    LineSrc As String
    bcChar As String
    Myresult As Integer
    LineSrc = upper$(stLine)
    StartA = 103
    StartB = 104
    check_digit ="0"
    bar_str = "{"
    bar_val = 0
    checksum = StartA

For I = 1 To Len(LineSrc)
        bcChar = Mid$(LineSrc, I, 1)

If bcChar = " " 
            bar_str = bar_str + Chr$(174)
            checksum = checksum + (0 * I)
        Else
            bar_str = bar_str + bcChar
            bar_val = GetBarCodeID(bcChar)
            checksum = checksum + (bar_val * I)
        EndIf
    Next I
    Myresult = checksum Mod StartA
    check_digit = GetBarCodeStr(Myresult)
    textresult$ = bar_str + check_digit + "~"
`      ConvertToBarCode = bar_str + check_digit + "~"

EndFunction textresult$

Function GetBarCodeStr(myid As Integer)
    ' These values are not ASCII values, you
    '     cannot use the chr() function.
    ' These are unique to the Barcode system
    '     
mystr As String

Select myid
        Case 0: mystr = "®" :endcase
        Case 1: mystr = "!":endcase
        Case 2: mystr = """":endcase
        Case 3: mystr = "#":endcase
        Case 4: mystr = "$":endcase
        Case 5: mystr = "%":endcase
        Case 6: mystr = "&":endcase
        Case 7: mystr = "'":endcase
        Case 8: mystr = "(":endcase
        Case 9: mystr = ")":endcase
        Case 10: mystr = "*":endcase
        Case 11: mystr = "+":endcase
        Case 12: mystr = ",":endcase
        Case 13: mystr = "-":endcase
        Case 14: mystr = ".":endcase
        Case 15: mystr = "/":endcase
        Case 16: mystr = "0":endcase
        Case 17: mystr = "1":endcase
        Case 18: mystr = "2":endcase
        Case 19: mystr = "3":endcase
        Case 20: mystr = "4":endcase
        Case 21: mystr = "5":endcase
        Case 22: mystr = "6":endcase
        Case 23: mystr = "7":endcase
        Case 24: mystr = "8":endcase
        Case 25: mystr = "9":endcase
        Case 26: mystr = ":":endcase
        Case 27: mystr = ";":endcase
        Case 28: mystr = "<":endcase
        Case 29: mystr = "=":endcase
        Case 30: mystr = ">":endcase
        Case 31: mystr = "?":endcase
        Case 32: mystr = "@":endcase
        Case 33: mystr = "A":endcase
        Case 34: mystr = "B":endcase
        Case 35: mystr = "C":endcase
        Case 36: mystr = "D":endcase
        Case 37: mystr = "E":endcase
        Case 38: mystr = "F":endcase
        Case 39: mystr = "G":endcase
        Case 40: mystr = "H":endcase
        Case 41: mystr = "I":endcase
        Case 42: mystr = "J":endcase
        Case 43: mystr = "K":endcase
        Case 44: mystr = "L":endcase
        Case 45: mystr = "M":endcase
        Case 46: mystr = "N":endcase
        Case 47: mystr = "O":endcase
        Case 48: mystr = "P":endcase
        Case 49: mystr = "Q":endcase
        Case 50: mystr = "R":endcase
        Case 51: mystr = "S":endcase
        Case 52: mystr = "T":endcase
        Case 53: mystr = "U":endcase
        Case 54: mystr = "V":endcase
        Case 55: mystr = "W":endcase
        Case 56: mystr = "X":endcase
        Case 57: mystr = "Y":endcase
        Case 58: mystr = "Z":endcase
        Case 59: mystr = "[":endcase
        Case 60: mystr = "\":endcase
        Case 61: mystr = "]":endcase
        Case 62: mystr = "^":endcase
        Case 63: mystr = "_":endcase
        Case 64: mystr = "`":endcase
        Case 65: mystr = "a":endcase
        Case 66: mystr = "b":endcase
        Case 67: mystr = "c":endcase
        Case 68: mystr = "d":endcase
        Case 69: mystr = "e":endcase
        Case 70: mystr = "f":endcase
        Case 71: mystr = "g":endcase
        Case 72: mystr = "h":endcase
        Case 73: mystr = "i":endcase
        Case 74: mystr = "j":endcase
        Case 75: mystr = "k":endcase
        Case 76: mystr = "l":endcase
        Case 77: mystr = "m":endcase
        Case 78: mystr = "n":endcase
        Case 79: mystr = "o":endcase
        Case 80: mystr = "p":endcase
        Case 81: mystr = "q":endcase
        Case 82: mystr = "r":endcase
        Case 83: mystr = "s":endcase
        Case 84: mystr = "t":endcase
        Case 85: mystr = "u":endcase
        Case 86: mystr = "v":endcase
        Case 87: mystr = "w":endcase
        Case 88: mystr = "x":endcase
        Case 89: mystr = "y":endcase
        Case 90: mystr = "z":endcase
        Case 91: mystr = "¡":endcase
        Case 92: mystr = "¢":endcase
        Case 93: mystr = "£":endcase
        Case 94: mystr = "¤":endcase
        Case 95: mystr = "¥":endcase
        Case 96: mystr = "¦":endcase
        Case 97: mystr = "§":endcase
        Case 98: mystr = "¨":endcase
        Case 99: mystr = "©":endcase
        Case 100: mystr = "ª":endcase
        Case 101: mystr = "«":endcase
        Case 102: mystr = "¬":endcase
        Case 103: mystr = "{":endcase
        Case 104: mystr = "|":endcase
        Case 105: mystr = "}":endcase
    EndSelect
`GetBarCodeStr = mystr
EndFunction mystr

Function GetBarCodeID(mystr As String)
 myid As Integer
    Select mystr
        Case "®": myid = 0:endcase
        Case "!": myid = 1:endcase
        Case """": myid = 2 :endcase
        Case "#": myid = 3:endcase
        Case "$": myid = 4:endcase
        Case "%": myid = 5:endcase
        Case "&": myid = 6:endcase
        Case "'": myid = 7:endcase
        Case "(": myid = 8:endcase
        Case ")": myid = 9:endcase
        Case "*": myid = 10:endcase
        Case "+": myid = 11:endcase
        Case ",": myid = 12:endcase
        Case "-": myid = 13:endcase
        Case ".": myid = 14:endcase
        Case "/": myid = 15:endcase
        Case "0": myid = 16:endcase
        Case "1": myid = 17:endcase
        Case "2": myid = 18:endcase
        Case "3": myid = 19:endcase
        Case "4": myid = 20:endcase
        Case "5": myid = 21:endcase
        Case "6": myid = 22:endcase
        Case "7": myid = 23:endcase
        Case "8": myid = 24:endcase
        Case "9": myid = 25:endcase
        Case ":": myid = 26:endcase
        Case ";": myid = 27:endcase
        Case "<": myid = 28:endcase
        Case "=": myid = 29:endcase
        Case ">": myid = 30:endcase
        Case "?": myid = 31:endcase
        Case "@": myid = 32:endcase
        Case "A": myid = 33:endcase
        Case "B": myid = 34:endcase
        Case "C": myid = 35:endcase
        Case "D": myid = 36:endcase
        Case "E": myid = 37:endcase
        Case "F": myid = 38:endcase
        Case "G": myid = 39:endcase
        Case "H": myid = 40:endcase
        Case "I": myid = 41:endcase
        Case "J": myid = 42:endcase
        Case "K": myid = 43:endcase
        Case "L": myid = 44:endcase
        Case "M": myid = 45:endcase
        Case "N": myid = 46:endcase
        Case "O": myid = 47:endcase
        Case "P": myid = 48:endcase
        Case "Q": myid = 49:endcase
        Case "R": myid = 50:endcase
        Case "S": myid = 51:endcase
        Case "T": myid = 52:endcase
        Case "U": myid = 53:endcase
        Case "V": myid = 54:endcase
        Case "W": myid = 55:endcase
        Case "X": myid = 56:endcase
        Case "Y": myid = 57:endcase
        Case "Z": myid = 58:endcase
        Case "[": myid = 59:endcase
        Case "\": myid = 60:endcase
        Case "]": myid = 61:endcase
        Case "^": myid = 62:endcase
        Case "_": myid = 63:endcase
        Case "`": myid = 64:endcase
        Case "a": myid = 65:endcase
        Case "b": myid = 66:endcase
        Case "c": myid = 67:endcase
        Case "d": myid = 68:endcase
        Case "e": myid = 69:endcase
        Case "f": myid = 70:endcase
        Case "g": myid = 71:endcase
        Case "h": myid = 72:endcase
        Case "i": myid = 73:endcase
        Case "j": myid = 74:endcase
        Case "k": myid = 75:endcase
        Case "l": myid = 76:endcase
        Case "m": myid = 77:endcase
        Case "n": myid = 78:endcase
        Case "o": myid = 79:endcase
        Case "p": myid = 80:endcase
        Case "q": myid = 81:endcase
        Case "r": myid = 82:endcase
        Case "s": myid = 83:endcase
        Case "t": myid = 84:endcase
        Case "u": myid = 85:endcase
        Case "v": myid = 86:endcase
        Case "w": myid = 87:endcase
        Case "x": myid = 88:endcase
        Case "y": myid = 89:endcase
        Case "z": myid = 90:endcase
        Case "¡": myid = 91:endcase
        Case "¢": myid = 92:endcase
        Case "£": myid = 93:endcase
        Case "¤": myid = 94:endcase
        Case "¥": myid = 95:endcase
        Case "¦": myid = 96:endcase
        Case "§": myid = 97:endcase
        Case "¨": myid = 98:endcase
        Case "©": myid = 99:endcase
        Case "ª": myid = 100:endcase
        Case "«": myid = 101:endcase
        Case "¬": myid = 102:endcase
        Case "{": myid = 103:endcase
        Case "|": myid = 104:endcase
        Case "}": myid = 105:endcase
    EndSelect
`GetBarCodeID = myid
EndFunction myid

+ Code Snippet

SYNC ON
SYNC RATE 60

do
sync
input "input number to be convert to string ",text$

result$ = ConvertToBarCode(text$)
print result$
sync
sync

    
LOOP



Function ConvertToBarCode(stLine As String)
    StartA As Integer  
    StartB As Integer  
    check_digit As String
    bar_str As String  
    bar_val As Integer  
    checksum As integer
    I As Integer
    LineSrc As String
    bcChar As String
    Myresult As Integer
    LineSrc = upper$(stLine)
    StartA = 103
    StartB = 104
    check_digit ="0"
    bar_str = "{"
    bar_val = 0
    checksum = StartA 


    For I = 1 To Len(LineSrc)
        bcChar = Mid$(LineSrc, I, 1)


        If bcChar = " " 
            bar_str = bar_str + Chr$(174)
            checksum = checksum + (0 * I)
        Else
            bar_str = bar_str + bcChar
            bar_val = GetBarCodeID(bcChar)
            checksum = checksum + (bar_val * I)
        EndIf
    Next I
    Myresult = checksum Mod StartA
    check_digit = GetBarCodeStr(Myresult)
    textresult$ = bar_str + check_digit + "~"
`      ConvertToBarCode = bar_str + check_digit + "~"

EndFunction textresult$


Function GetBarCodeStr(myid As Integer)
    ' These values are not ASCII values, you
    '     cannot use the chr() function.
    ' These are unique to the Barcode system
    '     
mystr As String


    Select myid
        Case 0: mystr = "®" :endcase
        Case 1: mystr = "!":endcase
        Case 2: mystr = """":endcase
        Case 3: mystr = "#":endcase
        Case 4: mystr = "$":endcase
        Case 5: mystr = "%":endcase
        Case 6: mystr = "&":endcase
        Case 7: mystr = "'":endcase
        Case 8: mystr = "(":endcase
        Case 9: mystr = ")":endcase
        Case 10: mystr = "*":endcase
        Case 11: mystr = "+":endcase
        Case 12: mystr = ",":endcase
        Case 13: mystr = "-":endcase
        Case 14: mystr = ".":endcase
        Case 15: mystr = "/":endcase
        Case 16: mystr = "0":endcase
        Case 17: mystr = "1":endcase
        Case 18: mystr = "2":endcase
        Case 19: mystr = "3":endcase
        Case 20: mystr = "4":endcase
        Case 21: mystr = "5":endcase
        Case 22: mystr = "6":endcase
        Case 23: mystr = "7":endcase
        Case 24: mystr = "8":endcase
        Case 25: mystr = "9":endcase
        Case 26: mystr = ":":endcase
        Case 27: mystr = ";":endcase
        Case 28: mystr = "<":endcase
        Case 29: mystr = "=":endcase
        Case 30: mystr = ">":endcase
        Case 31: mystr = "?":endcase
        Case 32: mystr = "@":endcase
        Case 33: mystr = "A":endcase
        Case 34: mystr = "B":endcase
        Case 35: mystr = "C":endcase
        Case 36: mystr = "D":endcase
        Case 37: mystr = "E":endcase
        Case 38: mystr = "F":endcase
        Case 39: mystr = "G":endcase
        Case 40: mystr = "H":endcase
        Case 41: mystr = "I":endcase
        Case 42: mystr = "J":endcase
        Case 43: mystr = "K":endcase
        Case 44: mystr = "L":endcase
        Case 45: mystr = "M":endcase
        Case 46: mystr = "N":endcase
        Case 47: mystr = "O":endcase
        Case 48: mystr = "P":endcase
        Case 49: mystr = "Q":endcase
        Case 50: mystr = "R":endcase
        Case 51: mystr = "S":endcase
        Case 52: mystr = "T":endcase
        Case 53: mystr = "U":endcase
        Case 54: mystr = "V":endcase
        Case 55: mystr = "W":endcase
        Case 56: mystr = "X":endcase
        Case 57: mystr = "Y":endcase
        Case 58: mystr = "Z":endcase
        Case 59: mystr = "[":endcase
        Case 60: mystr = "\":endcase
        Case 61: mystr = "]":endcase
        Case 62: mystr = "^":endcase
        Case 63: mystr = "_":endcase
        Case 64: mystr = "`":endcase
        Case 65: mystr = "a":endcase
        Case 66: mystr = "b":endcase
        Case 67: mystr = "c":endcase
        Case 68: mystr = "d":endcase
        Case 69: mystr = "e":endcase
        Case 70: mystr = "f":endcase
        Case 71: mystr = "g":endcase
        Case 72: mystr = "h":endcase
        Case 73: mystr = "i":endcase
        Case 74: mystr = "j":endcase
        Case 75: mystr = "k":endcase
        Case 76: mystr = "l":endcase
        Case 77: mystr = "m":endcase
        Case 78: mystr = "n":endcase
        Case 79: mystr = "o":endcase
        Case 80: mystr = "p":endcase
        Case 81: mystr = "q":endcase
        Case 82: mystr = "r":endcase
        Case 83: mystr = "s":endcase
        Case 84: mystr = "t":endcase
        Case 85: mystr = "u":endcase
        Case 86: mystr = "v":endcase
        Case 87: mystr = "w":endcase
        Case 88: mystr = "x":endcase
        Case 89: mystr = "y":endcase
        Case 90: mystr = "z":endcase
        Case 91: mystr = "¡":endcase
        Case 92: mystr = "¢":endcase
        Case 93: mystr = "£":endcase
        Case 94: mystr = "¤":endcase
        Case 95: mystr = "¥":endcase
        Case 96: mystr = "¦":endcase
        Case 97: mystr = "§":endcase
        Case 98: mystr = "¨":endcase
        Case 99: mystr = "©":endcase
        Case 100: mystr = "ª":endcase
        Case 101: mystr = "«":endcase
        Case 102: mystr = "¬":endcase
        Case 103: mystr = "{":endcase
        Case 104: mystr = "|":endcase
        Case 105: mystr = "}":endcase
    EndSelect
`GetBarCodeStr = mystr
EndFunction mystr


Function GetBarCodeID(mystr As String)
 myid As Integer
    Select mystr
        Case "®": myid = 0:endcase
        Case "!": myid = 1:endcase
        Case """": myid = 2 :endcase
        Case "#": myid = 3:endcase
        Case "$": myid = 4:endcase
        Case "%": myid = 5:endcase
        Case "&": myid = 6:endcase
        Case "'": myid = 7:endcase
        Case "(": myid = 8:endcase
        Case ")": myid = 9:endcase
        Case "*": myid = 10:endcase
        Case "+": myid = 11:endcase
        Case ",": myid = 12:endcase
        Case "-": myid = 13:endcase
        Case ".": myid = 14:endcase
        Case "/": myid = 15:endcase
        Case "0": myid = 16:endcase
        Case "1": myid = 17:endcase
        Case "2": myid = 18:endcase
        Case "3": myid = 19:endcase
        Case "4": myid = 20:endcase
        Case "5": myid = 21:endcase
        Case "6": myid = 22:endcase
        Case "7": myid = 23:endcase
        Case "8": myid = 24:endcase
        Case "9": myid = 25:endcase
        Case ":": myid = 26:endcase
        Case ";": myid = 27:endcase
        Case "<": myid = 28:endcase
        Case "=": myid = 29:endcase
        Case ">": myid = 30:endcase
        Case "?": myid = 31:endcase
        Case "@": myid = 32:endcase
        Case "A": myid = 33:endcase
        Case "B": myid = 34:endcase
        Case "C": myid = 35:endcase
        Case "D": myid = 36:endcase
        Case "E": myid = 37:endcase
        Case "F": myid = 38:endcase
        Case "G": myid = 39:endcase
        Case "H": myid = 40:endcase
        Case "I": myid = 41:endcase
        Case "J": myid = 42:endcase
        Case "K": myid = 43:endcase
        Case "L": myid = 44:endcase
        Case "M": myid = 45:endcase
        Case "N": myid = 46:endcase
        Case "O": myid = 47:endcase
        Case "P": myid = 48:endcase
        Case "Q": myid = 49:endcase
        Case "R": myid = 50:endcase
        Case "S": myid = 51:endcase
        Case "T": myid = 52:endcase
        Case "U": myid = 53:endcase
        Case "V": myid = 54:endcase
        Case "W": myid = 55:endcase
        Case "X": myid = 56:endcase
        Case "Y": myid = 57:endcase
        Case "Z": myid = 58:endcase
        Case "[": myid = 59:endcase
        Case "\": myid = 60:endcase
        Case "]": myid = 61:endcase
        Case "^": myid = 62:endcase
        Case "_": myid = 63:endcase
        Case "`": myid = 64:endcase
        Case "a": myid = 65:endcase
        Case "b": myid = 66:endcase
        Case "c": myid = 67:endcase
        Case "d": myid = 68:endcase
        Case "e": myid = 69:endcase
        Case "f": myid = 70:endcase
        Case "g": myid = 71:endcase
        Case "h": myid = 72:endcase
        Case "i": myid = 73:endcase
        Case "j": myid = 74:endcase
        Case "k": myid = 75:endcase
        Case "l": myid = 76:endcase
        Case "m": myid = 77:endcase
        Case "n": myid = 78:endcase
        Case "o": myid = 79:endcase
        Case "p": myid = 80:endcase
        Case "q": myid = 81:endcase
        Case "r": myid = 82:endcase
        Case "s": myid = 83:endcase
        Case "t": myid = 84:endcase
        Case "u": myid = 85:endcase
        Case "v": myid = 86:endcase
        Case "w": myid = 87:endcase
        Case "x": myid = 88:endcase
        Case "y": myid = 89:endcase
        Case "z": myid = 90:endcase
        Case "¡": myid = 91:endcase
        Case "¢": myid = 92:endcase
        Case "£": myid = 93:endcase
        Case "¤": myid = 94:endcase
        Case "¥": myid = 95:endcase
        Case "¦": myid = 96:endcase
        Case "§": myid = 97:endcase
        Case "¨": myid = 98:endcase
        Case "©": myid = 99:endcase
        Case "ª": myid = 100:endcase
        Case "«": myid = 101:endcase
        Case "¬": myid = 102:endcase
        Case "{": myid = 103:endcase
        Case "|": myid = 104:endcase
        Case "}": myid = 105:endcase
    EndSelect
`GetBarCodeID = myid
EndFunction myid

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Pincho Paxton

23

Years of Service

User Offline

Joined: 8th Dec 2002

Location:

Posted: 12th Apr 2012 16:27 Edited at: 12th Apr 2012 16:33

Link

I think it's this....

ConvertToBarCode = str$(bar_str) + str$(check_digit) + "~"

...or you may have to add $ strings to the end of you arrays, like bar_str$, and check_digit$

Or it might just work how it is, but I always use the $ character on strings.

Back to top

Profile PM Email Website

ShaunRW

DBPro Developer

18

Years of Service

User Offline

Joined: 7th Jan 2008

Location: Brisbane, Australia

Posted: 12th Apr 2012 17:06

Link

Also, I don't think you can do this mystr = """". If you want quotation marks in a string you have to do use this chr$(34).

Games: (Roller Controller)(Dots n Boxes)
DBPrp Plugins: (Timer Based Movement)

Back to top

Profile PM Email

HowDo

23

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 12th Apr 2012 18:58

Link

ShaunRW seem you are right, however the complier also say I cannot use chr$(34), so now I am wondering how do I do a " in case format.

case """ not allowed
case chr$(34) not allowed
case ""+chr$(34)+"" not allowed
case """" ok but I think this means ""

so any other way of writing it " in a case select.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Andrew_Neale

16

Years of Service

User Offline

Joined: 3rd Nov 2009

Location: The Normandy SR-2

Posted: 12th Apr 2012 19:53

Link

You may have to leave that special circumstance for the 'case default' and then do an 'if' check rather than a case. Not ideal by any means but I can't think how else to achieve it off the top of my head. I don't believe that DarkBASIC has a way of escaping characters other than the 'chr$()' method but as that is a function call it doesn't count as a string literal and hence can't be used in the 'case'.

Previously TEH_CODERER.

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Professional Discussion / VB to DBPro - how to read VB command layout.