fork download
copy 
  1. Imports System
  2.  
  3. Public Class Test
  4. 	Public Shared Sub Main()
  5. 		dim line as string
  6. 		Do
  7. 			line = Console.ReadLine()
  8. 			if line isnot Nothing then Console.WriteLine(GetCode128BData(line))
  9. 		Loop While line isnot nothing
  10. 	End Sub
  11.  
  12. 	Public Shared Function GetCode128BData(ByVal Rawdata As String) As String
  13. 	Dim endcode As String = ""
  14.         Dim Startzeichen As Char = ChrW(204)
  15.         Dim StopZeichen As Char = ChrW(206)
  16.         Dim sum As Integer = 104
  17.         Dim factor As Integer = 1
  18.  
  19.         endcode += Startzeichen
  20.         endcode += Replace(Rawdata, " ", "ß")
  21.  
  22.         For i As Integer = 0 To Rawdata.Length - 1
  23.             sum += factor * (Asc(Rawdata(i)) - 32)
  24.             factor += 1
  25.         Next
  26.  
  27.         Dim pruef As Char
  28.         Dim refzahl As Integer = (sum Mod 103)
  29.  
  30.         If refzahl <= 94 Then
  31.             If refzahl = 0 Then
  32.                 pruef = ChrW(223)
  33.             Else
  34.                 pruef = (ChrW(refzahl + 32))
  35.             End If
  36.         Else
  37.             Select Case refzahl
  38.                 Case 95 : pruef = ChrW(195)
  39.                 Case 96 : pruef = ChrW(196)
  40.                 Case 97 : pruef = ChrW(197)
  41.                 Case 98 : pruef = ChrW(198)
  42.                 Case 99 : pruef = ChrW(199)
  43.                 Case 100 : pruef = ChrW(200)
  44.                 Case 101 : pruef = ChrW(201)
  45.                 Case 102 : pruef = ChrW(202)
  46.             End Select
  47.         End If
  48.  
  49.         endcode += pruef.ToString
  50.         endcode += StopZeichen
  51.         Return endcode
  52.     End Function
  53. End Class
Success #stdin #stdout 0.03s 26336KB
comments (?)
stdin
copy 
9180024613200
4444560012206
stdout
copy 
Ì9180024613200ÄÎ
Ì4444560012206GÎ
https://ideone.com/XUX2NF
language:
VB.NET (mono-3.10)
created:
1 day ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!