[PROG][VB.NET] Mijnenveger (opdracht toekennen aan knop)

**Duffman-** · 2 augustus 2006, 17:39

Beste

ik ben van plan een mijnenveger te maken, gelijkaardig aan diegene die we allemaal kennen vanuit Windows. Ongeveer zelfde interface enzo maar ik was aan het denken hoe ik dit moest gaan doen en ik moet om te beginnen al vrij veel knoppen genereren als ik het spel opstart. Nu is mijn vraag hoe kan ik dit doen? Want ik kan geen arrays gebruiken onder het type "new button".
Hetgeen ik nu heb is

Code:

Dim G As New Button
        G.Location = New Point(50, 50)
        G.Text = "kank er nog 1 maken?"
        G.Size = New Size(50, 50)
 Me.Controls.Add(G)

Nuja, 1 knop maken kan ik dus maar hoe kan ik er meerdere maken. En nu denk ik meer in de toekomst hoe kan ik aan deze knoppen een gebeurtenis toekennen. Ik vermoed iets met een eventhandler maar weet niet juist hoe de vork in de steel zit. Ik weet dat ik veel vraag maar ik zou er wel veel mee kunnen leren.

In ieder geval bedankt,
Duffman-

**BuiZe** · 2 augustus 2006, 17:59

Hier kan je normaal wel enige informatie uithalen: http://gbit.be/Mijnenveger.rar

Het komt ruwweg op het volgende neer:

Code:

Dim knoppen(,) As Button

...

        knoppen = New Button(intVeldGrootte, intVeldGrootte) {}

        For i = 1 To intVeldGrootte
            For j = 1 To intVeldGrootte
                knoppen(i, j) = New Button
                Controls.Add(knoppen(i, j))
                AddHandler knoppen(i, j).MouseUp, AddressOf Knoppen_ClickHandler
            Next
        Next

...

Public Sub Knoppen_ClickHandler(ByVal sender As System.Object, ByVal e As System.windows.Forms.MouseEventArgs)
    ...
End Sub

**Duffman-** · 2 augustus 2006, 22:52

Oorspronkelijk geplaatst door BuiZe

Hier kan je normaal wel enige informatie uithalen: http://gbit.be/Mijnenveger.rar

Het komt ruwweg op het volgende neer:

Code:

Dim knoppen(,) As Button

...

        knoppen = New Button(intVeldGrootte, intVeldGrootte) {}

        For i = 1 To intVeldGrootte
            For j = 1 To intVeldGrootte
                knoppen(i, j) = New Button
                Controls.Add(knoppen(i, j))
                AddHandler knoppen(i, j).MouseUp, AddressOf Knoppen_ClickHandler
            Next
        Next

...

Public Sub Knoppen_ClickHandler(ByVal sender As System.Object, ByVal e As System.windows.Forms.MouseEventArgs)
    ...
End Sub

Bedankt dit helpt me al hard, toch heb ik nog 2 vraagjes
die (,) in de declaratie waar staat die voor?
En waar staan de accolades voor?

**BuiZe** · 2 augustus 2006, 23:20

http://www.startvbdotnet.com/language/arrays.aspx

- Dim knoppen(,) As Button definieert knoppen als zijnde een (rechthoekige) 2D-array van nog onbepaalde grootte.
- knoppen = New Button(a, b) {} kent een feitelijke grootte toe aan de dimensies, de { ... } bevat de initiele waarden. Deze laten we hier leeg omdat we elk object apart moeten aanmaken.

**Duffman-** · 3 augustus 2006, 23:48

Hey buize, bedankt voor je hulp, ik zit ondertussen al heel wat verder. Men bommen en getallen enzovoort worden al gegenereerd. Nu ga ik moeten uitzoeken hoe ik weet op welke knop er geklikt wordt.

screenshot:http://users.pandora.be/duffman/woot.JPG

edit:

Code:

' Visual Basic
Public Sub ClickHandler(ByVal sender As Object, ByVal e As _
   System.EventArgs)
   MessageBox.Show("you have clicked button " & CType(CType(sender, _
      System.Windows.Forms.Button).Tag, String))
