/
Forside
/
Teknologi
/
Udvikling
/
VB/Basic
/
Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn
*
Kodeord
*
Husk mig
Brugerservice
Kom godt i gang
Bliv medlem
Seneste indlæg
Find en bruger
Stil et spørgsmål
Skriv et tip
Fortæl en ven
Pointsystemet
Kontakt Kandu.dk
Emnevisning
Kategorier
Alfabetisk
Karriere
Interesser
Teknologi
Reklame
Top 10 brugere
VB/Basic
#
Navn
Point
1
berpox
2425
2
pete
1435
3
CADmageren
1251
4
gibson
1230
5
Phylock
887
6
gandalf
836
7
AntonV
790
8
strarup
750
9
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
Alle emner
Teknologi
Udvikling
VB/Basic
Indstillinger
Spørgsmål
Tips
Usenet
Reklame
Statistik
Spørgsmål :
177552
Tips :
31968
Nyheder :
719565
Indlæg :
6408847
Brugere :
218887
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.