Help!

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

Hulp bij posten

Recente topics

Auteur Topic: Dartsprogramma - scorebord  (gelezen 15164 keer)

0 leden en 1 gast bekijken dit topic.

Offline plainme

  • Lid
  • *
  • Berichten: 91
  • Geslacht: Man
  • Ab uno disce omnes (leer uit één allen kennen)
Re: Dartsprogramma - scorebord
« Reactie #90 Gepost op: 12 augustus 2020, 19:13:44 »
@Emields

Citaat
De zee niet kunnen overzwemmen is geen schande, maar als je beloofd de zee over te zwemmen en je weet niet hoe de zee is en waar zwemmen ligt, ja dan weet ik het ook niet.
Die snap ik niet!!! graag duiding.
Maar als je bedoeld dat ik teveel op andere mensen hun intelligentie reken is dat ik uit al de zaken die nu al zijn ge-implementeert ik steeds meer en meer leer!

Ik heb dan ook nooit gepretendeerd dat ik de zee kan of zou kunnen overzwemmen. Wat ik wel pretendeer is dat ik hier veel leer over het overzwemmen en daar ben ik de mensen die deze hulp aanbieden zeer dankbaar!
dit gezegd zijnde ... en als ik het verkeerd voor heb met de quote dan mijn excuses!


@Cow18

Inderdaad Cow18 deze kolommen "H" en "I" zijn daar voor voorzien.
Alleen laat mijn snorkel het niet toe om zo diep te zwemmen om dit zelf te doen!

En de geluidjes , zoals reeds gezegd dat mag natuurlijk. het kan idd niet de bedoeling zijn om dit eentonig te maken. aan de andere kant, teveel is ook niet aangenaam en dank dat het bestand trager gaat maken, maar hé wie ben ik  :-[ :-[ :-[

Toch al bedankt voor het meedenken.

Mvg,
Marc
Mvg,
Marc

Offline pitufo

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 1.158
  • Geslacht: Man
Re: Dartsprogramma - scorebord
« Reactie #91 Gepost op: 12 augustus 2020, 20:15:27 »
In de gauwte even meegeven dat ik al wat heb gedaan met gewonnen legs en games, en wel op scoreblad, kwestie van het steeds in zicht te houden. Enkel wat principes uitgewerkt, voorlopig is de code niet om aan te zien, dus ongeschikt voor publicatie.
Moet nu een oud-collega gaan depanneren (ook vba), dus morgen meer!
"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 #92 Gepost op: 12 augustus 2020, 20:30:49 »
@Pitufo

Citaat
voorlopig is de code niet om aan te zien, dus ongeschikt voor publicatie.
Zal dan nog steeds beter voor publicatie zijn dan die van mij :) :) :)

En met deze temperaturen .... alle tijd van de wereld hoor!

Mvg,
Marc
Mvg,
Marc

Offline pitufo

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 1.158
  • Geslacht: Man
Re: Dartsprogramma - scorebord
« Reactie #93 Gepost op: 13 augustus 2020, 14:00:47 »
Hey Marc,

Citaat
alle tijd van de wereld hoor!
Gelukzak  :D :D

Ik moet onmiddellijk met een belangrijk advies beginnen: niet panikeren please als je de nieuwe bijlage gaat testen  0:-)
Verschillende zaken zijn uitgeschakeld (maar niet weg) om de testsnelheid extreem de hoogte in te jagen, er wordt om dezelfde reden gespeeld naar 40 punten. En bij nieuw spel starten blijven de namen staan.

Een paar noodzakelijke of minstens nuttige zaken zijn aangepast:
1. De knoppen "wissen" zijn verdwenen. Die hielden namelijk een risico in dat elders formules werden overschreven (ik spreek uit ervaring...)
Bij een foute score (via antwoord op msgbox) worden de 3 scores automatisch gewist en dienen ze opnieuw te worden ingegeven via het bord.
Vroeger kon je ze manueel invullen, maar de vraag moet zijn "en daarna?". Vermits er meer en meer zonder ingreep gebeurt heb ik dus liever voor een radicale oplossing gezorgd. Dat maakt het blad ook wat minder druk.
2. Een paar formules zijn zodanig gewijzigd dat er geen overbodige nullen blijven staan.
3. Ik heb ook nog wat cellen met formules beveiligd die in de originele versie door de mazen van het net waren geglipt.
4. De schikking op het scoreblad is wat opgeschoond.
5. De knop "nieuwe leg" is verdwenen, die wordt nu automatisch gestart na beëindigen van de vorige.

