X Baffo

[morena59]

Antelao dai la dritta anke a me..ke nun ho kapito da quale script tiri fuori questa spekulazione..

Ciao PI,

lo script è su questo Topic messo a disposizione dal Baffone.
Io però,me ne sono fatto uno che mi calcola solo quello che desidero
in modo da localizzare la condizione.La teoria del Baffo è azzeccatissima
ma bisogna usare molta attenzione perchè non tutte le previsioni sono giocabili
per un esito a breve termine.Personalmente mi sono stancato di ambire al cosiddetto ambo secco,
Quella è roba da casalinghe(senza offesa per nessuno)
3,91 VLP fa sorridere a tutti,io invece, me la rido e sopratutto incremento il peso
del maialino

 

[fefo.1979]

Antelao,ultimamente seguo piu sta sezione che il resto del forum grazie a te e Baffo.., per stasera che hai in mente di giocare,cosa mi proponi?eheh
ti seguirei piu che volentieri!

 

[morena59]

Antelao,ultimamente seguo piu sta sezione che il resto del forum grazie a te e Baffo.., per stasera che hai in mente di giocare,cosa mi proponi?eheh
ti seguirei piu che volentieri!

Ciao,c'è ancora in gioco la quartina 32-33-64-65
sono appena tornato dall'incasso e....ho vinto più del previsto.
Per tutto il mese di marzo l'ambo su TT viene pagato a 28 VLP con puntata
di 5 euro,quindi la posta in gioco non è più di 3.91 ma di 4,66

 

[pigreko73..]

ciao antelao..skusami se ti disturbo nuovamente..mi sono skarikato il tuo script (al raddoppio) quello realizzato sempre su base del Baffo..però non kapisko perkè l'ultima kondizione mi risulta kosì lontana..ekkola...

Estrazione generatrice del pronostico 08482 [ 5 - 12/01/2012]G 0001Numeri in gioco : 33.20.13.40 su TT per Ambo

 

[morena59]

ciao antelao..skusami se ti disturbo nuovamente..mi sono skarikato il tuo script (al raddoppio) quello realizzato sempre su base del Baffo..però non kapisko perkè l'ultima kondizione mi risulta kosì lontana..ekkola...

Estrazione generatrice del pronostico 08482 [ 5 - 12/01/2012]G 0001Numeri in gioco : 33.20.13.40 su TT per Ambo

Ciao PI,
il listato che hai scaricato è quello di Baffo blu
il mio non l'ho messo qui e cmq sono script generici,se vuoi fargli
trovare una condizione recente,lo devi impostare tu guardando il quadro
estrazionale.Poi se devo dirla tutta,mi sono anche scocciato!
3400 visite e non si è capito ancora la potenzialita del metodo.
Il perchè te lo dico subito, 4 volte la posta fai ridere alla gente
perchè vuole l'ambo secco a ruota.Se cominciasse a mettere le 2 cedoline vincenti
a ogni estrazione (e ti assicuro che sono 80 euro netti x giocata)forse cambierebbe
qualcosa. Ma siccome ho capito che fondalmentalmente non devo rendere conto a nessuno
dei fatti miei,non vedo l'ora che questo topic vada negli abissi del forum.
Tanto io!So già cosa giocare
ciao

 

[pigreko73..]

skusa antelao non volevo farti irritare...mma tutto questo mio interesse invece nasce proprio dal fatto ke io ho kapito perfettamente invece la spekulazione del metodo..ekko il perkè di tanto mio interesse..soltando ke essendo un profano di script e di programmi in genere cerko semplicemente di kapire kome fare per avere tramite questo listato delle previsioni attuali..!!! tutto qui..

 

[morena59]

skusa antelao non volevo farti irritare...mma tutto questo mio interesse invece nasce proprio dal fatto ke io ho kapito perfettamente invece la spekulazione del metodo..ekko il perkè di tanto mio interesse..soltando ke essendo un profano di script e di programmi in genere cerko semplicemente di kapire kome fare per avere tramite questo listato delle previsioni attuali..!!! tutto qui..

Non sono irritato per causa tua,ho aprofittato del post,per dire ciò che penso
Ti ho spedito un MP
ciao

 

[Baffoblu]

Questo è il listato base, ma c'è da pedalare....

antelao lo ha fatto.........

Sub Main()
    ColoreTesto 1
    Scrivi "======================= ROUTINE DI RICERCA ============================*",1
    ColoreTesto 2
    Scrivi "============= DA UN IDEA ORIGINALE BY  B A F F O B L U ================*",1
    ColoreTesto 1
    Scrivi "====================UNA QUARTINA PER AMBO A TUTTE =====================*",1
    Scrivi
    ColoreTesto 0
    Scrivi "=== Questo listato serve per ricercare la particolare condizione ======*",1
    Scrivi "====== Imposta da Baffoblu di tutti gli ambi somma possibili  =========*",1
    Scrivi "= nel quadro estrazionale che rispettano le caratteristiche richieste =*",1
    Scrivi
    Scrivi "====== Sta a voi trovare le condizioni migliori  di ogni somma ========*",1
    Scrivi "=========== e di ogni somma trovare le coppie più proficue ============*",1
    Scrivi "================= scartando quelle di meno rilievo ====================*",1
    Scrivi "************************************************************************",1
    Scrivi
    ColoreTesto 0
    Dim nSpia
    Dim ruote(3)
    Dim ruota(1)
    Dim poste(2)
    Dim Importi(2,12)
    Dim nprogryesno
    Dim nprogr(12)
    Dim nposition
    Dim n(4)
    poste(2) = 1
    clp = 12
    nSpia = CInt(InputBox("Inserisci somma Ambo Spia - da 1 a 90 "))
    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 "))
        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)
    End If
    nposition = CInt(InputBox("Inserisci la posizione di rilevamento spie - da 1 a 5 "))
    nanalisis = CInt(InputBox("Quante estrazioni vuoi controllare ? "))
    ini = EstrazioneFin - nanalisis
    fin = EstrazioneFin
    co = 0
    For es = ini To fin
        Messaggio es
        ruote(1) = r1
        ruote(2) = r2
        ruote(3) = r3
        ruota(1) = 11
        For r1 = 1 To 9
            For r2 = r1 + 1 To 10
                For r3 = r2 + 1 To 10
                    a = Estratto(es,r1,nposition)
                    b = Estratto(es,r2,nposition)
                    c = Estratto(es,r3,nposition)
                    ok = 0
                    If(Fuori90(a + b) = nSpia) And(Fuori90(a + c) = nSpia) Then
                        w = 90 - nSpia
                        n(1) = a
                        n(2) = b
                        n(3) = Abs(a - b)
                        d = Fuori90(n(3) + w)
                        n(4) = 90 - d
                        ok = 1
                    End If
                    If ok = 1 Then
                        co = co + 1
                        Scrivi String(100,"°") & " Caso n°" & co,1
                        Scrivi DataEstrazione(es) & " -- " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " ** " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & " ** " & SiglaRuota(r3) & " - " & StringaEstratti(es,r3) & " * SPIE BY BAFFOBLU:   " & a & " - " & b & " * " & c,1
                        Scrivi String(115,"°"),1
                        ruota(1) = 11
                        ImpostaGiocata 1,n,ruota,poste,clp,2
                        If nprogryesno = 1 Then
                            ImpostaProgressione 1,Importi
                            Scrivi "puntate eseguite " & colpi
                            Scrivi " - .1 colpo - " & Importi(2,1) & " euro  x ambo "
                            Scrivi " - .2 colpo - " & Importi(2,2) & " euro  x ambo"
                            Scrivi " - .3 colpo - " & Importi(2,3) & " euro  x ambo"
                            Scrivi " - .4 colpo - " & Importi(2,4) & " euro  x ambo"
                            Scrivi " - .5 colpo - " & Importi(2,5) & " euro  x ambo"
                            Scrivi " - .6 colpo - " & Importi(2,6) & " euro  x ambo"
                            Scrivi " - .7 colpo - " & Importi(2,7) & " euro  x ambo"
                            Scrivi " - .8 colpo - " & Importi(2,8) & " euro  x ambo"
                            Scrivi " - .9 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"
                        End If
                        Gioca es
                    End If
                Next
            Next
        Next
    Next
    Scrivi
    Scrivi String(65,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & co,1
    ColoreTesto 0
    Scrivi String(65," * ")
    TestoInBandaPassante "*°*°*   I d e a t o   e   L i s t a t o    By     B A F F O B L U   *°*°* ",1,3,0
    ScriviResoconto
End Sub

 

[morena59]

Ciao Baffo,
oggi stavo guardando il comportamento dei radicali nel quadro estrazionale,
vorrei fare un listato,ma mi trovo incasinato sul da farsi.
Probabilmente è un fuoco di paglia ma volevo vedere ugualmente.
Il mio problema è sul come mettere i restanti numeri di una quartina radicale.
Ti faccio un esempio così forse capisci meglio
01/03/2011
GE 8 in 1° pos
NA 80 in 1° pos
si prende il numero più grande e si sommano
i restanti numeri della quartina radicale
80-88=78
80+89=79
previsione GE-NA78-87-77-79 x ambo
esito vincente 08/03 al 3° colpo NA 78-77
In poche parole i radicali devono essere isotopi e diversi (non uguali)
Il mio problema e riuscire a condizionare i numeri radicali restanti
da quelli usciti

 

[morena59]

Questo è un abozzo,ovviamente manca quello che ti ho chiesto e i calcoli per la previsione

[/SIZE][/FONT]Sub Main()	Dim ruote(2),n(4),poste(2)
	poste(2) = 1
	ce = InputBox(" estrazione vuoi controllare? ","estrazione",100)
	k = InputBox("per quanti colpi?","colpi di gioco",9)
	ini = EstrazioneFin - ce
	fin = EstrazioneFin
	For es = ini To EstrazioneFin
		Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
		For r1 = 1 To 10
			For p1 = 1 To 5
				a = Estratto(es,r1,p1)
				For r2 = r1 + 1 To 10
					If r2 = 11 Then r2 = 12 End If
					For p2 = 1 To 5
						b = Estratto(es,r2,p2)
						If p1 = p2 Then
							If a = 1 Or a = 10 Or a = 11 Or a = 19 And b = Radicale(a) Then
								If a = 2 Or a = 20 Or a = 22 Or a = 29 And b = Radicale(a) Then
									If a = 3 Or a = 30 Or a = 33 Or a = 39 And b = Radicale(a) Then
										If a = 4 Or a = 40 Or a = 44 Or a = 49 And b = Radicale(a) Then
											If a = 5 Or a = 50 Or a = 55 Or a = 59 And b = Radicale(a) Then
												If a = 6 Or a = 60 Or a = 66 Or a = 69 And b = Radicale(a) Then
													If a = 7 Or a = 70 Or a = 77 Or a = 79 And b = Radicale(a) Then
														If a = 8 Or a = 80 Or a = 88 Or a = 89 And b = Radicale(a) Then
															If a <> b Then
																casi = casi + 1
																Scrivi String(50,"=") & " by Antelao",1
																Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
																" ] [ " & Format2(a) & " ] in " &(p1) & "^ pos."
																Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
																" ] [ " & Format2(b) & " ] in " &(p2) & "^ pos."
																Scrivi String(60,"-") & " caso n°" & casi
																ruote(1) = r1
																ruote(2) = r2
																n(1) =0
																n(2) =0
																n(3) =0
																n(4) =0
																ra1 = SerieRitardo(ini,es,num1,ruote,1)
																ColoreTesto 2
																Scrivi "Ritardo x Ambata sulle due Ruote = " & Format2(ra1)
																ColoreTesto 0
																ImpostaGiocata 1,num1,ruote,poste,k
																Gioca es
															End If
														End If
													End If
												End If
											End If
										End If
									End If
								End If
							End If
						End If
					Next
				Next
			Next
		Next
	Next
	ScriviResoconto
	ColoreTesto 1
	Scrivi String(20,32) & " Radicali isotopi",1
	Scrivi String(45,32) & "List. Antelao",1
	ColoreTesto 0
End Sub


[FONT=times new roman][SIZE=5]

 

[Baffoblu]

Ciao Baffo,
oggi stavo guardando il comportamento dei radicali nel quadro estrazionale,
vorrei fare un listato,ma mi trovo incasinato sul da farsi.
Probabilmente è un fuoco di paglia ma volevo vedere ugualmente.
Il mio problema è sul come mettere i restanti numeri di una quartina radicale.
Ti faccio un esempio così forse capisci meglio
01/03/2011
GE 8 in 1° pos
NA 80 in 1° pos
si prende il numero più grande e si sommano
i restanti numeri della quartina radicale
80-88=78
80+89=79
previsione GE-NA78-87-77-79 x ambo
esito vincente 08/03 al 3° colpo NA 78-77
In poche parole i radicali devono essere isotopi e diversi (non uguali)
Il mio problema e riuscire a condizionare i numeri radicali restanti
da quelli usciti

Ciao dagli un occhiata se ti piace,

gli ho messo l'inputbox per scegliere
la posizione, cosi hai un idea di come si
comporta secondo la posizione specifica.

I calcoli li fa esatti, e tutto il resto.....

vedi te....

Sub Main()
    Dim ruote(10)
    Dim n(4)
    Dim poste(2)
    Dim ra1
    poste(2) = 1
    ce = InputBox(" estrazione vuoi controllare? ","estrazione",100)
    k = InputBox("per quanti colpi?","colpi di gioco",9)
    pos = InputBox("che posizione)"," dal 1° al 5° ",1)
    ini = EstrazioneFin - ce
    fin = EstrazioneFin
    casi = 0
    For es = ini To fin
        Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
        For r1 = 1 To 10
            For r2 = r1 + 1 To 10
                If r2 = 11 Then
                    r2 = 12
                End If
                ok = 0
                a = Estratto(es,r1,pos)
                b = Estratto(es,r2,pos)
                '---------------------------------------------
                If a = 01 And b = 10 Or a = 10 And b = 01 Then
                    c = Fuori90(10 + 11)
                    d = Fuori90(10 + 19)
                    ok = 1
                End If
                If a = 01 And b = 11 Or a = 11 And b = 01 Then
                    c = Fuori90(11 + 10)
                    d = Fuori90(11 + 19)
                    ok = 1
                End If
                If a = 01 And b = 19 Or a = 19 And b = 01 Then
                    c = Fuori90(19 + 10)
                    d = Fuori90(19 + 11)
                    ok = 1
                End If
                If a = 10 And b = 11 Or a = 11 And b = 10 Then
                    c = Fuori90(11 + 01)
                    d = Fuori90(11 + 19)
                    ok = 1
                End If
                If a = 10 And b = 19 Or a = 19 And b = 10 Then
                    c = Fuori90(19 + 01)
                    d = Fuori90(19 + 11)
                    ok = 1
                End If
                If a = 11 And b = 19 Or a = 19 And b = 11 Then
                    c = Fuori90(19 + 01)
                    d = Fuori90(19 + 10)
                    ok = 1
                End If
                '-----------------------------------------------
                If a = 02 And b = 20 Or a = 20 And b = 02 Then
                    c = Fuori90(20 + 22)
                    d = Fuori90(20 + 29)
                    ok = 1
                End If
                If a = 02 And b = 22 Or a = 22 And b = 02 Then
                    c = Fuori90(22 + 20)
                    d = Fuori90(22 + 29)
                    ok = 1
                End If
                If a = 02 And b = 29 Or a = 29 And b = 02 Then
                    c = Fuori90(29 + 20)
                    d = Fuori90(29 + 22)
                    ok = 1
                End If
                If a = 20 And b = 22 Or a = 22 And b = 20 Then
                    c = Fuori90(22 + 02)
                    d = Fuori90(22 + 29)
                    ok = 1
                End If
                If a = 20 And b = 29 Or a = 29 And b = 20 Then
                    c = Fuori90(29 + 02)
                    d = Fuori90(29 + 22)
                    ok = 1
                End If
                If a = 22 And b = 29 Or a = 29 And b = 22 Then
                    c = Fuori90(29 + 02)
                    d = Fuori90(29 + 20)
                    ok = 1
                End If
                '-----------------------------------------------
                If a = 03 And b = 30 Or a = 30 And b = 03 Then
                    c = Fuori90(30 + 33)
                    d = Fuori90(30 + 39)
                    ok = 1
                End If
                If a = 03 And b = 33 Or a = 33 And b = 03 Then
                    c = Fuori90(33 + 30)
                    d = Fuori90(33 + 39)
                    ok = 1
                End If
                If a = 03 And b = 39 Or a = 39 And b = 03 Then
                    c = Fuori90(39 + 30)
                    d = Fuori90(39 + 33)
                    ok = 1
                End If
                If a = 30 And b = 33 Or a = 33 And b = 30 Then
                    c = Fuori90(33 + 03)
                    d = Fuori90(33 + 39)
                    ok = 1
                End If
                If a = 30 And b = 39 Or a = 39 And b = 30 Then
                    c = Fuori90(39 + 03)
                    d = Fuori90(39 + 33)
                    ok = 1
                End If
                If a = 33 And b = 39 Or a = 39 And b = 33 Then
                    c = Fuori90(39 + 03)
                    d = Fuori90(39 + 30)
                    ok = 1
                End If
                '-----------------------------------------------
                If a = 04 And b = 40 Or a = 40 And b = 04 Then
                    c = Fuori90(40 + 44)
                    d = Fuori90(40 + 49)
                    ok = 1
                End If
                If a = 04 And b = 44 Or a = 44 And b = 04 Then
                    c = Fuori90(44 + 40)
                    d = Fuori90(44 + 49)
                    ok = 1
                End If
                If a = 04 And b = 49 Or a = 49 And b = 04 Then
                    c = Fuori90(49 + 40)
                    d = Fuori90(49 + 44)
                    ok = 1
                End If
                If a = 40 And b = 44 Or a = 44 And b = 40 Then
                    c = Fuori90(44 + 04)
                    d = Fuori90(44 + 49)
                    ok = 1
                End If
                If a = 40 And b = 49 Or a = 49 And b = 40 Then
                    c = Fuori90(49 + 04)
                    d = Fuori90(49 + 44)
                    ok = 1
                End If
                If a = 44 And b = 49 Or a = 49 And b = 44 Then
                    c = Fuori90(49 + 04)
                    d = Fuori90(49 + 40)
                    ok = 1
                End If
                '-----------------------------------------------
                If a = 05 And b = 50 Or a = 50 And b = 05 Then
                    c = Fuori90(50 + 55)
                    d = Fuori90(50 + 59)
                    ok = 1
                End If
                If a = 05 And b = 55 Or a = 55 And b = 05 Then
                    c = Fuori90(55 + 50)
                    d = Fuori90(55 + 59)
                    ok = 1
                End If
                If a = 05 And b = 59 Or a = 59 And b = 05 Then
                    c = Fuori90(59 + 50)
                    d = Fuori90(59 + 55)
                    ok = 1
                End If
                If a = 50 And b = 55 Or a = 55 And b = 50 Then
                    c = Fuori90(55 + 05)
                    d = Fuori90(55 + 59)
                    ok = 1
                End If
                If a = 50 And b = 59 Or a = 59 And b = 50 Then
                    c = Fuori90(59 + 05)
                    d = Fuori90(59 + 55)
                    ok = 1
                End If
                If a = 55 And b = 59 Or a = 59 And b = 55 Then
                    c = Fuori90(59 + 05)
                    d = Fuori90(59 + 50)
                    ok = 1
                End If
                '-----------------------------------------------
                If a = 06 And b = 60 Or a = 60 And b = 06 Then
                    c = Fuori90(60 + 66)
                    d = Fuori90(60 + 69)
                    ok = 1
                End If
                If a = 06 And b = 66 Or a = 66 And b = 06 Then
                    c = Fuori90(66 + 60)
                    d = Fuori90(66 + 69)
                    ok = 1
                End If
                If a = 06 And b = 69 Or a = 69 And b = 06 Then
                    c = Fuori90(69 + 60)
                    d = Fuori90(69 + 66)
                    ok = 1
                End If
                If a = 60 And b = 66 Or a = 66 And b = 60 Then
                    c = Fuori90(66 + 06)
                    d = Fuori90(66 + 69)
                    ok = 1
                End If
                If a = 60 And b = 69 Or a = 69 And b = 60 Then
                    c = Fuori90(69 + 06)
                    d = Fuori90(69 + 66)
                    ok = 1
                End If
                If a = 66 And b = 69 Or a = 69 And b = 66 Then
                    c = Fuori90(69 + 06)
                    d = Fuori90(69 + 60)
                    ok = 1
                End If
                '-----------------------------------------------
                If a = 07 And b = 70 Or a = 70 And b = 07 Then
                    c = Fuori90(70 + 77)
                    d = Fuori90(70 + 79)
                    ok = 1
                End If
                If a = 07 And b = 77 Or a = 77 And b = 07 Then
                    c = Fuori90(77 + 70)
                    d = Fuori90(77 + 79)
                    ok = 1
                End If
                If a = 07 And b = 79 Or a = 79 And b = 07 Then
                    c = Fuori90(79 + 70)
                    d = Fuori90(79 + 77)
                    ok = 1
                End If
                If a = 70 And b = 77 Or a = 77 And b = 70 Then
                    c = Fuori90(77 + 07)
                    d = Fuori90(77 + 79)
                    ok = 1
                End If
                If a = 70 And b = 79 Or a = 79 And b = 70 Then
                    c = Fuori90(79 + 07)
                    d = Fuori90(79 + 77)
                    ok = 1
                End If
                If a = 77 And b = 79 Or a = 79 And b = 77 Then
                    c = Fuori90(79 + 07)
                    d = Fuori90(79 + 70)
                    ok = 1
                End If
                '-----------------------------------------------
                If a = 08 And b = 80 Or a = 80 And b = 08 Then
                    c = Fuori90(80 + 88)
                    d = Fuori90(80 + 89)
                    ok = 1
                End If
                If a = 08 And b = 88 Or a = 88 And b = 08 Then
                    c = Fuori90(88 + 80)
                    d = Fuori90(88 + 89)
                    ok = 1
                End If
                If a = 08 And b = 89 Or a = 89 And b = 08 Then
                    c = Fuori90(89 + 80)
                    d = Fuori90(89 + 88)
                    ok = 1
                End If
                If a = 80 And b = 88 Or a = 88 And b = 80 Then
                    c = Fuori90(88 + 08)
                    d = Fuori90(88 + 89)
                    ok = 1
                End If
                If a = 80 And b = 89 Or a = 89 And b = 80 Then
                    c = Fuori90(89 + 08)
                    d = Fuori90(89 + 88)
                    ok = 1
                End If
                If a = 88 And b = 89 Or a = 89 And b = 88 Then
                    c = Fuori90(89 + 08)
                    d = Fuori90(89 + 80)
                    ok = 1
                End If
                '-----------------------------------------------
                If ok = 1 Then
                    n(1) = c
                    n(2) = d
                    n(3) = Vert(n(1))
                    n(4) = Vert(n(2))
                    '--------------------------
                    casi = casi + 1
                    Scrivi String(100,"°") & " Caso n°" & casi,1
                    Scrivi String(50,"=") & " by Antelao",1
                    Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
                    " ] [ " & Format2(a) & " ] in " &(pos) & "^ pos."
                    Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
                    " ] [ " & Format2(b) & " ] in " &(pos) & "^ pos."
                    ruote(1) = r1
                    ruote(2) = r2
                    n(1) = c
                    n(2) = d
                    n(3) = Vert(n(1))
                    n(4) = Vert(n(2))
                    ra1 = SerieRitardo(ini,es,n,ruote,1)
                    ColoreTesto 2
                    Scrivi "Ritardo x Ambata sulle due Ruote = " & Format2(ra1)
                    ColoreTesto 0
                    ImpostaGiocata 1,n,ruote,poste,k,2
                    Gioca es,1
                End If
            Next
        Next
    Next
    Scrivi
    Scrivi String(100,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & casi,1
    ColoreTesto 0
    Scrivi String(100," * ")
    ColoreTesto 0
    ScriviResoconto
    ColoreTesto 1
    Scrivi String(20,32) & " Radicali isotopi",1
    Scrivi String(45,32) & "List. Antelao",1
    ColoreTesto 0
End Sub

 

[Baffoblu]

Questo invece è cazzeggio puro.....

Della serie aridajeeee........

Sub Main()
    Dim ruote(10)
    Dim n(2)
    Dim poste(10)
    Dim ra1
    poste(1) = 1
    ce = InputBox(" estrazione vuoi controllare? ","estrazione",100)
    k = InputBox("per quanti colpi?","colpi di gioco",9)
    pos = InputBox("che posizione)"," dal 1° al 5° ",1)
    ini = EstrazioneFin - ce
    fin = EstrazioneFin
    casi = 0
    For es = ini To fin
        Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
        For r1 = 1 To 10
            For r2 = r1 + 1 To 10
                If r2 = 11 Then
                    r2 = 12
                End If
                ok = 0
                a = Estratto(es,r1,pos)
                b = Estratto(es,r2,pos)
                '---------------------------------------------
                If a = 01 And b = 10 Or a = 10 And b = 01 Then
                    c = Fuori90(10 + 16)
                    d = Fuori90(10 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                If a = 01 And b = 11 Or a = 11 And b = 01 Then
                    c = Fuori90(11 + 16)
                    d = Fuori90(11 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                If a = 01 And b = 19 Or a = 19 And b = 01 Then
                    c = Fuori90(19 + 16)
                    d = Fuori90(19 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                If a = 10 And b = 11 Or a = 11 And b = 10 Then
                    c = Fuori90(11 + 16)
                    d = Fuori90(11 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                If a = 10 And b = 19 Or a = 19 And b = 10 Then
                    c = Fuori90(19 + 16)
                    d = Fuori90(19 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                If a = 11 And b = 19 Or a = 19 And b = 11 Then
                    c = Fuori90(19 + 16)
                    d = Fuori90(19 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                '-----------------------------------------------
                If a = 02 And b = 20 Or a = 20 And b = 02 Then
                    c = Fuori90(20 + 16)
                    d = Fuori90(20 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                If a = 02 And b = 22 Or a = 22 And b = 02 Then
                    c = Fuori90(22 + 16)
                    d = Fuori90(22 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                If a = 02 And b = 29 Or a = 29 And b = 02 Then
                    c = Fuori90(29 + 16)
                    d = Fuori90(29 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                If a = 20 And b = 22 Or a = 22 And b = 20 Then
                    c = Fuori90(22 + 16)
                    d = Fuori90(22 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                If a = 20 And b = 29 Or a = 29 And b = 20 Then
                    c = Fuori90(29 + 16)
                    d = Fuori90(29 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                If a = 22 And b = 29 Or a = 29 And b = 22 Then
                    c = Fuori90(29 + 16)
                    d = Fuori90(29 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                '-----------------------------------------------
                If a = 03 And b = 30 Or a = 30 And b = 03 Then
                    c = Fuori90(30 + 16)
                    d = Fuori90(30 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                If a = 03 And b = 33 Or a = 33 And b = 03 Then
                    c = Fuori90(33 + 16)
                    d = Fuori90(33 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                If a = 03 And b = 39 Or a = 39 And b = 03 Then
                    c = Fuori90(39 + 16)
                    d = Fuori90(39 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                If a = 30 And b = 33 Or a = 33 And b = 30 Then
                    c = Fuori90(33 + 16)
                    d = Fuori90(33 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                If a = 30 And b = 39 Or a = 39 And b = 30 Then
                    c = Fuori90(39 + 16)
                    d = Fuori90(39 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                If a = 33 And b = 39 Or a = 39 And b = 33 Then
                    c = Fuori90(39 + 16)
                    d = Fuori90(39 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                '-----------------------------------------------
                If a = 04 And b = 40 Or a = 40 And b = 04 Then
                    c = Fuori90(40 + 16)
                    d = Fuori90(40 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                If a = 04 And b = 44 Or a = 44 And b = 04 Then
                    c = Fuori90(44 + 16)
                    d = Fuori90(44 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                If a = 04 And b = 49 Or a = 49 And b = 04 Then
                    c = Fuori90(49 + 16)
                    d = Fuori90(49 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                If a = 40 And b = 44 Or a = 44 And b = 40 Then
                    c = Fuori90(44 + 16)
                    d = Fuori90(44 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                If a = 40 And b = 49 Or a = 49 And b = 40 Then
                    c = Fuori90(49 + 16)
                    d = Fuori90(49 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                If a = 44 And b = 49 Or a = 49 And b = 44 Then
                    c = Fuori90(49 + 16)
                    d = Fuori90(49 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                '-----------------------------------------------
                If a = 05 And b = 50 Or a = 50 And b = 05 Then
                    c = Fuori90(50 + 16)
                    d = Fuori90(50 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                If a = 05 And b = 55 Or a = 55 And b = 05 Then
                    c = Fuori90(55 + 16)
                    d = Fuori90(55 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                If a = 05 And b = 59 Or a = 59 And b = 05 Then
                    c = Fuori90(59 + 16)
                    d = Fuori90(59 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                If a = 50 And b = 55 Or a = 55 And b = 50 Then
                    c = Fuori90(55 + 16)
                    d = Fuori90(55 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                If a = 50 And b = 59 Or a = 59 And b = 50 Then
                    c = Fuori90(59 + 16)
                    d = Fuori90(59 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                If a = 55 And b = 59 Or a = 59 And b = 55 Then
                    c = Fuori90(59 + 16)
                    d = Fuori90(59 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                '-----------------------------------------------
                If a = 06 And b = 60 Or a = 60 And b = 06 Then
                    c = Fuori90(60 + 16)
                    d = Fuori90(60 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                If a = 06 And b = 66 Or a = 66 And b = 06 Then
                    c = Fuori90(66 + 16)
                    d = Fuori90(66 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                If a = 06 And b = 69 Or a = 69 And b = 06 Then
                    c = Fuori90(69 + 16)
                    d = Fuori90(69 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                If a = 60 And b = 66 Or a = 66 And b = 60 Then
                    c = Fuori90(66 + 16)
                    d = Fuori90(66 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                If a = 60 And b = 69 Or a = 69 And b = 60 Then
                    c = Fuori90(69 + 16)
                    d = Fuori90(69 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                If a = 66 And b = 69 Or a = 69 And b = 66 Then
                    c = Fuori90(69 + 16)
                    d = Fuori90(69 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                '-----------------------------------------------
                If a = 07 And b = 70 Or a = 70 And b = 07 Then
                    c = Fuori90(70 + 16)
                    d = Fuori90(70 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                If a = 07 And b = 77 Or a = 77 And b = 07 Then
                    c = Fuori90(77 + 16)
                    d = Fuori90(77 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                If a = 07 And b = 79 Or a = 79 And b = 07 Then
                    c = Fuori90(79 + 16)
                    d = Fuori90(79 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                If a = 70 And b = 77 Or a = 77 And b = 70 Then
                    c = Fuori90(77 + 16)
                    d = Fuori90(77 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                If a = 70 And b = 79 Or a = 79 And b = 70 Then
                    c = Fuori90(79 + 16)
                    d = Fuori90(79 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                If a = 77 And b = 79 Or a = 79 And b = 77 Then
                    c = Fuori90(79 + 16)
                    d = Fuori90(79 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                '-----------------------------------------------
                If a = 08 And b = 80 Or a = 80 And b = 08 Then
                    c = Fuori90(80 + 16)
                    d = Fuori90(80 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                If a = 08 And b = 88 Or a = 88 And b = 08 Then
                    c = Fuori90(88 + 16)
                    d = Fuori90(88 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                If a = 08 And b = 89 Or a = 89 And b = 08 Then
                    c = Fuori90(89 + 16)
                    d = Fuori90(89 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                If a = 80 And b = 88 Or a = 88 And b = 80 Then
                    c = Fuori90(88 + 16)
                    d = Fuori90(88 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                If a = 80 And b = 89 Or a = 89 And b = 80 Then
                    c = Fuori90(89 + 16)
                    d = Fuori90(89 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                If a = 88 And b = 89 Or a = 89 And b = 88 Then
                    c = Fuori90(89 + 16)
                    d = Fuori90(89 + 37)
                    e = ComplAdX(c,90)
                    f = ComplAdX(d,90)
                    ok = 1
                End If
                '-----------------------------------------------
                If ok = 1 Then
                    n(1) = c
                    n(2) = d
                    'n(3) = e
                    'n(4) = f
                    '--------------------------
                    casi = casi + 1
                    Scrivi String(100,"°") & " Caso n°" & casi,1
                    Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
                    " ] [ " & Format2(a) & " ] in " &(pos) & "^ pos."
                    Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
                    " ] [ " & Format2(b) & " ] in " &(pos) & "^ pos."
                    ruote(1) = r1
                    ruote(2) = r2
                    n(1) = c
                    n(2) = d
                    'n(3) = e
                    'n(4) = f
                    ra1 = SerieRitardo(ini,es,n,ruote,1)
                    ColoreTesto 2
                    Scrivi "Ritardo x Ambata sulle due Ruote = " & Format2(ra1)
                    ColoreTesto 0
                    ImpostaGiocata 1,n,ruote,poste,k,1
                    Gioca es,1
                End If
            Next
        Next
    Next
    Scrivi
    Scrivi String(100,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & casi,1
    ColoreTesto 0
    Scrivi String(100," * ")
    ColoreTesto 0
    ScriviResoconto
    ColoreTesto 1
    Scrivi String(20,32) & " Radicali isotopi",1
    Scrivi String(45,32) & "List. Baffoblu",1
End Sub

 

[morena59]

Ciao Baffo,
ma che sorpresa!Oggi ho letto con lo smartphone che avevi fatto qualcosa,
ora vedo che hai fatto tuttoNon male neanche la tua visione volendo....
si potrebbe speculare anche quà!A ogni modo salvo anche questo perchè
sarà senz'altro utile per trovare convergenze.
Grazie Baffone

 

[Baffoblu]

ciao baffo,
ma che sorpresa!oggi ho letto con lo smartphone che avevi fatto qualcosa,
ora vedo che hai fatto tuttonon male neanche la tua visione volendo....
Si potrebbe speculare anche quà!a ogni modo salvo anche questo perchè
sarà senz'altro utile per trovare convergenze.
Grazie baffone

ok

 

[morena59]

Eheheheheh!Stamane,volevi farmi pedalare,ma tu sei...
troppo buonoDiciamo che era un motivo per allenarti

 

[Baffoblu]

Eheheheheh!Stamane,volevi farmi pedalare,ma tu sei...
troppo buonoDiciamo che era un motivo per allenarti

Quello che avevi letto te lo avevo fatto
stanotte verso le 01,30.

l'ultimo invece stamattina, con più tempo,
ho fatto un banale trova e sostituisci e
vari copia e incolla con blocco note
e il resto è venuto da se.

Comunque dal tuo script originale,
ho visto che hai fatto gli stessi errori
che facevo io all'inizio :

Spiego :

Non devi preoccuparti di mettere
righe per escludere le condizioni
che non vuoi avere.
Ma direttamente la condizione che vuoi trovare,
con le IF al posto giusto.
Quelle che non le rispettano verranno scartate
automaticamente, senza che devi star li a dirglielo,
digitando linee di codice inutili.

In sostanza, preoccupati di scrivere codice
per trovare le condizioni, e non per escluderle.

 

[morena59]

Grazie per i consigliEsaminando lo script sembra tutto faccile,
ma ammetto che ieri non ci ero arrivato.Questa logica va bene
per molti gruppi numerici,tipo sestine esagonali,cinquine pentagonali,
e chi più ne ha più ne metta.
Grazie per le dritte

 

[paomultipla]

Salve a tutti,
ho scaricato lo script qui sopra, quello arridaje del GRANDE BAFFO, però a me quando parte esce errore 6-Overflow, e devo dare l'ok per quante volte sono le estrazioni cheho inserito, non posso uscire in altro modo, alla fine mi daà tutti i risultati grafici compresi, se sono giusti questo non lo so, qualcuno ha un idea, se agli altri funziona di sicuro è un mio problema, ma non saprei da cosa dipende.
Windows 7 Spaziometria 1.3.48.
GRAZIE
Saluti Paolo

 

[Baffoblu]

Salve a tutti,
ho scaricato lo script qui sopra, quello arridaje del GRANDE BAFFO, però a me quando parte esce errore 6-Overflow, e devo dare l'ok per quante volte sono le estrazioni cheho inserito, non posso uscire in altro modo, alla fine mi daà tutti i risultati grafici compresi, se sono giusti questo non lo so, qualcuno ha un idea, se agli altri funziona di sicuro è un mio problema, ma non saprei da cosa dipende.
Windows 7 Spaziometria 1.3.48.
GRAZIE
Saluti Paolo

Tieni presente che quello script,
come anticipato è un "cazzeggio" puro,
sull'idea di antelao di cui ho fatto solo lo
script che trovi più sopra.
Detto questo, entrambi funzionano,
non saprei perchè a te ti da quell'errore,
che di solito esce quando metti
"troppa carne al fuoco",

prova a diminuire il range delle estrazioni
che inserisci nell'inputbox......

Non so se W7 centri qualcosa,
ma come al solito, dipende anche da
chi e come usa il PC.

 

[Romana]

........

Non so se W7 centri qualcosa,
ma come al solito, dipende anche da
chi e come usa il PC.

Ciao Baffo,
funziona benissimo anche con W7