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
    sabato 12 luglio 2025
    Bari
    67
    30
    66
    89
    47
    Cagliari
    06
    66
    33
    32
    37
    Firenze
    43
    25
    78
    21
    23
    Genova
    34
    20
    85
    52
    33
    Milano
    36
    19
    02
    70
    77
    Napoli
    21
    72
    74
    15
    53
    Palermo
    32
    08
    37
    02
    86
    Roma
    27
    32
    12
    67
    06
    Torino
    45
    47
    08
    13
    32
    Venezia
    29
    34
    19
    51
    53
    Nazionale
    34
    18
    56
    47
    85
    Estrazione Simbolotto
    Nazionale
    02
    26
    01
    08
    17
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto