Behöver Visual Basic 6 hjälp!!!|Programmering / Grafisk formgivning|Forum|Nordichardware

Search
Forum Scope


Match



Forum Options



Minimum search word length is 3 characters - maximum search word length is 84 characters
Lost password?
The forums are currently locked and only available for read only access
sp_Feed sp_TopicIcon
Behöver Visual Basic 6 hjälp!!!
sarek
Mina inlägg skrivs i binär kod
Medlem
Forum Posts: 124
Member Since:
November 30, 2002
sp_UserOfflineSmall Offline
1
December 6, 2003 - 5:12 pm
sp_Permalink sp_Print

Jag har håller på med ett tärningsspel och skulle behöva lite hjälp.

Jag har gjort prickar som motsvarar en tärnings i ett frame i ett formulär, och för varje gång man klickar i "framet" så visas slumpmässigt 1,2,3,4,5 eller 6 prickar, precis som om man kastar en tärning.
Nu är det så att jag skulle vilja att när man klickat en gång och fått t.ex. 5, så ska detta sparas för att efter 4 "klick" läggas ihop med de andra kasten.

T.ex om jag klickar en gång och det blir 5, andra gången jag klickar så blir det 4, tredje gången 1 och fjärde gången 6 så ska summan 16 visas i formulärets namnlist.

Någon som är duktig på visual basic och förstår vad jag menar får gärna bidra med sina kunskaper 😀

oxiswoofer
Member
Medlem
Forum Posts: 2101
Member Since:
April 1, 2003
sp_UserOfflineSmall Offline
476431
December 6, 2003 - 5:18 pm
sp_Permalink sp_Print

går det inte på något sätt spara resultaten i 4 st olika variablar? typ efter varje klick så tilldelar du resultatets värde en variabel..eller nått...pysslar iförsig inte med VB..bara c++...

sarek
Mina inlägg skrivs i binär kod
Medlem
Forum Posts: 124
Member Since:
November 30, 2002
sp_UserOfflineSmall Offline
476523
December 6, 2003 - 6:52 pm
sp_Permalink sp_Print

Jo, jag har inga problem med att spara det första värdet i en variabel. Men hur gör jag för att spara det "andra klicket" i en ny variabel. Så här ser en snutt av koden ut.

Randomize

tal = Int((6 * Rnd) + 1) 'Tal mellan 1 och 6 slumpas fram

If tal = 1 Then 'Om talet blir ett så visas en punkt.
Punkt4_img.Visible = True
ElseIf tal = 2 Then ' Om talet blir två så visas två punkter.
Punkt1_img.Visible = True
Punkt7_img.Visible = True
..................
..................
..................

Tärning.Caption = tal 'Det tal som slumpas fram visas i
formulärets namnlist.

Hur sparar man varje "klick" i en egen variabel?
Hoppas jag har gjort mig någorlunda förståelig 😀

Tacksam för alla förslag.

Avatar
dae
Kommer du hit ofta?
Medlem
Forum Posts: 410
Member Since:
July 28, 2003
sp_UserOfflineSmall Offline
476858
December 7, 2003 - 9:36 am
sp_Permalink sp_Print

Använd en variabel som talar om hur många gånger du har klickat. Om du initierar denna till 0, kan du använda den som index i en array, i vilken du sparar resultaten från tärningskasten.

desdecado
Kommer du hit ofta?
Medlem
Forum Posts: 700
Member Since:
July 14, 2003
sp_UserOfflineSmall Offline
477268
December 7, 2003 - 6:03 pm
sp_Permalink sp_Print

...så för varje nytt tärningsslag så dimensionerar du om den med Redim Preserve tarning(Antal)

...där Antal är variablen med antal tärningsslag i. För varje klick så plussa på Antal med 1, redima' arrayen och sätt ditt nya tärningsslag till denna , tarning(Antal) = xxx

Nu var det ett tag sedan jag körde VB men tror man kör med Redim Preserver för att inte nollställa arrayen varje gång man dimensionerar om den...

Forum Timezone: Europe/Stockholm
Most Users Ever Online: 1030
Currently Online:
Guest(s) 492
Currently Browsing this Page:
1 Guest(s)
Top Posters:
Andreas Galistel: 16287
Jonas Klar: 15897
ilg@dd: 10810
Nyhet: 10607
Mind: 10550
Ctrl: 10355
Gueno: 9881
Guest: 9344
Snorch: 8881
Callister: 8468
Newest Members:
PetrbonFU PetrbonFU
Karine Bembry
Dolores Mcdaniels
Anibal McLeish
Francisca Alt
Alfie Everhart
Lester Huitt
Orlando Jorgensen
Mikki Lundgren
Dakota Kozlowski
Forum Stats:
Groups: 11
Forums: 59
Topics: 146630
Posts: 1300967

 

Member Stats:
Guest Posters: 2
Members: 79425
Moderators: 0
Admins: 11
Administrators: nordicadmin, Henrik Berntsson, Anton Karmehed, Carl Holmberg, Joel Oscarsson, Mikael Linnér, Mikael Schwartz, Andreas Paulsson, Nickebjrk, Mattias Pettersson, EmxL