Novità

Osservazione Estratti su Ruota

Bentornato Mike58 i tuoi script sono sempre eccezionali :)
Ho una richiesta in riferimento agli esempi da te fatti si potrebbe aggiungere nella tabella (o fare una tabella separata) con l'indicazione dell'estratto che deriva da ambo in figura e in cadenza in modo da verificare quando esso si verifica
grazie :)
 
Ultima modifica:
Ecco lo script richiesto dall'amico oracolotto
Controllare sempre errori ed omissioni

Codice: 
Sub Main

Dim Nu(5),Ru(1),T,V

Ini = EstrazioneFin - 20

fin = EstrazioneFin

T = Array(T,"Id Data","Ruota","Estratti","1-15","16-30","31-45","46-60","61-75","76-90","1-30","31-60","60-90","1-45","46-90","pari","dispari","Num Primi","Gemello")

Call InitTabella(T,1,,,5)

r = InputBox("Scegli Ruota",,5)

For es = fin To Ini Step - 1

Ru(1) = r

cad0 = ""

cad1 = ""

cad2 = ""

cad3 = ""

cad4 = ""

cad5 = ""

cad6 = ""

cad7 = ""

cad8 = ""

cad9 = ""

dec0 = ""

dec1 = ""

dec2 = ""

dec3 = ""

dec4 = ""

dec5 = ""

dec6 = ""

dec7 = ""

dec8 = ""

dec9 = ""

dec10 = ""

For p = 1 To 5

Nu(p) = Estratto(es,r,p)

If Nu(p) < 16 Then dec0 = dec0 & Nu(p) & " "

If Nu(p) > 15 And Nu(p) < 31 Then dec1 = dec1 & Nu(p) & " "

If Nu(p) > 30 And Nu(p) < 46 Then dec2 = dec2 & Nu(p) & " "

If Nu(p) > 45 And Nu(p) < 61 Then dec3 = dec3 & Nu(p) & " "

If Nu(p) > 60 And Nu(p) < 76 Then dec4 = dec4 & Nu(p) & " "

If Nu(p) > 75 Then dec5 = dec5 & Nu(p) & " "

If Nu(p) < 30 Then dec6 = dec6 & Nu(p) & " "

If Nu(p) > 30 And Nu(p) < 61 Then dec7 = dec7 & Nu(p) & " "

If Nu(p) > 60 Then dec8 = dec8 & Nu(p) & " "

If Nu(p) < 46 Then dec9 = dec9 & Nu(p) & " "

If Nu(p) > 45 Then dec10 = dec10 & Nu(p) & " "

If pari(Nu(p)) Then cad0 = cad0 & Nu(p) & " "

If dispari(Nu(p)) Then cad1 = cad1 & Nu(p) & " "

If Primo(Nu(p)) Then cad2 = cad2 & Nu(p) & " "

If Gemello(Nu(p)) Then cad3 = cad3 & Nu(p) & " "

If Nu(p) > 0 And Nu(p) < 16 Then sd0 = sd0 + 1

If Nu(p) > 15 And Nu(p) < 31 Then sd1 = sd1 + 1

If Nu(p) > 30 And Nu(p) < 46 Then sd2 = sd2 + 1

If Nu(p) > 45 And Nu(p) < 61 Then sd3 = sd3 + 1

If Nu(p) > 60 And Nu(p) < 76 Then sd4 = sd4 + 1

If Nu(p) > 75 And Nu(p) < 91 Then sd5 = sd5 + 1

If Nu(p) < 31 Then sd6 = sd6 + 1

If Nu(p) > 30 And Nu(p) < 61 Then sd7 = sd7 + 1

If Nu(p) > 60 Then sd8 = sd8 + 1

If Nu(p) < 46 Then sd9 = sd9 + 1

If Nu(p) > 45 Then sd10 = sd10 + 1

If pari(Nu(p)) Then par = par + 1

If dispari(Nu(p)) Then dis = dis + 1

If Primo(Nu(p)) Then prim1 = prim1 + 1

If Gemello(Nu(p)) Then rad = rad + 1

Next

V = Array(V,DataEstrazione(es),SiglaRuota(r),StringaNumeri(Nu,,1),dec0,dec1,dec2,dec3,dec4,dec5,dec6,dec7,dec8,dec9,dec10,cad0,cad1,cad2,cad3)

Call AddRigaTabella(V,,,2)

For x = 4 To 9

Call SetColoreCella((x),3,1)

