examen informatica

[Wandw]

Hallo,

Ik heb voor mijn examen informatica een getalmachine gemaakt. Willen jullie dit eens testen en zeggen wat jullie ervan vinden?
Ik ben ongeveer een half jaartje bezig met VBA
hartelijk dank

 

[killermenace]

Wat zou het programma moeten doen?

 

[Wandw]

Wat zou het programma moeten doen?

het is een spel

 

[That Guy]

droog, werkt goed.

Het enige - deze code:

txt1 = Int((9 - 0 + 1) * Rnd + 0)

vanwaar de -0/+1? Beetje vaag

:thumb:

 

[Wandw]

droog, werkt goed.

Het enige - deze code:

txt1 = Int((9 - 0 + 1) * Rnd + 0)

vanwaar de -0/+1? Beetje vaag

:thumb:

(bovenwaarde-onderwaarde+1) da was de formule die erges stond, dacht bij help fzo
het werkt zo in ieder geval

 

[That Guy]

ehm, je kan ook gewoon "10" gebruiken, want:

txt1 = Int((9 - 0 + 1) * Rnd + 0)

equals

dim varGetal as integer
varGetal = (9+0+1)
txt1 = Int((vargetal) * Rnd + 0)

en omdat varGetalletje hetzelfde is als 10:

txt1 = Int((10) * Rnd + 0)

en omdat +0 nutteloos is:

txt1 = Int((10) * Rnd)

en omdat haakjes om enkele getallen ook nutteloos is:

txt1 = int(10*rnd)
[COLOR="SeaGreen"]
'wat je ook kan schrijven als:[/COLOR]
txt1 = int(rnd(10))

Vandaar dus

Maargoed, either way, leuk gedaan.:thumb:

 

[Wandw]

ehm, je kan ook gewoon "10" gebruiken, want:

txt1 = Int((9 - 0 + 1) * Rnd + 0)

equals

dim varGetal as integer
varGetal = (9+0+1)
txt1 = Int((vargetal) * Rnd + 0)

en omdat varGetalletje hetzelfde is als 10:

txt1 = Int((10) * Rnd + 0)

en omdat +0 nutteloos is:

txt1 = Int((10) * Rnd)

en omdat haakjes om enkele getallen ook nutteloos is:

txt1 = int(10*rnd)
[COLOR="SeaGreen"]
'wat je ook kan schrijven als:[/COLOR]
txt1 = int(rnd(10))

Vandaar dus

Maargoed, either way, leuk gedaan.:thumb:

ooh thx, dat maakt het weer wat korter nuja, mijn leerkracht informatica kijkt toch niet naar de code

 

[dizzl]

werkt prima