Jag håller på med ett winsock sänka skepp spel (battleship) och jag har fastnat på en sak...

jag vill att skeppen ska placeras ut automatiskt på några av de 99 lablarna (spelbordet) utan att:
1. de kopmmer på samma plats.
2. de ska antingen ligga vågrätt eller lodrätt....

lablarna som innehåller ett skepp ska få bakrundsfärgen gul
1 skepp ska ta 4 lablars bredd eller längd
2 skepp ska ta 3 -----------||---------------
3 skepp ska ta 1 -----------||---------------

tacksam för hjälp =)

Hej
Lite krångligt att visa med exempel ,men du skall göra så
här i princip. Lägg upp en LabelArray(99) As Long
När du slumpar ut dina skepp rnd(100 *1) så lägger du in
denna siffra i LabelArray(det slumpade talet)
Om detta tal skulle komma upp en gång till kollar du
med en ifsats om detta arrayfack är upptaget dvs <> 0
i så fall skippa detta tal och slumpa nytt.
Du kör slumgeneratorn i en Do Until i >= antal skepps rutor
i ökar med 1 varje gång du placerat ut ett tal.

Slutligen kör du en For sats 0 - 99 på dina Label1(i)
färglägg efter det som står i LabelArray

Ungefär så

mvh
Sven