Solo una ambata e un ambo secco ba-ca

[Gaetano Bizzoco]

Sì ho calcolato male io

 

[Coccobello]

Grazie mille buona giornata

 

[Gaetano Bizzoco]

Estrazione del 12 dicembre 29 ca
Estrazione del 14 dicembre 78 ba e ca

 

[Gaetano Bizzoco]

Estrazione del 12 dicembre 29 ca
Estrazione del 14 dicembre 78 ba e ca

13 dicembre

 

[Nando52]

Uscito per la quinta volta il 78 ma stasera ambo secco 78-29 complimenti a chi ha avuto la costanza di crederci

 

[Gaetano Bizzoco]

Metodo fenomenale

 

[camy64]

Complimenti!!!

 

[giorda]

Per una mia protesta personale sperando di far scendere gli incassi alla lottomatica non gioco il venerdì e quasta volta ci hanno guadagnato di più

 

[giorda]

Ed ora si aspetta il prossimo mese per il calcolo?

 

[Gaetano Bizzoco]

Per il mese di gennaio abbiamo 7-85

 

[Antondavide]

A me per il mese di gennaio viene ambata 43 e ambo 43-85

 

[azzarola]

Le ambate sono 43 - 85

 

[Gaetano Bizzoco]

Sì sì confermo

 

[Antondavide]

Le ambate sono 43 - 85

Ma l'ambata è una sola cioè 43

 

[Coccobello]

Grazie mille buon Anno a tutti voi!

 

[Gaetano Bizzoco]

85 BA e CA

 

[Mauro-emme]

Sub Main()
Dim Ini,Fin,es,id
Dim nAmb,nAb1,n4Bari,sumDig,n4Pa,n2Na,n2To,quad
Dim aPoste(2),aRuote(2),aAmb(1),aAmbo(2)

' --- INPUT ---
Ini = CInt(InputBox("Estrazione di inizio controllo?",,9600))
Fin = EstrazioneFin

' --- IMPOSTAZIONI ---
aRuote(1) = 1 ' Bari
aRuote(2) = 2 ' Cagliari

aPoste(1) = 1 ' Poste Ambata (1 Euro)
aPoste(2) = 1 ' Poste Ambo (1 Euro)

Scrivi "METODO CICLOMETRICO 1° DEL MESE",True,True,1,5,4
Scrivi "STOP ASSOLUTO AL PRIMO ESITO (ESTRATTO O AMBO)",True
Scrivi String(85,"-")

For es = Ini To Fin
' Controllo prima estrazione del mese
If IndiceMensile(es) = 1 Then

' --- CALCOLO AMBATA ---
' Somma cifre 4° Bari + 4° Palermo + 23
n4Bari = Estratto(es,1,4)
sumDig = (n4Bari \ 10) + (n4Bari Mod 10)
n4Pa = Estratto(es,7,4)
nAmb = Fuori90(sumDig + n4Pa + 23)

' --- CALCOLO ABBINAMENTO ---
' Quadrato 2° Napoli + 2° Torino + 80
n2Na = Estratto(es,6,2)
quad = Fuori90(n2Na * n2Na)
n2To = Estratto(es,9,2)
nAb1 = Fuori90(quad + n2To + 80)

' --- GESTIONE DUPLICATI ---
If nAmb = nAb1 Then nAb1 = Fuori90(nAb1 + 11)

' --- PREPARAZIONE VETTORI ---
aAmb(1) = nAmb
aAmbo(1) = nAmb
aAmbo(2) = nAb1

id = id + 1
Scrivi "Caso " & id & " - Data: " & DataEstrazione(es) & " [Ambata " & nAmb & " | Ambo " & nAmb & "-" & nAb1 & "]"

' --- IMPOSTAZIONE GIOCATE CON STOP ---
' L'ultimo parametro "1" indica la sorte di interruzione (Estratto)
' Se esce l'estratto, il software smette di calcolare spese per quella giocata
ImpostaGiocata 1,aAmb,aRuote,aPoste,13,1
ImpostaGiocata 2,aAmbo,aRuote,aPoste,13,1

' Questo comando lega le giocate: se vince l'ambata (G1), si ferma anche l'ambo (G2)
ImpostaInterruzioni 1,1,True
ImpostaInterruzioni 2,1,True

' Gioca es, True -> Il True indica di mostrare solo l'esito vincente e chiudere
Gioca es,True

End If
Next

ScriviResoconto
End Sub