Knopjes klikken en sommen maken

LucB · #1 26 januari 2010, 17:53

Dag Excellers,

Hierbij een progje voor kinderen zo vanaf 9 jaar.
In een UserForm getallen klikken en zorgen dat de SOM klopt.

Zie bijlage

Graag jullie bevindingen.

Mr. Magoo · #2 26 januari 2010, 20:15

Luc,

Nu nog de rest nog

- / *
Nee geintje, ziet er zeer verzorgt uit.
Bevat ook leuk voorbeeldmateriaal voor andere.
Zou wel zonde zijn als je het alleen hier bij laat.

trucker10 · #3 26 januari 2010, 22:11

Beste Luc , ik heb het aan de 2ling ( 7 jaar ) al eens laten zien en al een kopietje op hun cpu gezet , voorlopig klikken ze der maar op los want .......ze denken dat ze keno aan het spelen zijn .
Mijn goedkeurig krijg je alvast , op naar de volgende zou ik zeggen .
Thanks .

LucB · #4 27 januari 2010, 12:47

MrMagoo en Trucker10,

Dank voor jullie reacties en aansporing.
Ik zal er straks nog eentje plaatsen.

Deze zal gaan over het manipuleren van Shapes.

micheldrunen · #5 27 januari 2010, 12:55

Luc,

Kun je misschien de code een beetje toelichten hoe deze werkt.
Ik ben wel een beetje bekend met VBA maar deze code kan ik niet geheel ontleden.
Zo begrijp ik niet waar je het maximale getal bepaalt in je code voor een bepaalde button.

LucB · #6 27 januari 2010, 14:10

Dag Michel,

Je doelt waarschinlijk op dit stukje code uit "UserForm_Initialize"

Code:

For n = 1 To 25
        Randomize
        i = Int(Rnd * 50) + 1
        Me.Controls("CommandButton" & n).Caption = i
    Next n

Ga naar dit code-blokje en zet de cursor in "Rnd".
Klik nu de F1-toets en je hebt je uitleg over Rnd en Randomize.

(Int(Rnd * 50) + 1 levert een geheel getal(Integer) van 1 t/m 50)

Mr. Magoo · #7 27 januari 2010, 15:22

Citaat:

Oorspronkelijk geplaatst door LucB

Dag Michel,

Je doelt waarschinlijk op dit stukje code uit "UserForm_Initialize"

Code:

For n = 1 To 25
        Randomize
        i = Int(Rnd * 50) + 1
        Me.Controls("CommandButton" & n).Caption = i
    Next n

Ga naar dit code-blokje en zet de cursor in "Rnd".
Klik nu de F1-toets en je hebt je uitleg over Rnd en Randomize.

(Int(Rnd * 50) + 1 levert een geheel getal(Integer) van 1 t/m 50)

Wat schreef ik .........

leuk voorbeeld..................

trucker10 · #8 27 januari 2010, 15:34

LucB , heel hartelijk bedankt voor de toelichting , nu kan ik het aanpassen voor de kids ik zet b.v

Code:

Randomize
        i = Int(Rnd * 20) + 1

en dan

Code:

Me.txtSom = Int(Rnd * 50) + 12

en deze sommen kunnen ze achterhalen (oplossen ) . het was even een gekibbel dat ze niet dezelfde som konden oplossen

Een tevreden papa .

LucB · #9 27 januari 2010, 18:04

Het programma aangepst.
Je kunt nu de moeilijkheid kiezen in A1.
Hoogste getal te kiezen uit 20, 30, 40, 50 of 99.

trucker10 · #10 27 januari 2010, 18:19

Super !!

, ik heb ook al eens naar de auto's gekeken tijdens het rijden

, ik kreeg daar een foutje straks bij het terug thuis komen kijk ik nog eens

.

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

Soortgelijke discussies
Discussie	Auteur	Forum	Reacties	Laatste bericht
Klikken op cel.	Geeviz	Afgehandelde vragen	5	2 februari 2011 16:00
Klikken	herrwalter	Afgehandelde vragen	4	5 november 2009 13:09
probleem met filters en sommen maken.	Momo	Afgehandelde vragen	21	12 maart 2008 13:07
Klikken op cel en Printen	ben611014	Afgehandelde vragen	2	7 juni 2007 16:26
Automatisch +1 bij klikken op cel	ProLen	Afgehandelde vragen	2	17 februari 2007 22:26