| R E V I S I O N E D E L L A D I S C U S S I O N E |
| vinci |
Posted - 17 maggio 2024 : 14:45:16
'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)
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
n14 = Fuori90(Decina(Estratto(es,4,4)) + 4)
n15 = Fuori90(Cadenza(Estratto(es,9,1)) + 16)'
n16 = Fuori90(Decina(Estratto(es,8,1))*Cadenza(Estratto(es,8,1)) + 5)'
n17 = Fuori90(90 - Estratto(es,4,2) + 1)'
Scrivi : Scrivi
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r),3) & " " & StringaEstratti(es,r) & "-----> " & Format2(a) & " " & Format2(b),1
Scrivi
numeri2(1) = n14
numeri2(2) = n15
numeri2(3) = n16
numeri2(4) = n17
EliminaRipetuti numeri2
ImpostaGiocata 1,numeri2,ruote,poste,k
Gioca es
End If
Next : Next : Next
: Next
ScriviResoconto
End Sub
Ciao DjNomade ti chiedo cortesemente se mi puoi modificare questo tuo vecchio
sript già modificato da me con queste due caratteristiche:
1) aggiungere il numero dei casi rilevati
2) aggiungere la formula che calcola l'aumento di una unità in caso di numeri doppi
Ti ringrazio per la cortesia |
| 2 U L T I M E R E P L I C H E (Newest First) |
| vinci |
Posted - 17 maggio 2024 : 22:35:54
Grazie DJ va benissimo gentile come sempre un saluto e alla prossima |
| DjNomade |
Posted - 17 maggio 2024 : 22:19:03
Controlla cosi'
Ciauz
'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
|
|
|
