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
    sabato 13 dicembre 2025
    Bari
    61
    81
    73
    68
    78
    Cagliari
    76
    59
    33
    78
    23
    Firenze
    10
    37
    58
    30
    71
    Genova
    17
    45
    37
    36
    72
    Milano
    10
    71
    70
    46
    87
    Napoli
    21
    11
    51
    68
    01
    Palermo
    84
    72
    26
    17
    79
    Roma
    39
    63
    46
    67
    50
    Torino
    35
    86
    79
    68
    85
    Venezia
    67
    68
    22
    77
    76
    Nazionale
    46
    12
    72
    65
    70
    Estrazione Simbolotto
    Venezia
    05
    13
    40
    35
    10
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto