JADE Pick 3 Pick 4 Selector Source

Reply #11

JADELottery — Sat, 05 Mar 2011 01:10:36 GMT

We have up loaded the Source Code to our FTP site.

You can access it at the following:

Directly - ftp://www.jadexcode.com/SourceCode/VisualBasic/VB6/JADE%20Pick%203%204%20Selector.zip

or

Indirectly - ftp://www.jadexcode.com/SourceCode/VisualBasic/VB6

Reply #10

CajunWin4 — Fri, 25 Feb 2011 15:07:01 GMT

JADELottery,

Keep up the Great work , can't wait to see you're site up and running..

CajunWin4

Reply #9

JADELottery — Fri, 25 Feb 2011 12:36:30 GMT

It is just some information we wanted to keep as it relates to the Matrix Determinant Distribution.

Reply #8

jimmy4164 — Fri, 25 Feb 2011 05:28:52 GMT

Just wondering why you commented out this:

.

.

.

Have you considered, garyo1954, what errors Visual Studio would report if you removed these comment characters ( ' )?

I don't think anything was commented out. They look like informational comments to me.

Reply #7

garyo1954 — Thu, 24 Feb 2011 06:33:12 GMT

Great work JADE! Between this and your wheeling code I see two of you! This says Okay, we're here to do a job, let's do it. while the wheeling says, We will get this done. Big UPS (compliments on your versatility!) Just wondering why you commented out this:

'Max Determinant Matrix Expansion Model

'

' | 1 2 3 4 5 . . . n

'--+-----------------------

'1 | 1 10 10 10 10 . . . 10

'2 |10 10 1 1 1 . . . 1

'3 |10 1 10 1 1 . . . 1

'4 |10 1 1 10 1 . . . 1

'5 |10 1 1 1 10 .... [ More ]

Reply #6

paradisenow — Thu, 24 Feb 2011 00:36:14 GMT

Thanks for posting

Reply #5

JADELottery — Thu, 24 Feb 2011 00:31:31 GMT

FYI: Updated Rand_MD

__________________________

Function Rand_MD(ByRef p As Short) As Integer

Dim n As Integer

Dim sx As Integer

Dim b As Double

Dim x As Integer

If p = 2 Then

Select Case p

Case 2

n = 99

b = -0.0411206357619507

Case 3

n = 1701

b = -0.00884474829882839

Case 4

n = 23328

b = -0.00116125967871542

Case 5

n = 282123

b = -0.000136178191781599

Case 6

n = 3188646

b = -0.0000156580567425798

Reply #4

JADELottery — Thu, 24 Feb 2011 00:01:46 GMT

_____________________________________________________

Sub Set_Pick3_Det()

Dim Det3 As Long

Pick3_Matrix(1, 1) = Val(txtNumber(0).Text) + 1

Pick3_Matrix(1, 2) = Val(txtNumber(1).Text) + 1

Pick3_Matrix(1, 3) = Val(txtNumber(2).Text) + 1

Pick3_Matrix(2, 1) = Val(txtNumber(4).Text) + 1

Pick3_Matrix(2, 2) = Val(txtNumber(5).Text) + 1

Pick3_Matrix(2, 3) = Val(txtNumber(6).Text) + 1

ProgressBar1.Min = 0

ProgressBar1.Max = 999

avg_sum = 0

For a = 0 To 99... [ More ]

Reply #3

JADELottery — Wed, 23 Feb 2011 23:58:31 GMT

________________________________________

Sub LoadPick4ReverseIndex00()

Pick4ReverseIndex(0) = 0

Pick4ReverseIndex(1) = 440

Pick4ReverseIndex(2) = 124

Pick4ReverseIndex(3) = 234

Pick4ReverseIndex(4) = 64

Pick4ReverseIndex(5) = 311

Pick4ReverseIndex(6) = 42

Pick4ReverseIndex(7) = 352

Pick4ReverseIndex(8) = 43

Pick4ReverseIndex(9) = 192

Pick4ReverseIndex(10) = 75

Pick4ReverseIndex(11) = 385

Pick4ReverseIndex(12) = 12

Pick4ReverseIndex(13) = 401

Pick4... [ More ]

Reply #2

JADELottery — Wed, 23 Feb 2011 23:49:30 GMT

_________________________________________

Sub LoadPick3ReverseIndex()

Pick3ReverseIndex(0) = 0

Pick3ReverseIndex(1) = 76

Pick3ReverseIndex(2) = 22

Pick3ReverseIndex(3) = 42

Pick3ReverseIndex(4) = 13

Pick3ReverseIndex(5) = 54

Pick3ReverseIndex(6) = 5

Pick3ReverseIndex(7) = 68

Pick3ReverseIndex(8) = 10

Pick3ReverseIndex(9) = 40

Pick3ReverseIndex(10) = 14

Pick3ReverseIndex(11) = 75

Pick3ReverseIndex(12) = 1

Pick3ReverseIndex(13) = 82

Pick3ReverseInde... [ More ]

Reply #1

JADELottery — Wed, 23 Feb 2011 23:47:48 GMT

We'll take this in sections.

It's too big for one post.

The next posted sections are part of the form.

_______________________________________

Dim Pick3_Matrix(1 To 3, 1 To 3) As Long

Dim Pick3_List(0 To 999) As tPick3_List

Dim Pick3_Avg As Double

Dim Pick3_Std As Double

Dim Pick4_Matrix(1 To 4, 1 To 4) As Long

Dim Pick4_List(0 To 9999) As tPick4_List

Dim Pick4_Avg As Double

Dim Pick4_Std As Double

Dim Pick3ReverseIndex(0 To 1701) As Integer

Dim Pick3I... [ More ]

JADE Pick 3 Pick 4 Selector Source

JADELottery — Wed, 23 Feb 2011 23:38:17 GMT

This was written in VB6 and has limited comments.

The first section is an added module for user types and functions.

____________________________________________________

Type tPick3_List

sPick3(1 To 3) As Long

bPick3(1 To 3) As Long

dPick3 As Long

End Type

Type tPick4_List

sPick4(1 To 4) As Long

bPick4(1 To 4) As Long

dPick4 As Long

End Type

Function Rand_MD(p As Integer) As Long

Dim n, sx As Integer

Dim B As Double

If