X Mike58 ( Ciao Michele HELP Grazieee )

Giulio LG · 19 Aprile 2015

In questo script i dati statistici non corrispondono più !!!
La numerazione delle combinazioni !!!

Codice:

Sub Main
Dim a(5)'NUMERO DA MODIFICARE IN BASE ALLE COMBINAZIONI INSERITE__TABELLA__
Dim Ru(1)
Dim k
Dim nu
ReDim aruote(12)
righe = InputBox("Quante righe vuoi vedere ",,6)
'Scrivi "CINQUINA per TERNO (1x1) Ruota di ",1,0,6
If ScegliRuote(aruote) > 0 Then
For k = 1 To UBound(aruote)
If aruote(k) > 0 Then
Scrivi " " & NomeRuota(aruote(k)),1,0,4
End If
Next
End If
Dim posta(2)
posta(1) = 1
posta(2) = 1
nstart = Timer
Fin = EstrazioneFin
Ini = EstrazioneIni
Scrivi NomeRuota(Ru(1)),1,0
Scrivi " dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin)
'Scrivi "8x11 = 88 Cinquine "
'Scrivi "Ritardi Storici 404/TO 396/TO 383/TO 362/MI 343/RM _____________________ "
'Scrivi "Ritardo Attuale 322+87/PA _____________________________  "
'Scrivi "Presenze 3(3) 23(2) 44(4) 47(4) 78(3) ____________________ "
'Scrivi "Abbiamo le due terzine per TERNO a TUTTE _________________"
'Scrivi "9 > Capo Gioco"
'Scrivi "27.54.18 > Terzina Raddoppiata"
'Scrivi "Ritardi Storici 5370.VE 5362.NA 4107.TO ___________________ "
'Scrivi "Ritardo Attuale 5362.NA ________________________ "
'Scrivi "In ristretto 7x1 _________________________________ "
'Scrivi "Max in assoluto 2177* FI 81_65.66.67 > 2° RS 1918  (Dato Agg. 01/10/2005)"
'Scrivi "87x11= 957 TriAmbi"
'Scrivi "CASI:"
'Scrivi "1400__1"
'Scrivi "1300__3"
'Scrivi "1200__7"
'Scrivi "1800__1"
'Scrivi "1600__9"
'Scrivi "9.18.27.54 Quartina per TERNO > FACOLTATIVO !"
ReDim atitoli(8)
atitoli(1) = "5"
atitoli(2) = " COMBINAZIONI "
atitoli(3) = "RA "
atitoli(4) = "RS "
atitoli(5) = "FR "
atitoli(6) = " Rp1"
atitoli(7) = " Rp2"
atitoli(8) = " Rp3"
'atitoli(9) = " Rp4"
'atitoli(10) = " Rp5"
'atitoli(11) = " Somma Rp"
Call InitTabella(atitoli,0,,3,5)
a(1) = "2.4.16.18"
a(2) = "2.4.16"
a(3) = "2.4.18"
a(4) = "2.16.18"
a(5) = "4.16.18"
'a(6) = "58-85-03-09"
'a(7) = "04-16-66"
'a(8) = "02-66-88"
'a(9) = "04-16-88"
'a(10) = "16-66-88"
'a(11) = "04-66-88"
'a(12) = "02-04-88"
'a(13) = "02-16-88"
'a(14) = "02-16-66"
'a(15) = "02-04-66"
'a(16) = "02-04-16"
'a(17) = "37-73-33-77-20"
'a(18) = "38-83-33-88-31"
'a(19) = "45-54-44-55-09"
'a(20) = "46-64-44-66-20"
'a(21) = "47-74-44-77-31"
'a(22) = "48-84-44-88-42"
'a(23) = "56-65-55-66-31"
'a(24) = "57-75-55-77-42"
'a(25) = "58-85-55-88-53"
'a(26) = "67-76-66-77-53"
'a(27) = "68-86-66-88-64"
'a(28) = "78-87-77-88-75"
For N = 1 To UBound(a)
nu = Split("0-" &(a(n)),"-")
'sr1 = SerieRitardoTurbo(Ini,fin,nu,aruote,1)', 1 scrive il ritardo dell'estratto
'sr2 = SerieRitardoTurbo(Ini,fin,nu,aruote,2)
sr3 = SerieRitardoTurbo(Ini,fin,nu,aruote,3)
'sr4 = SerieRitardoTurbo(Ini,fin,nu,aruote,4)
'sr5 = SerieRitardoTurbo(Ini,fin,nu,aruote,5)
'st1 = SerieStoricoTurbo(Ini,fin,nu,aruote,1)
'st2 = SerieStoricoTurbo(Ini,fin,nu,aruote,2)
st3 = SerieStoricoTurbo(Ini,fin,nu,aruote,3)
'st4 = SerieStoricoTurbo(Ini,fin,nu,aruote,4)
'st5 = SerieStoricoTurbo(Ini,fin,nu,aruote,5)
'sf1 = SerieFreqTurbo(Ini,Fin,nu,aruote,1)
'sf2 = SerieFreqTurbo(Ini,Fin,nu,aruote,2)
sf3 = SerieFreqTurbo(Ini,Fin,nu,aruote,3)
'sf4 = SerieFreqTurbo(Ini,Fin,nu,aruote,4)
'sf5 = SerieFreqTurbo(Ini,fin,nu,aruote,5)
Call VerificaEsitoTurbo(nu,aruote,fin,2,1,,retesito,,retestratti)
ReDim avalori(8)
avalori(1) = n3
avalori(2) = StringaNumeri(nu)
avalori(3) = sr3
avalori(4) = st3
avalori(5) = sf3
'avalori(6) = RitDiPos(nu,1,aruote)
'avalori(7) = RitDiPos(nu,2,aruote)
'avalori(8) = RitDiPos(nu,3,aruote)
'avalori(9) = RitDiPos(nu,4,aruote)
'avalori(10) = RitDiPos(nu,5,aruote)
ReDim rp(6) 'Numero da modificare in base hai Ritardi Prec. inseriti.
Inizio = EstrazioneIni
fine = EstrazioneFin
'somrit = 0
For z = 1 To 6 'Numero da modificare in base hai Ritardi Prec. inseriti.
rp(z) = SerieRitardoTurbo(Inizio,fine,nu,aruote,3) '1 Rit.Prec ESTRATTO_2 AMBO_3 TERNO ....
fine = fine -(rp(z) + 1)
'somrit = somrit + rp(z)
'Medrit = Int(somrit/z)
Next
' il primo rp(1) = ritardo corrente
avalori(6) = rp(2) ' scrive 1 ritardo precedente
avalori(7) = rp(3)
avalori(8) = rp(4)
'avalori(9) = rp(5)
'avalori(10) = rp(6)
'avalori(11) = rp(7)
Call AddRigaTabella(avalori)
Call SetColoreCella(1,,vbBlue)
Call SetColoreCella(2,,vbRed)' colora la colonna 2 sfondo ciano scritta gialla
Call SetColoreCella(3,4,0)
'Call SetColoreCella(4,4,0)
Call SetColoreCella(5,4,0)
'Call SetColoreCella(11,4,0)
Call SetColoreCella(6,RGB(224,31,20),vbWhite)
Call SetColoreCella(7,RGB(224,31,20),vbWhite)
Call SetColoreCella(8,RGB(224,31,20),vbWhite)
Call SetColoreCella(9,RGB(224,31,20),vbWhite)
Call SetColoreCella(10,RGB(224,31,20),vbWhite)
'If avalori(3) > 20 Then Call SetColoreCella(3,2,vbWhite) 'RA
'If avalori(4) > 100 Then Call SetColoreCella(4,3,0) 'RA
'If avalori(4) > 300 Then Call SetColoreCella(4,2,0) 'RA
'If avalori(5) > 5000 Then Call SetColoreCella(5,2,vbWhite) 'RA
'If avalori(6) > 30 Then Call SetColoreCella(6,2,0) 'RS
'If avalori(7) > 800 Then Call SetColoreCella(7,2,0) 'RS
'If avalori(12) > 100 Then Call SetColoreCella(12,1,vbWhite)
'If avalori(13) > 100 Then Call SetColoreCella(13,1,vbWhite)
'If avalori(14) > 100 Then Call SetColoreCella(14,1,vbWhite)
'If avalori(15) > 100 Then Call SetColoreCella(15,1,vbWhite)
'If avalori(16) > 100 Then Call SetColoreCella(16,1,vbWhite)
'If avalori(12) > 200 Then Call SetColoreCella(12,3,2)
'If avalori(13) > 200 Then Call SetColoreCella(13,3,2)
'If avalori(14) > 200 Then Call SetColoreCella(14,3,2)
'If avalori(15) > 200 Then Call SetColoreCella(15,3,2)
'If avalori(16) > 200 Then Call SetColoreCella(16,3,2)
'If avalori(12) > 300 Then Call SetColoreCella(12,4,2)
'If avalori(13) > 300 Then Call SetColoreCella(13,4,2)
'If avalori(14) > 300 Then Call SetColoreCella(14,4,2)
'If avalori(15) > 300 Then Call SetColoreCella(15,4,2)
'If avalori(16) > 300 Then Call SetColoreCella(16,4,2)
'If avalori(17) > 200 Then Call SetColoreCella(17,7,0)
Next
Scrivi "Tabella Riepilogativa delle combinazioni su : " & Fin - Ini & " Estrazioni.",1
Call CreaTabella(0,,,righe) '(4,,,righe)colonne x ritardo
'Scrivi "Quartina figura5 passo9   "
'Scrivi "1.2.3,4.5.6.7.8.9 > Numeretti"
'Scrivi "88.1.2.3.4.5.6.7.8.9 > Decina per sorti superiori"
'Scrivi "56x11= 616 > TERZINE di GEMELLI  "
'Scrivi "TERZINE di FIGURA 5 "
'Scrivi "6x11= 66 TERZINE"
'Scrivi "Cinquine dispari/pari 9+9= 18x11= 198 CINQINE  "
'Scrivi "Quando si presenta l'AMBO nella cinquina si rimette in GIOCO per 5 COLPI"
'Scrivi "( Ciclo di 5 colpi ) Ritardo Storico 67 ( cicli )"
'Scrivi "( Ciclo di 5 colpi ) Ritardo Attuale 67 ( cicli )"
'Scrivi "OTTINE PARASIMMETRICHE (Gruppo di Quattro)"
'Scrivi "Cinquine composte da vertibili e terzine esponenziali 2.4.16..3.9.81 "
'Scrivi "Coppie pari continuative 2.4/4.6/6.8 ... (45)  "
'Scrivi "27+27= 54x11= 594 CINQUINE "
'Scrivi "Ritardi Storici 7779/BA 7058/BA 6153/PA "
'Scrivi "Ritardo Attuale 8759/TO > MAX in CORSO"
'Scrivi "TERZINA SORTITA 3.9.58 "
'Scrivi "26-35.31 RISTRETTISSIMA"
'Scrivi "33.58.32.34.57.59.78.13"
'Scrivi "44.47.43.45.46.48.89.02"
'Scrivi "55.36.54.56.35.37.10.81"
'Scrivi "66.25.65.67.24.26.21.70"
'Scrivi "77.14.76.78.13.15.32.59"
'Scrivi "88.03.87.89.02.04.43.48"
'Scrivi "BiAmbo 35.36 / 35.37 (2x1) Previsione pubblicata il 06/12/13"
'Scrivi "5.14.77.86 > Integrale > > > Paga 2,6 "
'Scrivi "85.54.21 > > Integrale > > > > Paga 3,5  "
'Scrivi "85.54 > > >  Ristretta > > > > Paga 5,3  "
'Scrivi "CASI:"
'Scrivi "105__1"
'Scrivi "100__1"
'Scrivi "095__0"
'Scrivi "090__4"
'Scrivi "ABBINANMENTI per TERNO > FACOLTATIVO !"
'Scrivi "ALGORITMO :"
'Scrivi "01.10.18.81"
'Scrivi "36.63.38.83"
'Scrivi "54.45.56.65"
'Scrivi "72.27.74.47"
'Scrivi "90.09-02.29"
'Scrivi "12.21.11 ***"
'Scrivi "12.21.13 ***"
'Scrivi "12.21.14 **"
'Scrivi "12.21.15 *"
'Scrivi "12.21.16"
'Scrivi "Decina Continuativa__Terzine per TERNO mai sortite 10x1"
'Scrivi "4.3.2.1.90 Cinquina per TERNO > FACOLTATIVO !"
'Scrivi "GEMELLI TriAmbi continuativi superiori e inferiori al CapoGioco"
'Scrivi "Algoritmo :"
'Scrivi "12.19/12.29  31.39/31.19  51.59/51.19  71.79/71.19"
'Scrivi "13.19/13.39  32.39/32.29  52.59/52.29  72.79/72.29"
'Scrivi "14.19/14.49  34.39/34.49  53.59/53.39  73.79/73.39"
'Scrivi "15.19/15.59  35.39/35.59  54.59/54.49  74.79/74.49"
'Scrivi "16.19/16.69  36.39/36.69  56.59/56.69  75.79/75.59"
'Scrivi "17.19/17.79  37.39/37.79  57.59/57.79  76.79/76.69"
'Scrivi "18.19/18.89  38.39/38.89  58.59/58.89  78.79/78.89"
'Scrivi ""
'Scrivi "21.29/21.19  41.49/41.19  61.69/61.19  81.89/81.19"
'Scrivi "23.29/23.39  42.49/42.29  62.69/62.29  82.89/82.29"
'Scrivi "24.29/24.49  43.49/43.39  63.69/63.39  83.89/83.39"
'Scrivi "25.29/25.59  45.49/45.59  64.69/64.49  84.89/84.49"
'Scrivi "26.29/26.69  46.49/46.69  65.69/65.59  85.89/85.59"
'Scrivi "27.29/27.79  47.49/47.79  67.69/67.79  86.89/86.69"
'Scrivi "28.29/28.89  48.49/48.89  68.69/68.89  87.89/87.79"
'Scrivi "02.86.88"
'Scrivi "03.85.88"
nend = Timer
'Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
End Sub
'Function RitDiPos(nu,pos,aruote)
'ReDim apos(5)
'apos(pos) = True
'RitDiPos = RitardoCombinazioneTurbo(aruote,nu,1,0,apos)
'End Function
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore  minuti e secondi  in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function

Mike58 · 19 Aprile 2015

Ciao Giulio, nel fare delle variazioni hai immesso le righe attive con il "." (Punto) ma la variabile che controlla lo split del carattere era rimasta con il "-".
infatti le righe erano cosi.
a(1) = "2.4.16.18"
a(2) = "2.4.16"
a(3) = "2.4.18"
a(4) = "2.16.18"
a(5) = "4.16.18"
lo split del carattere cosi:
nu = Split("0-" &(a

),"-")

basta cambiare con il carattere da splittare ossia il punto.(".")
nu = Split("0." &(a

),".")

per la numerazione combinazione basta mettere un contatore dopo il ciclo for che hai denominato n3

n3 = n3 + 1

fai le dovute variazione e vedrai che il tutto ritorna.

Ciao

Mike58 · 19 Aprile 2015

Codice:

Sub Main
Dim a(5)'NUMERO DA MODIFICARE IN BASE ALLE COMBINAZIONI INSERITE__TABELLA__
Dim Ru(1)
Dim k
Dim nu
ReDim aruote(12)
righe = InputBox("Quante righe vuoi vedere ",,6)
'Scrivi "CINQUINA per TERNO (1x1) Ruota di ",1,0,6
If ScegliRuote(aruote) > 0 Then
For k = 1 To UBound(aruote)
If aruote(k) > 0 Then
Scrivi " " & NomeRuota(aruote(k)),1,0,4
End If
Next
End If
Dim posta(2)
posta(1) = 1
posta(2) = 1
nstart = Timer
Fin = EstrazioneFin
Ini = EstrazioneIni
Scrivi NomeRuota(Ru(1)),1,0
Scrivi " dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin)
'Scrivi "8x11 = 88 Cinquine "
'Scrivi "Ritardi Storici 404/TO 396/TO 383/TO 362/MI 343/RM _____________________ "
'Scrivi "Ritardo Attuale 322+87/PA _____________________________  "
'Scrivi "Presenze 3(3) 23(2) 44(4) 47(4) 78(3) ____________________ "
'Scrivi "Abbiamo le due terzine per TERNO a TUTTE _________________"
'Scrivi "9 > Capo Gioco"
'Scrivi "27.54.18 > Terzina Raddoppiata"
'Scrivi "Ritardi Storici 5370.VE 5362.NA 4107.TO ___________________ "
'Scrivi "Ritardo Attuale 5362.NA ________________________ "
'Scrivi "In ristretto 7x1 _________________________________ "
'Scrivi "Max in assoluto 2177* FI 81_65.66.67 > 2° RS 1918  (Dato Agg. 01/10/2005)"
'Scrivi "87x11= 957 TriAmbi"
'Scrivi "CASI:"
'Scrivi "1400__1"
'Scrivi "1300__3"
'Scrivi "1200__7"
'Scrivi "1800__1"
'Scrivi "1600__9"
'Scrivi "9.18.27.54 Quartina per TERNO > FACOLTATIVO !"
ReDim atitoli(8)
atitoli(1) = "5"
atitoli(2) = " COMBINAZIONI "
atitoli(3) = "RA "
atitoli(4) = "RS "
atitoli(5) = "FR "
atitoli(6) = " Rp1"
atitoli(7) = " Rp2"
atitoli(8) = " Rp3"
'atitoli(9) = " Rp4"
'atitoli(10) = " Rp5"
'atitoli(11) = " Somma Rp"
Call InitTabella(atitoli,0,,3,5)
a(1) = "2.4.16.18"
a(2) = "2.4.16"
a(3) = "2.4.18"
a(4) = "2.16.18"
a(5) = "4.16.18"
'a(6) = "58-85-03-09"
'a(7) = "04-16-66"
'a(8) = "02-66-88"
'a(9) = "04-16-88"
'a(10) = "16-66-88"
'a(11) = "04-66-88"
'a(12) = "02-04-88"
'a(13) = "02-16-88"
'a(14) = "02-16-66"
'a(15) = "02-04-66"
'a(16) = "02-04-16"
'a(17) = "37-73-33-77-20"
'a(18) = "38-83-33-88-31"
'a(19) = "45-54-44-55-09"
'a(20) = "46-64-44-66-20"
'a(21) = "47-74-44-77-31"
'a(22) = "48-84-44-88-42"
'a(23) = "56-65-55-66-31"
'a(24) = "57-75-55-77-42"
'a(25) = "58-85-55-88-53"
'a(26) = "67-76-66-77-53"
'a(27) = "68-86-66-88-64"
'a(28) = "78-87-77-88-75"
For n = 1 To UBound(a)
n3 = n3 + 1
nu = Split("0." &(a(n)),".")
'sr1 = SerieRitardoTurbo(Ini,fin,nu,aruote,1)', 1 scrive il ritardo dell'estratto
'sr2 = SerieRitardoTurbo(Ini,fin,nu,aruote,2)
sr3 = SerieRitardoTurbo(Ini,fin,nu,aruote,3)
'sr4 = SerieRitardoTurbo(Ini,fin,nu,aruote,4)
'sr5 = SerieRitardoTurbo(Ini,fin,nu,aruote,5)
'st1 = SerieStoricoTurbo(Ini,fin,nu,aruote,1)
'st2 = SerieStoricoTurbo(Ini,fin,nu,aruote,2)
st3 = SerieStoricoTurbo(Ini,fin,nu,aruote,3)
'st4 = SerieStoricoTurbo(Ini,fin,nu,aruote,4)
'st5 = SerieStoricoTurbo(Ini,fin,nu,aruote,5)
'sf1 = SerieFreqTurbo(Ini,Fin,nu,aruote,1)
'sf2 = SerieFreqTurbo(Ini,Fin,nu,aruote,2)
sf3 = SerieFreqTurbo(Ini,Fin,nu,aruote,3)
'sf4 = SerieFreqTurbo(Ini,Fin,nu,aruote,4)
'sf5 = SerieFreqTurbo(Ini,fin,nu,aruote,5)
Call VerificaEsitoTurbo(nu,aruote,fin,2,1,,retesito,,retestratti)
ReDim avalori(8)
avalori(1) = n3
avalori(2) = StringaNumeri(nu)
avalori(3) = sr3
avalori(4) = st3
avalori(5) = sf3
'avalori(6) = RitDiPos(nu,1,aruote)
'avalori(7) = RitDiPos(nu,2,aruote)
'avalori(8) = RitDiPos(nu,3,aruote)
'avalori(9) = RitDiPos(nu,4,aruote)
'avalori(10) = RitDiPos(nu,5,aruote)
ReDim rp(6) 'Numero da modificare in base hai Ritardi Prec. inseriti.
Inizio = EstrazioneIni
fine = EstrazioneFin
'somrit = 0
For z = 1 To 6 'Numero da modificare in base hai Ritardi Prec. inseriti.
rp(z) = SerieRitardoTurbo(Inizio,fine,nu,aruote,3) '1 Rit.Prec ESTRATTO_2 AMBO_3 TERNO ....
fine = fine -(rp(z) + 1)
'somrit = somrit + rp(z)
'Medrit = Int(somrit/z)
Next
' il primo rp(1) = ritardo corrente
avalori(6) = rp(2) ' scrive 1 ritardo precedente
avalori(7) = rp(3)
avalori(8) = rp(4)
'avalori(9) = rp(5)
'avalori(10) = rp(6)
'avalori(11) = rp(7)
Call AddRigaTabella(avalori)
Call SetColoreCella(1,,vbBlue)
Call SetColoreCella(2,,vbRed)' colora la colonna 2 sfondo ciano scritta gialla
Call SetColoreCella(3,4,0)
'Call SetColoreCella(4,4,0)
Call SetColoreCella(5,4,0)
'Call SetColoreCella(11,4,0)
Call SetColoreCella(6,RGB(224,31,20),vbWhite)
Call SetColoreCella(7,RGB(224,31,20),vbWhite)
Call SetColoreCella(8,RGB(224,31,20),vbWhite)
Call SetColoreCella(9,RGB(224,31,20),vbWhite)
Call SetColoreCella(10,RGB(224,31,20),vbWhite)
'If avalori(3) > 20 Then Call SetColoreCella(3,2,vbWhite) 'RA
'If avalori(4) > 100 Then Call SetColoreCella(4,3,0) 'RA
'If avalori(4) > 300 Then Call SetColoreCella(4,2,0) 'RA
'If avalori(5) > 5000 Then Call SetColoreCella(5,2,vbWhite) 'RA
'If avalori(6) > 30 Then Call SetColoreCella(6,2,0) 'RS
'If avalori(7) > 800 Then Call SetColoreCella(7,2,0) 'RS
'If avalori(12) > 100 Then Call SetColoreCella(12,1,vbWhite)
'If avalori(13) > 100 Then Call SetColoreCella(13,1,vbWhite)
'If avalori(14) > 100 Then Call SetColoreCella(14,1,vbWhite)
'If avalori(15) > 100 Then Call SetColoreCella(15,1,vbWhite)
'If avalori(16) > 100 Then Call SetColoreCella(16,1,vbWhite)
'If avalori(12) > 200 Then Call SetColoreCella(12,3,2)
'If avalori(13) > 200 Then Call SetColoreCella(13,3,2)
'If avalori(14) > 200 Then Call SetColoreCella(14,3,2)
'If avalori(15) > 200 Then Call SetColoreCella(15,3,2)
'If avalori(16) > 200 Then Call SetColoreCella(16,3,2)
'If avalori(12) > 300 Then Call SetColoreCella(12,4,2)
'If avalori(13) > 300 Then Call SetColoreCella(13,4,2)
'If avalori(14) > 300 Then Call SetColoreCella(14,4,2)
'If avalori(15) > 300 Then Call SetColoreCella(15,4,2)
'If avalori(16) > 300 Then Call SetColoreCella(16,4,2)
'If avalori(17) > 200 Then Call SetColoreCella(17,7,0)
Next
Scrivi "Tabella Riepilogativa delle combinazioni su : " & Fin - Ini & " Estrazioni.",1
Call CreaTabella(0,,,righe) '(4,,,righe)colonne x ritardo
'Scrivi "Quartina figura5 passo9   "
'Scrivi "1.2.3,4.5.6.7.8.9 > Numeretti"
'Scrivi "88.1.2.3.4.5.6.7.8.9 > Decina per sorti superiori"
'Scrivi "56x11= 616 > TERZINE di GEMELLI  "
'Scrivi "TERZINE di FIGURA 5 "
'Scrivi "6x11= 66 TERZINE"
'Scrivi "Cinquine dispari/pari 9+9= 18x11= 198 CINQINE  "
'Scrivi "Quando si presenta l'AMBO nella cinquina si rimette in GIOCO per 5 COLPI"
'Scrivi "( Ciclo di 5 colpi ) Ritardo Storico 67 ( cicli )"
'Scrivi "( Ciclo di 5 colpi ) Ritardo Attuale 67 ( cicli )"
'Scrivi "OTTINE PARASIMMETRICHE (Gruppo di Quattro)"
'Scrivi "Cinquine composte da vertibili e terzine esponenziali 2.4.16..3.9.81 "
'Scrivi "Coppie pari continuative 2.4/4.6/6.8 ... (45)  "
'Scrivi "27+27= 54x11= 594 CINQUINE "
'Scrivi "Ritardi Storici 7779/BA 7058/BA 6153/PA "
'Scrivi "Ritardo Attuale 8759/TO > MAX in CORSO"
'Scrivi "TERZINA SORTITA 3.9.58 "
'Scrivi "26-35.31 RISTRETTISSIMA"
'Scrivi "33.58.32.34.57.59.78.13"
'Scrivi "44.47.43.45.46.48.89.02"
'Scrivi "55.36.54.56.35.37.10.81"
'Scrivi "66.25.65.67.24.26.21.70"
'Scrivi "77.14.76.78.13.15.32.59"
'Scrivi "88.03.87.89.02.04.43.48"
'Scrivi "BiAmbo 35.36 / 35.37 (2x1) Previsione pubblicata il 06/12/13"
'Scrivi "5.14.77.86 > Integrale > > > Paga 2,6 "
'Scrivi "85.54.21 > > Integrale > > > > Paga 3,5  "
'Scrivi "85.54 > > >  Ristretta > > > > Paga 5,3  "
'Scrivi "CASI:"
'Scrivi "105__1"
'Scrivi "100__1"
'Scrivi "095__0"
'Scrivi "090__4"
'Scrivi "ABBINANMENTI per TERNO > FACOLTATIVO !"
'Scrivi "ALGORITMO :"
'Scrivi "01.10.18.81"
'Scrivi "36.63.38.83"
'Scrivi "54.45.56.65"
'Scrivi "72.27.74.47"
'Scrivi "90.09-02.29"
'Scrivi "12.21.11 ***"
'Scrivi "12.21.13 ***"
'Scrivi "12.21.14 **"
'Scrivi "12.21.15 *"
'Scrivi "12.21.16"
'Scrivi "Decina Continuativa__Terzine per TERNO mai sortite 10x1"
'Scrivi "4.3.2.1.90 Cinquina per TERNO > FACOLTATIVO !"
'Scrivi "GEMELLI TriAmbi continuativi superiori e inferiori al CapoGioco"
'Scrivi "Algoritmo :"
'Scrivi "12.19/12.29  31.39/31.19  51.59/51.19  71.79/71.19"
'Scrivi "13.19/13.39  32.39/32.29  52.59/52.29  72.79/72.29"
'Scrivi "14.19/14.49  34.39/34.49  53.59/53.39  73.79/73.39"
'Scrivi "15.19/15.59  35.39/35.59  54.59/54.49  74.79/74.49"
'Scrivi "16.19/16.69  36.39/36.69  56.59/56.69  75.79/75.59"
'Scrivi "17.19/17.79  37.39/37.79  57.59/57.79  76.79/76.69"
'Scrivi "18.19/18.89  38.39/38.89  58.59/58.89  78.79/78.89"
'Scrivi ""
'Scrivi "21.29/21.19  41.49/41.19  61.69/61.19  81.89/81.19"
'Scrivi "23.29/23.39  42.49/42.29  62.69/62.29  82.89/82.29"
'Scrivi "24.29/24.49  43.49/43.39  63.69/63.39  83.89/83.39"
'Scrivi "25.29/25.59  45.49/45.59  64.69/64.49  84.89/84.49"
'Scrivi "26.29/26.69  46.49/46.69  65.69/65.59  85.89/85.59"
'Scrivi "27.29/27.79  47.49/47.79  67.69/67.79  86.89/86.69"
'Scrivi "28.29/28.89  48.49/48.89  68.69/68.89  87.89/87.79"
'Scrivi "02.86.88"
'Scrivi "03.85.88"
nend = Timer
'Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
End Sub
'Function RitDiPos(nu,pos,aruote)
'ReDim apos(5)
'apos(pos) = True
'RitDiPos = RitardoCombinazioneTurbo(aruote,nu,1,0,apos)
'End Function
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore  minuti e secondi  in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function

Giulio LG · 19 Aprile 2015

(-) (.) una mia svista > mi sono dato una mazzata sui testicoli ..... ( Per questo non ti avrei rotto i MARONI )
Invece per la numerazione delle combinazioni sei stato di grande AIUTO

[/Grazieee > CiaoCOLOR]

Cerca

Cerca

X Mike58 ( Ciao Michele HELP Grazieee )

Giulio LG

Banned

Mike58

Advanced Member >PLATINUM PLUS<

Mike58

Advanced Member >PLATINUM PLUS<

Giulio LG

Banned

Ultima estrazione Lotto

Ultimi Messaggi