° BARI ° Metodo Alla 7° Estrazione

[Roby]

Si Baffo, sono io, questa cosa mi fa molto arrabbiare
Dei miei metodi chiunque può fare quello che vuole (modificarseli a piacimento, metterli su altri forum, etc...)
Ma ... NON SOPPORTO CHE SIA OMESSO L'AUTORE.............
PS: Grazie della segnalazione

 

[Baffoblu]

Si Baffo, sono io, questa cosa mi fa molto arrabbiare
Dei miei metodi chiunque può fare quello che vuole (modificarseli a piacimento, metterli su altri forum, etc...)
Ma ... NON SOPPORTO CHE SIA OMESSO L'AUTORE.............
PS: Grazie della segnalazione

Beh, più che segnalazione, (che non me ne frega),
la mia era curiosità mista a voglia di capire
da quale parte pende la bilancia........

 

[violaviolaviola]

black... io il 64 ce l'ho ancora a bari da un metodo calcolato depo questa l'estrazione ---

 

[gorbam3]

ciao Black, io invece ho sempre a Bari il 90 ma con il 66 ed il 74 sempre da un mio studio, perchè chiamarlo metodo c'è da buttarsi in terra dal ridere!!!

 

[Roby]

Ciao ragazzi, Per favore cerchiamo di non fare confusione inserendo altri numeri e/o previsioni

 

[rodrigo]

Ciao Blackmore, potresti mettere lo script del tuo metodo?
Ti ringrazio.

 

[Roby]

Sub Main()
	Scrivi
	ColoreTesto 1
	Scrivi String(45," ") & "METODO E LISTATO BY BLACKMORE"
	Scrivi
	ColoreTesto 0
	Dim ruota(1)
	Dim ambata(1)
	Dim n(4)
	Dim posta(1)
	Dim poste(4)
	posta(1) = 1
	poste(2) = 1
	poste(3) = 0.90
	poste(4) = 0.10
	ruo = CInt(InputBox("RUOTA DI GIOCO?",,1))
	est = InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE?",,55)
	k = CInt(InputBox("QUANTI COLPI?",,5))
	ini = EstrazioneFin - est
	fin = EstrazioneFin
	co = 0
	ruota(1) = ruo
	For es = ini To fin
		Messaggio(es)
		If IndiceMensile(es) = 7 Then
			casi = casi + 1
			Scrivi String(72,"=") & " Caso n° " & casi,1
			ColoreTesto 1
			Scrivi DataEstrazione(es) & " - 1 Ambata e 1 Quartina alla " & IndiceMensile(es) & "° del mese sulla Ruota di " & NomeRuota(ruo),1
			ColoreTesto 0
			Scrivi String(72,"="),1
			co = co + 1
			ambata(1) = Fuori90(Cadenza(Estratto(es,TO_,2)) + Estratto(es,FI_,4) + 1)
			ImpostaGiocata 1,ambata,ruota,posta,k,1
			n(1) = Fuori90(Cadenza(Estratto(es,TO_,2)) + Estratto(es,FI_,4) + 01)
			n(2) = Fuori90(Cadenza(Estratto(es,NZ_,3)) + Estratto(es,MI_,5) + 01)
			n(3) = Fuori90(Decina(Estratto(es,VE_,1)) + Cadenza(Estratto(es,VE_,1)) + Estratto(es,CA_,2) + 09)
			n(4) = Fuori90(Figura(Estratto(es,MI_,3)) + Estratto(es,BA_,4) + 06)
			ImpostaGiocata 2,n,ruota,poste,k
			Gioca es
		End If
	Next
	Scrivi
	Scrivi "Casi Rilevati " & CInt(co)
	ScriviResoconto
End Sub

 

[Baffoblu]

Hihihihi, io non mi azzardavo prima.....

Ma adesso eccolo qua....