Next

For y = 13 To 14

Call SetColoreCella((y),7,5)

Next

Call SetColoreCella(17,6,0)

Next

vv = Array(vv,"Totali","","",sd0,sd1,sd2,sd3,sd4,sd5,sd6,sd7,sd8,sd9,sd10,par,dis,prim1,rad)

Call AddRigaTabella(vv,RGB(211,211,211),,3,0)

Call SetTableWidth("100%")

CreaTabella

Scrivi "Tabella By Mike58",1,1,,1,3,,1

End Sub
 
Ultima modifica:
Per Skygirl, vedo che sei una divoratrice di verifica metodi, con la dovuta passione e questo mi fa piacere.
Non Posso che accontentarti

prova lo script della Tabella con scelta Metodi.

P.s. Si aspettano sempre le vostre osservazioni e mi raccomando fate sempre una volta copiato lo script l'autoFormattazione con il pulsantini AutoFormattazioneCodice.


Codice: 
Sub Main

Dim Nu(5),Ru(1),T,V

Ini = EstrazioneFin - 20

fin = EstrazioneFin

T = Array(T,"Id Data","Ruota","Estratti","Dec 0","dec 1","dec 2","dec 3","dec 4","dec 5","dec 6","dec 7","dec 8","cad0","cad1","cad2","cad3",_

"cad4","cad5","cad6","cad7","cad8","cad9","Fig1","fig2","fig3","fig4","fig5","fig6","fig7","fig8","fig9")

Call InitTabella(T,1,,,5)

r = InputBox("Scegli Ruota",,5)

For es = fin To Ini Step - 1

Ru(1) = r

cad0 = ""

cad1 = ""

cad2 = ""

cad3 = ""

cad4 = ""

cad5 = ""

cad6 = ""

cad7 = ""

cad8 = ""

cad9 = ""

dec0 = ""

dec1 = ""

dec2 = ""

dec3 = ""

dec4 = ""

dec5 = ""

dec6 = ""

dec7 = ""

dec8 = ""

fig1 = ""

fig2 = ""

fig3 = ""

fig4 = ""

fig5 = ""

fig6 = ""

fig7 = ""

fig8 = ""

fig9 = ""

For p = 1 To 5

Nu(p) = Estratto(es,r,p)

If Decina(Nu(p)) = 0 Then dec0 = dec0 & Nu(p) & " "

If Decina(Nu(p)) = 1 Then dec1 = dec1 & Nu(p) & " "

If Decina(Nu(p)) = 2 Then dec2 = dec2 & Nu(p) & " "

If Decina(Nu(p)) = 3 Then dec3 = dec3 & Nu(p) & " "

If Decina(Nu(p)) = 4 Then dec4 = dec4 & Nu(p) & " "

If Decina(Nu(p)) = 5 Then dec5 = dec5 & Nu(p) & " "

If Decina(Nu(p)) = 6 Then dec6 = dec6 & Nu(p) & " "

If Decina(Nu(p)) = 7 Then dec7 = dec7 & Nu(p) & " "

If Decina(Nu(p)) = 8 Then dec8 = dec8 & Nu(p) & " "

If(Nu(p)) = 90 Then dec0 = Nu(p) & " " & dec0

If Cadenza(Nu(p)) = 0 Then cad0 = cad0 & Nu(p) & " "

If Cadenza(Nu(p)) = 1 Then cad1 = cad1 & Nu(p) & " "

If Cadenza(Nu(p)) = 2 Then cad2 = cad2 & Nu(p) & " "

If Cadenza(Nu(p)) = 3 Then cad3 = cad3 & Nu(p) & " "

If Cadenza(Nu(p)) = 4 Then cad4 = cad4 & Nu(p) & " "

If Cadenza(Nu(p)) = 5 Then cad5 = cad5 & Nu(p) & " "

If Cadenza(Nu(p)) = 6 Then cad6 = cad6 & Nu(p) & " "

If Cadenza(Nu(p)) = 7 Then cad7 = cad7 & Nu(p) & " "

If Cadenza(Nu(p)) = 8 Then cad8 = cad8 & Nu(p) & " "

If Cadenza(Nu(p)) = 9 Then cad9 = cad9 & Nu(p) & " "

If Figura(Nu(p)) = 1 Then fig1 = fig1 & Nu(p) & " "

If Figura(Nu(p)) = 2 Then fig2 = fig2 & Nu(p) & " "

