codice a barre

[cascinanet]

sapete convertire questo codice VB.NET in ASP.net? serve per avere la generazione di una stringa per essere utilizzata con il carattere ean 13 per generare i codici a barre, sarebbe molto utile... fatemi sapere. Ecco il codice buon lavoro:

Function FF_EAN13(CodeString As String)

Dim V1(9, 2) As String
V1(0, 0) = "a"
V1(0, 1) = "b"
V1(0, 2) = "c"
V1(1, 0) = "d"
V1(1, 1) = "e"
V1(1, 2) = "f"
V1(2, 0) = "g"
V1(2, 1) = "h"
V1(2, 2) = "i"
V1(3, 0) = "j"
V1(3, 1) = "k"
V1(3, 2) = "l"
V1(4, 0) = "m"
V1(4, 1) = "n"
V1(4, 2) = "o"
V1(5, 0) = "p"
V1(5, 1) = "q"
V1(5, 2) = "r"
V1(6, 0) = "s"
V1(6, 1) = "t"
V1(6, 2) = "u"
V1(7, 0) = "v"
V1(7, 1) = "w"
V1(7, 2) = "x"
V1(8, 0) = "y"
V1(8, 1) = "z"
V1(8, 2) = "A"
V1(9, 0) = "B"
V1(9, 1) = "C"
V1(9, 2) = "D"

Dim V2(9) As String
V2(0) = "000000"
V2(1) = "001011"
V2(2) = "001101"
V2(3) = "001110"
V2(4) = "010011"
V2(5) = "011001"
V2(6) = "011100"
V2(7) = "010101"
V2(8) = "010110"
V2(9) = "011010"

Dim X As String

Dim Risultato As String
Dim Codifica As Integer
Dim CheckDigit As Integer
Dim i As Integer

X = Trim(CodeString)
If Not IsNumeric(X) Or Len(CodeString) < 13 Then
FF_EAN13 = ""
Exit Function
End If
X = Left(CodeString, 13)

'Aggiunta del check-digit
CheckDigit = 0
For i = 1 To 11 Step 2
CheckDigit = CheckDigit + Val(Mid(X, i, 1))
CheckDigit = CheckDigit + Val(Mid(X, i + 1, 1)) * 3
Next i
CheckDigit = (10 - CheckDigit Mod 10) Mod 10
X = X & Trim(Str(CheckDigit))

'Trasformazione del 13. carattere (codificato come start/stop)
Codifica = Val(Left(X, 1))
Risultato = Left(X, 1)

'Trasformazione dei caratteri da 12 a 7
For i = 2 To 7
Risultato = Risultato & V1(Val(Mid(X, i, 1)), Val(Mid(V2(Codifica), i - 1, 1)))
Next i

'Aggiunta del carattere di controllo centrale
Risultato = Risultato & "G"

'Trasformazione dei caratteri da 6 a 1
For i = 8 To 13
Risultato = Risultato & V1(Val(Mid(X, i, 1)), 2)
Next i

'Aggiunta del carattere di start/stop finale
Risultato = Risultato & "F"

FF_EAN13 = Risultato

End Function

[zampa28]

Se la funzione serve a trasformae ad esempio 2222222222222 in 2gghhghGiiiiiiF sappi che non c'è niente da modificare.

[Pinotto]

ASP.NET non è un linguaggio di programmazione....

[cascinanet]

Originariamente inviato da zampa28
Se la funzione serve a trasformae ad esempio 2222222222222 in 2gghhghGiiiiiiF sappi che non c'è niente da modificare.

e cioè? posso mettere il codice direttamente in una pagina aspx?
non ho capito

[cascinanet]

ho provato a mettere il tutto in aspx ma mi da questo errore:

Errore di compilazione
Descrizione: Si è verificato un errore durante la compilazione di una risorsa necessaria per soddisfare la richiesta. Verificare i dettagli dell'errore specifico riportati di seguito e modificare il codice sorgente in modo appropriato.

Messaggio di errore del compilatore: BC30408: Il metodo "Public Function FF_EAN13(CodeString As String) As Object" non ha la stessa firma del delegato "Delegate Sub EventHandler(sender As Object, e As System.EventArgs)".

Errore nel codice sorgente:



Riga 102: <form runat="server">
Riga 103: <asp:TextBox id="CodeString" runat="server"></asp:TextBox>
Riga 104: <asp:Button id="Button1" onclick="FF_EAN13" text="via" runat="server"></asp:Button>
Riga 105:
Riga 106: </form>

[zampa28]

Sub Codifica(Obj as Object, E As EventArgs)
Response.Write(FF_EAN13(CodeString.Text))
End Sub
'-----------------------
Function FF_EAN13(CodeString As String) 

Dim V1(9, 2) As String 
V1(0, 0) = "a" 
V1(0, 1) = "b" 
V1(0, 2) = "c" 
V1(1, 0) = "d" 
V1(1, 1) = "e" 
V1(1, 2) = "f" 
V1(2, 0) = "g" 
V1(2, 1) = "h" 
V1(2, 2) = "i" 
V1(3, 0) = "j" 
V1(3, 1) = "k" 
V1(3, 2) = "l" 
V1(4, 0) = "m" 
V1(4, 1) = "n" 
V1(4, 2) = "o" 
V1(5, 0) = "p" 
V1(5, 1) = "q" 
V1(5, 2) = "r" 
V1(6, 0) = "s" 
V1(6, 1) = "t" 
V1(6, 2) = "u" 
V1(7, 0) = "v" 
V1(7, 1) = "w" 
V1(7, 2) = "x" 
V1(8, 0) = "y" 
V1(8, 1) = "z" 
V1(8, 2) = "A" 
V1(9, 0) = "B" 
V1(9, 1) = "C" 
V1(9, 2) = "D" 

Dim V2(9) As String 
V2(0) = "000000" 
V2(1) = "001011" 
V2(2) = "001101" 
V2(3) = "001110" 
V2(4) = "010011" 
V2(5) = "011001" 
V2(6) = "011100" 
V2(7) = "010101" 
V2(8) = "010110" 
V2(9) = "011010" 

Dim X As String 

Dim Risultato As String 
Dim Codifica As Integer 
Dim CheckDigit As Integer 
Dim i As Integer 

X = Trim(CodeString) 
If Not IsNumeric(X) Or Len(CodeString) < 13 Then 
FF_EAN13 = "" 
Exit Function 
End If 
X = Left(CodeString, 13) 

'Aggiunta del check-digit 
CheckDigit = 0 
For i = 1 To 11 Step 2 
CheckDigit = CheckDigit + Val(Mid(X, i, 1)) 
CheckDigit = CheckDigit + Val(Mid(X, i + 1, 1)) * 3 
Next i 
CheckDigit = (10 - CheckDigit Mod 10) Mod 10 
X = X & Trim(Str(CheckDigit)) 

'Trasformazione del 13. carattere (codificato come start/stop) 
Codifica = Val(Left(X, 1)) 
Risultato = Left(X, 1) 

'Trasformazione dei caratteri da 12 a 7 
For i = 2 To 7 
Risultato = Risultato & V1(Val(Mid(X, i, 1)), Val(Mid(V2(Codifica), i - 1, 1))) 
Next i 

'Aggiunta del carattere di controllo centrale 
Risultato = Risultato & "G" 

'Trasformazione dei caratteri da 6 a 1 
For i = 8 To 13 
Risultato = Risultato & V1(Val(Mid(X, i, 1)), 2) 
Next i 

'Aggiunta del carattere di start/stop finale 
Risultato = Risultato & "F" 

FF_EAN13 = Risultato 

End Function
'----------------

<asp:TextBox id="CodeString" runat="server"></asp:TextBox>
<asp:Button id="Button1" onclick="Codifica" text="via" runat="server"/>

[cascinanet]

non ho capito il perchè (da oggi comincerò a studiare asp.net) ma ora funziona
Grazie mille
Spero che il codice seva a qualcun'altro

saluti