Graphics 400,800,0,2
SetBuffer BackBuffer()



Local Wert#
Local Zufall#
Local Ergebnis#
Local Durchlaufe%
Dim Speicher%(99)



While Not KeyHit(1)
   
   
   
   For Durchlaufe=0 To 99
      Speicher(Durchlaufe)=0
   Next
   
   
   
   For Durchlaufe=1 To 4000
      
      Zufall=Rand(1,99)
      Wert=MouseX()/4.0
      
      If Zufall>Wert Then
         Ergebnis=Rand(0,Wert-0.5)
      Else
         Ergebnis=Rand(Wert+0.5,99)
      End If
      
      Speicher(Ergebnis)=Speicher(Ergebnis)+1
   Next
   
   
   
   For Durchlaufe=0 To 99
      Rect Durchlaufe*4,800-Speicher(Durchlaufe),4,Speicher(Durchlaufe),1
   Next
   
   
   
   Flip (1)
   Cls
   
   
   
Wend
End

;von SpionAtom, Oktober 2o14
Const rand_set_count = 10
Type T_Rand
   Field ereignis
   Field p
   Field limit
End Type
Global rand_set.T_Rand[rand_set_count]

   For i = 0 To rand_set_count - 1
      rand_set[i] = New T_Rand
      rand_set[i]\ereignis = i + 1
      rand_set[i]\p = 100
      rand_set[i]\limit = rand_set[i]\p
      If i > 0 Then rand_set[i]\limit = rand_set[i]\limit + rand_set[i - 1]\limit      
   Next

Dim results(rand_set_count)
randomize = False
SeedRnd MilliSecs()
Graphics 800, 400, 0, 2
SetBuffer BackBuffer()


   Repeat
   
      If MouseHit(1) Then
         Dim results(rand_set_count)
         randomize = True
         biggest_result = 0
         wuerfe = 0
      End If
      
      If MouseHit(2) Then
         randomize = False
      End If
      
      If randomize Then
         wuerfe = wuerfe + 1
         last_limit = rand_set[rand_set_count - 1]\limit
         x = Rand(1, last_limit)
         i = 0
         While i < rand_set_count - 1
            If rand_set[i]\limit > x Then Exit
            i = i + 1
         Wend
         results(i) = results(i) + 1
         If results(i) > biggest_result Then biggest_result = results(i)
      End If
   
   
      Cls      
      
      For i = 0 To rand_set_count - 1
         percent# = results(i) / Float(biggest_result)
         percent_bar = percent * GraphicsHeight()
         Color 100, 233, 133
         Rect i * bar_width + 1, GraphicsHeight() - percent_bar, bar_width - 2, percent_bar
         Color 255, 255, 255
      Next
      
      
      
      bar_width = GraphicsWidth() / rand_set_count   
      For i = 0 To rand_set_count - 1
         If mouseInRect(i * bar_width + 1, GraphicsHeight() - rand_set[i]\p, bar_width - 2, rand_set[i]\p + 1) Then
            Color 63, 63, 63
            Rect i * bar_width + 1, GraphicsHeight() - rand_set[i]\p, bar_width - 2, rand_set[i]\p + 1
            Color 255, 255, 255   
            rand_set[i]\p =   rand_set[i]\p + MouseZSpeed()
            For j = i To rand_set_count - 1
               rand_set[j]\limit = rand_set[j]\p
               If j > 0 Then rand_set[j]\limit = rand_set[j]\limit + rand_set[j - 1]\limit            
            Next
                        
         End If      
      Next      
      
      Text 0, 0, "Erhöhe die Wahrscheinlichkeiten, indem du mit dem Scrollrad die Balken veränderst."
      Text 0, 16, "Linksklick startet den Würfler neu, Rechtsklick beendet ihn"
      Text 0, 32, "In grün wird prozentual angezeigt, wie oft jede Zahl gewürfelt wurde"
      draw_rand_set
      
      If randomize Then Text 0, 64, "Würfe: " + wuerfe
      
      Flip()
   
   Until KeyDown(1)
   End



Function draw_rand_set()

   bar_width = GraphicsWidth() / rand_set_count

   For i = 0 To rand_set_count - 1
      Rect i * bar_width + 1, GraphicsHeight() - rand_set[i]\p, bar_width - 2, rand_set[i]\p + 1, 0
      txt$ = "[" + rand_set[i]\ereignis + "]"
      Text i * bar_width - 1 + (bar_width - 2 - StringWidth(txt)) / 2, GraphicsHeight() - 16, txt
      Text i * bar_width - 1 + (bar_width - 2 - StringWidth(txt)) / 2, GraphicsHeight() - 32, rand_set[i]\p
   Next   

End Function

Function mouseInRect(x, y, w, h)

   mx = MouseX()
   my = MouseY()
   If mx < x Then Return False
   If my < y Then Return False
   If mx > x + w Then Return False
   If my > y + h Then Return False
   Return True

End Function