anoniem Geplaatst: 4 april 2002 Delen Geplaatst: 4 april 2002 Zie code Ik zet 4 naar 5 om maar ik wil direct dat het record vb 1 2 3 4 de overige cfr tot 42 erbij zet Hoe doe ik dat om 4 naar 6 te verkrijgen zonder eerst 4n5 en dan 5n6 maar in eenmaal. grtz combimaster '**************************************************************** 'Deze functie zet alle 4 cijfercombinaties om naar 5 cijfer combinaties met 'getallen die niet voorkomen in de vijfcijfer combinatie. Dus per vijfcijfer 'combinatie bekomt men 38 x 6 cijfercombinaties '**************************************************************** Private Sub ConvertFourTofive() Dim i As Byte Dim j As Byte Dim Teller As Byte Dim Hulp As Byte Dim Aanwezig As Boolean Dim ballen(37, 4) As Byte Call CreateTable(TabName, 5) If DoIt = False Then Call CreateTable("TempTable", 5) Set RS_AlleUitslagen = DB_AlleUitslagen.OpenRecordset("" & ComSelectTable.Text & "") Set RS_Selectie = DB_AlleUitslagen.OpenRecordset("TempTable") ProgressBar1.Min = 0 ProgressBar1.Max = RS_AlleUitslagen.RecordCount ProgressBar1.Value = 0 RS_AlleUitslagen.MoveFirst Do While Not RS_AlleUitslagen.EOF Teller = 0 Aanwezig = False For i = 0 To 37 ballen(i, 0) = RS_AlleUitslagen!bal1 ballen(i, 1) = RS_AlleUitslagen!bal2 ballen(i, 2) = RS_AlleUitslagen!bal3 ballen(i, 3) = RS_AlleUitslagen!bal4 Next i For i = 1 To 42 For j = 0 To 3 If ballen(0, j) = i Then Aanwezig = True End If Next j If Aanwezig = False Then ballen(Teller, 4) = i Teller = Teller + 1 End If Aanwezig = False Next i For i = 0 To 37 For X = 0 To 3 If ballen(i, 4) < ballen(i, X) Then Hulp = ballen(i, 4) ballen(i, 4) = ballen(i, X) ballen(i, X) = Hulp End If Next X RS_Selectie.AddNew RS_Selectie!bal1 = ballen(i, 0) RS_Selectie!bal2 = ballen(i, 1) RS_Selectie!bal3 = ballen(i, 2) RS_Selectie!bal4 = ballen(i, 3) RS_Selectie!bal5 = ballen(i, 4) RS_Selectie.Update RS_Selectie.MoveLast Next i ProgressBar1.Value = ProgressBar1.Value + 1 RS_AlleUitslagen.MoveNext Loop RS_Selectie.Close RS_AlleUitslagen.Close DB_AlleUitslagen.Execute ("INSERT INTO [" & TabName & "]" & _ "SELECT TempTable.* " & _ "From [TempTable] Order By Bal1, Bal2, Bal3, Bal4, Bal5") DB_AlleUitslagen.Execute ("DROP TABLE [TempTable]") MsgBox ("Tabel is aangemaakt") End If End Sub Quote Link naar reactie
anoniem Geplaatst: 4 april 2002 Auteur Delen Geplaatst: 4 april 2002 een 4 cijfercombinatie is toch gewoon een getal van 0000 t/m 9999 ? of if het een getallencombinatie zoals de lotto ? dus bv 01 12 24 41. wat is dan het laagste getal, het hoogste getal ? waar haal je het vijfde, zesde getal vandaan? Quote Link naar reactie
anoniem Geplaatst: 4 april 2002 Auteur Delen Geplaatst: 4 april 2002 Van de lotto zie code als men 1 2 3 4 worden automatisch 1 2 3 4 5 1 2 3 4 6 tot 42 als ik dan hetzelfde doe met het 5cfr bestand bekom ik 1 2 3 4 5 6 1 2 3 4 5 7 tot 42 ik wil dat ineen keer bekomen van 4 naar 6 dus 1 2 3 4 en automatisch 5 en 6 5 en 7 enz tot 41 42 grtz combimaster Quote Link naar reactie
anoniem Geplaatst: 4 april 2002 Auteur Delen Geplaatst: 4 april 2002 ik kan er geen touw aanvast knoppen. wat wil je bereiken? het lijkt er op dat je een onhandige methode gebruikt, je gebruikt HEEL er veel geneste loops. Quote Link naar reactie
anoniem Geplaatst: 5 april 2002 Auteur Delen Geplaatst: 5 april 2002 het zijn lottoballen. elke bal komt per rij maar een keer voor. ze liggen op volgorde, kleinste voorop dus bal1 < bal2 < bal3 < bal4 < bal5 < bal6. maxbal = 42 open rs while not rs.eof bal1 = rs.bal1 bal2 = rs.bal2 bal3 = rs.bal3 bal4 = rs.bal4 for bal5 = 1 to maxbal-1 if (bal5 <> bal1) and (bal5 <> bal2) and (bal5 <> bal3) and (bal5 <> bal4) then for bal6 = bal5+1 to maxbal if (bal6 <> bal1) and (bal6 <> bal2) and (bal6 <> bal3) and (bal6 <> bal4) then rangschik ballen insert ballen next bal6 next bal5 wend zoiets ? Quote Link naar reactie
anoniem Geplaatst: 5 april 2002 Auteur Delen Geplaatst: 5 april 2002 Ik heb misshien de oplossing maar kan in dat geval niet ontdubbelen ,teller dubbele gegevens van groot belang. maar krijg na uurtje,error max size reach, database niet groot genoeg,ik heb het zelfde progje in turbo basic onder dos lopen, is nu al 67 dagen bezig,resultaat 73 milj records en zit aan 3/4 bewerking. is er nog een database die meer aankan. ik werk met office 97 grtz combimaster Quote Link naar reactie
Aanbevolen berichten
Om een reactie te plaatsen, moet je eerst inloggen