'Lottopiu N.416 Giugno 2023 metodo Stefanlotto

'condizione necessaria che consiste nella sortita su singola ruota di due numeri In cadenza zero, necessariamente in quarta e quinta posizione
'calcolo:
' 1) alla Decina del 4° estratto di Genova sommare + 04
' 2) alla Cadenza del 1° estratto di Torino sommare + 16
' 3) moltiplicare le cifre (decina x unità) del 1° estratto di Roma, al risultato sommare + 05
' 4) calcolare il Complemento a 90 del 2° estratto di Genova e aumentarlo di 1 unità
'giocare la QUARTINA sulla Ruota dove è uscito l'ambo zerato per 10 colpi per ambo,terno e quaterna (modalità modificata da me)
'statistica da Gennaio 2024

ColoreTesto 2

Scrivi String(17,32) & " ALLA FINE GLI ZERATI VINCONO SEMPRE BY STEFANLOTTO ",1
Scrivi Date & _
Chr(32) & Chr(108) & Chr(105) & Chr(115) & Chr(116) & Chr(46) & Chr(32) & Chr(98) & Chr(121) & Chr(32) & Chr(68) & Chr(106) & Chr(78) & Chr(111) & Chr(109) & Chr(97) & Chr(100) & Chr(101),1
Scrivi String(2,Chr(11)): ColoreTesto 1
ColoreTesto 0
ColoreTesto 0

Sub Main()
Dim numeri(2),amb2(4)
Dim numeri1(5)
Dim numeri2(7)
Dim ruota(10),ruote(10)
Dim poste(5),postee(5)
Dim posta(1)
poste(2) = 1
poste(3) = 1
poste(4) = 1
k = 10
ini = 10364
fin = EstrazioneFin

For es = ini To fin
AvanzamentoElab ini,fin,es

For r = 1 To 12
If r = 11 Then r = 12
For p = 4 To 4
For q = 5 To 5
a = Estratto(es,r,p)
b = Estratto(es,r,q)

If Cadenza(a) = 0 And Cadenza(b) = 0 Then



ruota(1) = r


ruote(1) = r



amb2(1)= Fuori90(Decina(Estratto(es,4,4)) + 4)
amb2(2)= Fuori90(Cadenza(Estratto(es,9,1)) + 16)'
amb2(3)= Fuori90(Decina(Estratto(es,8,1))*Cadenza(Estratto(es,8,1)) + 5)'
amb2(4)= Fuori90(90 - Estratto(es,4,2) + 1)'


Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(amb2) Then
rip = 1
While NumeriRipetuti(amb2)
For x = 1 To 3
For y = x + 1 To 4
If amb2(x) = amb2(y) Then amb2(y) = Fuori90(amb2(y) + 1)
Next
Next
Wend
End If
Rem fine formula
casi=casi+1:Scrivi String(75,"="),1
Scrivi String(65,"-")&" caso n° "&(casi)
Scrivi'
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r),3) & " " & StringaEstratti(es,r) & "-----> " & Format2(a) & " " & Format2(b),1
Scrivi


numeri2(1) = amb2(1)
numeri2(2) = amb2(2)
numeri2(3) = amb2(3)
numeri2(4) = amb2(4)
EliminaRipetuti numeri2
ImpostaGiocata 1,numeri2,ruote,poste,k
Gioca es
End If


Next : Next : Next
: Next

ScriviResoconto
End Sub