Euclide's algoritm

[NeedHelpwithVBA]

Hallo mensen,

wij moeten met een opdracht oefenen maar we hebben echt geen idee hoe we het moeten aanpakken
of welke codes we moeten gebruiken.
Ik heb hieronder de opdracht gezet, zou fijn zijn als jullie ons wat informatie willen verschaffen.

VBA Practicum week 2 – Euclides
Deze week hebben we gezien hoe functies in VBA werken. Daarnaast hebben we geleerd hoe men vanuit de VBA-code informatie op de Sheets kan zetten.
Vandaag gaan we een simulatie maken om het Algoritme van Euclides om uit te leggen hoe je de grootst gemene deler kunt vinden. Zoek hiervoor op internet (wikipedia) om een uitleg. Je ziet op de pagina een videootje dat dit algoritme uitbeeldt. Deze video gaan we namaken in Excel.
Zorg ervoor dat de video telkens voor twee random (en dus telkens andere) getallen uitgevoerd wordt. De video op internet laat door middel van dwarsstreepjes van tevoren al zien wat de GGD is. Voor je programma in Excel hoeft dit niet (maar je zou hem zichtbaar kunnen maken door het gebruik van een ander kleurtje…)
Theorie
Hier een voorbeeldprogramma dat een cel kleurt in opvolgende kleuren. Voer dit eens uit in je eigen Excel en kijk naar het resultaat. Pas daarna zelf eens wat parameters aan om te begrijpen wat de code doet.


Sub Kleurtjes()
Dim intKleur As Integer
Dim intIndex As Integer
Dim intPauze As Long
Dim intAantal As Integer
intPauze = 0
intAantal = 1 + Rnd * 9
For intIndex = 0 To intAantal
intKleur = intIndex Mod 3
Select Case intKleur
Case 0
Range("B2").Interior.Color = vbRed
Case 1
Range("B2").Interior.Color = vbGreen
Case Else
Range("B2").Interior.Color = vbBlue
End Select
intPauze = 0
Do
intPauze = intPauze + 1
Loop While intPauze < 10000000
Next intIndex
End Sub

De opdracht
1. Zie tijdens mijn presentatie deze simulatie vereenvoudigd voor Excel.
2. Denk na over de verschillende stappen die het programma moet doorlopen.
HHS
3. Bedenk hoeveel variabelen je nodig gaat hebben en van welk type deze moeten zijn.
4. Voordat je gaat programmeren moet je eerst een PSD maken.
5. Start met het schrijven van de declaratie en initialisatie.
6. Schrijf het PSD nu uit in zinnen die je als commentaar in de editor schrijft.
7. Vaak is het handig om van een zo’n zin in de PSD een procedure te maken die je aanroept. De naam van de procedure staat dan al vast.
8. Vul deze procedures een voor een met code en test deze onafhankelijk van elkaar. Een procedure bevat meestal maar tien tot 15 regels code. Meer dan een beeldscherm vol is in ieder geval niet goed.
9. Laat het uiteindelijke programma volgende week aftekenen

 

[RogerS]

Wat is het probleem? Gewoon de stappen volgen zoals al genoemd in de opdracht. Kom je uiteindelijk vanzelf bij de oplossing. Of zijn er specifieke zaken waar je tegen aanloopt, dan kunnen we misschien wel een hint geven.