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 6911 keer)

0 leden en 1 gast bekijken dit topic.

Offline MollyVH

  • Volledig lid
  • **
  • Berichten: 147
  • Hey, ik ben nieuw hier !
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

Offline JEC

  • Ervaren lid
  • ***
  • Berichten: 329
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

  • Volledig lid
  • **
  • Berichten: 147
  • Hey, ik ben nieuw hier !
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?

Offline MollyVH

  • Volledig lid
  • **
  • Berichten: 147
  • Hey, ik ben nieuw hier !
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

Offline JEC

  • Ervaren lid
  • ***
  • Berichten: 329
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

  • Volledig lid
  • **
  • Berichten: 147
  • Hey, ik ben nieuw hier !
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 !

Offline JEC

  • Ervaren lid
  • ***
  • Berichten: 329
Re: Lotto: punt duizendtallen verwijderen
« Reactie #141 Gepost op: 14 december 2021, 17:34:11 »
No problem :thumbsup:

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 1.646
  • 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.
Wij , "oplossers" helpen U heel graag verder met Uw problemen
We zouden het ook graag achteraf horen of onze inbreng al dan niet geholpen heeft !

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 1.646
  • 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.
Wij , "oplossers" helpen U heel graag verder met Uw problemen
We zouden het ook graag achteraf horen of onze inbreng al dan niet geholpen heeft !

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 1.646
  • 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
Wij , "oplossers" helpen U heel graag verder met Uw problemen
We zouden het ook graag achteraf horen of onze inbreng al dan niet geholpen heeft !

Offline Warme bakkertje

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 181
  • 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: 1.646
  • 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.
Wij , "oplossers" helpen U heel graag verder met Uw problemen
We zouden het ook graag achteraf horen of onze inbreng al dan niet geholpen heeft !

Offline Warme bakkertje

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 181
  • 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: 1.646
  • 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.
Wij , "oplossers" helpen U heel graag verder met Uw problemen
We zouden het ook graag achteraf horen of onze inbreng al dan niet geholpen heeft !

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 1.646
  • 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.

« Laatst bewerkt op: 30 januari 2022, 16:11:01 door Montagnard »
Wij , "oplossers" helpen U heel graag verder met Uw problemen
We zouden het ook graag achteraf horen of onze inbreng al dan niet geholpen heeft !

 


www.combell.com