Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Euclades  (gelezen 53056 keer)

0 leden en 1 gast bekijken dit topic.

Offline Diezel

  • Oplosser
  • ****
  • Berichten: 508
  • Geslacht: Man
  • Meedenker - Initiatief nemen - Helpen oplossen...
Euclades
« Gepost op: 06 april 2019, 22:11:00 »
Beste oplossers,

In bijlage heb ik een voorbeeldje van euclades algoritme.
Het probleem is het werd in java geschreven en heb deels volgens mijn beperkte kennis over java omgezet naar vba. De meeste operatoren kon ik aan uit maar niet van allemaal.
Aan een paar regels zoek ik hulp om de code functie in VBA te laten testen(aanroepen) in het venster direct - editor. ALT + F11 om in de editor te geraken van acces

Option Compare Database
Option Explicit
Public Function euclide(ByVal a As Long, ByVal b As Long) As String
Dim n, aux, alpha, beta As Long
  n = 0
  aux = b

  If (a < b) Then
    long[] euclide = { 0, a };
    return euclide;
  End If

  Do While (aux <= a)
    aux = (aux << 1);
    n++;
  Loop

  alpha = (1 << (n - 1));
  beta = (1 << n);

   Do while (n-- > 0)
    aux = (alpha + beta) >> 1;
    If ((aux * b) <= a) Then
      alpha = aux;
    Else
      beta = aux
      End If
    Loop

  euclide = alpha & " - " & a - (b * alpha)
 
End Function



In bijlage een screenshot java code en de database waar ik deels de javacode heb omgezet naar VBA

Vriendelijke groeten

Diezel
OS: Windows 10 Home - 64 bit
Processor:  Intel(R) Core(TM) I7 - 4770 CPU 3,40 GHZ
SSD - RAM: 500 GB, 16 GB
SOFTWAREPAKKET: Office 2007

Offline Scotty71

  • Nieuw lid
  • Berichten: 1
  • Geslacht: Man
  • Oplossing.be
Re: Euclades
« Reactie #1 Gepost op: 28 november 2019, 12:58:19 »
Hallo,

Ik heb ervaring met vba maar niet van java,
Bezorg mij eens de cijfers en berekening voorbeelden in gewone tekst om te begrijpen wat er moet gerekend worden.

Gr, Marc.

 


www.combell.com