Help!

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

Hulp bij posten

Recente topics

Auteur Topic: Lotto Historiek : Uitdaging ?  (gelezen 3190 keer)

0 leden en 1 gast bekijken dit topic.

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: Lotto Historiek : Uitdaging ?
« Reactie #30 Gepost op: 16 november 2021, 10:48:27 »
Toch nog eentje voor de snelheid. :)
dankuwel ! Uw resultaten komen perfect overeen met de laatste bijdrage (reactie#26) van MollyVH :
234 matches voor 5 gelijke
5 matches voor 5+ gelijke
0 matches voor 6 gelijke

Mvg,
Arnold.

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Lotto Historiek : Uitdaging ?
« Reactie #31 Gepost op: 16 november 2021, 11:14:24 »
Hallo,

Zie je wel dat ik nog in de amateurafdeling zit?
Toch ontdekte ik een mini-foutje in de versie van Warme bakkertje, maar lijkt mij enkel een kwestie van een moment van verstrooidheid.
De controle op 6 is namelijk in werkelijkheid een controle op 6+.
Voor een correcte controle op 6 moet enkel regel 10 in de code als volgt aangepast worden:
.Item(.Count) = Join(Array(ar(I, 1), ar(I, 2), ar(I, 3), ar(I, 4), ar(I, 5), ar(I, 6)), ",")
Mvg,
Molly
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: Lotto Historiek : Uitdaging ?
« Reactie #32 Gepost op: 16 november 2021, 11:23:21 »
code aangepast !
Mvg,
Arnold.

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Lotto Historiek : Uitdaging ?
« Reactie #33 Gepost op: 16 november 2021, 15:46:46 »
Hallo Arnold, VeerJ, Warme bakketje en tutti quanti  :)

Wel ja, het moest ervan komen, je zal het misschien moeilijk kunnen geloven (hoewel, gezien mijn bijlage zal je weinig andere keuze hebben  :D), maar ik ben de dictionary-methode al eens wat beter gaan bekijken.
Uit nieuwsgierigheid naar de snelheid heb ik er slechts een minimaal gebruik van gemaakt en de rest via arrays blijven verwerken, en ik moet zeggen dat het behoorlijk meevalt.

Mvg,
Molly
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Lotto Historiek : Uitdaging ?
« Reactie #34 Gepost op: 16 november 2021, 16:00:47 »
Lekker bezig! ;D En wat valt er mee? De snelheid?

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Lotto Historiek : Uitdaging ?
« Reactie #35 Gepost op: 16 november 2021, 16:20:26 »
Enorm  :D :D :D

Uit mijn eerdere posts:
Citaat
Ik ga zeker eens wat tijd uittrekken om "scripting.dictionary" wat beter onder de knie te krijgen.
(en daarnet:) ...ik ben de dictionary-methode al eens wat beter gaan bekijken

Anders gezegd, ik heb vroeger ook al enkele malen voorzichtige stapjes gezet met deze methode, maar om ze van scratch hier op de lottokwestie te gaan toepassen vond ik eerst nog een brug te ver  :-[

De snelheid verbaast me dan ook niet. Het had ook weinig zin om jouw code of die van Warme bakkertje te gaan 'overschrijven', en dus wou ik eens kijken naar de snelheid als ik, waar mogelijk, met arrays ging werken, en stelde vast dat, als er al een snelheidsverschil is, dit heel kleintjes zal zijn.

Mvg,
Molly
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: Lotto Historiek : Uitdaging ?
« Reactie #36 Gepost op: 16 november 2021, 17:37:43 »
@Molly : dan heb je dat als "beginneling"  8) toch zeer goed voor elkaar , de snelheid is enorm  :o....
Mvg,
Arnold.

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: Lotto Historiek : Uitdaging ?
« Reactie #37 Gepost op: 17 november 2021, 12:03:37 »
Dag iedereen,
enerzijds uit tijdverdrijf en anderzijds om toch te proberen de code een beetje te begrijpen heb ik de code van Warme Bakkertje bij reactie#29 een beetje aangepast naar mijn wensen...
nu is mijn vraag en ik WEET dat het muggenziften is en in Jullie ogen misschien weinig meerwaarde bied maar is het mogelijk( met die code) om de beide rijnummers vermeld te krijgen van een overeenkomende match ? ik heb de ganse code proberen te begrijpen maar het lukt me niet  :(.
zie bijlage hoe ik het graag zou hebben : de rijnummers in kolom K-L , P-Q , U-V , de 1ste rij in kolom K-L heb ik manueel ingevuld om te tonen hoe ik het graag zou hebben.
Mvg,
Arnold.

UPDATE : Jullie moeten er geen werk meer in steken , logisch gezien brengt het eigenlijk ook voor mij niets aan meerwaarde bij ....
ik ga mijn post dan ook straks verwijderen !

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Lotto Historiek : Uitdaging ?
« Reactie #38 Gepost op: 17 november 2021, 14:31:16 »
Dag Arnold,

Ondanks je update heb ik toch eens gekeken  ;). Zomaar met de bestaande code die rijen toevoegen zal niet lukken (ja ja, ik begin het te begrijpen...)
Dus ik vond je lotto-project nuttig studiemateriaal (als ik niet oplet word ik nog dictionary-fanaat  :D) en heb daarom iets anders geprobeerd.
Zoals je zelf zegt levert dat rijnummer geen bijkomende informatie op maar de datum misschien wel (een héél klein beetje  0:-)).
Tussen haakjes: in jouw aangepaste code krijg je enkel de groepen van 5 getallen die 2 maal voorkomen, en mis je bijgevolg deze die meer dan 2 maal voorkomen.

Bij wijze van proefje heb ik dus (maar enkel voor 5) mijn vorige methode als basis gebruikt om de datums ernaast te zetten.
Bekijk het maar eens.

Mvg,
Molly
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: Lotto Historiek : Uitdaging ?
« Reactie #39 Gepost op: 17 november 2021, 14:45:41 »
hey Molly , bedankt voor deze aanpassing , misschien wel zonder dat je het beseft heb maar nu ik de datums heb moet ik eigenlijk makkelijk het betreffende rijnummer kunnen toevoegen , allee dat denk ik toch , ik ga dat dus eens uittesten...tis misschien wel niet nuttig maar nu ik de mogelijkheid heb...
niet meer deze middag , ik moet een Garmin sportwatch voor iemand in orde zetten/account maken/synchroniseren met app enz...
Mvg,
Arnold.

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Lotto Historiek : Uitdaging ?
« Reactie #40 Gepost op: 17 november 2021, 14:55:37 »
Hallo Arnold,

Je hecht dus toch belang aan het rijnummer? Dan kan dat nog enkel zijn om de zes getrokken getallen te bekijken(?)
Ik zie jou dat in orde krijgen, hoor  :)

Maar de belangrijkste reden van deze post: in de gauwte (te veel op dictionary geconcentreerd, dénk ik  ;)) nog een foutje gemaakt.
Regel 14 van de code moet zijn (anders worden de datums eventueel naar boven afgerond):
tr5(((i - 2) * 6) + j, 2) = CDate(Fix(arr(i, 1)))
Mvg,
Molly
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: Lotto Historiek : Uitdaging ?
« Reactie #41 Gepost op: 17 november 2021, 16:52:34 »
Je hecht dus toch belang aan het rijnummer?
was een beetje een "idee fixe" van bij het begin maar eigenlijk kan ik er niets mee aanvangen , ik ga gewoon het werkblad "historie" nu importeren in mijn Lotto werkblad en bij deze is dit "project" voor mij af.
Mvg,
Arnold.

 


www.combell.com