Novità

Richiesta Script per Ambata

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

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

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
 
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
Bravissimo, un grazie di cuore, comunque ho visto che aumentando i copli da 6 a 8 la % aumenta.
 
grazie non ho spaziometria ,mi arangerò.
in bocca a lupo a tutti.
salvozac
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:

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 05 agosto 2025
    Bari
    57
    24
    52
    53
    56
    Cagliari
    43
    12
    64
    58
    22
    Firenze
    55
    05
    51
    58
    87
    Genova
    19
    80
    76
    75
    71
    Milano
    52
    44
    86
    33
    02
    Napoli
    28
    67
    29
    51
    53
    Palermo
    73
    90
    46
    51
    80
    Roma
    42
    30
    62
    02
    12
    Torino
    49
    61
    56
    11
    10
    Venezia
    66
    79
    83
    12
    07
    Nazionale
    47
    16
    32
    66
    64
    Estrazione Simbolotto
    Nazionale
    14
    05
    44
    38
    29

Ultimi Messaggi

Indietro
Alto