Maar het belangrijkste zijn natuurlijk de toevoegingen om de winnaar (winnares?) te bepalen. Dat zijn in de testfase nog simpele msgboxen (kan later ook met het al bestaande userform).

Waar ik nog geen antwoord op gekregen heb: mag bij ex aequo in de gespeelde games het totaal aantal gewonnen legs als criterium worden genomen om de winnaar te bepalen? Zoniet (nogmaals: dit speelt enkel een rol bij 3 spelers of meer) zullen er vaker situaties ontstaan waarbij de winnaar anders moet worden gezocht.

En nu ga jij dus veel werk hebben hé: ten eerste testen, ten tweede testen, en ten derde nog meer testen  :D :D :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 #94 Gepost op: 13 augustus 2020, 20:56:34 »
@Pitufo

Citaat
niet panikeren please als je de nieuwe bijlage gaat testen
Mijn water zag bleek van het panikeren!!!   0:-) 0:-) 0:-)

Ziet er inderdaad uit alsof er een tornado is gepasseerd! Alles mooi opgekuist en herleid tot het minimum :)
Nu niet erg, zo werkt het een stuk sneller.
Toch nog enkele kleine foutjes opgemerkt.
Ik heb deze genoteerd op een sheet afzonderlijk.

Alvorens weer de zee te moeten overzwemmen ...
Ik had geprobeerd de code aan te passen:
Sub Worp_Verwerken(uit)
 If uit = True Then 'uitgegooid met dubbel
            'uur einde invullen
            .Range("AI22") = Time
            'MsgBox prompt:="PROFICIAT ! " & Chr(13) & Chr(13) & "U hebt met een dubbel uitgegooid." & Chr(13) & "Vraag uw €1000 aan uw tegenspelers."
   
             usf_winnaar.Show
             NieuweLeg
        Else 'niet uitgegooid OF uitgegooid zonder dubbel
          'even 'vals' spelen indien uitgegooid zonder dubbel > forceert formule in AH16 om 'no score' te geven
            If .Range("AD30") = 0 Then 'Deze had ik van 0 naar 1 proberen aanpassen maar wanneer je tijdens het spel ook 2 maal geen score hebt en dan een 1tje gooit zegt deze ook "No Score " en dat kan dus niet. het is enkel maar bij het uitgooien dat dit zou moeten zijn " No Score "
               Application.ScreenUpdating = False
                .Range("AG16") = 1000
            End If
        End If
        ScoreOpslaan
    Else
        .Range("AE16:AG16").ClearContents

Mochten er nog vragen zijn dan zou ik zeggen: prik ze maar op het bord  :thumbsup: :thumbsup: :thumbsup:

Alvast bedankt


Mvg,
Marc
Mvg,
Marc

Offline pitufo

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 1.158
  • Geslacht: Man
Re: Dartsprogramma - scorebord
« Reactie #95 Gepost op: 14 augustus 2020, 10:26:40 »
Hoi,

Je lijst met 'foutjes' bracht me even aan het schrikken, maar wat heet foutjes. Ik zie enkel zaken die nog niet eerder aan bod waren gekomen of waarvoor nog geen keuze was gemaakt. En daarnaast zaken die opnieuw geactiveerd moeten worden als de testfase achter ons ligt.
Dus dat lijstje valt geweldig mee  :)

Citaat
Deze had ik van 0 naar 1 proberen aanpassen maar wanneer je tijdens het spel ook 2 maal geen score hebt en dan een 1tje gooit zegt deze ook "No Score " en dat kan dus niet. het is enkel maar bij het uitgooien dat dit zou moeten zijn " No Score "
Citaat
Bij uitgooien: wanneer je op 2 staat en je gooit 1 - 0 - 0 dan komt er in de score 1 te staan. Dit kan niet. 2 = het minimum
Die 2 quotes horen dus samen? Dat is een stukje reglement waar je vroeger nooit over gesproken hebt (niet vergeten dat ik een darts-leek ben). Die krijg je op jouw manier inderdaad niet opgelost. Dat was (en kan het best blijven) een formule (in AH16)

Citaat
Durf ik nog om een vraagje bij te stellen….. ??? ?? Ach wat …. Is het mogelijk dat wanneer bij het gooien er meer dan de rest wordt gegooid er automatisch 'No Score" wordt ingegeven?
Dat gebeurt toch al, dus vermoedelijk bedoel je als dat reeds bij het 1° of 2° pijltje gebeurt?
Maar dan wel nog steeds bevestiging van juiste ingave vragen lijkt mij evident, dus semi-automatisch  ???

Citaat
Voor de ex aequo stel ik voor wat er in de club gebeurt… dichts tegen de bull. Bepaald door de scheidsrechter
OK, daar valt ook een mouw aan te passen, zal dan best via een inputbox gaan.

Citaat
Dan is het nu nog een kwestie van de rest van de tabbladen terug in gang te krijgen he !
En natuurlijk onze geluidjes…
Het minste van onze zorgen, denk ik, eerst maar eens de rest optimaliseren  ;D

Citaat
Als het voor jou gelijk is Pitufo zou ik graag de review volledig op punt willen trachten te stellen
't Zal wel zijn! Maar eerst: zoek de fout die daar al staat  0:-)
"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 #96 Gepost op: 14 augustus 2020, 10:45:30 »
Goedemorgen Mr.P.
Citaat
bracht me even aan het schrikken, maar wat heet foutjes.
meer beauty puntjes :)

Citaat
Dus dat lijstje valt geweldig mee  :)
Een mens probeert zen best te doen he :)

Citaat
Dat is een stukje reglement waar je vroeger nooit over gesproken hebt (niet vergeten dat ik een darts-leek ben). Die krijg je op jouw manier inderdaad niet opgelost.
My bad  ??? ??? Dacht dat de logica zelf was :)

Citaat
Dat gebeurt toch al, dus vermoedelijk bedoel je als dat reeds bij het 1° of 2° pijltje gebeurt?
Maar dan wel nog steeds bevestiging van juiste ingave vragen lijkt mij evident, dus semi-automatisch  ???
Dit is idd of dit nu bij de eerste, tweede of derde dart is, van zodra er boven de rest wordt geworpen er no score dient bevestigd worden.
wederom dacht ik in de holly water te hebben gezien en dacht "mmm misschien zo op te lossen, " maar ja utopia en Marc liggen dicht bij elkaar...
Public Sub ShapeClick() 
 
'        If waarde = > Then Range("AD30")
'            vo.Speak "oops, no score. Oh Well keep on practice ok!"
'        Else
'            vo.Speak waarde
'        End If
End With
Ik kan enkel maar hopen dat ik in de juiste richting aan het denken ben?

Citaat
't Zal wel zijn! Maar eerst: zoek de fout die daar al staat 
Ga ik zeker doen


Alvast bedankt

Mvg,
Marc

Mvg,
Marc

Offline pitufo

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 1.158
  • Geslacht: Man
Re: Dartsprogramma - scorebord
« Reactie #97 Gepost op: 14 augustus 2020, 11:52:13 »
Hey,

Voor de rest van vandaag moet ik forfait geven, maar bezorg liever toch al een volgende 'tussenstap' (kan je weer lekker testen)

Citaat
Dan is het nu nog een kwestie van de rest van de tabbladen terug in gang te krijgen he !
Daar was blijkbaar bij een vorige aanpassing inderdaad een foutje ingeslopen, en nu rechtgezet.
Daarbij valt ook op te merken dat, nu er automatisch nieuwe legs worden begonnen, blad "Worpen" er meestal leeg zal bij staan (klaar voor de nieuwe leg dus), maar in de finale versie zal de pdf ondertussen wel opgeslagen zijn, dus ok volgens mij.

Citaat
Dit is idd of dit nu bij de eerste, tweede of derde dart is, van zodra er boven de rest wordt geworpen er no score dient bevestigd worden.
'k Ben nog een stapje verder gegaan. Van zodra er een onmogelijke score wordt ingegeven, om het even met welk pijltje, geeft hij al direct "no score" en vraagt uiteraard om bevestiging. Met 'onmogelijk' bedoel ik hier meer dan rest, rest = 1, én rest = 0 zonder dubbel.
Zie daarvoor de aangepaste formules in AH16 en in AD30, en verder een extra controle in Sub Worp_Verwerken:
With Sheets("Scoreblad")
    'indien niet correct uitgegooid EN geen 3 worpen ingevuld EN blijft minstens 2 als rest
    If WorksheetFunction.CountA(.Range("AE16:AG16")) <> 3 And Not uit = True And .Range("AD30") > 1 Then
        Exit Sub
    End If

Meer is er op dit moment niet gebeurd, maar waarschijnlijk valt het verschil al wel een beetje op  0:-)

Tot de volgende !
"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 #98 Gepost op: 14 augustus 2020, 21:03:36 »
@ Pitufo

Dat heb je al weer knap gedaan! is idd al een verbetering die heel goed merkbaar is!
Maar...... ( altijd die verdomde "maar") hé !!!!
de legs kloppen niet. Nu worden die allemaal weggeschreven bij speler 1.
maw die wint altijd
voor de rest kan ik alleen maar  _/-\o_  :thumbsup:_/-\o_  :thumbsup:_/-\o_  :thumbsup:_/-\o_ :thumbsup: zeggen.
Benieuwd naar de rest.  ::) ::) ::)

PS kijk je ook even naar de review en statistieken! graag jullie gewaardeerde mening!

Mvg,
Marc
Mvg,
Marc

Offline emields

  • Volledig lid
  • **
  • Berichten: 226
  • Geslacht: Man
  • Oplossing.be
Re: Dartsprogramma - scorebord
« Reactie #99 Gepost op: 14 augustus 2020, 21:32:15 »
misschien kunnen hier enkele tips uitgehaald worden.

Offline plainme

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

Hierin zitten zeker een aantal ideeën die het bekijken waard zijn. Waarvoor dank


Mvg,
Marc
Mvg,
Marc

Offline pitufo

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 1.158
  • Geslacht: Man
Re: Dartsprogramma - scorebord
« Reactie #101 Gepost op: 15 augustus 2020, 08:20:17 »
Hallo Marc,

Citaat
de legs kloppen niet. Nu worden die allemaal weggeschreven bij speler 1
'k Had het ook al gezien (komt er natuurlijk van als ik te vlug al een 'intermediaire' testversie bezorg), maar het was al rechtgezet in de versie die ondertussen bij mij klaar stond om in verder te doen.
Het moet wel lukken om vandaag nog een gaatje te vinden zodat een versie mag verwacht worden die inhoudelijk volledig klopt, en waar eventueel enkel nog wat cosmetische toemaatjes aan toegevoegd kunnen worden.
"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 #102 Gepost op: 15 augustus 2020, 11:28:20 »
Hoi,

De volgende versie is een feit.

Een paar kleinigheden:
1. Ik kon het niet laten om wat verder op te kuisen. De gegevens over werpers en worpen stonden 2 maal op je scoreblad. Die in AD15:AH16 weg doen zou veel aanpassen van de code betekenen, dus ze zijn blijven staan, maar niet meer zichtbaar, alweer wat minder druk op dat blad.
2. Ook nog wat overbodige code weggegooid. Eigenlijk zou het tekenen van het dartsbord ook weg moeten, maar ze stoort eigenlijk niet, dus jouw keuze.
3. Er staat een extra knop om met andere spelers te starten.
4. Bij 50 en 180 gooien heb ik al de geluidjes voorzien (niet getest wegens wmp-loos).
Ik verwacht dat je die voor de andere zelf ingebouwd krijgt  ;)