If Figura(Nu(p)) = 3 Then fig3 = fig3 & Nu(p) & " "

If Figura(Nu(p)) = 4 Then fig4 = fig4 & Nu(p) & " "

If Figura(Nu(p)) = 5 Then fig5 = fig5 & Nu(p) & " "

If Figura(Nu(p)) = 6 Then fig6 = fig6 & Nu(p) & " "

If Figura(Nu(p)) = 7 Then fig7 = fig7 & Nu(p) & " "

If Figura(Nu(p)) = 8 Then fig8 = fig8 & Nu(p) & " "

If Figura(Nu(p)) = 9 Then fig9 = fig9 & Nu(p) & " "

If Decina(Nu(p)) = 0 Then sd0 = sd0 + 1

If Nu(p) = 90 Then sd0 = sd0 + 1

If Decina(Nu(p)) = 1 Then sd1 = sd1 + 1

If Decina(Nu(p)) = 2 Then sd2 = sd2 + 1

If Decina(Nu(p)) = 3 Then sd3 = sd3 + 1

If Decina(Nu(p)) = 4 Then sd4 = sd4 + 1

If Decina(Nu(p)) = 5 Then sd5 = sd5 + 1

If Decina(Nu(p)) = 6 Then sd6 = sd6 + 1

If Decina(Nu(p)) = 7 Then sd7 = sd7 + 1

If Decina(Nu(p)) = 8 Then sd8 = sd8 + 1

If Cadenza(Nu(p)) = 0 Then sc0 = sc0 + 1

If Cadenza(Nu(p)) = 1 Then sc1 = sc1 + 1

If Cadenza(Nu(p)) = 2 Then sc2 = sc2 + 1

If Cadenza(Nu(p)) = 3 Then sc3 = sc3 + 1

If Cadenza(Nu(p)) = 4 Then sc4 = sc4 + 1

If Cadenza(Nu(p)) = 5 Then sc5 = sc5 + 1

If Cadenza(Nu(p)) = 6 Then sc6 = sc6 + 1

If Cadenza(Nu(p)) = 7 Then sc7 = sc7 + 1

If Cadenza(Nu(p)) = 8 Then sc8 = sc8 + 1

If Cadenza(Nu(p)) = 9 Then sc9 = sc9 + 1

If Figura(Nu(p)) = 1 Then sf1 = sf1 + 1

If Figura(Nu(p)) = 2 Then sf2 = sf2 + 1

If Figura(Nu(p)) = 3 Then sf3 = sf3 + 1

If Figura(Nu(p)) = 4 Then sf4 = sf4 + 1

If Figura(Nu(p)) = 5 Then sf5 = sf5 + 1

If Figura(Nu(p)) = 6 Then sf6 = sf6 + 1

If Figura(Nu(p)) = 7 Then sf7 = sf7 + 1

If Figura(Nu(p)) = 8 Then sf8 = sf8 + 1

If Figura(Nu(p)) = 9 Then sf9 = sf9 + 1

Next

V = Array(V,DataEstrazione(es),SiglaRuota(r),StringaNumeri(Nu,,1),dec0,dec1,dec2,dec3,dec4,dec5,dec6,dec7,dec8,cad0,cad1,cad2,cad3,cad4,_

cad5,cad6,cad7,cad8,cad9,fig1,fig2,fig3,fig4,fig5,fig6,fig7,fig8,fig9)

Call AddRigaTabella(V,,,2)

For x = 4 To 12

Call SetColoreCella((x),3,1)

Next

For y = 13 To 22

Call SetColoreCella((y),7,5)

Next

Next

vv = Array(vv,"Totali","","",sd0,sd1,sd2,sd3,sd4,sd5,sd6,sd7,sd8,sc0,sc1,sc2,sc3,sc4,sc5,sc6,sc7,sc8,sc9,sf1,sf2,sf3,sf4,sf5,sf6,sf7,sf8,sf9)

Call AddRigaTabella(vv,RGB(211,211,211),,3,0)

Call SetTableWidth("100%")

CreaTabella

Scrivi "Tabella By Mike58",1,1,,1,3,,1

Scrivi

Scrivi String(160,"=")

Metodi

End Sub

Function Metodi()

ReDim voci(2)

voci(1) = "Metodo Ambo in Cadenza"

voci(2) = "Metodo Ambo in figura"

Metodi = ScegliOpzioneMenu(voci,1,"Seleziona Metodo")

If Metodi = 1 Then AmboCadenza

