Hej SDers. Door een bootrace organisatie in België is mij gevraagd of ik hun niet wou helpen een simpele tool te ontwikkelen om makkelijk de race standen bij te houden in excel. Omdat ikzelf geen programmeur ben, maar wel iets ken van excel wou ik het wel eens proberen. Ik heb al een klein gedeelte van de tool ontwikkeld. Wat ik nog zou willen toevoegen lijkt een vrij simpele toevoeging in de codes, echter is mijn programmeer kennis te laag. Eventueel dat iemand op SD mij hier wat mee kan helpen.
Dit gedeelte heb ik op dit moment ontwikkeld. Je ziet bovenaan een timer met daarnaast de 3 knoppen ( Start, Stop, Reset ). Dit is een stopwatch die werkt.
De code hiervan is als volgt:
Zoals je in bovenstaand bestand kan zien heb ik nog 10 team knoppen toegevoegd. Deze staan voor de verschillende boten die meedoen aan de race. De bedoeling is dat bij de start van de race op de Start button wordt geklikt van de stopwatch, de timer begint te lopen. De boten doen verschillende rondes en wanneer boot 3 bijvoorbeeld als eerste over de finish komt klikt men op boot 3. In een aparte file wordt dan de stand bijgehouden hoeveel rondes er zijn geweest, wat de tijden van de rondes zijn evenals welk team deze ronde heeft behaald.PHP Code:
Public StopIt As Boolean
Public ResetIt As Boolean
Public LastTime
Private Sub CommandButton1_Click()
Dim StartTime, FinishTime, TotalTime, PauseTime
StopIt = False
ResetIt = False
If Range("C2") = 0 Then
StartTime = Timer
PauseTime = 0
LastTime = 0
Else
StartTime = 0
PauseTime = Timer
End If
StartIt:
DoEvents
If StopIt = True Then
LastTime = TotalTime
Exit Sub
Else
FinishTime = Timer
TotalTime = FinishTime - StartTime + LastTime - PauseTime
TTime = TotalTime * 100
HM = TTime Mod 100
TTime = TTime \ 100
hh = TTime \ 3600
TTime = TTime Mod 3600
MM = TTime \ 60
SS = TTime Mod 60
Range("C2").Value = Format(hh, "00") & ":" & Format(MM, "00") & ":" & Format(SS, "00") & "." & Format(HM, "00")
If ResetIt = True Then
Range("C2") = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
LastTime = 0
PauseTime = 0
End
End If
GoTo StartIt
End If
End Sub
Private Sub CommandButton2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
StopIt = True
End Sub
Private Sub CommandButton3_Click()
Range("C2").Value = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
LastTime = 0
ResetIt = True
End Sub
Ik heb als eerst een 2de blad aangemaakt genaamd Teams, hier zet de organisatie handmatig in welk team vast hangt aan welke button evenals wat info over het team zoals met welke vaartuig ze racen evenals in welke klasse ze zitten.
De reden dat het vaartuig erbij staat en de klasse is omdat racen op het water te samen worden gehouden voor alle klassen en vaartuigen. Wel zouden ze graag per klasse en vaartuig een aparte uitslag zien. In het voorbeeld heb ik 2 verschillende klasses toegevoegd op vlak van boten en 1 klasse voor jetski's. Onderaan heb ik vervolgens 3 tabbladen toegevoegd met de uitslagen per klasse. Hieronder een voorbeeld hoe ik deze er zou willen laten uitzien.
Wat dus de bedoeling zou zijn is om bij de start van de race ( organisatie klikt op start ) in elk tabblad met uitslagen een lijn te schrijven, start race met tijd 00:00:00. Komt vervolgens Team 3 als eerste binnen klikt de organisatie op de knop "Team 3". Excel ziet in het tabblad Teams dat Team 3 vast hangt aan Klasse A en zet vervolgens bij uitslagen Klasse A een regel dat Team 3 als eerste is binnen gekomen met de bijhorende tijd. Komt vervolgens Team 7 binnen wat een boot is uit Klasse B, dan zet excel bij uitslagen Klasse B de uitslag en zo verder.
Komt na enige tijd Team 3 terug binnen voor ronde 2, dan ziet excel dat dit Ronde 2 is, zet bij uitslagen dan de nieuwe tijd voor Ronde 2 en zo verder. Is de race gedaan klikt de organisatie op Stop en bij alle klasses sluit hij de race af met de totaal tijd van de race.
Ik veronderstel dat wanneer ik 1 van deze gewenste knoppen kan maken in excel het maar copy paste is voor de volgende knoppen ( uiteraard met de andere benaming voor de knop zelf ). Echter gaat dit wat tever voor mijn programmeer kennis. Iemand enig idee hoe ik deze knop kan maken?
Moest iemand deze excel kunnen gebruiken voor andere projecten, laat gerust weten en stuur hem jou door via mail.
- Race tool in excel
-
23-04-2022, 16:34 #1
- Berichten
- 1.150
- Lid sinds
- 13 Jaar
Race tool in excel
-
23-04-2022, 18:14 #2
- Berichten
- 459
- Lid sinds
- 12 Jaar
Re: Race tool in excel
Ik gebruik al 20jaar geen excel meer maar de werking van de knoppen zou ik doen met javascript en ajax eventueel om de zaken op te slaan in de tussentijd.
Geen idee of je javascript kan gebruiken met excel maar ik wist zelfs niet dat je php kon gebruiken.
Succes...
-
27-04-2022, 09:51 #3
- Berichten
- 1.150
- Lid sinds
- 13 Jaar
Re: Race tool in excel
Hej Cornelis.
Mijn kennis van zowel php, javascript als ajax is niet wat het zou moeten zijn.
Echter denk ik dat met de bestaande codes die ik al heb in excel ik niet ver van het gewenste resultaat zit.
-
27-04-2022, 16:31 #4Webblish Content & Publishing
- Berichten
- 5.634
- Lid sinds
- 17 Jaar
Re: Race tool in excel
Heb je hier wat aan? https://workspace.google.com/marketp.../1040593357110
-
28-04-2022, 02:44 #5
- Berichten
- 459
- Lid sinds
- 12 Jaar
Re: Race tool in excel
Hoi Ron,
Geen idee of je javascript kan gebruiken maar ik zou dan direct via ajax een php update maken van de rest.
Is het niet dat excel meer gebruik maakt van visualbasic, dat zou je kunnen proberen. Volgens mij is daar wel voldoende documentatie van te vinden.
succes...
-
30-04-2022, 20:38 #6
- Berichten
- 94
- Lid sinds
- 17 Jaar
Re: Race tool in excel
Excel kent geen javascript of PHP, enkel VB (Visual Basic).
Je moet geen "masterknop" maken, maar een procedure. Deze procedure doet dan repeterend hetzelfde enkel, net met wat andere input omdat je op een andere knop drukt.
Tip van Flip:
Begin met je knoppen duidelijke namen te geven: niet CommandButton1/CommandButton2/CommandButton3, maar met ButtonStart/ButtonStop/ButtonReset. Deze zelfde tip geld voor variabelen en namen van procedures.
Succes!!
Plaats een
- + Advertentie
- + Onderwerp
Marktplaats
Webmasterforum
- Websites algemeen
- Sitechecks
- Marketing
- Domeinen algemeen
- Waardebepaling
- CMS
- Wordpress
- Joomla
- Magento
- Google algemeen
- SEO
- Analytics
- Adsense
- Adwords
- HTML / XHTML
- CSS
- Programmeren
- PHP
- Javascript
- JQuery
- MySQL
- Ondernemen algemeen
- Belastingen
- Juridisch
- Grafisch ontwerp
- Hosting Algemeen
- Hardware Info
- Offtopic