Il gioco del lotto su NonSoloLotto.com

Il gioco del lotto su NonSoloLotto.com
Home | Profilo | Registrazione | Discussioni attive | Utenti | Cerca | FAQ | Entra in Chat!
Nome utente:
Password:
Salva la password
Hai dimenticato la password?

 Tutti i forum
 Lotto e altri giochi a pronostico
 Script da metodi
 X Dj Nomade script da modificare
 Nuova discussione  Partecipa alla discussione
 Versione stampabile

Autore  Discussione Discussione successiva

vinci
Utente Sfegatato

Italy
1357 invii

Spedito - 17 maggio 2024 :  14:45:16  Mostra profilo  Rispondi con citazione
'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

271 invii

Spedito - 17 maggio 2024 :  22:19:03  Mostra profilo  Rispondi con citazione

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

vinci
Utente Sfegatato

Italy
1357 invii

Spedito - 17 maggio 2024 :  22:35:54  Mostra profilo  Rispondi con citazione
Grazie DJ va benissimo gentile come sempre un saluto e alla prossima

Roberto Vinci
Vai ad inizio pagina
   Discussione Discussione successiva
 Nuova discussione  Partecipa alla discussione
 Versione stampabile
Vai a:
Il gioco del lotto su NonSoloLotto.com © NonSoloLotto.com Vai ad inizio pagina
 Image Forums 2001 Snitz Forums 2000