Oeps je hebt gelijk... (zie code en mdb)
Private Sub cmdGenereer_Click()
'maak een textbestand
Dim Bestandsnaam As String
Dim zin As String
Bestandsnaam = CurrentProject.Path + "\combinaties.txt"
Open Bestandsnaam For Output As #2
  Dim tijd As Date
  tijd = Now()
  MsgBox tijd
  Write #2, CStr(tijd)
 
For bal1 = 1 To 36
    For bal2 = bal1 + 1 To 42
        For bal3 = bal2 + 1 To 45
            For bal4 = bal3 + 1 To 42
                For bal5 = bal4 + 1 To 42
                    For bal6 = bal5 + 1 To 42
                       'We hebben één combinatie we schrijven weg
                        zin = CStr(bal1) + ";" + CStr(bal2) + ";" + CStr(bal3) _
                        + ";" + CStr(bal4) + ";" + CStr(bal5) + ";" + CStr(bal6)
                        Write #2, zin
                     Next bal6
                 Next bal5
            Next bal4
           
        Next bal3
    Next bal2
Next bal1

'sluit het bestand

    tijd = Now()
  MsgBox tijd
  Write #2, CStr(tijd)
    Close #2
End Sub

En dat geeft net als bij jou
42*41*40*39*38*37 / (6*5*4*3*2*1) combinaties

Dizzl,

Als je jou code in een module plaatst dan heb je de zelfde snelheid als die van DeKurt. 

Allen bedankt voor het mooie resultaat.

met een 2,6 ghz en 1gb ram kom ik op 29,5 sec. met jullie code.
Ik heb ondertussen het met mijn code het gedaan gekregen maar met ongeveer 1 seconde langer.

Heb nog niet geprobeerd op de duo core met 4gb ram, maar ik ben er zeker van dat daar de code <18 sec zal liggen.

25/11/2007

Ik heb al onze code's getest ivm lottocombinaties op een Duo Core E6750 CPU 2,6 ghz en daar klopt ie af op 16 seconden.

Vriendelijke groet,

Diezel

Vriendelijke groet,

Diezel