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ì 16 settembre 2025
    Bari
    26
    29
    18
    10
    69
    Cagliari
    28
    35
    57
    44
    17
    Firenze
    19
    29
    49
    15
    17
    Genova
    23
    37
    13
    90
    58
    Milano
    33
    84
    76
    24
    79
    Napoli
    78
    15
    03
    24
    56
    Palermo
    80
    24
    41
    08
    75
    Roma
    55
    62
    83
    34
    69
    Torino
    27
    80
    69
    51
    84
    Venezia
    89
    74
    72
    82
    21
    Nazionale
    45
    20
    85
    33
    67
    Estrazione Simbolotto
    Palermo
    21
    19
    27
    36
    18
Indietro
Alto