Novità

UNO SCRIPT CHE SI GIOCA SOLO DI SABATO

trivellatomariotretre33

Super Member >PLATINUM<
SALVE BUONASERA A MIKE58 JOE E TUTTI GLI ALTRI CHE NON ELENCO MA POSSIBBILE MAI DA TANTA BRAVURA NON VIENE FUORI UNA RICHIESTA COSI COME ELENCATA SOPRA AL TITOLO DELLA PAGINA MOLTE VOLTE ANNUNCIATA E NEANCHE UNA RISPOSTA VI E COSI DIFFICILE CON L'ESPERTI CHE SIETE SULLA MATERIA
SE POTETE GIA CHE SAPETE FATELO UN PICCOLO SFORZETTO ANCHE PER SODISFAZZIONE DI UNA RISPOSTA CIAO VI SALUTO CORDIALMENTE SPERANDO IN UN LISTATO.
 
ciao Michele ci vuole pazienza cerano le vacanze in mezzo vedrai che qualcuno lo farà.al limite puoi provare a postare la richiesta anche su altri forum.
 
Provo a postarlo, penso che questo sia la base per dare dei risultati solo di sabato, poi bisogna modificarlo in base alle proprie esigenze, lo script è stato modificato per dare i risultati solo di sabato da Joe


Codice:
Sub Main()
 Dim am(1),ru(1)
 nu = "9.37.79" '---------------------------------------SPIE
 fin = EstrazioneFin : ini = fin - 1000 'controlla 100 estrazioni
 For es = ini To fin
  If Sabato(Es) Then
   : Messaggio es
   For r1 = 1 To 12
    If r1 <> 11 Then
     ru(1) = r1
     sp = Split("0." & nu,".")
     For x = 1 To 3 : sp(x) = CInt(sp(x)) : Next
     If SerieFreq(es,es,sp,ru,1) = 1 Then
      For p = 1 To 5
       a = Estratto(es,r1,p)
       For x = 1 To 3
        If a = sp(x) Then
         sp(x) = 0
         b = a
        End If
       Next : Next
       For r2 = 1 To 12
        If r2 <> 11 And r2 <> r1 Then
         ru(1) = r2
         If SerieFreq(es,es,sp,ru,2) = 1 Then
          Scrivi DataEstrazione(es,1) & " " & SiglaRuota(r1) & " " & Format2(b) & Chr(10) & _
          Space(15) & SiglaRuota(r2) & " " & StringaNumeri(sp) & Chr(10)
         End If
        End If : Next
       End If
      End If : Next
     End If
    Next
End Sub


Function Sabato(Es)
 Sabato = False
 Data = Replace(DataEstrazione(Es),".","/")
 Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
 Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
 If WeekDay(Data) = vbSaturday Then Sabato = True
End Function
 
Ultima modifica:
Perche questo script di esempio, cerca 3 spie in due ruote solo di sabato, e probabilmente le 3 spie impostate, dopo quella data di sabato, non sono più uscite.

questo cerca solo le date di sabato, quindi dovresti avere l'ultima data, di sabato.

Codice:
 'Function Sabato by Joe V.1.0. del 10/05/2012 (Vista/Spaziometria 1.3.73)
Sub Main()
For Es = EstrazioneFin - 450 To EstrazioneFin
If Sabato(Es) Then
Scrivi DataEstrazione(Es)
End If
Next
End Sub

Function Sabato(Es)
Sabato = False
Data = Replace(DataEstrazione(Es),".","/")
Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
If WeekDay(Data) = vbSaturday Then Sabato = True
End Function
 
Ultima modifica:
Ciao salvo ,immaginavo, ma mi puoi spiegare meglio il metodo ,credevo che i tre numeri fossero quelli da mettere in gioco.grazie.
 
Ciao Alien

effettivamemte l'autore del metodo li chiama spie, ma sono numeri che ha inserito lui, nella terza riga dello script

nu = "9.37.79" '---------------------------------------SPIE quindi secondo me li puoi usare sia come spie che come numeri da giocare, ma non sono numeri che ti dà lo script, sono numeri inseriti da te.
 
antonioquagliozzi;n2103633 ha scritto:
salve sig salvo 50 cerco un suo script "proposto da alien"script da by salvo 50" su ba ca alla 13° del mese,amb, ambo e terno,grazie

Ciao a Tutti.

Non ricordo di aver fatto questo script
 
Ciao a Tutti!

Trovato nel mio computer, ma non riesco a trovare dove l'ho postato, apro un altro topic
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 07 ottobre 2025
    Bari
    22
    79
    42
    33
    02
    Cagliari
    06
    81
    69
    21
    73
    Firenze
    52
    15
    67
    03
    60
    Genova
    21
    76
    02
    23
    19
    Milano
    28
    35
    08
    53
    60
    Napoli
    05
    57
    14
    39
    43
    Palermo
    46
    35
    40
    64
    48
    Roma
    04
    80
    71
    23
    40
    Torino
    38
    53
    05
    78
    50
    Venezia
    90
    43
    01
    60
    02
    Nazionale
    02
    41
    72
    22
    31
    Estrazione Simbolotto
    18
    37
    07
    22
    09
Indietro
Alto