OpenOffice.info

Code: Alles auswählen

 sub Lottozahlen
	'"x" aus dem Zahlenbereich "von" "bis"
	x = 11       '← hier eigene Werte eintragen
	von = 1       '← hier eigene Werte eintragen
	bis = 180     '← hier eigene Werte eintragen
	Dim zahlen(x-1) As Integer, i As Integer, j As Integer
	Dim gefunden As Boolean, msg As Variant
	if x > bis - von +1 then
		msgbox("Fehler : Anzahl der Lottozahlen ist größer als Auswahlbereich",3)
		exit sub
	end if
odoc = thisComponent
	mysheet=odoc.currentcontroller.activesheet
	Zellaktuell=odoc.getCurrentSelection().getCellAddress()
	oRow=Zellaktuell.Row
	oColumn=Zellaktuell.column
	Zellaktuell=mysheet.getCellByPosition(ocolumn,orow)
	nrow = orow + i
	Zellziel=mysheet.getCellByPosition(ocolumn,nrow)
	zielname=mysheet.getCellByPosition(ocolumn+1,nrow)
	i = 0
	zahlen(0) = Int((bis - von+1) * Rnd) + von
	msg = zahlen (0)
	'Nicht gewünschte Ausgabe auskommentieren
	Zellziel.value = msg  'Zahlenausgabe in Spalte ocolumn
	zielname.formula = "=A"&msg 'Zufällige Inhalte aus Spalte A in Spalte ocolumn+1
Do
	i = i + 1
	nrow = orow + i
	Zellziel=mysheet.getCellByPosition(ocolumn,nrow)
	zielname=mysheet.getCellByPosition(ocolumn+1,nrow)
	gefunden = False
	zahlen (i) = Int((bis - von+1) * Rnd) + von
	For j = 0 To i - 1
		If zahlen (j) = zahlen (i) Then
			i = i - 1
			gefunden = True
			Exit For
		End If
	Next j
	If Not gefunden Then msg = zahlen (i)
		'Nicht gewünschte Ausgabe auskommentieren
		Zellziel.value = msg    'Zahlenausgabe in Spalte ocolumn
		zielname.formula = "=A"& msg   'Zufällige Inhalte aus Spalte A in Spalte ocolumn+1
Loop Until i = x-1
End sub 

Code: Alles auswählen

function Zahlenlotto() ' 15 aus 184, beginn ab 4
  Dim zahlen("E5") As Integer, i As Integer, j As Integer
  Dim gefunden As Boolean, msg As Variant

      i = 1
      zahlen(1) = Int("E5" * Rnd) + 4
      msg = zahlen (1)
      Do
      i = i + 1
      gefunden = Fals
      ....

Code: Alles auswählen

REM  *****  BASIC  *****
function Zahlenlotto(x,von,bis) '"x" aus dem Zahlenbereich "von" "bis" 

Dim zahlen(x-1) As Integer, i As Integer, j As Integer
Dim gefunden As Boolean, msg As Variant

i = 0
zahlen(0) = Int((bis - von) * Rnd) + 1
msg = zahlen (0)
Do
i = i + 1
gefunden = False
zahlen (i) = Int((bis - von) * Rnd) + 1
For j = 0 To i - 1
If zahlen (j) = zahlen (i) Then
i = i - 1
gefunden = True
Exit For
End If
Next j
If Not gefunden Then msg = msg & "," & zahlen (i)
Loop Until i = x-1
'msgbox(msg)
msg = split(msg,chr(44))
Zahlenlotto = msg
End function 

Code: Alles auswählen

function Zahlenlotto() ' 15 aus 184, beginn ab 4
  Dim zahlen(15) As Integer, i As Integer, j As Integer
  Dim gefunden As Boolean, msg As Variant

		i = 1
		zahlen(1) = Int(180 * Rnd) + 4
		msg = zahlen (1)
		Do
		i = i + 1
		gefunden = False
		zahlen (i) = Int(180 * Rnd) + 4
		For j = 0 To i - 1
		If zahlen (j) = zahlen (i) Then
		i = i - 1
		gefunden = True
		Exit For
		End If
		Next j
		If Not gefunden Then msg = msg & "," & zahlen (i)
		Loop Until i = 15
		msg = split(msg,chr(44))
		Zahlenlotto = msg
End function