Help!

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

Hulp bij posten

Recente topics

Auteur Topic: Lotto: punt duizendtallen verwijderen  (gelezen 28528 keer)

0 leden en 1 gast bekijken dit topic.

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Lotto: punt duizendtallen verwijderen
« Reactie #135 Gepost op: 14 december 2021, 17:09:37 »
Hallo Veerj,

Citaat
Als het goed is zie je bij het selecteren van het pagina script ook de selectievelden op de lottopagina meeverspringen

Het was me inderdaad ook al opgevallen, en dat zou het in theorie gemakkelijk moeten maken. In de praktijk is dat niet het geval voor de laatste trekking. De class 'Results-cont' selecteren, of eender welke onderliggende class toont netjes de bijhorende elementen, maar met (0) blijf ik de voorlaatste trekking ophalen. Ik ga er zeker niet van wakker liggen, de (2) deed de trick.
In het vervolg, moest dat er al komen, eventjes dóórzoeken en me niet te veel afvragen  :D

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: punt duizendtallen verwijderen
« Reactie #136 Gepost op: 14 december 2021, 17:13:16 »
Dat maakt het zeker makkelijker.
Als je met je muis boven het veld gaat staan dat je wilt ophalen en vervolgens daar op inspecteren klikt, kom je direct op de juiste plaats in het script terecht.

Vermoedelijk was dat al bij je bekend ;)

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Lotto: punt duizendtallen verwijderen
« Reactie #137 Gepost op: 14 december 2021, 17:25:45 »
Inderdaad Veerj, dat laat één en ander vlot verlopen, maar de (2) blijft me irriteren  :D
Had ik het dan toch correct dat je die al proberend had gevonden?
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 MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Lotto: punt duizendtallen verwijderen
« Reactie #138 Gepost op: 14 december 2021, 17:29:27 »
Ook nog eentje @ Arnold  :)

Citaat
omdat Random toch niet zo random is in VBA

Dat klopt helemaal, en zeker goed dat je er iets op gevonden hebt, maar het kan simpeler: door de massa mogelijkheden (ik tel 16 decimalen bij de rnd-getallen tussen 0 en 1) kan je namelijk rustig stellen dat het wél random is, op voorwaarde dat je telkens ergens anders begint.
Het enige wat je daarvoor moet doen is in Workbook_Open één instructie toevoegen
Randomize Timeren voor de rest nergens in je code nogmaals Randomize gebruiken.

Ik heb een collega (maar die vertrouwt zijn eigen schaduw niet) wel eens zien gebruiken: "Randomize (Timer ^ 2)"  ;D

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: punt duizendtallen verwijderen
« Reactie #139 Gepost op: 14 december 2021, 17:30:42 »
Ja zeker, ik zag dat (0) de output van vorige week gaf in het "lokale variable venster". Vervolgens direct testen met 1,2,3 gaf al snel het juiste resultaat.
Het is altijd even trial and error. Mogelijk even een loop gebruiken om te zien wat er allemaal in het class element verstopt zit.

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Lotto: punt duizendtallen verwijderen
« Reactie #140 Gepost op: 14 december 2021, 17:33:05 »
Dát noem ik nu eens een geruststelling, zie. Ik zat uiteindelijk dus helemaal goed met
Citaat
In het vervolg, moest dat er al komen, eventjes dóórzoeken en me niet te veel afvragen  :D
Thanks !
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: punt duizendtallen verwijderen
« Reactie #141 Gepost op: 14 december 2021, 17:34:11 »
No problem :thumbsup:

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto: punt duizendtallen verwijderen
« Reactie #142 Gepost op: 14 december 2021, 19:39:31 »
Ook nog eentje @ Arnold  :)
Het enige wat je daarvoor moet doen is in Workbook_Open één instructie toevoegen
Randomize Timer
dankuwel voor de tip ! ik had 'randomize' functie gebruikt maar telkens voor de regel waar random gekozen werd.
Mvg,
Arnold.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto: punt duizendtallen verwijderen
« Reactie #143 Gepost op: 15 december 2021, 15:55:19 »
@Molly : het was me ontgaan maar we hebben al een héél lange discussie gehad i.v.m. random in excel/vba...ik was het echt vergeten , ik ging het anders niet opnieuw gemeld hebben  :-[.
https://www.oplossing.be/excel/lotto-trekking-is-random-echt-random/msg237372/#msg237372
ook toen al i.v.m. met mijn "Lotto" programma  ;D
Mvg,
Arnold.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto: punt duizendtallen verwijderen
« Reactie #144 Gepost op: 16 januari 2022, 17:06:01 »
Hallo iedereen , ik ben nog altijd super kontent met mijn (ons) lotto programma , werkt perfect...
echter , op bepaalde tijden zijn er ook "extra" trekkingen zoals op Kerstavond en Nieuwjaarsavond...
die moest ik dan manueel ingeven om te controleren , de adressen van de webpagina's zijn namelijk verschillend , maar beetje controle toont dat ze qua layout identiek zijn.
ik heb dus het bestaande Excel bestand aangepast in die mate dat je nu eerst aangeeft of het een "normale" woensdag/zaterdag avond trekking is , dan wel een "extra" trekking , de code haalt dan de nodige info van de juiste webpagina....
Mvg,
Arnold.

oja , de ingevulde te spelen nummers het zijn NIET onze gespeelde nummers maar een quickpick trekking  ;D
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline Warme bakkertje

  • Volledig lid
  • **
  • Berichten: 215
  • Geslacht: Man
Re: Lotto: punt duizendtallen verwijderen
« Reactie #145 Gepost op: 17 januari 2022, 04:14:06 »
Ik zou persoonlijk gaan voor deze

welketrekking = Application.InputBox(" 1) = Gewone trekking  -   2) = Extra trekking , maak Uw keuze ?", "Keuze trekking", , , , , , 1)

omdat je dan de invoer verplicht beperkt tot een cijfer.
Windows 10 Home   NLD 64bit

Microsoft Office Professional Plus 2016 US

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto: punt duizendtallen verwijderen
« Reactie #146 Gepost op: 17 januari 2022, 08:22:01 »
hey,
je hebt gelijk dat ik met Uw regel code , als ik b.v. "m" intyp een foutmelding krijg dat het ongeldig is , maar met mijn regel kan je niets anders invullen dan 1 of 2 omdat ik dit hier ondervang :  "If welketrekking <> 1 And welketrekking <> 2 Then GoTo einde" ?
en als ik met Uw regeltje code op "ok" klik zonder iets in te vullen krijg ik een foutmelding , met mijn regeltje niet...
dus ik weet niet ?
ik had eerst geprobeerd met "while.....wend" maar dan kon ik niet op "annuleren" klikken , vandaar mijn andere manier.
Mvg,
Arnold.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline Warme bakkertje

  • Volledig lid
  • **
  • Berichten: 215
  • Geslacht: Man
Re: Lotto: punt duizendtallen verwijderen
« Reactie #147 Gepost op: 17 januari 2022, 12:25:26 »
With CreateObject("InternetExplorer.Application")
    Application.DisplayAlerts = False
    Select Case Application.InputBox("Gewone trekking = 1  -  Extra trekking = 2, maak Uw keuze ?", "Keuze trekking", , , , , , 1)
        Case 1
            .navigate "https://www.nationale-loterij.be/onze-spelen/lotto/uitslagen-trekking"
        Case 2
            .navigate "https://www.nationale-loterij.be/onze-spelen/extra-lotto/uitslagen-trekking"
        Case Else
            GoTo einde
    End Select
    Application.DisplayAlerts = True
en een kleine aanpassing bij einde:

einde:
ActiveSheet.Protect
With Application
    .ScreenUpdating = True: .DisplayAlerts = True
End With
Windows 10 Home   NLD 64bit

Microsoft Office Professional Plus 2016 US

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto: punt duizendtallen verwijderen
« Reactie #148 Gepost op: 17 januari 2022, 14:03:52 »
code aangepast , werkt perfect en weer wat code bijgeleerd.
dankuwel  ;).
Arnold.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto: punt duizendtallen verwijderen
« Reactie #149 Gepost op: 30 januari 2022, 16:04:48 »
even gewoon om te weten : ik heb bovenstaande routine met input box (van Warme Bakkertje) even verwijderd en gebruik nu 2 buttons (gewoon omdat het mooier oogt  ;D) :

Button 1) "Controle gewone trekking" , regel code = .navigate "https://www.nationale-loterij.be/onze-spelen/lotto/uitslagen-trekking"
Button 2) "Controle extra trekking" , regel code = .navigate "https://www.nationale-loterij.be/onze-spelen/extra-lotto/uitslagen-trekking"

de rest van de code voor beide buttons is compleet identiek ....nu zijn er dus 2 aparte modules maar met identieke code uitgenomen die éne regel, kan dit aangepast worden zodat er slechts één module code wordt gebruikt na het aanklikken van een van de 2 buttons , maar met elk die éne vaste regel code ?
niet dat het stoort en die dubbele code is niet erg op zich , wou gewoon even weten of mijn vraag mogelijk is ?
in bijgevoegd bestand gaat het hem dus over module 1 en module 6
Mvg,
Arnold.

HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

 


www.combell.com