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.
 

arcor

Advanced Member
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.
 

salvo50

Advanced Member >PLATINUM PLUS<
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:

salvo50

Advanced Member >PLATINUM PLUS<
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:

Alien.

Advanced Premium Member
Ciao salvo ,immaginavo, ma mi puoi spiegare meglio il metodo ,credevo che i tre numeri fossero quelli da mettere in gioco.grazie.
 

salvo50

Advanced Member >PLATINUM PLUS<
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.
 

salvo50

Advanced Member >PLATINUM PLUS<
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
 

salvo50

Advanced Member >PLATINUM PLUS<
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
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05
Alto