Help!

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

Hulp bij posten

Recente topics

Auteur Topic: Dartsprogramma - scorebord  (gelezen 15111 keer)

0 leden en 1 gast bekijken dit topic.

Offline pitufo

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 1.158
  • Geslacht: Man
Re: Dartsprogramma - scorebord
« Reactie #45 Gepost op: 05 augustus 2020, 12:05:53 »
Hey Marc,

't Is dat ik het lichtjes vreemd vond dat je aan de ene kant stelt steeds automatisch te willen opslaan, en aan de andere kant toch een escape inbouwt om toch maar niet op te slaan. Ik dacht om er dan voor de gebruiker extra aandacht op te vestigen met een inputbox, maar inderdaad kan je dat met een msgbox opvangen (al zou ik er dan zelf andere knoppen opzetten, maar da's persoonlijke smaak).
In het andere geval, écht altijd automatisch opslaan dus (zeker omdat je als titel "Druk op OK" hebt staan) kan je die stap toch simpelweg overslaan(?), je krijgt namelijk nog een tweede msgbox na effectief opslaan. Maar goed, als je er op deze manier gelukkig mee bent, geen probleem natuurlijk!

Toevallig zag ik dat je een foutje hebt gecreëerd door Spelers_Wissen toe te voegen in procedure Knop_NieuwSpel. Een nieuw spel starten zal dus een fout geven. Spelers_Wissen mag gewoon weg.

@ cow18,
Nogmaals een pak van mijn hart (de ene muis is de andere niet...)  :D


[Edit] :
Spelers wissen is iets wat maar in één enkele procedure aan bod komt en heeft ook één enkele instructie nodig (daar een andere procedure voor aanroepen is er m.i. een beetje over  ;) )
Die stond bij mij in Knop_NieuwSpel. Ik merkte net dat je die hebt verwijderd en vervangen door Spelers_Wissen.
Je zal dus of het ene of het andere moeten doen.
« Laatst bewerkt op: 05 augustus 2020, 12:20:23 door pitufo »
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline plainme

  • Lid
  • *
  • Berichten: 91
  • Geslacht: Man
  • Ab uno disce omnes (leer uit één allen kennen)
Re: Dartsprogramma - scorebord
« Reactie #46 Gepost op: 05 augustus 2020, 13:08:35 »
@ Pitufo,

Er is een verschil tussen en nieuwe leg en een nieuw spel.
Bij nieuwe leg blijven de namen behouden, bij nieuw spel worden de namen ook gewist.

Inderdaad de bevestiging op bevestiging is inderdaad wat overbodig .
( maar was enthousiast met mijn kunnen en kennis ( hoe klein en zielig deze ook is ).... hahahahahahahahahaha )
logica zegt idd dat bevestiging van bevestiging een bevestiging teveel is bevestigd :) :) :)
Ik ga kijken om deze aan te passen...

Is hier al een ferm stapeltje papier afgedrukt ondertussen :) :) :) ( ik noteer op papier wat ik heb aangepast en waarom... kwestie om nog te weten wat, hoe en waarom)

Citaat
@ cow18,
Nogmaals een pak van mijn hart (de ene muis is de andere niet...)  :D
Nog een geluk zeg .... anders hadden we allemaal dezelfde muis in huis :D  :D :D

 
Mvg,
Marc

Offline pitufo

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 1.158
  • Geslacht: Man
Re: Dartsprogramma - scorebord
« Reactie #47 Gepost op: 05 augustus 2020, 13:57:35 »
Citaat
Er is een verschil tussen en nieuwe leg en een nieuw spel.

Uiteraard! 't Was me ook meermaals opgevallen  :D
Da's ook de reden waarom in mijn versie een extra regel stond bij nieuw spel. Pak die er anders nog eens bij.
Maar als je dat per se in een afzonderlijke procedure wil zetten mag dat, maar dan moet je die procedure wel schrijven  0:-) .
Enkel Spelers_Wissen schrijven zal enkel een fout geven. Mogelijk ben je thuis met een andere versie bezig dan deze die je hebt meegestuurd, want die laatste kan in geen geval zo werken.

Citaat
logica zegt idd dat bevestiging van bevestiging een bevestiging teveel is bevestigd :) :) :)
Ik ga kijken om deze aan te passen...

Goed plan! Een goed leermoment zou daarbij kunnen zijn om te trachten dan geen twee keer hetzelfde op te nemen (ik draai zelf al een paar jaartjes mee en betrap mezelf soms ook nog op die fout). Niet getreurd dus.
Ook als je geen verdere vragen meer hebt, laat je ons dan wel nog meekijken naar je vorderingen?

Citaat
een ferm stapeltje papier afgedrukt
Zolang er maar geen bomen voor sneuvelen  :'(
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline pitufo

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 1.158
  • Geslacht: Man