End Sub

werkt niet. Weet iemand misschien hoe ik dit kan weten, welke knop er aangeklikt is?
Grtz,
Duffman-

//edit: tis nu helemaal in orde me die knop, nen tag meegeve

**Duffman-** · 5 augustus 2006, 03:06

Als het iemand interesseert.
Kben nu in de fase waarin het zou moete gebeuren dat als je in een ruimte klikt waar nergens in de buurt zich een bom bevind, dat er knoppen rond ook zichtbaar worden maar dit is nogal moeilijk but working on it...
nu slapen en morgen verderdoen.

**BuiZe** · 5 augustus 2006, 11:16

Kijk eens in mijn code, ik heb dat recursief opgelost, door op elke knop errond te "klikken" (ClickHandler aanroepen) waar geen mijn ligt en nog niet op geklikt werd. (Het stuk tussen de '__TEST__ comments)

**Duffman-** · 11 augustus 2006, 12:22

Io, men mijnenveger is bijna af (ben enkele weken weggeweest) maar hij is echt enorm traag eigenlijk. Als ik op een leeg vakje klik dan moet ik echt lijk een paar seconde wachten totdat hem laat zien wat hij moet laten zien. Als er iemand geïnteresseerd is in de code PM Mij dan met uw emailadres en kstuur da wel door dan. Kben nu met recursieve functies aant werken om die lege vakjes zichtbaar te maken. Mijn oplossing is een pak omslachtiger dan die van BuiZe ... das wel een feit.

**Linwe** · 11 augustus 2006, 13:36

Heb ooit ook iets dergelijks gemaakt toen nog in .NET en voor zover ik me nog kan herinneren had ik net hetzelfde "traag probleem". Ik had toen een kalender geschreven die in een form dynamisch labels ging createn per dag afhankelijk van de geselecteerde maand. (was de bedoeling om dat fixed op mijn desktop te krijgen zoals er veel van die tools te vinden zijn. Daar heb'k jammer genoeg nooit een oplossing voor gevonden:/) Maar doordat die dynamisch in dien array gestoken werden, vertraagde dat dus gans de boel. Ze gewoon als kadertjes painten ging een pak sneller

Voor u knoppen zal dat moeilijker zijn om dan ook nog effectief een push_effect te verkrijgen

**Duffman-** · 11 augustus 2006, 17:51

Mja kan bijna gans opnieuw beginnen me images dan eigenlijk. Dno yet hoe ik het ga doen. Tis vanaf die recursieve functies (functies die zichzelf oproepen) dat het traag is beginne ngaan.

**Duffman-** · 27 augustus 2006, 21:17

Hey, ja kben nog steeds bezig met mijnenveger maar kheb net vakantiewerk moeten doen dus toen ben ik er heel wat minder mee bezig geweest om niet te zeggen niets. Ik zat nu ondertussen met de vraag: hoe komt het dat dit niet werkt:

Code:

        For intTeller = 1 To intVeldgrootte
            Controls.Remove(btnKnop(intTeller, intVeldgrootte))
        Next

er wordt nog geen enkele knop verwijderd ...

**Duffman-** · 4 september 2006, 21:35

Up up..

kheb nu dus dit

Code:

    Private Function bla()
        For intTeller1 = 1 To intVeldgrootte
            For intTeller = 1 To intVeldgrootte
                Controls.Remove(btnKnop(intTeller, intVeldgrootte))
            Next
        Next
    End Function

waarom worden die knoppen ni verwijderd?

**Cakeman** · 5 september 2006, 08:15

Oorspronkelijk geplaatst door Duffman-

Up up..

kheb nu dus dit

Code:

    Private Function bla()
        For intTeller1 = 1 To intVeldgrootte
            For intTeller = 1 To intVeldgrootte
                Controls.Remove(btnKnop(intTeller, intVeldgrootte))
            Next
        Next
    End Function

waarom worden die knoppen ni verwijderd?

Wordt er helemaal niets verwijderd?

Probeer eens "Controls.Remove(btnKnop(intTeller, intVeldgrootte))" te vervangen door "Controls.Remove(btnKnop(intTeller, intTeller1))"

Op die manier ga je alle knoppen overlopen en niet enkel de onderste rij.

**sabaoth** · 5 september 2006, 18:16

ik kan u een volledige mijneveger geve me highscores en al

vorig jaar moette make

**Duffman-** · 12 september 2006, 23:24

Menne mijnenveger werkt nu volledig
maar sabaoth ... kvroeg mij nu af, uw mijnenveger was met highscores enal ... ik vroeg me af hoe kan je ervoor zorgen dat je werkelijk highscores bijhoudt ook al zet je de PC/toepassing af? Hoe sla je dat op?

**Cakeman** · 13 september 2006, 08:26

Oorspronkelijk geplaatst door Duffman-

Menne mijnenveger werkt nu volledig
maar sabaoth ... kvroeg mij nu af, uw mijnenveger was met highscores enal ... ik vroeg me af hoe kan je ervoor zorgen dat je werkelijk highscores bijhoudt ook al zet je de PC/toepassing af? Hoe sla je dat op?

Ik weet dat ik vroeger, toen we nog Windows 98 hadden, ontdekt had dat Minesweeper de scores opsloeg in een .ini bestand. Ik heb toen manueel die scores aangepast. Mijn pa had natuurlijk niks door en vond het heel straf dat ik dat spel zo goed kon

Je kan het dus gewoon in een bestand wegschrijven. Desnoods geef je het bestand een speciale extensie (.duff ofzo

) zodat de mensen er niet meteen in zouden neuzen. Je kan de inhoud van je bestand ook encoding en decoden met de ASCII encoding die standaard in .NET zit.

**Obliv`** · 13 september 2006, 22:18

Oorspronkelijk geplaatst door Cakeman

Ik weet dat ik vroeger, toen we nog Windows 98 hadden, ontdekt had dat Minesweeper de scores opsloeg in een .ini bestand. Ik heb toen manueel die scores aangepast. Mijn pa had natuurlijk niks door en vond het heel straf dat ik dat spel zo goed kon

Je kan het dus gewoon in een bestand wegschrijven. Desnoods geef je het bestand een speciale extensie (.duff ofzo

) zodat de mensen er niet meteen in zouden neuzen. Je kan de inhoud van je bestand ook encoding en decoden met de ASCII encoding die standaard in .NET zit.

Ik zou dit in een xml bestand opslagen.

**Krueger** · 13 september 2006, 23:40

Oorspronkelijk geplaatst door Obliv`

Ik zou dit in een xml bestand opslagen.

Waarom perse een XML bestand. Is dat formaat volgens jou zou uitmuntend veel beter dan andere formaten om de combinatie user-tijd bij te houden?

**servi** · 14 september 2006, 10:51

omdat dat veel hipper is dan een saai ini-bestand natuurlijk

**killgore** · 14 september 2006, 11:57

Oorspronkelijk geplaatst door Krueger

Waarom perse een XML bestand. Is dat formaat volgens jou zou uitmuntend veel beter dan andere formaten om de combinatie user-tijd bij te houden?

Nee, maar xml is wel handiger (duidelijker) voor vrij grote hoeveelheden data bij te houden & zeker als je met een zekere vorm van parent/children zit.

Dan is het maar logisch dat je in een app een vorm van continuïteit gebruikt en voor zowat het meeste xml gebruikt?

Ik bouw meestal gewoon zowel .xml als .ini reader & writer in zodat ik kan switchen.

Verder gaan naar 9lives

Discussie: [PROG][VB.NET] Mijnenveger (opdracht toekennen aan knop)

LinkBack

Discussietools

Geef een waardering voor deze discussie

[PROG][VB.NET] Mijnenveger (opdracht toekennen aan knop)

Discussie informatie

Users Browsing this Thread

Regels voor berichten