Novità

MEGA RACCOLTA "SCRIPT"

  • Creatore Discussione Creatore Discussione Blackmore
  • Data di inizio Data di inizio
Lunghetta su Bari per ambo e terno in 14 colpi.

Lunghetta su Bari per ambo e terno in 14 colpi.

Codice: 
Sub Main()
    ColoreTesto 1
    Scrivi "====================================== M E T O D O BY  ELbaz =======================================",1
    ColoreTesto 0
    Scrivi "=========================== Nove numeri per ambo e/o terno da giocare sulla ruota di Bari ============================",1
    ColoreTesto 1
    Scrivi "================================================= Si gioca per 14 colpi ===========================================",1
    ColoreTesto 0
    Scrivi "===================================== Si è applicata la regola del fuori 90 ========================================",1
    ColoreTesto 0
    Scrivi "================================ In progressione è meglio ====================================",1
    ColoreTesto 1
    Scrivi "==========================================    LISTATO BY  ELBAZ  ==================================================",1
    Scrivi
    ColoreTesto 0
    Dim rt(1),pt(3),n1(9)
    Dim nprogr(14)
    Dim Importi(2,14)
    pt(2) = 2
    pt(3) = 1
    clp = 14 'colpi di gioco
    rt(1) = 1 '1a ruota di gioco
    nprogryesno = CInt(InputBox("vuoi inserire una progressione di puntate ? - 1 : SI * 2 : NO"))
    If nprogryesno = 1 Then
        nprogr(1) = CInt(InputBox("Inserisci la puntata per il 1°colpo * 1 = 1 Euro "))
        nprogr(2) = CInt(InputBox("Inserisci la puntata per il 2°colpo * 1 = 1 Euro "))
        nprogr(3) = CInt(InputBox("Inserisci la puntata per il 3°colpo * 1 = 1 Euro "))
        nprogr(4) = CInt(InputBox("Inserisci la puntata per il 4°colpo * 1 = 1 Euro "))
        nprogr(5) = CInt(InputBox("Inserisci la puntata per il 5°colpo * 1 = 1 Euro "))
        nprogr(6) = CInt(InputBox("Inserisci la puntata per il 6°colpo * 1 = 1 Euro "))
        nprogr(7) = CInt(InputBox("Inserisci la puntata per il 7°colpo * 1 = 1 Euro "))
        nprogr(8) = CInt(InputBox("Inserisci la puntata per il 8°colpo * 1 = 1 Euro "))
        nprogr(9) = CInt(InputBox("Inserisci la puntata per il 9°colpo * 1 = 1 Euro "))
        nprogr(10) = CInt(InputBox("Inserisci la puntata per il 10°colpo * 1 = 1 Euro "))
        nprogr(11) = CInt(InputBox("Inserisci la puntata per il 11°colpo * 1 = 1 Euro "))
        nprogr(12) = CInt(InputBox("Inserisci la puntata per il 12°colpo * 1 = 1 Euro "))
        nprogr(13) = CInt(InputBox("Inserisci la puntata per il 13°colpo * 1 = 1 Euro "))
        nprogr(14) = CInt(InputBox("Inserisci la puntata per il 14°colpo * 1 = 1 Euro "))
        Importi(2,1) = nprogr(1)
        Importi(2,2) = nprogr(2)
        Importi(2,3) = nprogr(3)
        Importi(2,4) = nprogr(4)
        Importi(2,5) = nprogr(5)
        Importi(2,6) = nprogr(6)
        Importi(2,7) = nprogr(7)
        Importi(2,8) = nprogr(8)
        Importi(2,9) = nprogr(9)
        Importi(2,10) = nprogr(10)
        Importi(2,11) = nprogr(11)
        Importi(2,12) = nprogr(12)
        Importi(2,13) = nprogr(13)
        Importi(2,14) = nprogr(14)
    End If
    ini = 8321
    fin = EstrazioneFin
    co = 0
    For es = ini To fin
        Messaggio(es)
        If IndiceMensile(es) = 1 Then '1 Estrazione del mese
            n1(01) = Fuori90(Estratto(es,1,1) + 20) ' 1 Bari
            n1(02) = Fuori90(Estratto(es,1,1) + 76) ' 1 Bari
            n1(03) = Fuori90(Estratto(es,1,1) + 50) ' 1 Bari
            n1(04) = Fuori90(Estratto(es,1,1) + 21) ' 1 Bari
            n1(05) = Fuori90(Estratto(es,1,1) + 77) ' 1 Bari
            n1(06) = Fuori90(Estratto(es,1,1) + 51) ' 1 Bari
            n1(07) = Fuori90(Estratto(es,1,1) + 19) ' 1 Bari
            n1(08) = Fuori90(Estratto(es,1,1) + 75) ' 1 Bari
            n1(09) = Fuori90(Estratto(es,1,1) + 49) ' 1 Bari
            co = co + 1
            Scrivi String(60,"=") & " Caso n° " & co,1
            ImpostaGiocata 1,n1,rt,pt,clp,2
            ImpostaProgressione 1,Importi
            Scrivi "puntate eseguite " & colpi
            Scrivi " - 01 colpo - " & Importi(2,1) & " euro  x ambo "
            Scrivi " - 02 colpo - " & Importi(2,2) & " euro  x ambo"
            Scrivi " - 03 colpo - " & Importi(2,3) & " euro  x ambo"
            Scrivi " - 04 colpo - " & Importi(2,4) & " euro  x ambo"
            Scrivi " - 05 colpo - " & Importi(2,5) & " euro  x ambo"
            Scrivi " - 06 colpo - " & Importi(2,6) & " euro  x ambo"
            Scrivi " - 07 colpo - " & Importi(2,7) & " euro  x ambo"
            Scrivi " - 08 colpo - " & Importi(2,8) & " euro  x ambo"
            Scrivi " - 09 colpo - " & Importi(2,9) & " euro  x ambo"
            Scrivi " - 10 colpo - " & Importi(2,10) & " euro  x ambo"
            Scrivi " - 11 colpo - " & Importi(2,11) & " euro  x ambo"
            Scrivi " - 12 colpo - " & Importi(2,12) & " euro  x ambo"
            Scrivi " - 13 colpo - " & Importi(2,13) & " euro  x ambo"
            Scrivi " - 14 colpo - " & Importi(2,14) & " euro  x ambo"
            Gioca es
        End If
    Next
    Scrivi
    Scrivi "Casi Rilevati " & CInt(co)
    TestoInBandaPassante " *****   Sperate nel fattore Kappa   *****",1,4,0
    ScriviResoconto
End Sub

Tre numeri più i rispettivi laterali maggiori e minori.
Il metodo delle progressioni l'ho copiato da Baffoblu, non sono così bravo.
Grazie Baffo per il tuo lavoro.
 