Re: Dartsprogramma - scorebord
« Reactie #48 Gepost op: 05 augustus 2020, 14:55:45 »
Hoi,

Hierbij nog een licht aangepaste versie, ook met de nodige commentaren zoals een tijdje geleden beloofd.
Daarin als voorbeeld ook de pdf-kwestie à la façon du chef de bibi  ;D

Als je zelf nog een en ander aan je eigen versie wil proberen, zet die van mij dan maar voorlopig aan de kant, je kan ze dan indien nodig nog als spiekbriefje gebruiken  8)

En er zitten ook nog 2 nieuwigheden in: een handigheidje én een geestige noot. Wie zoekt die vindt  0:-)

[Edit] : foute bijlage verwijderd, correcte bij post van 6/8/20
« Laatst bewerkt op: 06 augustus 2020, 09:34:38 door pitufo »
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline plainme

  • Lid
  • *
  • Berichten: 91
  • Geslacht: Man
  • Ab uno disce omnes (leer uit één allen kennen)
Re: Dartsprogramma - scorebord
« Reactie #49 Gepost op: 05 augustus 2020, 21:49:22 »
@ Pitufo,

Net thuis van een heerlijke bbq. ik bekijk morgen naar de nieuwigheden :thumbsup:
Citaat
En er zitten ook nog 2 nieuwigheden in: een handigheidje én een geestige noot. Wie zoekt die vindt 
Ik zoek de muis en laat je bericht  :D :D :D

Citaat
Zolang er maar geen bomen voor sneuvelen 
recuppapier te gek voor woorden om daar mooi maagdelijk wit papier voor te gebruiken. €0,90 / 500 vel Action hahahahahaha voila zie zo zijn die mensen ook weer content zie!!!

Citaat
Daarin als voorbeeld ook de pdf-kwestie à la façon du chef de bibi 
et c'est le chef euh euh euh Bib qui a toujours raison  0:-) :blink:
Mvg,
Marc

Offline pitufo

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 1.158
  • Geslacht: Man
Re: Dartsprogramma - scorebord
« Reactie #50 Gepost op: 06 augustus 2020, 09:32:27 »
Oesje, Marc, ik ga dringend eens een cursus moeten volgen "niet altijd alles zo haastig / beginners".
Ik heb het waarschijnlijk opnieuw gepresteerd om een bestand niet op te slaan, waardoor er nog iets klein maar belangrijk ontbrak in de nieuwste versie.
Hopelijk lag de bbq voldoende zwaar op de maag  :D  en heb je tot op dit ogenblik nog niet kunnen kijken, en anders: sorry.
Bij deze de correcte versie.
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline plainme

  • Lid
  • *
  • Berichten: 91
  • Geslacht: Man
  • Ab uno disce omnes (leer uit één allen kennen)
Re: Dartsprogramma - scorebord
« Reactie #51 Gepost op: 06 augustus 2020, 11:19:30 »
Hey Pitufo,

Heb de hele nacht zitten zoeken naar de nieuwigheden ..... Tevergeefs...
Nu na je berichtje ga ik direct gaan bellen naar de oogarts om mijn afspraak te annuleren... dacht dat het aan mijn ogen lag en de lekkere rosé van gisteren :) :) :)

Citaat
Oesje, Marc, ik ga dringend eens een cursus moeten volgen "niet altijd alles zo haastig / beginners".
Die heb ik al een tijdje achter de rug hoor... onder het motto " Wat vandaag niet gedaan is zal later wel af geraken en met generlei zekerheid dat het morgen zal zijn "!!!

laten we het houden onder de noemer "Alzheimer light" ::) ::) ::)

En dan nu zoeken naar de nieuwigheden zie
Mvg,
Marc

Offline plainme

  • Lid
  • *
  • Berichten: 91
  • Geslacht: Man
  • Ab uno disce omnes (leer uit één allen kennen)
Re: Dartsprogramma - scorebord
« Reactie #52 Gepost op: 06 augustus 2020, 11:32:05 »
@ Pitufo,

Bij testen van, volgende vastgesteld....
3 x 0 gooien gebeurt niks punten worden niet weggeschreven ook je moet dan iets aanklikken en dan krijg je de punten van de laatste klik
???
Scoreoverzicht is super !!! _/-\o_ _/-\o_
dubbele confirmatie is ook verdwenen :thumbsup:
Mvg,
Marc

Offline plainme

  • Lid
  • *
  • Berichten: 91
  • Geslacht: Man
  • Ab uno disce omnes (leer uit één allen kennen)
Re: Dartsprogramma - scorebord
« Reactie #53 Gepost op: 06 augustus 2020, 11:39:14 »
@Pitufo

