tirage "loto" staroffice

Marsh Posté le 24-09-2006 à 23:11:41

bonjour,

c'est la première fois que je poste sur pragorammation, j'espère ne pas commetre d'impair.
voilà mon probleme: j'ai préparé une feuille de calcul staroffice pour gerer les groupes d'IDD de mon collège. Elle marche très bien, sauf que par mon système les derniers groupes ont plus de chance d'avoir l'un des IDD préféré que les autres. je me suis donc dit "pas de probleme il suffit de tirer les groupes au sort".

sauf que voilà, je n'arrive pas à trouver une façon simple de tirer au hasard une suite d'entiers tous différents compris entre 1 et le nombre de groupes.

1) me suis je bien fait comprendre?
2) ma question a-t-elle sa place ici?
3) comment allez-vous?
4) avez vous une solution?

merci par avance.

Reply

Marsh Posté le 24-09-2006 à 23:11:41

Reply

Marsh Posté le 25-09-2006 à 14:10:10

Ce ne sont pas les élèves qui doivent choisir leur IDD ?
Sous openoffice, en basic, il y a rnd
Je te donne l'aide

Syntaxe :
Randomize [Number]
Paramètres :
Number : nombre entier initialisant le générateur de nombres aléatoires. Si vous ne spécifiez pas de nombre, le générateur utilise la valeur active de l'horloge système.
Codes d'erreur
5 Appel de procédure non valide
Exemple :

Code :

Sub ExampleRandomize
Dim iVar As Integer, sText As String
Dim iSpectral(10) As Integer
Randomize 2^14-1
For iCount = 1 to 1000
iVar = Int((10 * Rnd) ) REM Plage comprise entre 0 et 9
iSpectral(iVar) = iSpectral(iVar) +1
Next iCount
sText = " | "
For iCount = 0 to 9
sText = sText & iSpectral(iCount) & " | "
Next iCount
MsgBox sText,0,"Distribution spectrale"
end sub

Message cité 1 fois
Message édité par Trap D le 25-09-2006 à 14:18:14

Reply

Marsh Posté le 25-09-2006 à 17:19:31

Trap D a écrit :

Ce ne sont pas les élèves qui doivent choisir leur IDD ?
Sous openoffice, en basic, il y a rnd
Je te donne l'aide

Syntaxe :
Randomize [Number]
Paramètres :
Number : nombre entier initialisant le générateur de nombres aléatoires. Si vous ne spécifiez pas de nombre, le générateur utilise la valeur active de l'horloge système.
Codes d'erreur
5 Appel de procédure non valide
Exemple :

Code :

Sub ExampleRandomize
Dim iVar As Integer, sText As String
Dim iSpectral(10) As Integer
Randomize 2^14-1
For iCount = 1 to 1000
iVar = Int((10 * Rnd) ) REM Plage comprise entre 0 et 9
iSpectral(iVar) = iSpectral(iVar) +1
Next iCount
sText = " | "
For iCount = 0 to 9
sText = sText & iSpectral(iCount) & " | "
Next iCount
MsgBox sText,0,"Distribution spectrale"
end sub

les élèves donnent leurs préférences, mais si une grande majorité préfère les IDD cinéma et BD plutot que construction de l'Europe et statistiques démographiques (je dis n'importe quoi au hasard, j'ai pas d'idd) il faut faire quand meme des groupes équilibrés

edit: ah oui au fait merci [:duss@noob] , je testerai ça mercredi

Message édité par sebhal le 25-09-2006 à 17:21:44

Reply

tirage "loto" staroffice

Sujets relatifs:

Leave a Replay