/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
terningeprogram som kan slå flere gange
Fra : Tina Hoffmann


Dato : 17-02-02 15:27

Jeg har et program som slår 3 terninger når jeg trykker på en knap. Nu vil
jeg gerne ændre i det, således at jeg kan få det til at slå 6 gange ved ét
tryk og placere resultaterne i 6 tekstbokse. Nogen forslag til hvad jeg kan
tilføje/ændre i min kode?

Private Sub roll_Click()
Dim intRes As Integer
Dim I As Integer
Randomize
For I = 1 To 3
intRes = intRes + Int((6 * Rnd) + 1)
Next I
giveThreeDice2 = intRes
Text1.Text = intRes
End Sub



 
 
Carsten Jessen (17-02-2002)
Kommentar
Fra : Carsten Jessen


Dato : 17-02-02 15:47


"Tina Hoffmann" <tina@archmail.com> wrote in message
news:c1Pb8.183$jQ1.245178520@news.orangenet.dk...
> Jeg har et program som slår 3 terninger når jeg trykker på en knap. Nu vil
> jeg gerne ændre i det, således at jeg kan få det til at slå 6 gange ved ét
> tryk og placere resultaterne i 6 tekstbokse. Nogen forslag til hvad jeg
kan
> tilføje/ændre i min kode?
>
> Private Sub roll_Click()
> Dim intRes As Integer
> Dim I As Integer
> Randomize
> For I = 1 To 3
> intRes = intRes + Int((6 * Rnd) + 1)
> Next I
> giveThreeDice2 = intRes
> Text1.Text = intRes
> End Sub
>
>
>
Lav et array med 6 textbokse med index 0-5 og kør din kode i en For...next
løkke.

for a=0 to 5
For I = 1 To 3
intRes = intRes + Int((6 * Rnd) + 1)
Next I
text1(a)=intRes
intRes=Empty
next a

MVH Carsten



Søg
Reklame
Statistik
Spørgsmål : 177557
Tips : 31968
Nyheder : 719565
Indlæg : 6408885
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste