MEGA RACCOLTA "SCRIPT"

[Elbaz]

Lunghetta su Bari per ambo e terno in 14 colpi.

Lunghetta su Bari per ambo e terno in 14 colpi.

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.

 

[Baffoblu]

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

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

 

[Baffoblu]

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.

Ciao ti ho aggiunto due righe (quelle Remmate in verde).

 

[franca46]

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

ciao baffo

si lo so , hai perfettamente ragione ,

scusa per il posto sbagliato.

alla prossima , buona giornata

 

[Elbaz]

Ciao ti ho aggiunto due righe (quelle Remmate in verde).

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

 

[Baffoblu]

ciao baffo

si lo so , hai perfettamente ragione ,

scusa per il posto sbagliato.

alla prossima , buona giornata

Di niente, mi dispiace solo non averti letto prima, per i motivi detti sopra

ciao

 

[Baffoblu]

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

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.....

 

[Elbaz]

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.

 

[Roby]

Ambi spia su Bari...

' 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

 

[Elbaz]

Ciao ti ho aggiunto due righe (quelle Remmate in verde).

Anche questo a fatto terno.

 

[joi_lotto]

segnalibro

 

[gamberorosso]

ciao ragazzi qualcuno può rimettere il link alla mega raccolta che ormai megaupload e chiuso grazie

 

[rabberto]

Ciao gamberorosso ti riferisci al link Raccolta script by Danilo CSI , giusto e' questo che ti serve , fammi sapere , ciao.

 

[gamberorosso]

ciao rabberto si intendevo quello oppure altri se ci sono grazie

 

[rabberto]

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 .

 

[gamberorosso]

grazie rabbero sei stato gentilissimo a buon rendere di nuovo grazie

 

[rabberto]

Di niente e stato un piacere , ciao.

 

[vidoque]

ambi spia su bari...

' 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

come al solito ambo secco 57-37 su bari
grazie blekmore

 

[Y10]

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

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)

 

[DjNomade]

Visto che il grande Black si sta' godendo le meritate vacanze lo script dovrebbe essere cosi'...
Ciauz

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