randomize code

[m4dc0w344]

hallo,
ik wil iemand kijken wat ik hier ben vergeten
ik heb het van internet

[CPP] Randomize()

Dim value As Integer = CInt(Int((6 * Rnd()) + 1))
Select Case 'note op internet staat hier3 maar dan kiest ie allen case3
Case 0
Me.BackColor = Color.DarkRed
Me.menu.BackColor = Color.DarkRed
Case 1
Me.BackColor = Color.DarkBlue
Me.menu.BackColor = Color.DarkBlue
Case 2
Me.BackColor = Color.DarkOrange
Me.menu.BackColor = Color.DarkOrange
Case 3
Me.BackColor = Color.DarkGreen
Me.menu.BackColor = Color.DarkGreen


End Select[/CPP]

 

[JoZ1]

[cpp]Dim random As New Random
Dim value As Integer = random.Next(0, 3)
Select Case value
Case 0

Case 1

Case 2

Case 3

End Select[/cpp]

 

[m4dc0w344]

dank je (alweer)

 

[JoZ1]

Graag gedaan (alweer )

 

[edmoor]

@Eerst post:
Grappig.
Dat is exact de fout die Sony in zijn netwerk had m.b.t. beveiliging waardoor de boel gehackt kon worden.
Waar jij die 3 had staan hadden zij een 4 staan in plaats van de variabele "value" :d

 

[m4dc0w344]

@Eerst post:
Grappig.
Dat is exact de fout die Sony in zijn netwerk had m.b.t. beveiliging waardoor de boel gehackt kon worden.
Waar jij die 3 had staan hadden zij een 4 staan in plaats van de variabele "value" :d

Ik ben ook van sony.
Grapje ik ben windows:3
Grapie :3

 

[huijb]

Deze topic is dusdanig gedateert dat deze met rust gelaten mag worden. Topic gaat op slot en wordt overgedragen aan de afdeling BNw(Betere Naslagwerken)