"Random" battlefield 3 classes genereren

[Jeroentjo]

Hallo.

Ik speel nu al een tijdje met VB.net en tot nu toe gaat het redelijk!
Ik ben momenteel bezig met een soort Battlefield toolkit met allemaal informatie erin, nou wil ik nu een random class generator maken, maar ik heb echt geen idee hoe.

Wat ik tot nu toe heb:

(readonly) textboxes -> hier komt de informatie in
labels -> met informatie (bijvb. wapen/attachment)
button -> spreekt voor zich

Nu vraag ik mij af, hoe maak ik nu een "random" kit generator?
In battlefield heb je 4 kits, assault/support/engineer/recon, dus in totaal 4. Nu wil ik maken, dat als ik op de button klik ik dan 1 van die 4 kits krijg.
Wat ik dus geprobeerd heb;

Dim randomkit As String
randomkit = "Kit: Assault" Or "Kit: Medic" Or "Kit: Engineer" Or "Kit: Recon"

Verder kom ik niet.. als ik debug krijg ik natuurlijk een error omdat ik gewoon iets belangrijks mis, ik weet alleen niet wat. ;o
Ik zuig dus echt met dim .. as string/integer , iemand nog een goede tut daarover?
Mijn vraag aan jullie, Hoe ga ik dit aanpakken?

Thanks,

Jeroen.

Edit:

Deze error krijg ik nog:

Conversion from string "Kit: Assault" to type 'Long' is not valid.

 

[davidtos]

je kan ze ook toevoegen aan een lijsten daarna random een index maken

Dim LijstMetKitsas new list(Of string)

LijstMetKits.add("kit1")
LijstMetKits.add("kit2")

Dim RandomClass As New Random()
Dim RandomNumber As Integer
RandomNumber = RandomClass.Next(0, 1)

randomkitString = LijstMetKits(RandomNumber)

 

[Jeroentjo]

Thankyou!

 

[Jeroentjo]

Nieuw probleem..
Ik heb ff aan iets anders gewerkt, maar nu wil ik weer verder gaan met het random kit idee.
Helaas kom ik er weer niet uit! Als iemand mij het nu kan uitleggen, zou ik dat echt zeer op prijs stellen.
Ik ben geen held in VB en ik kom maar niet verder met 'randomizen' zegmaar.




Het probleem is dus.. de "assault" wapens moeten random gegenereerd worden zodra ik een assault class heb zegmaar.
Hopelijk kan een vriendelijk persoon mij even hiermee helpen.

Groet,

Jeroen

 

[MartinJM]

Hoi,

Je hebt een tikfout bij de een na laatste lijn van de gegeven code. Daar staat een punt ipv een komma.

Dan nog even een handige opmerking:
In dit forum zijn er code-tags, die bedoelt zijn om codes in te plaatsen, voor ons (en waarschijnlijk ook voor jou) is dat handiger dan een foto.

Succes!
MartinJM

[edit]
Nog iets handigs: Je hoeft niet perse alle getallen te hardcoden. Zo kan je bijvoorbeeld om de lengte van een list te weten de volgende code gebruiken:
[CPP]lijstmetwapens.Count[/CPP]

Als je dan een wapen toevoegt, hoef je niet meer het getal aan te passen. Let wel op! Array's en lists beginnen met tellen bij 0, maar count geeft het aantal. Om dus de laatste van een Array te selecteren gebruik je het volgende:
[CPP]
Dim TestArray() As String = {"Test1", "Test2"}
Dim LastStringInTestArray As String = TestArray(TestArray.Count - 1)
[/CPP]
[/edit]