Van een iets andere orde:
1. De door jou laatst gesignaleerde fout is dus opgelost (zie vorige post).
2. De ex aequo-kwesties (legs / games) zijn toegevoegd. De code daarvoor heb ik niet zo kort als mogelijk geschreven, maar op een manier waarop ze hopelijk het duidelijkst zal zijn. Voorlopig met input- en msgboxen opgelost, msgbox ook bij winst zonder scheidsrechterstussenkomst. Mits goedkeuring van de werking kan het visueel nog netter, dat zien we dan wel...

Citaat
kijk je ook even naar de review en statistieken
Vermits je van elke beëindigde leg een pdf maakt, en er nu automatisch nieuwe legs worden gestart moet daartoe ook automatisch worden opgeruimd. Maar volgens mij komt alles correct in die pdf te staan (die maken we vóór het opruimen).
Op Review had je nog een formule =Nu staan. Daarvan heb ik nu het startuur van de leg genomen waar we eerder diezelfde formule hebben vervangen.

Ik kan altijd nog ergens over kijken hé, dus speel er nog maar eens mee  :D 0:-)
"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 #103 Gepost op: 15 augustus 2020, 11:42:59 »
Aan iedereen eerst en vooral een fijne rustdag/feestdag/innerlijk moment 0:-) 0:-) 0:-)

Hey Pitufo,

ik probeer deze versie tergronde uit en kom terug naar jou voor feedback.
Gewoon een vraagje .... heb je de versie van Emields bekeken?
Wat ik daar wel een meerwaarde aan vind is de toekenning van de startspeler en het invullen van de spelers random bij meer dan 2
@Emields corrigeer mij als ik hier de pijl voorbij het doel gooi :):):) _/-\o_

Nu back to the subject... ik probeer deze uit en houd je zeker op de hoogte

een reuze bedankt voor je volharding en prestatie Pitufo!

Mvg,
Marc


Mvg,
Marc

Offline pitufo

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 1.158
  • Geslacht: Man
Re: Dartsprogramma - scorebord
« Reactie #104 Gepost op: 16 augustus 2020, 14:54:30 »
Hoi,

Citaat
Gewoon een vraagje .... heb je de versie van Emields bekeken?

Nu wél  ;D
Je wil dus de loting aan Excel overlaten (dan maar hopen dat de spelers willen geloven dat dit rechtvaardig gebeurt).
Hierbij dus weer een voorbeeld: mijn benadering is lichtjes anders: in de versie van emields kies je eerst speler1, dan speler2, enz, om ze dan nadien toch door elkaar te gooien, dat kan ietsje vlotter: gewoon de spelers aanduiden en vervolgens worden ze gemixt.
Heb je overigens gezien dat in mijn keuzelijst van spelers ook vrouwen aan bod komen  :D :D

De drang om nog wat op te kuisen was weer onweerstaanbaar. Wat denk je van het vernieuwde scoreblad?
Er zijn nog slechts 3 cellen die manueel mogen/moeten ingevuld worden, ze staan gegroepeerd en met dezelfde kleurtjes.

Citaat
een meerwaarde aan vind is de toekenning van de startspeler
'k Had het mij al afgevraagd, de vraag zal weer zijn: hoe moet het nu in feite?
Stel dat je 5 spelers hebt waarvan de loting geworden is: A - B - C - D - E
Wat dan na het beëindigen van een leg?
Laten we stellen dat C de leg heeft gewonnen, wie begint dan de volgende?
A omdat hij nr. 1 heeft getrokken bij de loting?
B omdat de vorige leg door A is begonnen?
C als beloning omdat hij de vorige leg won?
D omdat C als laatste aan de beurt was?

Je ziet het hé, 4 mogelijke 'logische' manieren  :'( , dus de kwestie zal zijn: wat zegt je reglement  ???
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

 


www.combell.com