Sub Main()
    Dim idEstr
    Dim Inizio
    Dim Fine
    Dim ruote(10)
    Dim posta(10)
    Dim poste(10)
    Dim nAnalisi
    Dim nColpiDiGioco
    Dim n(1)
    Dim qu(4)
    ruote(1) = 1
    posta(1) = 1
    poste(2) = 1
    nAnalisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"100"))
    nColpiDiGioco = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"9"))
    Inizio = EstrazioneFin - nAnalisi
    Fine = EstrazioneFin
    co = 0
    For idEstr = Inizio To Fine
        Messaggio "elab. estr. [" &(idEstr) & "] di " & DataEstrazione(idEstr,1)
        Call AvanzamentoElab(Inizio,Fine,idEstr)
        If IndiceMensile(idEstr) = 7 Then
            a1 = Estratto(idEstr,9,2)
            a2 = Estratto(idEstr,3,4)
            a3 = Estratto(idEstr,10,1)
            a4 = Estratto(idEstr,10,1)
            a5 = Estratto(idEstr,2,2)
            a6 = Estratto(idEstr,12,3)
            a7 = Estratto(idEstr,5,5)
            a8 = Estratto(idEstr,5,3)
            a9 = Estratto(idEstr,1,4)
            '---------------------------
            b1 = Cadenza(a1)
            b2 = Fuori90(a2 + 1)
            b3 = Decina(a3)
            b4 = Cadenza(a4)
            b5 = Fuori90(a5 + 9)
            b6 = Cadenza(a6)
            b7 = Fuori90(a7 + 1)
            b8 = Figura(a8)
            b9 = Fuori90(a9 + 6)
            '---------------------------
            c1 = Fuori90(b1 + b2)
            c2 = Fuori90(b3 + b4 + b5)
            c3 = Fuori90(b6 + b7)
            c4 = Fuori90(b8 + b9)
            '---------------------------
            n(1) = c1
            qu(1) = n(1)
            qu(2) = c2
            qu(3) = c3
            qu(4) = c4
            '-----------------------------------------------
            ruote(1) = 1
            co = co + 1
            Scrivi String(100,"°") & " Caso n°" & co,1
            Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(1) & " - " & StringaEstratti(idEstr,1),1
            Scrivi "Previsione :   Ambata " & " : " & Format2(n(1)),1
            Scrivi
            Scrivi "Quartina  : " & Format2(qu(1)) & " - " & Format2(qu(2)) & " - " & Format2(qu(3)) & " - " & Format2(qu(4)),1
            Scrivi String(100,"°"),1
            ImpostaGiocata 1,n,ruote,posta,nColpiDiGioco,1
            ImpostaGiocata 2,qu,ruote,poste,nColpiDiGioco,2
            Gioca idEstr,1
            If ScriptInterrotto Then Exit For
        End If
    Next
    Scrivi
    Scrivi String(100,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & co,1
    ColoreTesto 0
    Scrivi String(100," * ")
    TestoInBandaPassante(" IDEATO BY BLACKMORE  <> LISTATO BY  B A F F O B L U "),1,3,0
    ScriviResoconto
End Sub

 

[Roby]

buongiorno black inizio questa settimana con tanta speranza e un po' di certezza di finire questo mese facendo un bel colpo... E con questo metodo mi sa' tanto ke un bel ternino lo facciamoCIAO!!!

 

[Roby]

Uscita l'ambata 90
Si continua ugualmente (senza cambiare nulla) per i restanti 2 colpi

 

[Roby]

grazie x il 90!!!
giocato anke determinato... Mi e' venuto cosi'

 

[venesian]

oggi 24-4,è uscito il 90 che si fà si continua o è da considerarsi chiuso il metodo. Ringrazio x la eventuale risposta.

 

[violaviolaviola]

Uscita l'ambata 90
Si continua ugualmente (senza cambiare nulla) per i restanti 2 colpi

ok grazie

 

[bobby]

preso il 90 sia come estratto determinato che semplice. Grazie Blackhmore!!!!

 

[rosa962]

Bravo blakmore

queste si che sono previsioni

ciaoo

 

[morena59]

Bravo Black! Tu si che fai vincere la gente
Io mi son rotto le balle

 

[Roby]

Bravo Black! Tu si che fai vincere la gente
Io mi son rotto le balle

Si va bè, un ambata.....
Perchè ti sei rotto le balle???

PS: Hai risolto poi quel problema?
Poi ti mando una cosa....

 

[Roby]

grazie black!!!

 

[Roby]

Previsione chiusa, alla fine abbiamo preso solo l' ambata

 

[Alien.]

?