Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
chiedo se possibile, un listato che calcola quando un estratto con cadenza 3 o 8 esce almeno su una delle due ruote, sommare all'estratto il fisso 15 per ambata in pochi colpi
grazie
Option Explicit
Sub Main
' xsvitlana un listato che calcola quanto un estratto con cadenza 3 o 8 esce almeno su una delle due ruote (BA o NA), sommare all'estratto il fisso 15 per teorica ambata in pochi colpi; listato by tom
Dim es
Dim ru1
Dim ru2
ru1 = BA_
ru2 = NA_
Dim Inizio
Dim perquanteestrazioniricerco
perquanteestrazioniricerco = CInt(InputBox("Quante estrazioni di ricerca?",,369))
Inizio = EstrazioneFin - perquanteestrazioniricerco
Dim p
Dim adattatorevoluto
adattatorevoluto = 15
Scrivi
Scrivi "Elaborazione effettuata con archivio lotto aggiornato al " & GetInfoEstrazione(EstrazioneFin)
Scrivi "Analizzate ultime " & perquanteestrazioniricerco & " estrazioni "
Scrivi
For es = Inizio To EstrazioneFin
Scrivi
Scrivi GetInfoEstrazione(es)
Scrivi
Scrivi SiglaRuota(ru1) & " : " & StringaEstratti(es,ru1,".")
Scrivi SiglaRuota(ru2) & " : " & StringaEstratti(es,ru2,".")
For p = 1 To 5
If Cadenza(Estratto(es,ru1,p)) = 3 Or Cadenza(Estratto(es,ru1,p)) = 8 Then
Scrivi "condizione rilevata! " & " per l'estratto " & Estratto(es,ru1,p)
Scrivi "sommo il " & adattatorevoluto & " all'estratto " & Estratto(es,ru1,p) & " nella cadenza voluta, applico il fuori 90 se necessario e ottengo... " & Fuori90(Estratto(es,ru1,p) + 15)
End If
If Cadenza(Estratto(es,ru2,p)) = 3 Or Cadenza(Estratto(es,ru2,p)) = 8 Then
Scrivi "condizione rilevata! " & " per l'estratto " & Estratto(es,ru2,p)
Scrivi "sommo il " & adattatorevoluto & " all'estratto " & Estratto(es,ru2,p) & " nella cadenza voluta, applico il fuori 90 se necessario e ottengo... " & Fuori90(Estratto(es,ru2,p) + 15)
End If
If ScriptInterrotto Then Exit For
Next ' x p
If ScriptInterrotto Then Exit For
Next ' x es
Scrivi
Scrivi "Good Luck :) by lotto_tom75"
Scrivi "<b>Nessuna Certezza Solo Poca Probabilità</b>"
Scrivi
End Sub
Grazie per la tempestività ma, intendevo la somma col fisso 5 da giocare quale ambata sulle due ruote
grazie ancora
chiedo se possibile, un listato che calcola quanto un estratto con cadenza 3 o 8 esce almeno su una delle due ruote, sommare all'estratto il fisso 15 per ambata in pochi colpi
grazie
adattatorevoluto = 15
Buongiorno
sono io che non so spiegarmi, ignorante in merito.
Lo script deve trovare la cadenza 3 0 8 su una o entrambe le ruote, l'estratto sommato al 15 va giocato come ambata su entrambe le ruote,
es. il 4/7 bari viene estratto il 68 + 15 = 83 al secondo colpo esito 83 su Napoli.
Siccome funziona da sempre, con qualche esito negativo chiedevo lo script per un controllo statistico a ritroso
Grazie
Option Explicit
Sub Main
' xsvitlana un listato che calcola quanto un estratto con cadenza 3 o 8 esce almeno su una delle due ruote (BA o NA), sommare all'estratto il fisso 15 per teorica ambata in pochi colpi; listato by tom
Dim es
Dim ru1
Dim ru2
ru1 = BA_
ru2 = NA_
Dim Inizio
Dim perquanteestrazioniricerco
Dim colpirimanentiminimi
colpirimanentiminimi = EstrazioneFin
Dim ambataconcolpirimanentiminimi
ambataconcolpirimanentiminimi = ""
Dim ambataconcolpirimanentiminimi2
ambataconcolpirimanentiminimi2 = ""
ReDim vn(2)
ReDim vr(2)
Dim sdv
Dim rit,rtimax,Incmax,freq
Dim casipositivi
Dim casinegativi
Dim casiattuali
Dim colpirimanentirispettocolpimassimi
Dim Iniziov
Dim finev
perquanteestrazioniricerco = CInt(InputBox("Quante estrazioni di ricerca?",,90))
Inizio = EstrazioneFin - perquanteestrazioniricerco
Dim colpiv
colpiv = CInt(InputBox("Quanti colpi verificare?",,23))
Dim p
Dim adattatorevoluto
adattatorevoluto = 15
Scrivi
Scrivi "Elaborazione effettuata con archivio lotto aggiornato al " & GetInfoEstrazione(EstrazioneFin)
Scrivi "Analizzate ultime " & perquanteestrazioniricerco & " estrazioni "
Scrivi
For es = Inizio To EstrazioneFin
Scrivi
Scrivi GetInfoEstrazione(es)
Scrivi
Scrivi SiglaRuota(ru1) & " : " & StringaEstratti(es,ru1,".")
Scrivi SiglaRuota(ru2) & " : " & StringaEstratti(es,ru2,".")
For p = 1 To 5
If Cadenza(Estratto(es,ru1,p)) = 3 Or Cadenza(Estratto(es,ru1,p)) = 8 Then
Scrivi "condizione rilevata! " & " per l'estratto " & Estratto(es,ru1,p)
Scrivi "sommo il " & adattatorevoluto & " all'estratto " & Estratto(es,ru1,p) & " nella cadenza voluta, applico il fuori 90 se necessario e ottengo... " & Fuori90(Estratto(es,ru1,p) + 15)
'modulo di verifica uscite
sdv = 1
vn(1) = Fuori90(Estratto(es,ru1,p) + 15)
'vn(2) = Fuori90(Estratto(es,ru2,p) + 15)
vr(1) = BA_
vr(2) = NA_
Iniziov = es + 1
finev = es + colpiv
Call StatisticaFormazioneTurbo(vn,vr,sdv,rit,rtimax,Incmax,freq,Iniziov,finev)
If freq > 0 Then
casipositivi = casipositivi + 1
Scrivi "ok",,,,vbBlue
Else
colpirimanentirispettocolpimassimi = colpiv -(EstrazioneFin - es)
If colpirimanentirispettocolpimassimi < 0 Then
casinegativi = casinegativi + 1
Scrivi "no",,,,vbRed
Else
casiattuali = casiattuali + 1
Scrivi "caso in corso...",,,,vbBlack
Scrivi "colpi rimanenti teorici " & colpirimanentirispettocolpimassimi
If colpirimanentirispettocolpimassimi < colpirimanentiminimi Then
colpirimanentiminimi = colpirimanentirispettocolpimassimi
ambataconcolpirimanentiminimi = StringaNumeri(vn)
End If
End If
End If
'--------------------------------
End If
If Cadenza(Estratto(es,ru2,p)) = 3 Or Cadenza(Estratto(es,ru2,p)) = 8 Then
Scrivi "condizione rilevata! " & " per l'estratto " & Estratto(es,ru2,p)
Scrivi "sommo il " & adattatorevoluto & " all'estratto " & Estratto(es,ru2,p) & " nella cadenza voluta, applico il fuori 90 se necessario e ottengo... " & Fuori90(Estratto(es,ru2,p) + 15)
'modulo di verifica uscite
sdv = 1
'vn(1) = Fuori90(Estratto(es,ru1,p) + 15)
vn(2) = Fuori90(Estratto(es,ru2,p) + 15)
vr(1) = BA_
vr(2) = NA_
Iniziov = es + 1
finev = es + colpiv
Call StatisticaFormazioneTurbo(vn,vr,sdv,rit,rtimax,Incmax,freq,Iniziov,finev)
If freq > 0 Then
casipositivi = casipositivi + 1
Scrivi "ok",,,,vbBlue
Else
colpirimanentirispettocolpimassimi = colpiv -(EstrazioneFin - es)
If colpirimanentirispettocolpimassimi < 0 Then
casinegativi = casinegativi + 1
Scrivi "no",,,,vbRed
Else
casiattuali = casiattuali + 1
Scrivi "caso in corso...",,,,vbBlack
Scrivi "colpi rimanenti teorici " & colpirimanentirispettocolpimassimi
If colpirimanentirispettocolpimassimi < colpirimanentiminimi Then
colpirimanentiminimi = colpirimanentirispettocolpimassimi
ambataconcolpirimanentiminimi2 = StringaNumeri(vn)
End If
End If
End If
End If
If ScriptInterrotto Then Exit For
Next ' x p
If ScriptInterrotto Then Exit For
Next ' x es
Scrivi
Scrivi "<b>Piccolo report riassuntivo sull'analisi fatta</b>"
Scrivi
Scrivi "Elaborazione effettuata con archivio lotto aggiornato al <b>" & GetInfoEstrazione(EstrazioneFin) & "</b>"
Scrivi "Analizzate ultime <b>" & perquanteestrazioniricerco & "</b> estrazioni "
Scrivi "Ruote target BANA "
Scrivi "colpi di verifica " & colpiv
Scrivi "casi positivi " & casipositivi
Scrivi "casi negativi " & casinegativi
Scrivi "casi attuali " & casiattuali
Dim casitotali
casitotali = casipositivi + casinegativi + casiattuali
If casipositivi <> "" Then
Scrivi "%+ " &(casipositivi/casitotali)*100
End If
Scrivi "ambata con colpi rimanenti minimi " & ambataconcolpirimanentiminimi & " - " & ambataconcolpirimanentiminimi2
Scrivi "colpi rimanenti minimi teorici " & colpirimanentiminimi
Scrivi
Scrivi
Scrivi "Good Luck :) by lotto_tom75"
Scrivi
Scrivi "<b>Nessuna Certezza Solo Poca Probabilità</b>"
Scrivi
End Sub
Grazie, non è quello che cercavo.
non capisco nulla di script ma, leggendo qua e là ho buttato giù un listato che se pur funzionando mi calcola le uscite delle cadenze su entrambe le ruote, mentre dovrebbe calcolare anche l'uscita su una sola ruota.
ad ogni buon moto, allego quanto spiegato.
Sub Main()
Dim ambata(3)
Dim ruota(2)
Dim posta(2)
ruota(1) = 1
ruota(2) = 6
posta(1) = 1
fin = EstrazioneFin
ini = fin - 20
For es = ini To fin
AvanzamentoElab ini,fin,es
'If IndiceMensile(es) = 1 Then
For P = 1 To 5
For P1 = 1 To 5
a = Estratto(ES,1,P)
AA = Cadenza(A)
If AA = 3 Or AA = 8 Then
B = Estratto(ES,6,P1)
BB = Cadenza(B)
If BB = 3 Or BB = 8 Then
X = Fuori90(A + 15)
X1 = Fuori90(B + 15)
ambata(1) =(X)
ambata(2) = X1
Scrivi" ==========================================="
Scrivi DataEstrazione(es) & " " & SiglaRuota(1) & " " & StringaEstratti(es,1) & "---->" & Format2(A)
Scrivi DataEstrazione(es) & " " & SiglaRuota(6) & " " & StringaEstratti(es,6) & "---->" & Format2(B)
ColoreTesto 2
ImpostaGiocata 1,ambata,ruota,posta,6,1
Gioca es
End If
End If
Next
Next
Next
ScriviResoconto
End Sub
Sub Main()
Dim ambata(3)
Dim ruota(2)
Dim ruota1(1)
Dim ruota2(1)
ruota1(1) = BA_
ruota2(1) = NA_
Dim posta(2)
ruota(1) = 1
ruota(2) = 6
posta(1) = 1
fin = EstrazioneFin
ini = fin - 20
For es = ini To fin
AvanzamentoElab ini,fin,es
'If IndiceMensile(es) = 1 Then
For P = 1 To 5
For P1 = 1 To 5
a = Estratto(ES,1,P)
AA = Cadenza(A)
If AA = 3 Or AA = 8 Then
B = Estratto(ES,6,P1)
BB = Cadenza(B)
If BB = 3 Or BB = 8 Then
X = Fuori90(A + 15)
X1 = Fuori90(B + 15)
ambata(1) =(X)
ambata(2) = X1
Scrivi" ==========================================="
Scrivi DataEstrazione(es) & " " & SiglaRuota(1) & " " & StringaEstratti(es,1) & "---->" & Format2(A)
Scrivi DataEstrazione(es) & " " & SiglaRuota(6) & " " & StringaEstratti(es,6) & "---->" & Format2(B)
ColoreTesto 2
ImpostaGiocata 1,ambata,ruota,posta,6,1
ImpostaGiocata 2,ambata,ruota1,posta,6,1
ImpostaGiocata 3,ambata,ruota2,posta,6,1
Gioca es
End If
End If
Next
Next
Next
ScriviResoconto
End Sub