;EAN-Codierung

EAN$ = Input("Bitte gebe den EAN-Code ein: ")

If PruefeEAN(EAN) = False Then
		Print "EAN-Code Ungültig!"
		WaitKey()
		End
Else
		ZeichneEAN(EAN,50,50,200,3)
		WaitKey()
		End
EndIf





;Diese Funktion prüft, ob die Prüfziffer richtig ist
Function PruefeEAN(EANCode$)
Local Pruefziffer%
Local Zahl%,counter%
Local ergebnis%

		Ergebnis = 0
		;Letzte Ziffer ist die Prüfziffer
		If Len(EANCode$) <> 13 Then Return False
		
		PruefZiffer = Right(EANCode$,1)
		;Ergebnis Erechnen mit jeder Zahl außer der Prüfziffer
		For counter = 0 To 10 Step 2
				Ergebnis = Ergebnis + Int(Mid(EANCode$,counter+1,1))
				Ergebnis = Ergebnis + Int(Mid(EANCode$,counter+2,1)) * 3
		Next
		Ergebnis = Ergebnis + PruefZiffer
		
		If Ergebnis Mod 10 = 0 Then
				Return True
		Else
				Return False
		EndIf
End Function




Function ZeichneEAN(EANCode$,x=50,y=50,height=100,width=1)
Local Ziffer% ;1.Ziffer im Code
Local counter% ;Schleifenzähler
Local Muster$,Codierung$

		Color 255,255,255
		;Erste Zahl entscheidet über die Codierung der ersten Folge
		Ziffer = Int(Left(EANCode$,1))
		;Wie wird dann der Rest codiert?
		Muster$ = CodeMuster(Ziffer)
		
		DrawBalken(x,y,width,height)
		x = x + 3* width
		
		For counter = 1 To 6
				If Mid(Muster$,counter,1) = "I" Then              ;Codierung mit A
						Codierung$ = CodeA(Mid(EANCode,counter+1,1))
						DrawCode(Codierung$,x,y,width,height)	
						x = x + width * 7
				Else                                              ;Codierung mit B
						Codierung$ = CodeB(Mid(EANCode,counter+1,1))
						DrawCode(Codierung$,x,y,width,height)
						x = x + width * 7
				EndIf
		Next
		
		x = x + width
		DrawBalken(x,y,width,height)
		x = x + 4* width
		
		For counter = 8 To 13
				Codierung$ = CodeC(Mid(EANCode,counter,1))         ;Codierung mit C
				DrawCode(Codierung$,x,y,width,height)
				x = x + width * 7	
		Next
		
		DrawBalken(x,y,width,height)
		
End Function 				



Function DrawBalken(x,y,width,height)
		Rect x,y,width,height + 10
		Rect x+ 2*width,y,width,height + 10
End Function






Function DrawCode(Codierung$,x,y,width,height)
Local counter ;Schleifenzähler
		For counter = 0 To 6
				If Mid(Codierung$,counter+1,1) = "I" Then	Rect x + counter * width,y,width,height,1
		Next
End Function 	
					
	
Function CodeMuster$(Ziffer)
		If Ziffer = 0 Then Return "IIIIII"
		If Ziffer = 1 Then Return "IIOIOO"
		If Ziffer = 2 Then Return "IIOOIO"
		If Ziffer = 3 Then Return "IIOOOI"
		If Ziffer = 4 Then Return "IOIIOO"
		If Ziffer = 5 Then Return "IOOIIO"
		If Ziffer = 6 Then Return "IOOOII"
		If Ziffer = 7 Then Return "IOIOIO"
		If Ziffer = 8 Then Return "IOIOOI"
		If Ziffer = 9 Then Return "IOOIOI"
End Function
		
Function CodeA$(Code)
		If Code = 0 Then Return  "OOOIIOI"
		If Code = 1 Then Return  "OOIIOOI"
		If Code = 2 Then Return  "OOIOOII"
		If Code = 3 Then Return  "OIIIIOI"
		If Code = 4 Then Return  "OIOOOII"
		If Code = 5 Then Return  "OIIOOOI"
		If Code = 6 Then Return  "OIOIIII"
		If Code = 7 Then Return  "OIIIOII"
		If Code = 8 Then Return  "OIIOIII"
		If Code = 9 Then Return  "OOOIOII"
End Function

Function CodeB$(Code)
		If Code = 0 Then Return  "OIOOIII"
		If Code = 1 Then Return  "OIIOOII"
		If Code = 2 Then Return  "OOIIOII"
		If Code = 3 Then Return  "OIOOOOI"
		If Code = 4 Then Return  "OOIIIOI"
		If Code = 5 Then Return  "OIIIOOI"
		If Code = 6 Then Return  "OOOOIOI"
		If Code = 7 Then Return  "OOIOOOI"
		If Code = 8 Then Return  "OOOIOOI"
		If Code = 9 Then Return  "OOIOIII"
End Function

Function CodeC$(Code)
		If Code = 0 Then Return  "IIIOOIO"
		If Code = 1 Then Return  "IIOOIIO"
		If Code = 2 Then Return  "IIOIIOO"
		If Code = 3 Then Return  "IOOOOIO"
		If Code = 4 Then Return  "IOIIIOO"
		If Code = 5 Then Return  "IOOIIIO"
		If Code = 6 Then Return  "IOIOOOO"
		If Code = 7 Then Return  "IOOOIOO"
		If Code = 8 Then Return  "IOOIOOO"
		If Code = 9 Then Return  "IIIOIOO"
End Function