If Metodi = 2 Then AmboFigura

End Function

'''''''''''''''' Metodo AmboCadenza''''''''''''''''''''

Function AmboCadenza

Dim Nu(2),Ru(1),T,V

Ini = EstrazioneFin - 200

fin = EstrazioneFin

Scrivi "Cerca Ambo in Cadenza & Gioca Gli Estratti Trovati",1,1,,1,4,,1

Scrivi

'Titoli

r = InputBox("Quale Ruota",,5)

T = Array(T,"Data Estraz.Trovata","Ruota","Numeri","verifica","Colpo","Estratti","Id Data Verifica")

Call InitTabella(T,1,,2,5)

For es = Ini To fin

For p1 = 1 To 4

For p2 = p1 + 1 To 5

a = Estratto(es,r,p1)

b = Estratto(es,r,p2)

If Cadenza(a) = Cadenza(b) Then

Nu(1) = a

Nu(2) = b

Ru(1) = r

Call VerificaEsito(Nu,Ru,es + 1,1,10,,esito,colpi,es1,id)

V = Array(V,DataEstrazione(es),SiglaRuota(r),StringaNumeri(Nu,,1),es1,colpi,StringaEstratti(id,r),GetInfoEstrazione(id))

Call AddRigaTabella(V)

If id = fin Then Call SetColoreCella(7,2,4)

End If

Next

Next

Next

CreaTabella

End Function

'''''''' function AmboFigura ''''''''''''''

Function AmboFigura

Dim Nu(2),Ru(1),T,V,nProno(1)

Ini = EstrazioneFin - 200

fin = EstrazioneFin

Scrivi "Cerca Ambo in Figura & Gioca Somma Fuori90 ",1,1,,1,4,,1

Scrivi

'Titoli

r = InputBox("Quale Ruota",,5)

T = Array(T,"Data Estraz.Trovata","Ruota","Numeri","pronostico","verifica","Colpo","Estratti","Id Data Verifica")

Call InitTabella(T,1,,2,5)

For es = Ini To fin

For p1 = 1 To 4

For p2 = p1 + 1 To 5

a = Estratto(es,r,p1)

b = Estratto(es,r,p2)

If Figura(a) = Figura(b) Then

Nu(1) = a

Nu(2) = b

nProno(1) = Fuori90(a+b)

Ru(1) = r

Call VerificaEsito(nProno,Ru,es + 1,1,10,,esito,colpi,es1,id)

V = Array(V,DataEstrazione(es),SiglaRuota(r),StringaNumeri(Nu,,1),StringaNumeri(nProno),es1,colpi,StringaEstratti(id,r),GetInfoEstrazione(id))

Call AddRigaTabella(V)

If id = fin Then Call SetColoreCella(7,2,4)

End If

Next

Next

Next

CreaTabella

End Function
 
Grazie Mike58 per il listato purtroppo, stranamente, mi dà errore evidenziando questa riga:
Scrivi "Tabella By Mike58",1,1,,1,3,,1

Errore 450 - Numero errato di argomenti o assegnazione di proprietà non valida: "Scrivi"
Linea: 155
Colonna: 0

....dico stranamente perché il precedente andava bene(!?)
Aspetto un tuo aiuto.
Grazie amico
 
Ho risolto eliminando tale riga......grazie ancora per le altre aggiunte tue che sono sempre utili ad avere altre preziose informazioni.
Buona serata !
 
Mike58;n1959267 ha scritto:
Per Skygirl, vedo che sei una divoratrice di verifica metodi, con la dovuta passione e questo mi fa piacere.
Non Posso che accontentarti
Clicca per espandere...

Grazie Mike58 gentilissimo come sempre lo script funziona alla perfezione, hai ragione amo gli script consentono verifiche veloci senza perder tempo :D
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 23 gennaio 2025
    Bari
    86
    50
    83
    38
    78
    Cagliari
    11
    36
    52
    31
    74
    Firenze
    56
    59
    86
    27
    84
    Genova
    03
    61
    53
    11
    38
    Milano
    13
    14
    79
    87
    47
    Napoli
    21
    90
    48
    55
    37
    Palermo
    56
    46
    59
    02
    53
    Roma
    74
    13
    07
    38
    77
    Torino
    27
    54
    62
    36
    81
    Venezia
    09
    14
    69
    28
    62
    Nazionale
    32
    73
    27
    11
    51
    Estrazione Simbolotto
    Bari
    36
    27
    19
    08
    24
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto