LiveCode Forums.

Code: Select all

on mouseUp
   local x, myList, z, myNumber
   
   repeat with x = 1 to 6
      ## generate 6 numbers between 1 and 10
      put random(10) into myNumber
      ## put number to a list
      put myNumber into item x of myList
      ## every item in list in checked
      repeat for each item z in myList
         ## no check for the first number
         if x > 1 then
            if (item z of volleListe) = myNumber then
               ## Delete the duplicat
               delete item z of myList
               subtract 1 from x
               
            else
               ## no duplicate
               put item myNumber of myList & return after field "Field"
            end if
         end if
      end repeat
      
   end repeat

Code: Select all

on mouseUp
   repeat until the number of lines in tData is 6
      put random(10) into tTest
      if tTest is not among the lines of tData then
         put tTest & cr after tData
      end if
   end repeat
   delete char -1 of tData -- a return
   -- the list is not orderd
   
   -- order list
   -- sort tData ascending numeric -- unblock if you want the list to be ordered
   -- end order list
   
   put tData into field 1
end mouseUp

Code: Select all

on mouseUp 
  ## Create a list with 10 numbers
   repeat with i = 1 to 10
      put i into item i of tList
   end repeat

  ## Let LC mix the items in the list
   sort items of tList by random(1000)

   ## Throw away what you do not need:
   delete item 7 to 10 of tList

   ## Done
   put tList into fld "die zufälligen zahlen"
end mouseUp

Code: Select all

function get6RandomNumbersFrom aList
   repeat 4
      delete any item of aList
   end repeat
   return aList
end get6RandomNumbersFrom

on mouseUp
   put get6RandomNumbersFrom("1,2,3,4,5,6,7,8,9,10") into fld 1
end mouseUp