UNO SCRIPT CHE SI GIOCA SOLO DI SABATO

[trivellatomariotretre33]

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]

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.

 

[trivellatomariotretre33]

Ciao Mauro forse e come dici il tempo vedremo a chi dara' ragione.

 

[Alien.]

è la proposta mi pare ottima.

 

[salvo50]

Ciao a Tutti!

http://forum.lottoced.com/forum/lottoced/area-download/96356-sabato-come-fare

 

[Alien.]

Ciao Salvo puoi indicarmi la pagina # dove trovare lo script ? grazie.

 

[salvo50]

Ciao Alien!

Dovrebbe essere l'ultimo di pagina 4, volevo postartelo ma non me lo fa fare

 

[Alien.]

Ciao salvo in ogni post vi è la pagina con #62 poi #63 ecc. vedi in che pagina è,grazie.

 

[salvo50]

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

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

 

[Alien.]

OTTIMO MA LA RICERCA SI FERMA A GIU 2017 PERCHè,grazie.

 

[salvo50]

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.

 '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

 

[Alien.]

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

 

[salvo50]

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.

 

[Alien.]

Ciao, Salvo, capito,grazie.

 

[antonioquagliozzi]

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

 

[salvo50]

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]

Ciao a Tutti!

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