OpenOffice.info

Code: Alles auswählen

Sub x()
   const n = 50
   const m = 6
   dim i as integer, j as integer
   dim ar(1 to n) as integer
   dim intZufall as integer
   dim ActiveSheet as object
   
   ActiveSheet = ThisComponent.getCurrentController.getActiveSheet
   for i = 1 to n
      ar(i) = i
   next
   
   i = n
   for j = 0 to m-1
      intZufall = int(i * rnd() + 1)
      ActiveSheet.getCellByPosition(3, j).Value = ar(intZufall)
      ar(intZufall) = ar(i)
      i = i - 1
   next
End Sub

Code: Alles auswählen

Function Bingo() as Variant
   const n = 50
   const m = 5
   dim i as integer, j as integer, x as integer, y as integer
   dim ar(1 to n) as integer
   dim intZufall as integer
   dim arOut(0 to m-1, 0 to m-1)
      
   for i = 1 to n
      ar(i) = i
   next
   
   x = 0
   y = 0
   i = n
   for j = 0 to m*m-1
      intZufall = int(i * rnd() + 1)
      arOut(x, y) = ar(intZufall)
      x = x + 1
      if x >= m then 
         x = 0
      	 y = y + 1
      endif
      ar(intZufall) = ar(i)
      i = i - 1
   next
   Bingo = arOut
End Function

Code: Alles auswählen

from random import sample

context = XSCRIPTCONTEXT

def bingo(dummy=None):
    doc = context.getDocument()
    sheet = doc.Sheets.getByIndex(0) #erstes Blatt
    rrange= sheet.getCellRangeByPosition( 0, 0, 4, 4 )
    numbers = tuple( sample( range( 1, 51 ), 25 ) )
    rrange.setDataArray( (  numbers[:5],
                                numbers[5:10],
                                numbers[10:15],
                                numbers[15:20],
                                numbers[20:]))