metodi per ambate

[muietto]

Ad ogni estrazione no, ma ad ogni quarta del mese .

buona domenica pandit ti faccio i miei complimenti per il metodo che non sbaglia un colpo.volevo chiederti ma non riesci a fare un metodo che possa dare il seccondo numero da affiancare all'altro
mi sono spiegato? ciao grazie

 

[Tizi]

qualcuno conosce metodi per ambata ( su bari,cagliari e venezia) da calcolare a ogni estrazione per 2/3 colpi al max ?

Se vuoi io le ho che si calcolano solo all'ultimo su BA/CA ( sono 25 anni che nn sbagliano ) per ottobre delle 3 ne manca solo 1

 

[Esav]

Se vuoi io le ho che si calcolano solo all'ultimo su BA/CA ( sono 25 anni che nn sbagliano ) per ottobre delle 3 ne manca solo 1

Buongiorno tizi, posso sapere il metodo? Grazie per la cortesia

 

[Tizi]

Buongiorno tizi, posso sapere il metodo? Grazie per la cortesia

Certo ... ne ho 2 che vengono calcolati all'ultima estrazione del mese
1^ 5^ di bari si gioca il n consecutivo e il n precedente del 5^ esempio settembre 5^ Ba 60 si gioca il 59 e 61 ( ambate )
2^ Si somma il primo di Bari + 5 di Ca= Ambata ottobre 83 ... Usciti già il 61 2volte e 83 ora manca il 59
Escono sempre abbastanza velocemente... a te la verifica del passato !!!

 

[Alien.]

Al secondo colpo 54...
Non sgarra un colpo il mio metodino..

Ciao Pandit se non ero sei pure capace di fare gli script o erro....altrimenti ci vorrebbe....

 

[Esav]

Certo ... ne ho 2 che vengono calcolati all'ultima estrazione del mese
1^ 5^ di bari si gioca il n consecutivo e il n precedente del 5^ esempio settembre 5^ Ba 60 si gioca il 59 e 61 ( ambate )
2^ Si somma il primo di Bari + 5 di Ca= Ambata ottobre 83 ... Usciti già il 61 2volte e 83 ora manca il 59
Escono sempre abbastanza velocemente... a te la verifica del passato !!!

Grazie mille

 

[Pandit]

Settimo colpo Terza volta oggi uscito su Nazionale.
Alien.... ecco lo script

Anticipazione (Spoiler)

Option Explicit
Sub Main
' Pandit and Toon
Dim es,Ruote(12),Nm(2)
Dim poste(2),caso,a,x,k
Ruote(1) = 2: Ruote(2) = 12'
poste(1) = 1
caso = 0
For es = EstrazioneFin - 104 To EstrazioneFin
If IndiceMensile(es) = 4 Then
x = Estratto(es,2,1)
a = Fuori90(Estratto(es,2,1) + 32)
'***
caso = caso + 1
ColoreTesto 1:Scrivi String(83,152) & " Caso N. " & caso,1
Scrivi DataEstrazione(es) & " - " & SiglaRuota(2) & " - " & StringaEstratti(es,2) & " -> " & CInt(x),1
Scrivi CInt(x) & " + 32 = " & CInt(a),1
ColoreTesto 1:Scrivi String(40,152)
'***
k = 12
Nm(1) = a
ImpostaGiocata 1,Nm,Ruote,poste,k
Gioca es,1
End If
Next
ScriviResoconto
End Sub

Per abbinamenti offre statistica, trovato in rete...

Anticipazione (Spoiler)

Sub Main
Dim abb,k,Nu(2),Ru(1)
n = InputBox("Numero in Esame",,54)
r = InputBox("Ruota in esame",,12)
Ru(1) = r
Ini = EstrazioneFin -(156*5)
fin = EstrazioneFin
ef = EstrattoFrequenza(r,n,Ini,fin)
Scrivi "Frequenza Numero in esame.... " & ef & " in Estrazioni...Tot : " & fin - Ini + 1
Call Abbinamenti(n,abb,Ini,fin,r)
Scrivi
For k = 1 To 10
Nu(1) = n
Nu(2) = abb(k,1)
perc = Round(Dividi(abb(k,2),ef),2)*100
sr = SerieRitardo(Ini,fin,Nu,Ru,2)
sf = SerieFreq(Ini,fin,Nu,Ru,2)
Call VerificaEsitoTurbo(Nu,Ru,fin - sr,2,,,,,esa,id)
Scrivi n & "-" & Format2(abb(k,1)) & " ( " & abb(k,2) & " )" & vbTab & "Ritardo da.... " & sr & vbTab & fin - sr & _
vbTab & perc & " % " & vbTab & esa & vbTab & GetInfoEstrazione(id)
Next
End Sub

Ricordate che di certo non c'è nulla...