Novità

Richiesta Script per Ambata

S

salvo14

Super Member >PLATINUM<
Buongiorno, gentilmente è possibile fare uno Script per Ambata a ruota fissa?
Procedimento:
Ruota di gioco Napoli
3° di Firenze - Figura 2° di Milano
Colpi 6
Inizio calcolo 4^ del mese.
Grazie
 
salvo14 ha scritto:
Buongiorno, gentilmente è possibile fare uno Script per Ambata a ruota fissa?
Procedimento:
Ruota di gioco Napoli
3° di Firenze - Figura 2° di Milano
Colpi 6
Inizio calcolo 4^ del mese.
Grazie
Clicca per espandere...

Ciao salvo, l'ho buttato giù di corsa..., ma così di primo acchito, se non ho fatto errori..., sembrerebbe avere una percentuale piuttosto bassina di successi... :unsure:

Codice: 
Option Explicit
Sub Main
   Dim idEstr,k,e,nSpia
   Dim EstrazioneIniz
   EstrazioneIniz = EstrazioneFin - 3000
   Dim nEntroColpi
   Dim p
   Dim ambata(2)
   nEntroColpi = 6
   Dim nPuntiMinSuFrz(1)
   nPuntiMinSuFrz(1) = 1
   Dim sorte
   sorte = 1
   Dim pos
   For idEstr = EstrazioneIniz To EstrazioneFin
      If IndiceMensile(idEstr) = 4 Then
         ambata(1) = Fuori90(Estratto(idEstr,FI_,3))
         ambata(2) = Fuori90(Figura(Estratto(idEstr,MI_,2)))
         ReDim ruotadigioco(1)
         ruotadigioco(1) = NA_
         Call ImpostaGiocata(1,ambata,ruotadigioco,nPuntiMinSuFrz,nEntroColpi,sorte)
         Call Gioca(idEstr) ',False,False,0,0,False)
         Call Scrivi((ambata(1)) & "-" &(ambata(2)))
         'Scrivi "verifica ok..."
      End If
      Call AvanzamentoElab(EstrazioneIniz,EstrazioneFin,idEstr)
      If ScriptInterrotto Then Exit For
      'Next
   Next
   ScriviResoconto
   Call ScriviDistribuzioneCasiInCorso(True,"1,2,3,4,5,6,7,8,9")
End Sub
 
lotto_tom75 ha scritto:
Ciao salvo, l'ho buttato giù di corsa..., ma così di primo acchito, se non ho fatto errori..., sembrerebbe avere una percentuale piuttosto bassina di successi... :unsure:

Codice: 
Option Explicit
Sub Main
   Dim idEstr,k,e,nSpia
   Dim EstrazioneIniz
   EstrazioneIniz = EstrazioneFin - 3000
   Dim nEntroColpi
   Dim p
   Dim ambata(2)
   nEntroColpi = 6
   Dim nPuntiMinSuFrz(1)
   nPuntiMinSuFrz(1) = 1
   Dim sorte
   sorte = 1
   Dim pos
   For idEstr = EstrazioneIniz To EstrazioneFin
      If IndiceMensile(idEstr) = 4 Then
         ambata(1) = Fuori90(Estratto(idEstr,FI_,3))
         ambata(2) = Fuori90(Figura(Estratto(idEstr,MI_,2)))
         ReDim ruotadigioco(1)
         ruotadigioco(1) = NA_
         Call ImpostaGiocata(1,ambata,ruotadigioco,nPuntiMinSuFrz,nEntroColpi,sorte)
         Call Gioca(idEstr) ',False,False,0,0,False)
         Call Scrivi((ambata(1)) & "-" &(ambata(2)))
         'Scrivi "verifica ok..."
      End If
      Call AvanzamentoElab(EstrazioneIniz,EstrazioneFin,idEstr)
      If ScriptInterrotto Then Exit For
      'Next
   Next
   ScriviResoconto
   Call ScriviDistribuzioneCasiInCorso(True,"1,2,3,4,5,6,7,8,9")
End Sub
Clicca per espandere...
Ciao, intanto ti ringrazio moltissimo per la celerità, ma forse cè qualcosa che non và.
Lo script deve dare una sola ambata e non due, esempio: calcolo del 08/09/2020 il 2° estratto di Milano (dopo avere fatto la figura) il risultato deve essere sottratto al 3° di Firenze. Grazie
 
salvo14 ha scritto:
Ciao, intanto ti ringrazio moltissimo per la celerità, ma forse cè qualcosa che non và.
Lo script deve dare una sola ambata e non due, esempio: calcolo del 08/09/2020 il 2° estratto di Milano (dopo avere fatto la figura) il risultato deve essere sottratto al 3° di Firenze, in questo caso l'ambata da giocare era il 63 che è uscito al primo colpo. Grazie
Clicca per espandere...
 

Ah ok non avevo letto bene in effetti.
Ad ogni modo anche così, se va bene..., la %+ è bassina...

Codice: 
Option Explicit
Sub Main
   Dim idEstr,k,e,nSpia
   Dim EstrazioneIniz
   EstrazioneIniz = EstrazioneFin - 3000
   Dim nEntroColpi
   Dim p
   Dim ambata(2)
   nEntroColpi = 6
   Dim nPuntiMinSuFrz(1)
   nPuntiMinSuFrz(1) = 1
   Dim sorte
   sorte = 1
   Dim pos
   For idEstr = EstrazioneIniz To EstrazioneFin
      If IndiceMensile(idEstr) = 4 Then
         ambata(1) = Fuori90(Estratto(idEstr,FI_,3))
         ambata(2) = Fuori90(Figura(Estratto(idEstr,MI_,2)))
         ReDim ruotadigioco(1)
         ruotadigioco(1) = NA_
         ReDim Singoloestrattoingioco(1)
         Singoloestrattoingioco(1) = Fuori90(ambata(1) - ambata(2))
         Call Scrivi("Ambate di rilevamento: " &(ambata(1)) & "-" &(ambata(2)))
         Call Scrivi("Singolo estratto in gioco: " & Singoloestrattoingioco(1))
         Call ImpostaGiocata(1,Singoloestrattoingioco,ruotadigioco,nPuntiMinSuFrz,nEntroColpi,sorte)
         Call Gioca(idEstr) ',False,False,0,0,False)
         'Scrivi "verifica ok..."
      End If
      Call AvanzamentoElab(EstrazioneIniz,EstrazioneFin,idEstr)
      If ScriptInterrotto Then Exit For
      'Next
   Next
   ScriviResoconto
   Call ScriviDistribuzioneCasiInCorso(True,"1,2,3,4,5,6,7,8,9")
End Sub
 
lotto_tom75 ha scritto:
Ah ok non avevo letto bene in effetti.
Ad ogni modo anche così, se va bene..., la %+ è bassina...

Codice: 
Option Explicit
Sub Main
   Dim idEstr,k,e,nSpia
   Dim EstrazioneIniz
   EstrazioneIniz = EstrazioneFin - 3000
   Dim nEntroColpi
   Dim p
   Dim ambata(2)
   nEntroColpi = 6
   Dim nPuntiMinSuFrz(1)
   nPuntiMinSuFrz(1) = 1
   Dim sorte
   sorte = 1
   Dim pos
   For idEstr = EstrazioneIniz To EstrazioneFin
      If IndiceMensile(idEstr) = 4 Then
         ambata(1) = Fuori90(Estratto(idEstr,FI_,3))
         ambata(2) = Fuori90(Figura(Estratto(idEstr,MI_,2)))
         ReDim ruotadigioco(1)
         ruotadigioco(1) = NA_
         ReDim Singoloestrattoingioco(1)
         Singoloestrattoingioco(1) = Fuori90(ambata(1) - ambata(2))
         Call Scrivi("Ambate di rilevamento: " &(ambata(1)) & "-" &(ambata(2)))
         Call Scrivi("Singolo estratto in gioco: " & Singoloestrattoingioco(1))
         Call ImpostaGiocata(1,Singoloestrattoingioco,ruotadigioco,nPuntiMinSuFrz,nEntroColpi,sorte)
         Call Gioca(idEstr) ',False,False,0,0,False)
         'Scrivi "verifica ok..."
      End If
      Call AvanzamentoElab(EstrazioneIniz,EstrazioneFin,idEstr)
      If ScriptInterrotto Then Exit For
      'Next
   Next
   ScriviResoconto
   Call ScriviDistribuzioneCasiInCorso(True,"1,2,3,4,5,6,7,8,9")
End Sub
Clicca per espandere...
Bravissimo, un grazie di cuore, comunque ho visto che aumentando i copli da 6 a 8 la % aumenta.
 
salvozac ha scritto:
grazie non ho spaziometria ,mi arangerò.
in bocca a lupo a tutti.
salvozac
Clicca per espandere...
Cancella o metti l'Apice ' ( remmare) alla riga che da errore ... seve solo a fermare lo script ( per es. se i tempi di elborazione sono lunghi)
saluti

Option Explicit
Sub Main
Dim idEstr,k,e,nSpia
Dim EstrazioneIniz
EstrazioneIniz = EstrazioneFin - 3000
Dim nEntroColpi
Dim p
Dim ambata(2)
nEntroColpi = 6
Dim nPuntiMinSuFrz(1)
nPuntiMinSuFrz(1) = 1
Dim sorte
sorte = 1
Dim pos
For idEstr = EstrazioneIniz To EstrazioneFin
If IndiceMensile(idEstr) = 4 Then
ambata(1) = Estratto(idEstr,FI_,3)
ambata(2) = Figura(Estratto(idEstr,MI_,2))
ReDim ruotadigioco(1)
ruotadigioco(1) = NA_
ReDim Singoloestrattoingioco(1)
Singoloestrattoingioco(1) = Fuori90(ambata(1) - ambata(2))
Call Scrivi("Ambate di rilevamento: " &(ambata(1)) & "-" &(ambata(2)))
Call Scrivi("Singolo estratto in gioco: " & Singoloestrattoingioco(1))
Call ImpostaGiocata(1,Singoloestrattoingioco,ruotadigioco,nPuntiMinSuFrz,nEntroColpi,sorte)
Call Gioca(idEstr) ',False,False,0,0,False)
'Scrivi "verifica ok..."
End If
Call AvanzamentoElab(EstrazioneIniz,EstrazioneFin,idEstr)
'If ScriptInterrotto Then Exit For ' remmato
Next
ScriviResoconto
'Call ScriviDistribuzioneCasiInCorso(True,"1,2,3,4,5,6,7,8,9") ' remmato
End Sub
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 18 luglio 2025
    Bari
    48
    38
    01
    78
    24
    Cagliari
    87
    33
    22
    13
    19
    Firenze
    14
    27
    71
    11
    50
    Genova
    40
    14
    77
    76
    17
    Milano
    26
    17
    90
    64
    69
    Napoli
    40
    89
    06
    23
    84
    Palermo
    62
    51
    36
    86
    26
    Roma
    76
    33
    75
    83
    47
    Torino
    83
    19
    82
    79
    89
    Venezia
    20
    31
    13
    12
    87
    Nazionale
    74
    29
    28
    32
    78
    Estrazione Simbolotto
    Nazionale
    39
    18
    27
    28
    20
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto