Index  | Recent Threads  | Unanswered Threads  | Who's Active  | Guidelines  | Search
 

Quick Go ยป
No member browsing this thread
Thread Status: Active
Total posts in this thread: 38
Posts: 38   Pages: 4   [ Previous Page | 1 2 3 4 ]
[ Jump to Last Post ]
Post new Thread
Author
Previous Thread This topic has been viewed 5035 times and has 37 replies Next Thread
Former Member
Cruncher
Joined: May 22, 2018
Post Count: 0
Status: Offline
Reply to this Post  Reply with Quote 
Re: Contribution Target hunting tools - Share!

Yesterday discovered a bug, dismay, a bug. Somehow a modula 24 [24 hours in a day] had snug into the count.valid.results.for.project filters. The results added to 24 for OET. The field printed zero and the x-chk field turned red... argh.

This morning a bit groggy, so went cheap and applied some Bob Ross spray paint techniques on the graph to give the little changes some mountain sky blue contrast, leading to version 1.6g . A little trend line was inserted, to show the ranking rot has been stopped [while summer lasts ;]

In the process of porting, adding in an error bypass test for the bit-size. When the app would be run on Office 32bit, it simply calls the appropriate dll libs for that OS [probably needs testing too if 32/64 bit]. Life is simple, in the world of Paris Hilton tongue (May seek some testers on this)
[Aug 19, 2015 10:29:21 AM]   Link   Report threatening or abusive post: please login first  Go to top 
Sgt.Joe
Ace Cruncher
USA
Joined: Jul 4, 2006
Post Count: 7696
Status: Offline
Project Badges:
Reply to this Post  Reply with Quote 
Re: Contribution Target hunting tools - Share!

Off topic: That Bob Ross guy was amazing. Who would think you could paint the pictures he did with a 2 inch paint brush.

Back on topic. You paint quite an impressive picture of detail in that spreadsheet.

Cheers
----------------------------------------
Sgt. Joe
*Minnesota Crunchers*
[Aug 19, 2015 11:50:20 AM]   Link   Report threatening or abusive post: please login first  Go to top 
Former Member
Cruncher
Joined: May 22, 2018
Post Count: 0
Status: Offline
Reply to this Post  Reply with Quote 
Re: Contribution Target hunting tools - Share!

The 'can' was dry for a little, but some random searching on loose key words seen hit on the portability jackpot: LongPtr is the answer:
LongPtr is not a true data type because it transforms to a Long in 32-bit environments, or a LongLong in 64-bit environments. Using LongPtr enables writing portable code that can run in both 32-bit and 64-bit environments. Use LongPtr for pointers and handles.

Cannying On smile
[Aug 21, 2015 2:25:19 PM]   Link   Report threatening or abusive post: please login first  Go to top 
Former Member
Cruncher
Joined: May 22, 2018
Post Count: 0
Status: Offline
Reply to this Post  Reply with Quote 
Re: Contribution Target hunting tools - Share!

Moving elements, the graph taken from top right to be big bold bottom left, overlaying the daily history which just slides underneath [isn't it great you can use the same space twice... having the cake and it eat ;>], v1.6i

Everything now has rounded corners **, comments too, which have shading as well to add to the abundance of gimmick. The comment shown in the latest screenshot points at the added feature of an added column with the per active project contributions to-date, including current validations. Today hit 0.99 years on Beta, so put the 2005 prosecco in the cooler for decorking very very soon, any reason for decorking a bottle will do anyway. 10 years to compute 1.

Having collected all the white space, moved that right top, for something to 'add' in the futura.

ToDo: Make all rounded corners [no 90 degrees left] to have the same radius. Drawn by hand, Office does not make it easy to scale them the same on different sized squares. raised eyebrow

P.S. To top it off, the graph's results trendline is now accompanied by it's equation and the R-Squared, the slope, which is positive, albeit 0.0007 is not visible to the bare eye ;O)

Oh yes, the device table, bottom centre, had the platform code added, W/L/M/A speaking for itself. One day some analysis could get inserted. Running me own little WUProp soon, their data is timelimited I've got the impression.
[Aug 27, 2015 3:31:21 PM]   Link   Report threatening or abusive post: please login first  Go to top 
Former Member
Cruncher
Joined: May 22, 2018
Post Count: 0
Status: Offline
Reply to this Post  Reply with Quote 
Re: Contribution Target hunting tools - Share!

A very ugly piece of code it became, but it works [and if I would have automated this to correct for UTC/GMT/DST, with calls to kernel32, it would have become unbearable to look at]. What this does... schedule a refresh of the Result Status pull at 00:06:11 and 12:06:11 based on test values in SchedNoon and SchedNight which are manually set twice a year when we move book and forth from Rome timezone to Bucharest and back for wintertime.
Private Sub SchedResultXML()

Dim NowTest As Long
NowTest = Hour(Now)
If NowTest > 20 Then
Application.OnTime Range("SchedNoon"), "RefreshXML1", Schedule:=True
PlaySound "C:\windows\media\windows notify.wav", 0, 0
End If
If NowTest > 9 And NowTest < 14 Then
Application.OnTime Range("SchedNight"), "RefreshXML1", Schedule:=True
PlaySound "C:\windows\media\windows ding.wav", 0, 0
End If
[WhenRun].Value = "TooL"
Call TimeStamp

End Sub
In .net framework it would have been peanuts, but then portability would have become very questionable.

Anyway, now at morning coffee time, the results of the previous day will sit ready for glossing and hitting the I, II, III buttons to see the final MyCon picture. When confidence has build, things work consistent, these will run too by themselves with a 2 hour delay, no I, II, III buttons needing to hit, and techs can mess with the modtimes as much as they want, until they find a way to set those with a back to the future time. biggrin
[Sep 4, 2015 6:03:56 PM]   Link   Report threatening or abusive post: please login first  Go to top 
Former Member
Cruncher
Joined: May 22, 2018
Post Count: 0
Status: Offline
Reply to this Post  Reply with Quote 
Re: Contribution Target hunting tools - Share!

As more than a few got franconized [or is it fraternized], 'Victoire' dancing

The nightly ResultXML update ran apparently 3 times, yes the effect of hitting the scheduler button multiple times during testing. wink 00:16:11 UTC was the last time and all meshed perfectly after I, II, then hit III.

This morning 'enhanced' the ugly code, thunderstorms and heavy deluges cancelled our cycle tour, so had time for that and made the pink Scheduler button to also show when the next refresh is actually going to be setting off [Office does not tell you how many there are]. It became less gross, more done with less code lines.
Private Sub SchedResultXML()

Dim NowTest As Long, WhenNext As Double
NowTest = Hour(Now)
If NowTest > 20 Then WhenNext = Range("SchedNight"): GoTo SetSched
If NowTest > 9 And NowTest < 14 Then WhenNext = Range("SchedNoon"): GoTo SetSched
GoTo Ending:
SetSched:
Application.OnTime WhenNext, "RefreshXML1", Schedule:=True
[WhenSched] = WhenNext 'Inserts 'Next time' into the Schedule ResultXML button on mainpage [for feedback]
PlaySound "C:\windows\media\windows notify.wav", 0, 0
Ending:
[WhenRun].Value = "TooL"
Call TimeStamp

End Sub
Next up, 12:06:11 UTC smile
[Sep 5, 2015 10:25:15 AM]   Link   Report threatening or abusive post: please login first  Go to top 
Former Member
Cruncher
Joined: May 22, 2018
Post Count: 0
Status: Offline
Reply to this Post  Reply with Quote 
Re: Contribution Target hunting tools - Share!

Not bothered to look for a few days... things just seem to run autonomously. Today revisited another piece I did not like, code that just did not feel right, reading like worse than mickey mouse, so it turned from

Old
        For Each prj In ActivePrj
Application.StatusBar = "Please wait, updating the Project Histories for " & prj
With Sheets(prj & " Qry")
.Range(prj & "hist").Copy
.Range(prj & "hist").Offset(1, 0).PasteSpecial Paste:=xlPasteValues
End With
With Application.WorksheetFunction.Index(Range(prj & "hist"), 1, 9)
.ClearContents 'Clear NotesOne Field of new record
End With
With Application.WorksheetFunction.Index(Range(prj & "hist"), 1, 10)
.ClearContents 'Clear NotesOne Field of new record
End With
Next prj
New (Pretty much the whole thing)
        For Each prj In ActivePrj
Set Rng = Range(prj & "hist"): If Rng.Item(8).Value = "0:00:00:00" Then GoTo EndNext
Application.StatusBar = "Please wait, updating the Project Histories for " & prj
With Rng
.Copy: .Offset(1, 0).PasteSpecial Paste:=xlPasteValues
.Item(9).ClearContents: .Item(10).ClearContents 'Clear New Record Notes 1-2
End With
EndNext:
Next prj

From 13 lines to 9, and it kills 3 birds with 1 stone...
1) On the fly check if a project had a valid result in the period... if not, skip rest
2) Only queries the data ones instead of 6-7 times every loop
3) No longer location dependent
4) There was something else, but I forgot what this dissolved... Oh yes, Option Explicit, which makes sure all vars are declared before compiling... catches any typos while coding.
5. And something too, allowed to get rid of a series of named ranges. The table is set, all crockery set they way the queen likes to dine.
6. More birds... now entirely runs in native VBA [I think], not using any WorksheetFunction calls slowing down the lot.

And so, once again, 50 shades of grime this Visual 'Basics' application program language proves itself to be, but hey, it's still infinitely better than doing this all manually. Just keep the app loaded and even that may not be needed if the snap-scheduler is deployed...getting a "lahdihdah, or has been tampered with" warning at this time :))))
[Sep 8, 2015 5:21:37 PM]   Link   Report threatening or abusive post: please login first  Go to top 
Former Member
Cruncher
Joined: May 22, 2018
Post Count: 0
Status: Offline
Reply to this Post  Reply with Quote 
Re: Contribution Target hunting tools - Share!

Finally found the backdoor to the backdoor to get the device statistics results/runtime to match up for android devices, or for that matter deals with any host name duplicates **. Once figured out, it's simple, that is, after some probabilistics, AND closest approach math [fuzzy logic search] due the incredible finding that time-stamps of 'last returned' results are earlier then those on the 'last received' timestamp of the same on the Result Status pages. Yes, more Quantum Monte Carlo states at WCG biggrin . To think, light travels at 292,792 km and some per second, could be here, could be there. At any rate, this little ditty does the thing... connect the Result Status page API extracts with the Device Statistics query data [no ?xml=true function], to get to the unique device ID of a device in the matrix, where there are no duplicates of moi. cool

=IF(ISTEXT([@[Rev.IdRaw]]);INDEX(ResultXml1[DeviceId];MATCH(ROUND(DATEVALUE(SUBSTITUTE(MID([@LastWUDevStats];4;3)&LEFT([@LastWUDevStats];2)&MID([@LastWUDevStats];6;5);"/";"-"))+TIMEVALUE(RIGHT([@LastWUDevStats];8))+SecDayFrac;10);ResultXml1[ReceivedTime];-1)+IF(ISTEXT([@[Rev.IdRaw]]);1;0));[@[Rev.IdRaw]])

** My Multi-boot device has the same host name be it in Windows or Linux, and my router has no issue with that either :D

Why all the song and dance? To arrive at cumulative device statistics through the last minute, including validated results of current period, and as always, tallying. See right top version 1.7a, the former white space section, printing too what platform the hosts run on. peace

P.S. Had a great opportunity with the website down and delayed stats, to see if the hunting tool would catch this, and yes it did latch on that the ran at 14:16:01 UTC, so morning stats summed through this time. dancing
[Sep 14, 2015 3:13:54 PM]   Link   Report threatening or abusive post: please login first  Go to top 
Posts: 38   Pages: 4   [ Previous Page | 1 2 3 4 ]
[ Jump to Last Post ]
Post new Thread