Ultima modifica:
franca46 ha scritto:
x baffo

ciao baffo non so se è il posto giusto , ma vorrei farti una domanda :
per caso hai fatto il listato del tuo metodino ?
http://forum.lottoced.com/f8/metodino-91049/

grazie

e buon martedi grasso
Clicca per espandere...


Scusa per il ritardo nella risposta, ma non è un tread
in cui entro di frequente ultimamente.
Se postavi direttamente nell'area download principale
ti avrei letto prima....

Ad ogni modo non vedo l'utilità del listato,
dato che il pronostico è sempre fisso,
e la condizione per porlo in gioco è di una
semplicità disarmante.
Non ci sono calcoli da fare, il tutto è basato
su fondamenti statistici nella norma.
Io sono 3 anni che la pongo in essere con successo,
ma dato che la statistica in generale, è nota che
con il tempo tende ad alterarsi leggermente.....
Solo la condizione è originale e particolare,
come quasi tutte le mie idee lottistiche.



ciao

 
Ultima modifica di un moderatore:
Elbaz ha scritto:
Codice: 
Sub Main()
    ColoreTesto 1
    Scrivi "====================================== M E T O D O BY  ELbaz =======================================",1
    ColoreTesto 0
    Scrivi "=========================== Nove numeri per ambo e/o terno da giocare sulla ruota di Bari ============================",1
    ColoreTesto 1
    Scrivi "================================================= Si gioca per 14 colpi ===========================================",1
    ColoreTesto 0
    Scrivi "===================================== Si è applicata la regola del fuori 90 ========================================",1
    ColoreTesto 0
    Scrivi "================================ In progressione è meglio ====================================",1
    ColoreTesto 1
    Scrivi "==========================================    LISTATO BY  ELBAZ  ==================================================",1
    Scrivi
    ColoreTesto 0
    Dim rt(1),pt(3),n1(9)
    Dim nprogr(14)
    Dim Importi(2,14)
    pt(2) = 2
    pt(3) = 1
    clp = 14 'colpi di gioco
    rt(1) = 1 '1a ruota di gioco
    nprogryesno = CInt(InputBox("vuoi inserire una progressione di puntate ? - 1 : SI * 2 : NO"))
    If nprogryesno = 1 Then
        nprogr(1) = CInt(InputBox("Inserisci la puntata per il 1°colpo * 1 = 1 Euro "))
        nprogr(2) = CInt(InputBox("Inserisci la puntata per il 2°colpo * 1 = 1 Euro "))
        nprogr(3) = CInt(InputBox("Inserisci la puntata per il 3°colpo * 1 = 1 Euro "))
        nprogr(4) = CInt(InputBox("Inserisci la puntata per il 4°colpo * 1 = 1 Euro "))
        nprogr(5) = CInt(InputBox("Inserisci la puntata per il 5°colpo * 1 = 1 Euro "))
        nprogr(6) = CInt(InputBox("Inserisci la puntata per il 6°colpo * 1 = 1 Euro "))
        nprogr(7) = CInt(InputBox("Inserisci la puntata per il 7°colpo * 1 = 1 Euro "))
        nprogr(8) = CInt(InputBox("Inserisci la puntata per il 8°colpo * 1 = 1 Euro "))
        nprogr(9) = CInt(InputBox("Inserisci la puntata per il 9°colpo * 1 = 1 Euro "))
        nprogr(10) = CInt(InputBox("Inserisci la puntata per il 10°colpo * 1 = 1 Euro "))
        nprogr(11) = CInt(InputBox("Inserisci la puntata per il 11°colpo * 1 = 1 Euro "))
        nprogr(12) = CInt(InputBox("Inserisci la puntata per il 12°colpo * 1 = 1 Euro "))
        nprogr(13) = CInt(InputBox("Inserisci la puntata per il 13°colpo * 1 = 1 Euro "))
        nprogr(14) = CInt(InputBox("Inserisci la puntata per il 14°colpo * 1 = 1 Euro "))
        Importi(2,1) = nprogr(1)
        Importi(2,2) = nprogr(2)
        Importi(2,3) = nprogr(3)
        Importi(2,4) = nprogr(4)
        Importi(2,5) = nprogr(5)
        Importi(2,6) = nprogr(6)
        Importi(2,7) = nprogr(7)
        Importi(2,8) = nprogr(8)
        Importi(2,9) = nprogr(9)
        Importi(2,10) = nprogr(10)
        Importi(2,11) = nprogr(11)
        Importi(2,12) = nprogr(12)
        Importi(2,13) = nprogr(13)
        Importi(2,14) = nprogr(14)
    End If
    ini = 8321
    fin = EstrazioneFin
    co = 0
    For es = ini To fin
        Messaggio(es)
        If IndiceMensile(es) = 1 Then '1 Estrazione del mese
            n1(01) = Fuori90(Estratto(es,1,1) + 20) ' 1 Bari
            n1(02) = Fuori90(Estratto(es,1,1) + 76) ' 1 Bari
            n1(03) = Fuori90(Estratto(es,1,1) + 50) ' 1 Bari
            n1(04) = Fuori90(Estratto(es,1,1) + 21) ' 1 Bari
            n1(05) = Fuori90(Estratto(es,1,1) + 77) ' 1 Bari
            n1(06) = Fuori90(Estratto(es,1,1) + 51) ' 1 Bari
            n1(07) = Fuori90(Estratto(es,1,1) + 19) ' 1 Bari
            n1(08) = Fuori90(Estratto(es,1,1) + 75) ' 1 Bari
            n1(09) = Fuori90(Estratto(es,1,1) + 49) ' 1 Bari
            co = co + 1
            Scrivi String(60,"=") & " Caso n° " & co,1
            ImpostaGiocata 1,n1,rt,pt,clp,2
            If nprogryesno = 1 Then' Se aggiungi questa riga qui, non ti mostra a video la progressione puntate se non richiesta
            ImpostaProgressione 1,Importi
            Scrivi "puntate eseguite " & colpi
            Scrivi " - 01 colpo - " & Importi(2,1) & " euro  x ambo "
            Scrivi " - 02 colpo - " & Importi(2,2) & " euro  x ambo"
            Scrivi " - 03 colpo - " & Importi(2,3) & " euro  x ambo"
            Scrivi " - 04 colpo - " & Importi(2,4) & " euro  x ambo"
            Scrivi " - 05 colpo - " & Importi(2,5) & " euro  x ambo"
            Scrivi " - 06 colpo - " & Importi(2,6) & " euro  x ambo"
            Scrivi " - 07 colpo - " & Importi(2,7) & " euro  x ambo"
            Scrivi " - 08 colpo - " & Importi(2,8) & " euro  x ambo"
            Scrivi " - 09 colpo - " & Importi(2,9) & " euro  x ambo"
            Scrivi " - 10 colpo - " & Importi(2,10) & " euro  x ambo"
            Scrivi " - 11 colpo - " & Importi(2,11) & " euro  x ambo"
            Scrivi " - 12 colpo - " & Importi(2,12) & " euro  x ambo"
            Scrivi " - 13 colpo - " & Importi(2,13) & " euro  x ambo"
            Scrivi " - 14 colpo - " & Importi(2,14) & " euro  x ambo"
            End If' inoltre devi anche aggiungere questa riga
            Gioca es
        End If
    Next
    Scrivi
    Scrivi "Casi Rilevati " & CInt(co)
    TestoInBandaPassante " *****   Sperate nel fattore Kappa   *****",1,4,0
    ScriviResoconto