de zachte stem van de frivole dame verzacht een heel pak van de opgelopen gebrek aan nachtrust !!!!!!
Subliem _/-\o_ _/-\o_ _/-\o_
Mvg,
Marc

Offline pitufo

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 1.158
  • Geslacht: Man
Re: Dartsprogramma - scorebord
« Reactie #54 Gepost op: 06 augustus 2020, 12:44:44 »
Hoi Marc,

Citaat
3 x 0 gooien gebeurt niks punten worden niet weggeschreven
Dat 'klonk' eerst heel vreemd... tot ik zag dat het enigszins anders is: het gaat op deze wijze fout als het derde pijltje 0 is, dus ongeacht wat er met de eerste twee is gebeurd.
En dat maakt het wel logisch, én oplosbaar  0:-)
Hierbij dus versie 3 (hopelijk nu niets meer over het hoofd gezien) : er is een procedure Worp_verwerken toegevoegd die zowel door ShapeClick() als door Rechthoekafgerondehoeken1043_Klikken() wordt aangeroepen.
Je kan alweer testen (zie je wel dat dat altijd nuttig is...)  ;D
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline plainme

  • Lid
  • *
  • Berichten: 91
  • Geslacht: Man
  • Ab uno disce omnes (leer uit één allen kennen)
Re: Dartsprogramma - scorebord
« Reactie #55 Gepost op: 06 augustus 2020, 17:34:21 »
Mochten er mensen zijn die het nog niet beu zijn....

Nog een paar vraagjes...
@Pitufo.
Kan je even zien naar de voice of darts ;) ;). Ik heb deze voor alle getallen aangevuld. Is dit de juiste wijze of is er een andere manier voor de code te creëren?

Volgende vraagje algemeen...
De opzet van Emields vind ik ook wel fijn vandaar dat ik er een paar van de gedachtegoed heb overgenomen in mijn opzet.
Alleen is mijn kennis weer te beperkt om dit te volbrengen.
Namelijk de legs en games ingevuld krijgen in de respectievelijke cellen " AF19 " voor de game en "Af20 " voor de legs.
Dan nog een folieke maar vind dit eigenlijk wel fijn .
In cel " AF22 " is nu het beginuur ( via =Nu() ) ingegeven maar zou graag in cel " AI22 " het einduur ( eventueel automatisch wanneer er een winnaar is bvb. het beginuur zou of mag of kan ook het moment zijn dat er een nieuwe leg of game begint.

Ik weet het is niet weinig maar zou dit zeker weten te waarderen

En ergens zal ik wel al een acrootje begaan hebben want ik krijg geen eindscore meer bij uitgooien ( maw geen winnaar meer). Als er uitgegooid wordt met een dubbel krijg ik geen groen vakje meer en geen winnaar

Mea Culpa Multi Mea Culpa.... :-[ :-[ :-[
Mvg,
Marc

Offline pitufo

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 1.158
  • Geslacht: Man
Re: Dartsprogramma - scorebord
« Reactie #56 Gepost op: 06 augustus 2020, 18:29:32 »
Marc,

Citaat
ik krijg geen eindscore meer bij uitgooien
Ik zie het al (of: hoe het oplossen van één probleempje aanleiding is voor het ontstaan van een ander), het ligt m.a.w. niet aan jou.
Ik krijg het direct in mijn versie opgelost, maar omdat je zelf nog van alles hebt veranderd zal het net een beetje langer puzzelen worden, en ik moet nu direct richting kookpotten verdwijnen.
Straks of morgen, dat valt nog te bezien, want ik wil gerust ook meteen je bijkomende vragen bekijken.
Dus beu? Voorlopig niet  :D
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline plainme

  • Lid
  • *
  • Berichten: 91
  • Geslacht: Man
  • Ab uno disce omnes (leer uit één allen kennen)
Re: Dartsprogramma - scorebord
« Reactie #57 Gepost op: 06 augustus 2020, 18:53:29 »
Citaat
Dus beu? Voorlopig niet  :D
Super ben ik al blij om...

Trouwens heb me vandaag ook nog de vraag gesteld hoever je al met je cursus bent??? :) :) :)

En je kan niet zeggen dat ik je niet had gewaarschuwd voor mijn prutswerk ( remeber ... de nek afdraaien..; daar zeggen wij dat dan tegen ;D ;D ;D)

Of vandaag of morgen ... maakt niet uit hoor !
we moeten op tijd en stond toch ons innerlijke verfrissen ....

Mvg,
Marc
Mvg,
Marc

Offline cow18

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 226
  • Geslacht: Man
  • Oplossing.be
Re: Dartsprogramma - scorebord
« Reactie #58 Gepost op: 06 augustus 2020, 19:31:00 »
kleine aanpassing aan die ene macro, eerder muggezifterij, je maakt Uit optional, dus als je niets meegeeft, wordt er van uit gegaan dat die false is (omdat je hem gedeclareerd had als boolean.
Iets declareren is soms gevaarlijk. Zo had je a hier ook kunnen declareren als integer, logisch kan enkel integere waarden tussen 0 en 60 aannemen, maar in "shapeclick" is a het resultaat van een vermenigvuldiging en omdat je niets gezegd had, nam VBA aan dat het een Double was. De oplossing was daar dan om a ook in "shapeclick" te declareren als integer. Wel/niet declareren is vaker een punt van discussie. Vroeger was ik een "die hard" ivm. declareren, met de jaren ben ik een softie geworden.
Als ultieme uitdaging had je zelfs a en Uit kunnen declareren als "global" bovenin die ene module en dan hoefde je niets meer mee te geven als parameter.  (is wel tricky, gevaarlijker)
Sub Worp_verwerken(a, Optional Uit As Boolean)
Hieronder dan 3 identieke manieren van aanroepen, de 3e kan enkel na die "optional".
Ook hier is het enkel kwestie van smaak, winkelen mag je nooit doen op een lege maag, dus aangezien je net gegeten hebt, kan je een beredeneerde afweging hierover maken.   Call Worp_verwerken(a, False)                 'versie pitufo
   Worp_verwerken a, False                       'evenwaardige versie zonder de call
   Worp_verwerken a                              'na toevoegen van optional moet je, in geval van false niets meegeven
Nog een trucje die ik toepas, ik zou aan je macros hoofdletters toevoegen, dus "Sub Worp_Verwerken ..." en als je later die macro ergens aanroept, dan worden kleine letters automtisch omgezet naar hoofdletters las de macro bestaat, een vorm van "intellisense"

Ik ben verder ook geen groot bewonderaar van de wat verouderde "[...]"-notering, die is  en bondig maar nogal gevaarlijk en eigenlijk houdt die een "Evaluate" in. Ik prefereer dus om alles voluit te schrijven en dan ook nog om bovenin in je module, bv. in Worp_Verwerken letterlijk het werkblad te vermelden, in dit geval bv. With sheets("Scorebord") ..... End With, om te vermijden dat, wanneer je in een ander tabblad staat en op 1 of andere domme manier die macro toch aangeroepen wordt, geen zaken naar het verkeerde tabblad weggeschreven worden. Een beetje discipline bij het schrijven van de macro, voorkomt straks veel frustraties bij het zoeken naar een fout, die maar sporadisch optreedt.
Citaat
Sub Worp_verwerken(a As Integer, Optional Uit As Boolean)

'worp op werkblad zetten
   With Sheets("scoreblad")
      i = Application.CountA(.Range("AE16:AG16"))
      .Range("AE16").Offset(, i).Value = a

en nog een laatste uitsmijter, link  https://www.experts-exchange.com/articles/26599/Installing-Smart-Indenter-in-Office-2013-2016.html
Daarin vind je een app "Smart Intender", die straks onder de knop "bewerken" in je VBA-editor komt en die automatisch je code doet inspringen, wanneer je "if ... else ... endif", loops, select case, "with ... End with" en commentaren gebruikt. Op de recentste office zouden er wat installatieproblemen zijn, maar Softaid heeft dat een tijdje geleden even gedaan en die kan je zo verder helpen.
Dat bevordert enorm de leesbaarheid en helpt ook bij het zoeken naar fouten omdat je bv een "endif" vergeten of verkeerd gebruikt hebt.
« Laatst bewerkt op: 06 augustus 2020, 19:58:34 door cow18 »

Offline plainme

  • Lid
  • *
  • Berichten: 91
  • Geslacht: Man
  • Ab uno disce omnes (leer uit één allen kennen)
Re: Dartsprogramma - scorebord
« Reactie #59 Gepost op: 06 augustus 2020, 20:00:20 »
@Cow18
opbouwende opmerkingen altijd welkom
uw antwoord drie vier keer gelezen, en met dikwijls eens van  :'( :'( :'( zal deze wel kloppen. Alhoewel ik overal lees dat declareren een noodzaak is om een script leesbaar te houden en vlot te laten verlopen, lees ik hier nu om toch op te passen met declaraties.
Ik moet hier ook nog mededelen dat ik momenteel level VBA voor DUMMIES heb. jouw antwoord ligt al eerder in de lijn van VBA voor Gevorderden  ;D ;D ;D
Toch never the less,
Het blijft boeiend en leer hier alle dagen bij.
met vallen en opstaan, haken en ogen komen we der wel.

Ik ga zeker nog wat gerecycleerd papier gebruiken om jou voorstellen te bekijken en te ontleden!

Waarvoor dank.

Trouwens misschien nog dit...
Uw mening over het tot op heden tot stand gebrachte bestandje???

Mvg,
Marc
Mvg,
Marc

 


www.combell.com