a = 100101
b = 111001
    ------
    -XXX-- <-- unterschiedliche Bits mit X markiert

Graphics 800, 600, 32, 2

; Typen

Type TNum
   Field num
End Type

; Hauptprogramm

Eingabe()
Print ""
Print "Die Hamming Distanz betraegt: " + HammingDist()

WaitKey
End

; Funktionsteil

; =======================
;
; Eingabe()
;

Function Eingabe()
   Repeat
      value$ = Input$( "Zahl eingeben mit 'End' wird die eingabe beendet " )
      
      If ( Int( value$ ) > 255 ) Then
         Print "Leider zu groß die Zahl (>255)"
      ElseIf ( value$ <> "End" )
         newNum.TNum = New TNum
         newNum\num = Int( value )
      End If
   Until value$ = "End"
End Function

; =======================
;
; HammingDist()
;

Function HammingDist$()
   Local result = 0
   Local tmpA.TNum, tmpB.TNum
   
    a.TNum = First TNum
   
   Repeat
      b.TNum = First TNum
      
      Repeat
          If ( a <> b )
             tmp = BitDist( a\num, b\num )

            If ( tmp < result Or result = 0 ) Then
               tmpA = a
               tmpB = b
               result = tmp
            End If
         EndIf
         
         b = After b
      Until b = Null
      
      a = After a
   Until a = Null
   
   Return result + ", zwischen " + tmpA\num + " und " + tmpB\num;
End Function

; =======================
;
; BitDist()
;

Function BitDist( val1, val2 )
    Local cnt    = 0
   Local i      = 1
   
   val3 = val1 Xor val2
   
   While i < 256
      If ( val3 And i ) Then cnt = cnt + 1
      
      i = i * 2
   Wend
   
   Return cnt
End Function

Graphics 640,300,32,0
SetBuffer BackBuffer()

Type ZahlType
   Field dez%
   Field dual$
   Field id%
End Type

Type ErgType
   Field Bezug$
   Field Bit%
End Type


Global vari.ZahlType
Global Ergebnis.ErgType
Global Count% = 0

   
; Eingabe
Repeat   

   tmp3% = Input("Bitte geben sie eine Zahl zwischen 0 und 255, wenn sie aufhören möchten -1: ")
   If tmp3% > 0 And tmp3% < 255 Then Eingabe(tmp3%)
   
Until tmp3% = -1

; Rechnung
If First ZahlType <> Null
   Local f = 0
   
   For v.ZahlType = Each ZahlType
      f = f + 1
      For vari.ZahlType = Each ZahlType
         
         If v <> vari And vari\id% >= f Then
            Ergebnis.ErgType    = New ErgType
             Ergebnis\Bezug$    = v\id% + " und " + vari\id%
             Ergebnis\Bit%       = 0
          
            For j = 8 To 1 Step - 1
               If ( Mid$(v\dual$,j,1) Xor Mid$(vari\dual$,j,1) ) = 1 Then Ergebnis\Bit% = Ergebnis\Bit% + 1
            Next
            
         End If
         
      Next
   Next
   
End If
   
; Hauptschleife
Repeat
   
   Cls   
   Local k = 20
   Local min_distanz% = 10
   Local min_bezug$
   j = 0
   
   ; Ausgabe
   If First ErgType <> Null
      For Ergebnis.ErgType = Each ErgType
         
         k = k + 20
         If min_distanz > Ergebnis\Bit% Then
            min_distanz    = Ergebnis\Bit%
            min_bezug$       = Ergebnis\Bezug$
         End If
         
         Text 20,20, " Bezug:           Hamming-Distanz "
         Text 20,k,  Ergebnis\Bezug$ + "               " + Ergebnis\Bit%
      
      Next
      
      Text 20,k+30, "Kleinste Hamming-Distanz: (" + min_bezug$ + ") mit " + min_distanz% + " Bit(s)"
      Text 20,k+40, "------------------------------------------------"
                     

   End If
   
   Flip
   
Until KeyHit(1)
End

Function Eingabe(x%)

   Count% = Count% + 1
   
   vari.ZahlType    = New ZahlType
    vari\dez%      = x%
    vari\dual$    = dez_dual$(vari\dez%)
    vari\id%       = Count%

   Return Count%
End Function


Function dez_dual$(x%)
   Local tmp$ = ""

   
   For j = 1 To 8
      tmp$ = x% Mod 2 + tmp$ : x% = x% / 2
   Next
   
   Return tmp$
End Function

distance = value1 xor value2
distance = bit_table(distance)

