12,065,354 members (43,336 online)
Rate this:
See more:
Hello , I'm trying to do Minesweeper in VB.net and I'm looking for draft codes. Can you help me, please? Also I have to 'count the mines around a specified cell (parameters: array, rowIndex, columnIndex) ' .

Thank you.
Posted 6-Feb-13 6:26am
DDDYYYY319
phil.o 6-Feb-13 11:31am

What have you tried ? Where are you stuck ?

Rate this:

## Solution 1

This sounds like homework, so I'll give you no code.
But it isn't complex: the "count the mines bit is really very easy (and made even easier if you cheat).

I would cheat - make the playing surface 2 cells bigger in each direction, so you have a border of one cell around the whole surface. So if you have a two by two surface for the player:
```##
##```
You surround it by a one cell border:
```++++
+##+
+##+
++++```
You then clear the border so it contain no mines.
Now, when you count all the cells around the specific cell for mines, you don't have to do any error checking to ensure you aren't running out of surface - because you will and count the border cells instead. Which contains no mines! And I'd make a mine a 1, and no mine a zero...

This done, the test is easy:
if you are checking cell (x,y) then the count is simple:
`count = (x-1, y-1) + (x, y-1) + (x+1, y-1) + (x-1, y) + (x+1, y) + (x-1, y+1) + (x, y+1) + (x+1, y+1)`
All you have to do is write two methods: GetCellAt and SetCellAt which take the x and y addresses

Top Experts
Last 24hrsThis month
 OriginalGriff 230 RDBurmon 100 CPallini 50 ppolymorphe 50 nv3 40
 Dave Kreskowiak 1,841 Richard MacCutchan 1,250 OriginalGriff 1,104 d@nish 980 CPallini 790