Autore |
Discussione ![Discussione successiva Discussione successiva](images/lightgreen/icon_go_right.gif) |
|
vinci
Utente Sfegatato
![](images/lightgreen/icon_star_cyan.gif) ![](images/lightgreen/icon_star_cyan.gif) ![](images/lightgreen/icon_star_cyan.gif) ![](images/lightgreen/icon_star_cyan.gif) ![](images/lightgreen/icon_star_cyan.gif)
Italy
1363 invii |
Spedito - 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 |
Roberto Vinci |
Modificato da - vinci su 17 maggio 2024 19:50:52 |
|
DjNomade
Utente Molto Appassionato
![](images/lightgreen/icon_star_red.gif) ![](images/lightgreen/icon_star_red.gif) ![](images/lightgreen/icon_star_red.gif)
302 invii |
Spedito - 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
|
![Vai ad inizio pagina Vai ad inizio pagina](images/lightgreen/icon_go_up.gif) |
|
vinci
Utente Sfegatato
![](images/lightgreen/icon_star_cyan.gif) ![](images/lightgreen/icon_star_cyan.gif) ![](images/lightgreen/icon_star_cyan.gif) ![](images/lightgreen/icon_star_cyan.gif) ![](images/lightgreen/icon_star_cyan.gif)
Italy
1363 invii |
Spedito - 17 maggio 2024 : 22:35:54
|
Grazie DJ va benissimo gentile come sempre un saluto e alla prossima |
Roberto Vinci |
![Vai ad inizio pagina Vai ad inizio pagina](images/lightgreen/icon_go_up.gif) |
|
|
Discussione ![Discussione successiva Discussione successiva](images/lightgreen/icon_go_right.gif) |
|
|
|