Const MAXDEZ = 12
Win1 = CreateWindow ("Aufgabe 5 (c)Rallimen",339,216,182,164,Desktop (),3)
TF1 = CreateTextField (63 ,24,100,20,Win1,0)
SetGadgetText TF1,"0"
SetGadgetLayout TF1,1,1,1,0
TF2 = CreateTextField (63 ,59,100,20,Win1,0)
SetGadgetText TF2,"0"
SetGadgetLayout TF2,1,1,1,0
Label1 = CreateLabel ("Zahl 1:",5,28,40,20,Win1,0)
SetGadgetLayout Label1,1,0,1,0
Label2 = CreateLabel ("Zahl 2:",5,63,40,20,Win1,0)
SetGadgetLayout Label2,1,0,1,0
Label3 = CreateLabel ("Ergebnis:",6,100,45,20,Win1,0)
SetGadgetLayout Label3,1,0,1,0
TF3 = CreateTextField (63 ,96,100,20,Win1,0)
SetGadgetText TF3,"0"
SetGadgetLayout TF3,1,1,1,0
Global CheckBox1 = CreateButton ("8 Bit",63,3,100,20,Win1,2)
SetButtonState CheckBox1,1
SetGadgetLayout CheckBox1,1,0,1,0
ActivateGadget Win1
Repeat
    Ergebnis = WaitEvent ()
    Select Ergebnis
     Case $803 End
     Case $401
        Select EventSource ()
         Case TF1
            Checkdez (TF1)
            SetGadgetText (TF3,Berechnung (TF1,TF2) )
         Case TF2
            Checkdez (TF2)
            SetGadgetText (TF3,Berechnung (TF1,TF2) )
         Case TF3
            SetGadgetText (TF3,Berechnung (TF1,TF2) )
         Case CheckBox1
            Checkdez (TF1)
            Checkdez (TF2)
            SetGadgetText (TF3,Berechnung (TF1,TF2) )
        End Select
     Default
    End Select
Forever

Function Berechnung (TF1,TF2)
    Zahl1 = TextFieldText (TF1)
    Zahl2 = TextFieldText (TF2)
    Ergebnis = Zahl1 Xor Zahl2
    BinZahl$ = Bin (Ergebnis)
   
    For i = 1 To Len (BinZahl)
        If Mid (BinZahl,i,1) = "1" Then Untersch = Untersch + 1
    Next
   
    Return Untersch
End Function

Function CheckDez$ (Textzeile)
    Zahlen$ = TextFieldText (Textzeile)
    zeichen = Len (Zahlen$)
   
    While x < zeichen
        x = x + 1
        dummy$ = Mid (Zahlen$,x,1)
        If x = MAXDEZ Then Exit
       
        Select dummy$
         Case "0"
            If x <> 1 Then Ausgabe$ = Ausgabe$ + dummy
         Case "1","2","3","4","5","6","7","8","9"
            Ausgabe$ = Ausgabe$ + dummy
        End Select
    Wend
    If ButtonState ( CheckBox1) Then
        Zahl = Ausgabe$
        If Zahl > $FF Then Ausgabe$ = $ff
    End If
    If Ausgabe$ = "" Then Ausgabe$ = "0"
    SetGadgetText Textzeile,Ausgabe$
End Function

Type Integer Field Bits End Type
Print "Nur Enter ohne Eingabe  berechnet die Werte"
Repeat;input
    A$ = Input ("Zahl eingeben (0 - 255) ")
        If a$ = "" Then
            Print ""
            dummy$= Berechne ()
            Print "Der kleinste Unterschied ist " + Left(dummy$,Instr(dummy$,"!")-1)
            Print "Der groesste Unterschied ist " + Mid(dummy$,Instr(dummy$,"!")+1)
            WaitKey ()
            End
         Else
            Byte = A$
            If a$ = "0" Or (Byte > 0 And  Byte <= 255) Then
                x.Integer = New Integer
                x\Bits = Byte
             Else
                Print "Falsche Eingabe"
            End If
        End If
Forever


Function Berechne$ ()
    Max = 8 :Min = 0
    For x.Integer = Each Integer
        y.Integer = After x
        While y.Integer <> Null
            ;Berechnen Werte
            dummy = x\Bits Xor y\Bits
            For i = 0 To 7
                If dummy And 2^i Then dd = dd + 1
            Next
            If Min < dd Then Min = dd
            If Max > dd Then Max = dd
            dd = 0
            y.Integer = After y
        Wend
    Next
    Return Max+"!"+Min
End Function