Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

converteer 4naar6 in eenmaal?

None
6 antwoorden
  • 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
  • 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?
  • 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
  • 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.
  • 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 ?
  • 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

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.