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
    giovedì 31 luglio 2025
    Bari
    42
    35
    89
    51
    34
    Cagliari
    54
    34
    02
    77
    57
    Firenze
    73
    01
    07
    15
    04
    Genova
    71
    28
    17
    03
    67
    Milano
    72
    37
    26
    09
    63
    Napoli
    04
    46
    83
    68
    31
    Palermo
    62
    18
    36
    34
    52
    Roma
    37
    44
    49
    67
    32
    Torino
    51
    17
    56
    48
    41
    Venezia
    36
    04
    85
    81
    41
    Nazionale
    08
    52
    01
    24
    05
    Estrazione Simbolotto
    Nazionale
    21
    19
    01
    17
    43
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto