Junior Member
 - Group:
- Member
- Posts:
- 10
- Status:
| |
| ESEMPIO : CAPOGIOCO n° 90
Analisi ruota di Tutte degli abbinamenti al capogioco 90
Con decina 0 ritardo 10
Numeri pił ritardatari = 6 - 7
Con decina 1 ritardo 6
Numeri pił ritardatari = 11 - 16
Con decina 2 ritardo 18
Numeri pił ritardatari = 28 - 22
Con decina 3 ritardo 10
Numeri pił ritardatari = 34 - 36
Con decina 4 ritardo 13
Numeri pił ritardatari = 46 - 48
Con decina 5 ritardo 11
Numeri pił ritardatari = 54 - 60
Con decina 6 ritardo 6
Numeri pił ritardatari = 67 - 66
Con decina 7 ritardo 6
Numeri pił ritardatari = 76 - 72
Con decina 8 ritardo 6
Numeri pił ritardatari = 85 - 81
............................................................
Sub Main()
Dim dec(9,10),n(2),ruote(10),r(10,2),n2(1)
cg = CLng(InputBox("Inserire il capogioco : ",,21))
n(1) = cg
'For r1 = 1 To 12
For r1 = 11 To 11 ' ---------------> PER GIOCO AMBO A TUTTE
' Erase ruote
ruote(1) = r1
Scrivi
ColoreTesto 7
Scrivi "Analisi ruota di " & NomeRuota(r1) & " degli abbinamenti al capogioco " & CStr(cg),True
ColoreTesto 0
Scrivi
For d = 0 To 8
rrmin = 5000
'Erase r
For c = 1 To 10
'Erase n
n(1) = cg
n(2) =(d*10) + c
If n(1) <> n(2) Then
n2(1) = n(2)
rr = SerieRitardo(EstrazioneIni,EstrazioneFin,n,ruote,2)
r(c,1) = n(2)
r(c,2) = SerieRitardo(EstrazioneIni,EstrazioneFin,n2,ruote,1)
If rr < rrmin Then rrmin = rr
End If
Next
OrdinaMatrice r,- 1,2
Scrivi "Con decina " & CStr(d) & " ritardo " & CStr(rrmin),1,1,,2,2
Scrivi "Numeri pił ritardatari = " & CStr(r(1,1)) & " - " & CStr(r(2,1)),1,True
Next
Next
End Sub
|
