Novità

richiesta script per ambata Bari /Napoli

SVITLANA

Junior Member
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
 
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

Fatto al volo.. controllare sempre! 👋👾

Codice:
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

Il valore dell'adattatore (o fisso) che mi pareva avessi scritto dovesse essere il 15 👇🤔
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

lo puoi cambiare a piacimento e quindi mettere il 5 ad esempio... da questa riga:

Codice:
adattatorevoluto = 15

Se invece ho ancora preso fischi per fiaschi :D chiedo venia e ti chiedo di tentare di rispiegarmi cosa vorresti in attesa che qualcuno lo capisca meglio prima 👋 :)
 
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
 
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

Ciao, questa nuova versione, salvo errori..., implementa anche un sistema di verifica sui casi pregressi e ti evidenzia a fondo pagina, nel piccolo report riassuntivo, anche i colpi rimanenti minimi teorici per la relativa ambata (singola o doppia che sia).

Codice:
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
 
Ultima modifica:
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
 
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

Innanzi tutto complimenti per lo script (y) :)

Poi guarda se questa piccola modifica è quella che stai cercando...


Codice:
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

👋:)

ps: quando metti il codice cerca di farlo per una miglior lettura da parte di tutti tra i tag code e /code racchiusi entrambi da parentesi quadre in questo modo 👉 [ tag ] qui ci va il code [/ tag].
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 23 novembre 2024
    Bari
    33
    80
    86
    52
    25
    Cagliari
    67
    57
    59
    05
    80
    Firenze
    31
    32
    58
    88
    77
    Genova
    40
    39
    23
    36
    81
    Milano
    28
    58
    45
    25
    38
    Napoli
    20
    82
    23
    44
    57
    Palermo
    76
    56
    88
    62
    31
    Roma
    12
    81
    59
    74
    72
    Torino
    46
    53
    72
    45
    23
    Venezia
    04
    12
    42
    64
    20
    Nazionale
    63
    44
    78
    10
    55
    Estrazione Simbolotto
    Torino
    43
    42
    12
    39
    22

Ultimi Messaggi

Indietro
Alto