End Sub

Tre numeri più i rispettivi laterali maggiori e minori.
Il metodo delle progressioni l'ho copiato da Baffoblu, non sono così bravo.
Grazie Baffo per il tuo lavoro.
Clicca per espandere...




Ciao ti ho aggiunto due righe (quelle Remmate in verde). :)
 
Baffoblu ha scritto:
Scusa per il ritardo nella risposta, ma non è un tread
in cui entro di frequente ultimamente.
Se postavi direttamente nell'area download principale
ti avrei letto prima....

Ad ogni modo non vedo l'utilità del listato,
dato che il pronostico è sempre fisso,
e la condizione per porlo in gioco è di una
semplicità disarmante.
Non ci sono calcoli da fare, il tutto è basato
su fondamenti statistici nella norma.
Io sono 3 anni che la pongo in essere con successo,
ma dato che la statistica in generale, è nota che
con il tempo tende ad alterarsi leggermente.....
Solo la condizione è originale e particolare,
come quasi tutte le mie idee lottistiche.



ciao
Clicca per espandere...

ciao baffo

si lo so , hai perfettamente ragione ,

scusa per il posto sbagliato.

alla prossima , buona giornata
 
Baffoblu ha scritto:
Ciao ti ho aggiunto due righe (quelle Remmate in verde). :)
Clicca per espandere...

Grazie BaffoBlu ogni aggiunta migliora la conoscenza degli script.
Questo sistema di gioco non è stato calcolato (tipo spaziometria per intenderci) ma impostato "a mano" con riferimento ottobre 2011 e come si vede ha dato esiti
anche successivi pure con terno.
Speriamo in febbraio ora.
Certo un ambo in lunghetta di nove numeri paga 6,486 nette per euro giocato mentre il terno 50,3558 nette sempre per euro giocato, non sono proprio vincite clamorose.
nettamente più interessante la quaterna ma qui si fa un po' difficile.
Credo comunque che il discorso dei laterali maggiori e minori sia piuttosto interessante ( questo concetto l'ho appreso da IB63).

Si potrebbe tentare ed ora proverò a fare lo script a giocare tre terni con questo sistema:
prendiamo in considerazione febbraio

77.43.17 impostazione base
78.44.18 laterali maggiori
76.42.16 laterali minori

ora giocati così secondo me non vanno bene occorre mischiarli tipo:

77.43.78
17.44.76
18.42.16
 
Ultima modifica:
Elbaz ha scritto:
Grazie BaffoBlu ogni aggiunta migliora la conoscenza degli script.
Questo sistema di gioco non è stato calcolato (tipo spaziometria per intenderci) ma impostato "a mano" con riferimento ottobre 2011 e come si vede ha dato esiti
anche successivi pure con terno.
Speriamo in febbraio ora.
Certo un ambo in lunghetta di nove numeri paga 6,486 nette per euro giocato mentre il terno 50,3558 nette sempre per euro giocato, non sono proprio vincite clamorose.
nettamente più interessante la quaterna ma qui si fa un po' difficile.
Credo comunque che il discorso dei laterali maggiori e minori sia piuttosto interessante ( questo concetto l'ho appreso da IB63).

Si potrebbe tentare ed ora proverò a fare lo script a giocare tre terni con questo sistema:
prendiamo in considerazione febbraio

77.43.17 impostazione base
78.44.18 laterali maggiori
76.42.16 laterali minori

ora giocati così secondo me non vanno bene occorre mischiarli tipo:

77.43.78
17.44.76
18.42.16
Clicca per espandere...



Aldilà di tutto, mi sento in dovere di dirti che il concetto dei "Laterali",

è frutto del sacco del Prof. Pazzaglia.

Concetto espresso già molti anni fa.

Ci tenevo a dare a Cesare quel che è di Cesare.....

:)
 
Ciao
Il discorso dei terni non funziona bene:
gli script vengono bene ma è il concetto base che non da buoni risultati.

Ti ringrazio per la precisazione in effetti mi sono espresso male, intendevo dire che qui sul forum io l'ho letto su un post di IB63.:D
 
Ultima modifica:
Ambi spia su Bari...


Codice: 
' Se usate L8 o lottodesk, mettere l'Apice (') prima di...Testoinbandapassante
Sub Main()
	TestoInBandaPassante "L'AMBO SPIA METTE IN GIOCO 1 AMBATA E UN AMBO SECCO",1,5,1
	TestoInBandaPassante "°°°°°°°°°° METODO E LISTATO BY BLACKMORE °°°°°°°°°°",1,5,1
	Scrivi
	Dim ruota(10)
	Dim ruote(1)
	Dim amb(2)
	Dim ambata(1)
	Dim ambo(2)
	Dim posta(1)
	Dim poste(2)
	posta(1) = 1
	poste(2) = 1
	ruo = CInt(InputBox("RUOTA DI RILEVAMENTO?",,1))
	ruo1 = CInt(InputBox("RUOTA DI GIOCO?",,1))
	ee = CInt(InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE?",,1200))
	k = CInt(InputBox("INSERISCI I COLPI DI GIOCO",,8))
	co = 0
	fin = EstrazioneFin
	ini = EstrazioneFin - ee
	For es = ini To fin
		AvanzamentoElab ini,fin,es
		For p = 1 To 4
			For p1 = p + 1 To 5
				a = Estratto(es,ruo,p)
				b = Estratto(es,ruo,p1)
				ok = 0
				If a = 36 And b = 54 Or a = 54 And b = 36 Then
					amb(1) = Fuori90(Decina(Estratto(es,NZ_,2)) + Cadenza(Estratto(es,NZ_,2)) + Estratto(es,BA_,5) + 88)
					amb(2) = Fuori90(Decina(Estratto(es,VE_,3)) + Cadenza(Estratto(es,VE_,3)) + Estratto(es,MI_,1) + 04)
					ok = 1
				End If
				If a = 01 And b = 02 Or a = 02 And b = 01 Then
					amb(1) = Fuori90(DiametraleD(Estratto(es,BA_,1)) + Estratto(es,VE_,2) + 03)
					amb(2) = Fuori90(Vert(Estratto(es,FI_,2)) + Estratto(es,BA_,1) + 02)
					ok = 1
				End If
				If a = 01 And b = 15 Or a = 15 And b = 01 Then
					amb(1) = Fuori90(DiametraleD(Estratto(es,PA_,1)) + Estratto(es,RO_,1) + 22)
					amb(2) = Fuori90(Vert(Estratto(es,FI_,1)) + Estratto(es,BA_,1) + 01)
					ok = 1
				End If
				If a = 01 And b = 60 Or a = 60 And b = 01 Then
					amb(1) = Fuori90(DiametraleD(Estratto(es,MI_,5)) + Estratto(es,RO_,3) + 13)
					amb(2) = Fuori90(Decina(Estratto(es,GE_,5)) + Estratto(es,PA_,3) + 74)
					ok = 1
				End If
				If a = 02 And b = 48 Or a = 48 And b = 02 Then
					amb(1) = Fuori90(Cadenza(Estratto(es,PA_,3)) + Estratto(es,GE_,2) + 53)
					amb(2) = Fuori90(Decina(Estratto(es,GE_,4)) + Cadenza(Estratto(es,GE_,4)) + Estratto(es,NA_,1) + 03)
					ok = 1
				End If
				If a = 03 And b = 14 Or a = 14 And b = 03 Then
					amb(1) = Fuori90(Vert(Estratto(es,VE_,2)) + Estratto(es,PA_,2) + 81)
					amb(2) = Fuori90(90 -(Estratto(es,FI_,3)) + Estratto(es,NZ_,4) + 01)
					ok = 1
				End If
				If a = 03 And b = 62 Or a = 62 And b = 03 Then
					amb(1) = Fuori90(Cadenza(Estratto(es,TO_,4)) + Estratto(es,TO_,3) + 42)
					amb(2) = Fuori90(Diametrale(Estratto(es,MI_,3)) + Estratto(es,VE_,2) + 03)
					ok = 1
				End If
				If a = 22 And b = 57 Or a = 57 And b = 22 Then
					amb(1) = Fuori90(Decina(Estratto(es,NA_,1)) + Cadenza(Estratto(es,NA_,1)) + Estratto(es,VE_,2) + 53)
					amb(2) = Fuori90(90 -(Estratto(es,MI_,3)) + Estratto(es,CA_,2) + 01)
					ok = 1
				End If
				If a = 17 And b = 52 Or a = 52 And b = 17 Then
					amb(1) = Fuori90(Estratto(es,CA_,2) + Estratto(es,FI_,1) + 16)
					amb(2) = Fuori90(90 -(Estratto(es,TO_,5)) + Estratto(es,BA_,1) + 46)
					ok = 1
				End If
				If a = 09 And b = 28 Or a = 28 And b = 09 Then
					amb(1) = Fuori90(90 -(Estratto(es,PA_,3)) + Estratto(es,NZ_,5) + 01)
					amb(2) = Fuori90(Cadenza(Estratto(es,VE_,2)) + Decina(Estratto(es,VE_,2)) + Estratto(es,GE_,3) + 66)
					ok = 1
				End If
				If a = 35 And b = 52 Or a = 52 And b = 35 Then
					amb(1) = Fuori90(Diametrale(Estratto(es,FI_,2)) + Estratto(es,BA_,3) + 15)
					amb(2) = Fuori90(Cadenza(Estratto(es,PA_,2)) + Estratto(es,MI_,5) + 02)
					ok = 1
				End If
				If a = 44 And b = 65 Or a = 65 And b = 44 Then
					amb(1) = Fuori90(DiametraleD(Estratto(es,NA_,4)) + Estratto(es,NA_,5) + 13)
					amb(2) = Fuori90(Cadenza(Estratto(es,RO_,2)) + Decina(Estratto(es,RO_,2)) + 01)
					ok = 1
				End If
				If a = 76 And b = 81 Or a = 81 And b = 76 Then
					amb(1) = Fuori90(Estratto(es,CA_,1) + Estratto(es,PA_,5) + 08)
					amb(2) = Fuori90(Cadenza(Estratto(es,TO_,3)) + Estratto(es,MI_,5) + 01)
					ok = 1
				End If
				If a = 30 And b = 34 Or a = 34 And b = 30 Then
					amb(1) = Fuori90(90 -(Estratto(es,RO_,3)) + Estratto(es,MI_,5) + 32)
					amb(2) = Fuori90(Estratto(es,BA_,2) + Estratto(es,GE_,2) + 02)
					ok = 1
				End If
				If a = 46 And b = 82 Or a = 82 And b = 46 Then
					amb(1) = Fuori90(Estratto(es,RO_,1) + Estratto(es,RO_,1) + 12)
					amb(2) = Fuori90(Estratto(es,VE_,4) + Estratto(es,RO_,3) + 27)
					ok = 1
				End If
				If a = 38 And b = 63 Or a = 63 And b = 38 Then
					amb(1) = Fuori90(Decina(Estratto(es,TO_,4)) + Cadenza(Estratto(es,TO_,4)) + Estratto(es,RO_,2) + 14)
					amb(2) = Fuori90(DiametraleD(Estratto(es,VE_,3)) + Estratto(es,RO_,4) + 04)
					ok = 1
				End If
				If a = 24 And b = 90 Or a = 90 And b = 24 Then
					amb(1) = Fuori90(Decina(Estratto(es,MI_,5)) + Cadenza(Estratto(es,MI_,5)) + Estratto(es,MI_,3) + 78)
					amb(2) = Fuori90(Vert(Estratto(es,TO_,2)) + Estratto(es,FI_,5) + 29)
					ok = 1
				End If
				If a = 47 And b = 72 Or a = 72 And b = 47 Then
					amb(1) = Fuori90(Decina(Estratto(es,FI_,3)) + Estratto(es,FI_,2) + 16)
					amb(2) = Fuori90(Cadenza(Estratto(es,BA_,4)) + Estratto(es,FI_,4) + 01)
					ok = 1
				End If
				If a = 18 And b = 90 Or a = 90 And b = 18 Then
					amb(1) = Fuori90(DiametraleD(Estratto(es,VE_,1)) + Estratto(es,NA_,3) + 18)
					amb(2) = Fuori90(Decina(Estratto(es,FI_,3)) + Estratto(es,NA_,4) + 27)
					ok = 1
				End If
				If a = 37 And b = 70 Or a = 70 And b = 37 Then
					amb(1) = Fuori90(90 -(Estratto(es,MI_,3)) + Estratto(es,RO_,1) + 53)
					amb(2) = Fuori90(Decina(Estratto(es,FI_,3)) + Estratto(es,PA_,1) + 04)
					ok = 1
				End If
				If a = 66 And b = 89 Or a = 89 And b = 66 Then
					amb(1) = Fuori90(Figura(Estratto(es,NA_,3)) + Estratto(es,TO_,5) + 88)
					amb(2) = Fuori90(90 -(Estratto(es,CA_,1)) + Estratto(es,NZ_,4) + 01)
					ok = 1
				End If
				If a = 23 And b = 90 Or a = 90 And b = 23 Then
					amb(1) = Fuori90(Cadenza(Estratto(es,RO_,3)) + Estratto(es,VE_,4) + 13)
					amb(2) = Fuori90(Estratto(es,CA_,5) + Estratto(es,GE_,3) + 01)
					ok = 1
				End If
				If a = 64 And b = 69 Or a = 69 And b = 64 Then
					amb(1) = Fuori90(Figura(Estratto(es,RO_,1)) + Estratto(es,VE_,5) + 12)
					amb(2) = Fuori90(Figura(Estratto(es,CA_,5)) + Estratto(es,CA_,1) + 22)
					ok = 1
				End If
				If a = 22 And b = 58 Or a = 58 And b = 22 Then
					amb(1) = Fuori90(90 -(Estratto(es,BA_,4)) + Estratto(es,VE_,4) + 08)
					amb(2) = Fuori90(Cadenza(Estratto(es,RO_,2)) + Estratto(es,FI_,4) + 01)
					ok = 1
				End If
				If a = 51 And b = 71 Or a = 71 And b = 51 Then
					amb(1) = Fuori90(Estratto(es,NA_,4) + Estratto(es,RO_,4) + 27)
					amb(2) = Fuori90(Diametrale(Estratto(es,BA_,3)) + Estratto(es,FI_,5) + 14)
					ok = 1
				End If
				If a = 33 And b = 43 Or a = 43 And b = 33 Then
					amb(1) = Fuori90(Figura(Estratto(es,NA_,1)) + Estratto(es,TO_,1) + 57)
					amb(2) = Fuori90(Vert(Estratto(es,NA_,2)) + Estratto(es,GE_,3) + 02)
					ok = 1
				End If
				If ok = 1 Then
					co = co + 1
					ColoreTesto 0
					Scrivi String(106,"§") & " Caso n°" & co,1
					ColoreTesto 1
					Scrivi String(20," ") & " " & DataEstrazione(es) & "  <>  " & SiglaRuota(ruo) & "  <>  " & StringaEstratti(es,ruo) & "  <>  AMBO SPIA  <>  " & a & " - " & b,1
					ColoreTesto 0
					Scrivi String(106,"§"),1
					ruota(1) = ruo1
					cg = 0
					ambata(1) = amb(1)
					cg = cg + 1
					ImpostaGiocata cg,ambata,ruota,posta,k
					ambo(1) = amb(1)
					ambo(2) = amb(2)
					cg = cg + 1
					ImpostaGiocata cg,ambo,ruota,poste,k,2
					Gioca es
				End If
			Next
		Next
	Next
	ScriviResoconto
End Sub
 
Ciao gamberorosso ti riferisci al link Raccolta script by Danilo CSI , giusto e' questo che ti serve , fammi sapere , ciao.

 
Ciao gamberorosso ti mando un pacchetto dove trovi quello che ti serve piu' tantissimi altri script :



La password per il file scaricato e' : rabberto , spero ti sia stato di aiuto , ciao .
 
Ultima modifica:
blackmore ha scritto:
ambi spia su bari...


Codice: 
' se usate l8 o lottodesk, mettere l'apice (') prima di...testoinbandapassante
sub main()
    testoinbandapassante "l'ambo spia mette in gioco 1 ambata e un ambo secco",1,5,1
    testoinbandapassante "°°°°°°°°°° metodo e listato by blackmore °°°°°°°°°°",1,5,1
    scrivi
    dim ruota(10)
    dim ruote(1)
    dim amb(2)
    dim ambata(1)
    dim ambo(2)
    dim posta(1)
    dim poste(2)
    posta(1) = 1
    poste(2) = 1
    ruo = cint(inputbox("ruota di rilevamento?",,1))
    ruo1 = cint(inputbox("ruota di gioco?",,1))
    ee = cint(inputbox("quante estrazioni vuoi controllare?",,1200))
    k = cint(inputbox("inserisci i colpi di gioco",,8))
    co = 0
    fin = estrazionefin
    ini = estrazionefin - ee
    for es = ini to fin
        avanzamentoelab ini,fin,es
        for p = 1 to 4
            for p1 = p + 1 to 5
                a = estratto(es,ruo,p)
                b = estratto(es,ruo,p1)
                ok = 0
                if a = 36 and b = 54 or a = 54 and b = 36 then
                    amb(1) = fuori90(decina(estratto(es,nz_,2)) + cadenza(estratto(es,nz_,2)) + estratto(es,ba_,5) + 88)
                    amb(2) = fuori90(decina(estratto(es,ve_,3)) + cadenza(estratto(es,ve_,3)) + estratto(es,mi_,1) + 04)
                    ok = 1
                end if
                if a = 01 and b = 02 or a = 02 and b = 01 then
                    amb(1) = fuori90(diametraled(estratto(es,ba_,1)) + estratto(es,ve_,2) + 03)
                    amb(2) = fuori90(vert(estratto(es,fi_,2)) + estratto(es,ba_,1) + 02)
                    ok = 1
                end if
                if a = 01 and b = 15 or a = 15 and b = 01 then
                    amb(1) = fuori90(diametraled(estratto(es,pa_,1)) + estratto(es,ro_,1) + 22)
                    amb(2) = fuori90(vert(estratto(es,fi_,1)) + estratto(es,ba_,1) + 01)
                    ok = 1
                end if
                if a = 01 and b = 60 or a = 60 and b = 01 then
                    amb(1) = fuori90(diametraled(estratto(es,mi_,5)) + estratto(es,ro_,3) + 13)
                    amb(2) = fuori90(decina(estratto(es,ge_,5)) + estratto(es,pa_,3) + 74)
                    ok = 1
                end if
                if a = 02 and b = 48 or a = 48 and b = 02 then
                    amb(1) = fuori90(cadenza(estratto(es,pa_,3)) + estratto(es,ge_,2) + 53)
                    amb(2) = fuori90(decina(estratto(es,ge_,4)) + cadenza(estratto(es,ge_,4)) + estratto(es,na_,1) + 03)
                    ok = 1
                end if
                if a = 03 and b = 14 or a = 14 and b = 03 then
                    amb(1) = fuori90(vert(estratto(es,ve_,2)) + estratto(es,pa_,2) + 81)
                    amb(2) = fuori90(90 -(estratto(es,fi_,3)) + estratto(es,nz_,4) + 01)
                    ok = 1
                end if
                if a = 03 and b = 62 or a = 62 and b = 03 then
                    amb(1) = fuori90(cadenza(estratto(es,to_,4)) + estratto(es,to_,3) + 42)
                    amb(2) = fuori90(diametrale(estratto(es,mi_,3)) + estratto(es,ve_,2) + 03)
                    ok = 1
                end if
                if a = 22 and b = 57 or a = 57 and b = 22 then
                    amb(1) = fuori90(decina(estratto(es,na_,1)) + cadenza(estratto(es,na_,1)) + estratto(es,ve_,2) + 53)
                    amb(2) = fuori90(90 -(estratto(es,mi_,3)) + estratto(es,ca_,2) + 01)
                    ok = 1
                end if
                if a = 17 and b = 52 or a = 52 and b = 17 then
                    amb(1) = fuori90(estratto(es,ca_,2) + estratto(es,fi_,1) + 16)
                    amb(2) = fuori90(90 -(estratto(es,to_,5)) + estratto(es,ba_,1) + 46)
                    ok = 1
                end if
                if a = 09 and b = 28 or a = 28 and b = 09 then
                    amb(1) = fuori90(90 -(estratto(es,pa_,3)) + estratto(es,nz_,5) + 01)
                    amb(2) = fuori90(cadenza(estratto(es,ve_,2)) + decina(estratto(es,ve_,2)) + estratto(es,ge_,3) + 66)
                    ok = 1
                end if
                if a = 35 and b = 52 or a = 52 and b = 35 then
                    amb(1) = fuori90(diametrale(estratto(es,fi_,2)) + estratto(es,ba_,3) + 15)
                    amb(2) = fuori90(cadenza(estratto(es,pa_,2)) + estratto(es,mi_,5) + 02)
                    ok = 1
                end if
                if a = 44 and b = 65 or a = 65 and b = 44 then
                    amb(1) = fuori90(diametraled(estratto(es,na_,4)) + estratto(es,na_,5) + 13)
                    amb(2) = fuori90(cadenza(estratto(es,ro_,2)) + decina(estratto(es,ro_,2)) + 01)
                    ok = 1
                end if
                if a = 76 and b = 81 or a = 81 and b = 76 then
                    amb(1) = fuori90(estratto(es,ca_,1) + estratto(es,pa_,5) + 08)
                    amb(2) = fuori90(cadenza(estratto(es,to_,3)) + estratto(es,mi_,5) + 01)
                    ok = 1
                end if
                if a = 30 and b = 34 or a = 34 and b = 30 then
                    amb(1) = fuori90(90 -(estratto(es,ro_,3)) + estratto(es,mi_,5) + 32)
                    amb(2) = fuori90(estratto(es,ba_,2) + estratto(es,ge_,2) + 02)
                    ok = 1
                end if
                if a = 46 and b = 82 or a = 82 and b = 46 then
                    amb(1) = fuori90(estratto(es,ro_,1) + estratto(es,ro_,1) + 12)
                    amb(2) = fuori90(estratto(es,ve_,4) + estratto(es,ro_,3) + 27)
                    ok = 1
                end if
                if a = 38 and b = 63 or a = 63 and b = 38 then
                    amb(1) = fuori90(decina(estratto(es,to_,4)) + cadenza(estratto(es,to_,4)) + estratto(es,ro_,2) + 14)
                    amb(2) = fuori90(diametraled(estratto(es,ve_,3)) + estratto(es,ro_,4) + 04)
                    ok = 1
                end if
                if a = 24 and b = 90 or a = 90 and b = 24 then
                    amb(1) = fuori90(decina(estratto(es,mi_,5)) + cadenza(estratto(es,mi_,5)) + estratto(es,mi_,3) + 78)
                    amb(2) = fuori90(vert(estratto(es,to_,2)) + estratto(es,fi_,5) + 29)
                    ok = 1
                end if
                if a = 47 and b = 72 or a = 72 and b = 47 then
                    amb(1) = fuori90(decina(estratto(es,fi_,3)) + estratto(es,fi_,2) + 16)
                    amb(2) = fuori90(cadenza(estratto(es,ba_,4)) + estratto(es,fi_,4) + 01)
                    ok = 1
                end if
                if a = 18 and b = 90 or a = 90 and b = 18 then
                    amb(1) = fuori90(diametraled(estratto(es,ve_,1)) + estratto(es,na_,3) + 18)
                    amb(2) = fuori90(decina(estratto(es,fi_,3)) + estratto(es,na_,4) + 27)
                    ok = 1
                end if
                if a = 37 and b = 70 or a = 70 and b = 37 then
                    amb(1) = fuori90(90 -(estratto(es,mi_,3)) + estratto(es,ro_,1) + 53)
                    amb(2) = fuori90(decina(estratto(es,fi_,3)) + estratto(es,pa_,1) + 04)
                    ok = 1
                end if
                if a = 66 and b = 89 or a = 89 and b = 66 then
                    amb(1) = fuori90(figura(estratto(es,na_,3)) + estratto(es,to_,5) + 88)
                    amb(2) = fuori90(90 -(estratto(es,ca_,1)) + estratto(es,nz_,4) + 01)
                    ok = 1
                end if
                if a = 23 and b = 90 or a = 90 and b = 23 then
                    amb(1) = fuori90(cadenza(estratto(es,ro_,3)) + estratto(es,ve_,4) + 13)
                    amb(2) = fuori90(estratto(es,ca_,5) + estratto(es,ge_,3) + 01)
                    ok = 1
                end if
                if a = 64 and b = 69 or a = 69 and b = 64 then
                    amb(1) = fuori90(figura(estratto(es,ro_,1)) + estratto(es,ve_,5) + 12)
                    amb(2) = fuori90(figura(estratto(es,ca_,5)) + estratto(es,ca_,1) + 22)
                    ok = 1
                end if
                if a = 22 and b = 58 or a = 58 and b = 22 then
                    amb(1) = fuori90(90 -(estratto(es,ba_,4)) + estratto(es,ve_,4) + 08)
                    amb(2) = fuori90(cadenza(estratto(es,ro_,2)) + estratto(es,fi_,4) + 01)
                    ok = 1
                end if
                if a = 51 and b = 71 or a = 71 and b = 51 then
                    amb(1) = fuori90(estratto(es,na_,4) + estratto(es,ro_,4) + 27)
                    amb(2) = fuori90(diametrale(estratto(es,ba_,3)) + estratto(es,fi_,5) + 14)
                    ok = 1
                end if
                if a = 33 and b = 43 or a = 43 and b = 33 then
                    amb(1) = fuori90(figura(estratto(es,na_,1)) + estratto(es,to_,1) + 57)
                    amb(2) = fuori90(vert(estratto(es,na_,2)) + estratto(es,ge_,3) + 02)
                    ok = 1
                end if
                if ok = 1 then
                    co = co + 1
                    coloretesto 0
                    scrivi string(106,"§") & " caso n°" & co,1
                    coloretesto 1
                    scrivi string(20," ") & " " & dataestrazione(es) & "  <>  " & siglaruota(ruo) & "  <>  " & stringaestratti(es,ruo) & "  <>  ambo spia  <>  " & a & " - " & b,1
                    coloretesto 0
                    scrivi string(106,"§"),1
                    ruota(1) = ruo1
                    cg = 0
                    ambata(1) = amb(1)
                    cg = cg + 1
                    impostagiocata cg,ambata,ruota,posta,k
                    ambo(1) = amb(1)
                    ambo(2) = amb(2)
                    cg = cg + 1
                    impostagiocata cg,ambo,ruota,poste,k,2
                    gioca es
                end if
            next
        next
    next
    scriviresoconto
end sub
Clicca per espandere...


come al solito ambo secco 57-37 su bari
grazie blekmore
 
Blackmore ha scritto:
Scrivi : Scrivi"QUESTO SCRIPT CALCOLA DOPO L'USCITA DI UN AMBO SPIA, LE AMBATE E GLI AMBI PIù FREQUENTI SU RUOTA E SU TUTTE (Con InputBox)"

Sub main()
Dim ru(2),ru1(10),r,nt(90,2),nrr(90,2),ambrr(4005,5),nr(2),rt(1)
Dim n(90,2),ambi(4005,5),nn(2),ambi1(4005,5),nn1(2)
n1=CInt(InputBox("QUAL'E' IL PRIMO NUMERO ?","SPIA n° 1^",1))
n2=CInt(InputBox("QUAL'E' IL SECONDO NUMERO ?","SPIA n° 2^",3))
r=CInt(InputBox("La Ruota scelta ? (Dove son sortite le Spie)","RUOTA",3))
rut=CInt (InputBox ("Che Ruota vuoi Esaminare con i frequenti?","SCELTA RUOTA",3))
rt(1)=rut
ee=CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO A RITROSO?","ESTRAZIONI",2000))
clp=CInt(InputBox("QUANTI COLPI?","COLPI di GIOCO",10))
ru1(1)=11
fin=EstrazioneFin
ini=EstrazioneFin-ee
For cc=1 To 90
For w=1 To 2
n(cc,w)=0 : nt(cc,w)=0 : nrr(cc,w)=0
Next
Next
co=0 : casi=0
For es=ini To fin
Messaggio " Spia: "&n1&"-"&n2&" Estrazione : "&es
If (Posizione(es,r,n1)>0 And Posizione(es,r,n2)>0)Then
Scrivi DataEstrazione (es)&" "& SiglaRuota (r)&" "& StringaEstratti (es,r)&" "& n1&"_"& n2
casi=casi+1
ess=es+clp
If ess>fin Then ess=fin End If
For x=es+1 To ess
cc=0
For pp=1 To 5
d=Estratto(x,r,pp)
e=Estratto(x,rut,pp)
n(d,1)=d
nrr(e,1)=e
n(d,2)=n(d,2)+1
nrr(e,2)=nrr(e,2)+1 '<<<
Next
For rr=1 To 10
For p1=1 To 5
g=Estratto (x,rr,p1)
nt(g,1)=g
nt(g,2)=nt(g,2)+1
Next
Next
Next
co=0
For x=1 To 90
For y=x+1 To 90
co=co+1
nn(1)=x : nn(2)=y : ru(1)=r
ambi(co,1)=co : ambi(co,2)=x : ambi(co,3)=y
yy=SerieFreq(es+1,ess,nn,ru,2)
ambi(co,4)=ambi(co,4)+ yy
If yy>0 Then
ambi(co,5)=ambi(co,5)+ 1
Else
ambi(co,5)=ambi(co,5)
End If
nn1(1)=x : nn1(2)=y
ambi1(co,1)=co : ambi1(co,2)=x : ambi1(co,3)=y
xx=SerieFreq(es+1,ess,nn1,ru1,2)
ambi1(co,4)=ambi1(co,4)+ xx
If xx>0 Then
ambi1(co,5)=ambi1(co,5)+ 1
Else
ambi1(co,5)=ambi1(co,5)
End If
nr(1)=x : nr(2)=y
ambrr(co,1)=co : ambrr(co,2)=x : ambrr(co,3)=y
kk=SerieFreq(es+1,ess,nr,rt,2)
ambrr(co,4)=ambrr(co,4)+ kk
If kk>0 Then
ambrr(co,5)=ambrr(co,5)+ 1
Else
ambrr(co,5)=ambrr(co,5)
End If
Next
Next
End If
Next
Scrivi
Scrivi "Analisi dal "& DataEstrazione(ini)&" al "& DataEstrazione(EstrazioneFin),1
Scrivi
Scrivi "AMBO SPIA "&Cint(n1)&" e " &cint (n2)& " Su Ruota Unica" ,1
Scrivi
Scrivi NomeRuota (r),1
Scrivi "N° casi: "&Cint(casi),1 : Scrivi
Scrivi " Frequenti nei "&clp&" colpi successivi",1
OrdinaMatrice n,-1,2
OrdinaMatrice ambi,-1,5
OrdinaMatrice ambi1,-1,5
OrdinaMatrice nt,-1,2
OrdinaMatrice nrr,-1,2
OrdinaMatrice ambrr,-1,5
ColoreTesto 2
Scrivi
Scrivi "Nu.Ruota |Ambi a Ruota|Ambi Tutte| Nu. Tutte "
ColoreTesto 2
Scrivi " N° Fr | Ambo Freq | Ambo Fr | N°. Fr "
ColoreTesto 0
For x=1 To 10
riga=" "& Format2(n(x,1))&"..."& Format2(n(x,2))&" | "&Format2(ambi(x,2))&"-"&_
Format2(ambi(x,3))&"..."& Format2(ambi(x,5))&" | "&_
Format2(ambi1(x,2))&"-"& Format2(ambi1(x,3))&"..."&ambi1(x,5)&" | "& Format2(nt(x,1))&"..."&_
Format2 (nt(x,2))
Scrivi riga
riga=""
Next
Scrivi String (65,"*")
ColoreTesto 1
Scrivi "SELEZIONE RUOTA di "& NomeRuota (rt(1))
Scrivi "Nu.Ruota | Ambi a Ruota"
ColoreTesto 2
Scrivi " N° Fr | Ambo Freq "
ColoreTesto 0
For x=1 To 10
rige=" "& Format2(nrr(x,1))&"..."& Format2(nrr(x,2))&" | "& Format2(ambrr(x,2))&"-"&_
Format2(ambrr(x,3))&"..."& Format2(ambrr(x,5))
Scrivi rige
rige=""
Next
Scrivi String (65,"*")
End Sub



Blackmore
Clicca per espandere...

Ciao Black , lo script mi da errore in questo punto , potresti aiutarmi?. Grazie:)

r(2),rt(1) ( mi dice che questo pezzo non va bene)
 
Visto che il grande Black si sta' godendo le meritate vacanze lo script dovrebbe essere cosi'...
Ciauz



Codice: 
Scrivi : Scrivi"QUESTO SCRIPT CALCOLA DOPO L'USCITA DI UN AMBO SPIA, LE AMBATE E GLI AMBI PIù FREQUENTI SU RUOTA E SU TUTTE (Con InputBox)"

Sub main()
Dim ru(2),ru1(10),r,nt(90,2),nrr(90,2),ambrr(4005,5),nr(2),rt(1)
Dim n(90,2),ambi(4005,5),nn(2),ambi1(4005,5),nn1(2)
n1=CInt(InputBox("QUAL'E' IL PRIMO NUMERO ?","SPIA n° 1^",1))
n2=CInt(InputBox("QUAL'E' IL SECONDO NUMERO ?","SPIA n° 2^",3))
r=CInt(InputBox("La Ruota scelta ? (Dove son sortite le Spie)","RUOTA",3))
rut=CInt (InputBox ("Che Ruota vuoi Esaminare con i frequenti?","SCELTA RUOTA",3))
rt(1)=rut
ee=CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO A RITROSO?","ESTRAZIONI",2000))
clp=CInt(InputBox("QUANTI COLPI?","COLPI di GIOCO",10))
ru1(1)=11
fin=EstrazioneFin
ini=EstrazioneFin-ee
For cc=1 To 90
For w=1 To 2
n(cc,w)=0 : nt(cc,w)=0 : nrr(cc,w)=0
Next
Next
co=0 : casi=0
For es=ini To fin
Messaggio " Spia: "&n1&"-"&n2&" Estrazione : "&es
If (Posizione(es,r,n1)>0 And Posizione(es,r,n2)>0)Then
Scrivi DataEstrazione (es)&" "& SiglaRuota (r)&" "& StringaEstratti (es,r)&" "& n1&"_"& n2
casi=casi+1
ess=es+clp
If ess>fin Then ess=fin End If
For x=es+1 To ess
cc=0
For pp=1 To 5
d=Estratto(x,r,pp)
e=Estratto(x,rut,pp)
n(d,1)=d
nrr(e,1)=e
n(d,2)=n(d,2)+1
nrr(e,2)=nrr(e,2)+1 '<<<
Next
For rr=1 To 10
For p1=1 To 5
g=Estratto (x,rr,p1)
nt(g,1)=g
nt(g,2)=nt(g,2)+1
Next
Next
Next
co=0
For x=1 To 90
For y=x+1 To 90
co=co+1
nn(1)=x : nn(2)=y : ru(1)=r
ambi(co,1)=co : ambi(co,2)=x : ambi(co,3)=y
yy=SerieFreq(es+1,ess,nn,ru,2)
ambi(co,4)=ambi(co,4)+ yy
If yy>0 Then
ambi(co,5)=ambi(co,5)+ 1
Else
ambi(co,5)=ambi(co,5)
End If
nn1(1)=x : nn1(2)=y
ambi1(co,1)=co : ambi1(co,2)=x : ambi1(co,3)=y
xx=SerieFreq(es+1,ess,nn1,ru1,2)
ambi1(co,4)=ambi1(co,4)+ xx
If xx>0 Then
ambi1(co,5)=ambi1(co,5)+ 1
Else
ambi1(co,5)=ambi1(co,5)
End If
nr(1)=x : nr(2)=y
ambrr(co,1)=co : ambrr(co,2)=x : ambrr(co,3)=y
kk=SerieFreq(es+1,ess,nr,rt,2)
ambrr(co,4)=ambrr(co,4)+ kk
If kk>0 Then
ambrr(co,5)=ambrr(co,5)+ 1
Else
ambrr(co,5)=ambrr(co,5)
End If
Next
Next
End If
Next
Scrivi
Scrivi "Analisi dal "& DataEstrazione(ini)&" al "& DataEstrazione(EstrazioneFin),1
Scrivi
Scrivi "AMBO SPIA "&Cint(n1)&" e " &cint (n2)& " Su Ruota Unica" ,1
Scrivi
Scrivi NomeRuota (r),1
Scrivi "N° casi: "&Cint(casi),1 : Scrivi
Scrivi " Frequenti nei "&clp&" colpi successivi",1
OrdinaMatrice n,-1,2
OrdinaMatrice ambi,-1,5
OrdinaMatrice ambi1,-1,5
OrdinaMatrice nt,-1,2
OrdinaMatrice nrr,-1,2
OrdinaMatrice ambrr,-1,5
ColoreTesto 2
Scrivi
Scrivi "Nu.Ruota |Ambi a Ruota|Ambi Tutte| Nu. Tutte "
ColoreTesto 2
Scrivi " N° Fr | Ambo Freq | Ambo Fr | N°. Fr "
ColoreTesto 0
For x=1 To 10
riga=" "& Format2(n(x,1))&"..."& Format2(n(x,2))&" | "&Format2(ambi(x,2))&"-"&_
Format2(ambi(x,3))&"..."& Format2(ambi(x,5))&" | "&_
Format2(ambi1(x,2))&"-"& Format2(ambi1(x,3))&"..."&ambi1(x,5)&" | "& Format2(nt(x,1))&"..."&_
Format2 (nt(x,2))
Scrivi riga
riga=""
Next
Scrivi String (65,"*")
ColoreTesto 1
Scrivi "SELEZIONE RUOTA di "& NomeRuota (rt(1))
Scrivi "Nu.Ruota | Ambi a Ruota"
ColoreTesto 2
Scrivi " N° Fr | Ambo Freq "
ColoreTesto 0
For x=1 To 10
rige=" "& Format2(nrr(x,1))&"..."& Format2(nrr(x,2))&" | "& Format2(ambrr(x,2))&"-"&_
Format2(ambrr(x,3))&"..."& Format2(ambrr(x,5))
Scrivi rige
rige=""
Next
Scrivi String (65,"*")
End Sub
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 10 gennaio 2025
    Bari
    40
    61
    11
    86
    37
    Cagliari
    31
    02
    51
    68
    87
    Firenze
    73
    55
    34
    52
    18
    Genova
    11
    40
    27
    82
    20
    Milano
    80
    71
    65
    19
    10
    Napoli
    50
    30
    03
    01
    36
    Palermo
    66
    42
    43
    76
    89
    Roma
    05
    22
    62
    35
    39
    Torino
    17
    58
    62
    86
    69
    Venezia
    43
    89
    14
    04
    40
    Nazionale
    64
    76
    35
    40
    19
    Estrazione Simbolotto
    Bari
    08
    07
    37
    33
    38
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto