Discussion :

[manuso]

Bonjour et bonne année

Je souhaite inclure un fichier en fonction d'un chiffre tiré au sort
le code ci-dessous fonctionne si on écrit un chiffre en dur Nbre = 24, mais je voudrais obtenir un chiffre au hasard entre 1 et 55
Merci,

Il n'aime pas cette Line 6: randomNumber = Int(3*Rnd+1)
Compiler Error Message: BC30512: Option Strict On disallows implicit conversions from 'Single' to 'Integer'.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
<%
 
        Dim Nbre As Integer
        Dim randomNumber As Integer
 
       Randomize
       randomNumber = Int(3*Rnd+1)
 
     Nbre = randomNumber
 
	Select Case Nbre
            Case 1 To 3
            Response.Write("blog/data/m/rando-mode28.aspx") 
            Case 18 To 55
                Response.WriteFile("blog/data/m/rando-mode36.aspx") 
            Case Else
                Response.WriteFile("blog/data/m/rando-mode54.aspx") 
        End Select
%>

[katkiller]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim random As New Random(), rndnbr As Integer
rndnbr = random.Next(1, 55)

Next permet de retourner un nombre aléatoire contenu dans la plage spécifiée entre parenthèses.