When I was tree years old I was Jammin' to this one.
There is a Required Update now available.
This is the last test of the Update System.
From here on out will be the deployment of different features in JADE LSGA.
These Updates will occur throughout the year as the program is translated from VB6 to VS2008.
Please contact us here at the Lottery Post via a Private Message for any problems, first.
Try a Blog next and then finally a Posted Topic.
Thank you, JADE.
We'll be conducting two different kinds of Updates for JADE LSGA.
The first will be an Optional Update where you have the choice to do the Update now or wait till another time.
The second will be a Required Update where the Update will be downloaded and you must install the update.
Each of these have their uses and reasons for use.
This is just to test your ability to get the update and apply it.
We'll do the Optional one today and the Required one tomorrow.
There's still a lot of planning on interface, implementation, documentation, and other aspects of deployment to be worked out for the full version.
The coding translations from VB6 to VS2008 are an interesting problem to solve.
Many of the programming styles used in VB6 have to be reworked for VS2008, but it's moving along smoothly.
You can test your system to see if you can use the Microsoft ClickOnce Deployment for JADE Lottery System Generator Analyzer.
Test Deployment Link - http://home.mchsi.com/~jadelottery001/publish.htm
In addition, when JADE LSGA implementation is begun, all you'll have to do is click 'Check for Update' in the test deployment.
We'll be making the changes to the test program if all goes reasonably well and will become the full application when ready.
Please review our previous blog, also.
We will be conducting a deployment test of JADE Lottery System Generator Analyzer in a few days or so.
Anyone that would like to help test the deployment scheme we have come up with can send a PM to JADELottery here at the Lottery Post or you can post a reply here in the blog.
Please keep in mind this is just a test of the deployment, not the full version program.
If you would like to send feedback about the deployment, please send a PM to us here at the Lottery Post.
We will review the feedback, however, we will reply to them at our discretion.
If this does not work out well for most of everyone, then we'll find a different way.
This first try, it is the easiest way for everyone to get JADE LSGA.
It works using Microsoft ClickOnce Deployment and will also allow for online updates, either automagic or user requested; we have to plan that one yet.
As Always, JADE LSGA was, is, and will be freeware.
Through clever bit manipulation, we can have a maximum capacity for the following lottery types.
Combination - (i.e. 6/18, 6/49, 5/15, 5/31, 7/20, 10/25, 10/80, single combination up to 100 numbers)
---------------------------------------------------------------------------------------------------------------------
2.147483648e+9
2.147483648 x 10^9
2,147,483,648
Combinatoric Permutation - (i.e. 5/12 · 1/4, 5/59 · 1/39, 1/3 · 1/7 · 1/9, 1/10 · 1/10 · 1/10, up to 10 different combinations)
------------------------------------------------------------------------------------------------------------------------------------------------------------
2.0859248397665137523388883849312e93
2.0859248397665137523388883849312 x 10^93
2,085,924,839,766,513,752,338,888,384,931,200,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000
This is a temporary limitation and can change at any time.
Module MyFunctions
'------------------------------------------------------------
'Enumerated Bit States for CSTEBit function
'Used with CSTEBit function
'Example:
' 'This will change the value of MyByte from &HF0 to &HF8
' Dim MyByte As Byte = &HF0
' Dim ChangeThisBit As Byte = &H04
' MyByte = CSTEBit(BitState.SetBit, MyByte, ChangeThisBit)
'------------------------------------------------------------
Enum BitState As Byte
ClrBit = 0 'Clear bit
SetBit = 1 'Set bit
TogBit = 2 'Toggle bit
ExmBit = 3 'Examine bit
End Enum
'----------------------------------------------------------------------
'Function for changing and examining bit states within a byte
'A byte has 8 bits to Set or Clear and each position is numbered 0 to 7
'Each position of the bits is as follows:
'Position - 7 6 5 4 3 2 1 0
' Bit - 1 0 1 0 1 1 0 1
' ^ ^ ^ ^ ^ ^ ^ ^
' Position | | | | | | | |
' Values | | | | | | | |
' 128---+ | | | | | | |
' 64-----+ | | | | | |
' 32-------+ | | | | |
' 16---------+ | | | |
' 8-----------+ | | |
' 4-------------+ | |
' 2---------------+ |
' 1-----------------+
'-----------------------------------------------------------------------
Public Function CSTEBit(ByVal CSTE As Byte, ByVal Byt As Byte, ByVal Bit As Byte) As Byte
If Bit < 8 Then
'Bit positon mask
Dim Mask As Byte = 2 ^ Bit
Select Case CSTE
Case BitState.ExmBit
'Examine bit
'Returns a byte value of &H01 for set and &H00 for clear
If ((Byt And Mask) > 0) Then
CSTEBit = 1
Else
CSTEBit = 0
End If
Case BitState.ClrBit
'Clear bit
CSTEBit = Byt And Not Mask
Case BitState.TogBit
'Toggle bit
CSTEBit = Byt Xor Mask
Case BitState.SetBit
'Set bit
CSTEBit = Byt Or Mask
Case Else
'Return same byte if CSTE out of bounds
CSTEBit = Byt
End Select
Else
'Return same byte if Bit is out of bounds
CSTEBit = Byt
End If
End Function
End Module
March 2024 February 2024 January 2024 December 2023 November 2023 August 2023 May 2023 April 2023 March 2023 March 2021 February 2021 January 2021 December 2020 November 2020 October 2020 September 2020 August 2020 July 2020 June 2020 May 2020 April 2020 March 2020 January 2020 December 2019 November 2019 October 2019 September 2019 August 2019 July 2019 June 2019 May 2019 April 2019 March 2019 February 2019 January 2019 December 2018 November 2018 October 2018 September 2018 August 2018 July 2018 June 2018 May 2018 April 2018 March 2018 February 2018 January 2018 December 2017 November 2017 October 2017 September 2017 August 2017 July 2017 June 2017 May 2017 April 2017 March 2017 February 2017 January 2017 December 2016 November 2016 October 2016 September 2016 August 2016 July 2016 June 2016 May 2016 April 2016 March 2016 February 2016 January 2016 December 2015 November 2015 October 2015 September 2015 August 2015 July 2015 June 2015 May 2015 April 2015 March 2015 February 2015 January 2015 December 2014 November 2014 October 2014 September 2014 August 2014 July 2014 June 2014 May 2014 April 2014 March 2014 February 2014 January 2014 December 2013 November 2013 October 2013 September 2013 August 2013 July 2013 June 2013 May 2013 April 2013 March 2013 February 2013 January 2013 December 2012 November 2012 October 2012 September 2012 August 2012 July 2012 June 2012 May 2012 April 2012 March 2012 February 2012 January 2012 December 2011 November 2011 October 2011 September 2011 August 2011 July 2011 June 2011 May 2011 April 2011 March 2011 February 2011 January 2011 December 2010 November 2010 October 2010 September 2010 August 2010 July 2010 June 2010 May 2010 April 2010 March 2010 February 2010 January 2010 December 2009 November 2009 October 2009 September 2009 August 2009 July 2009 June 2009 May 2009 April 2009 March 2009 February 2009 January 2009 December 2008 November 2008 October 2008 September 2008 August 2008 July 2008 June 2008 May 2008 April 2008 March 2008 February 2008 January 2008 December 2007 November 2007 October 2007 September 2007 August 2007 July 2007 June 2007 May 2007 April 2007 March 2007 February 2007 January 2007 December 2006 November 2006 January 2006 November 2005 August 2005 July 2005 June 2005 April 2005 March 2005 February 2005 January 2005 December 2004