Class App Inherits Application

Const kEditClear = "&Löschen"

Const kFileQuit = "Beenden"

Const kFileQuitShortcut = ""

End Class

Class Window1 Inherits Window

EventHandler Sub Open() // download folder at dim f as FolderItem = SpecialFolder.Desktop.Child("blackbox") if f.Exists = false then MsgBox "Please download archive from http://zxing.googlecode.com/files/ZXing-2.1-testdata.zip and put blackbox folder on desktop." Return end if Thread1.run End EventHandler

Sub Dir(f as FolderItem) dim c as integer = f.Count for i as integer = 1 to c dim g as FolderItem = f.TrueItem(i) if g<>Nil then if g.Directory then dir g else dim r4 as string = g.name.Right(4) Select case r4 case ".jpg" dim t as FolderItem = g.parent.Child( Replace(g.name, ".jpg", ".txt")) test g, t case ".gif" dim t as FolderItem = g.parent.Child( Replace(g.name, ".gif", ".txt")) test g, t case ".png" dim t as FolderItem = g.parent.Child( Replace(g.name, ".png", ".txt")) test g, t end Select end if end if next End Sub

Sub Test(f as FolderItem, t as FolderItem) #pragma BreakOnExceptions false dim name as string = f.parent.name+"/"+f.name dim line as string dim FailedToReadFile,NoTextFile as Boolean // read text file if t.Exists then try dim tt as TextInputStream = TextInputStream.Open(t) tt.Encoding = encodings.UTF8 line = tt.ReadLine catch io as IOException FailedToReadFile = True end try else NoTextFile = true end if // get picture dim p as Picture = Picture.Open(f) // read image try dim b as zxingBinaryBitmapMBS = zxingBinaryBitmapMBS.CreateWithPicture(p) // zxing reader dim x as new zxingMultiFormatReaderMBS dim d as new zxingDecodeHintsMBS(zxingDecodeHintsMBS.DefaultHint) d.TryHarder = true x.setHints(d) dim result as zxingResultMBS = x.decode(b) dim bf as zxingBarcodeFormatMBS = result.BarcodeFormat // show result dim r as string = result.text if FailedToReadFile then list.AddRow name, line, r, "Failed to read text file" elseif NoTextFile then list.AddRow name, line, r, "" else dim re as string = "failed" if r = line then re = "okay" end if list.AddRow name, line, r, re end if catch re as zxingExceptionMBS list.AddRow name, line, "", "failed to decode image" end try End Sub

End Class

MenuBar MenuBar1

MenuItem FileMenu = "&Ablage"

MenuItem FileQuit = "#App.kFileQuit"

MenuItem EditMenu = "&Bearbeiten"

MenuItem EditUndo = "&Rückgängig"

MenuItem UntitledMenu1 = "-"

MenuItem EditCut = "&Ausschneiden"

MenuItem EditCopy = "&Kopieren"

MenuItem EditPaste = "&Einfügen"

MenuItem EditClear = "#App.kEditClear"

MenuItem UntitledMenu0 = "-"

MenuItem EditSelectAll = "&Alles auswählen"

End MenuBar