Een rekenspelletje

LucB · #1 23 augustus 2011, 20:49

Dag Excellers,

Bij dit spel krijg je in een UserForm 16 getallen, waarvan je er 5 moet gebruiken om een som te maken.

Op de valreep ben ik geholpen door Eric (EVR)

Ik hoop dat de 2007 en 2010-gebruikers er ook wat mee kunnen.

pie · #2 23 augustus 2011, 21:11

Hallo LucB

Het "spelletje" werkt ook in excel 2010.

Mooi gedaan, trouwens.

De VBA code's die gebruikt zijn gaan mijn pet heeeeeeeeeeeeeel ver te boven.

mvg Pie

EvR · #3 23 augustus 2011, 21:17

Leuk Luc! Top!

++ Ik zou wel de MaxSoln = 100 (1000 ?)wat hoger zetten als je echt het aantal mogelijkheden wilt laten zien, dit zijn nml het aantal mogelijkheden waarbij in eerste instantie ook mogelijkheden worden meegenomen met meer of minder dan 5 posities...

Mr T · #4 24 augustus 2011, 11:19

Heel leuk in elkaar gezet, maar na een tijdje er mee gespeelt te hebben kreeg ik de indruk dat er meer antwoorden mogelijk zijn. Na wat typewerk ben ik tot onderstaande gekomen.

Code:

Option Explicit
Sub T()

Dim DataArray
Dim RArray(0 To 5) As Long
Dim Goal As Long
Dim i As Long, j As Long, n As Integer
Dim Line As Long

DataArray = Application.Transpose(Sheets("Blad2").Range("A1:A16").Value)
Goal = Sheets("Blad2").Range("D1")
Range("M:R").ClearContents

Line = 1
For i = 31 To 63488
    n = 1
    RArray(0) = 0
    For j = 16 To 1 Step -1
        If n > 5 Then GoTo Esc
        RArray(n) = IIf(Int(i / 2 ^ (j - 1)) Mod 2 = 1, DataArray(j), 0)
        If RArray(n) <> 0 Then
            RArray(0) = RArray(0) + RArray(n)
            n = n + 1
        End If
        If RArray(0) > Goal Then GoTo Esc
    Next j
    If n = 6 And RArray(0) = Goal Then
        Line = Line + 1
        Cells(Line, 13).Resize(1, 6) = RArray
    End If
Esc:
Next

End Sub

LucB · #5 24 augustus 2011, 12:16

Enige aanpassingen gedaan.
Nu meer combinaties zichtbaar.

Het hoofddoel blijft natuurlijk wel een goed antwoord te geven.

kleijn · #6 24 augustus 2011, 14:33

Zou het aan te passen zijn dat je ook min sommen heb?
dus je heb bv 123 en dan met vijf getallen op nul uit komen

Bedank voor deze.

GRO · #7 24 augustus 2011, 17:11

Citaat:

Oorspronkelijk geplaatst door LucB

Dag Excellers,

Bij dit spel krijg je in een UserForm 16 getallen, waarvan je er 5 moet gebruiken om een som te maken.

Op de valreep ben ik geholpen door Eric (EVR)

Ik hoop dat de 2007 en 2010-gebruikers er ook wat mee kunnen.

Geachte heer Luc,
Deze som_UF.xls werkt niet in een 64-bit systeem.
Is dit aan te passen?
Groet GRO

EvR · #8 24 augustus 2011, 18:21

Citaat:

Oorspronkelijk geplaatst door GRO

Deze som_UF.xls werkt niet in een 64-bit systeem.
Is dit aan te passen?
Groet GRO

Gokje: zit 'm wss in de winmn.dll, geen idee wat de 64bit variant hiervan is
haal het stuk

Code:

Private Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" _
                                        (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

eens weg uit de klassenmodule Klasse1 (je hebt dan geen geluid meer)
Werkt het dan wel?

Discussietools
Printversie tonen Deze pagina e-mailen
Weergave
Lineaire weergave Switchen naar hybride weergave Switchen naar vertakte weergave