Novità

modifica su script SE

lla

Super Member >PLATINUM<
Messaggi
401
Punti reazione
7
Punti
18
ciao a tutti

ho trovato questo scriptino per superenalotto

qualcuno gentilmente potrebbe modificarmelo in modo tale che anzichè trovare estrazioni dove il 1°+ il 2°=30 trovi 2 numeri a scelta a prescindere dalla posizione di uscita, tipo ambo spia?
e se possibile vedere nei 10 colpi anche l'estrazione per verifica? per ora mette solo gli estratti e fianco la data
grazie mille

Sub Main
' gioca i numeri da 1 a 20 per 10 colpi se la somma del primo e secondo numero dell'estrazione fa 30
' i 10 colpi si interrompono se fa 4 punti

ReDim aNumeri(20) ' array nueri in giocoo
Dim k ' contrllo cicli

For k = 1 To 20 ' preimposto i numeri in gioco da 1 a 20
aNumeri(k) = k
Next


For k = 1 To EstrazioniArchivioSE ' gioco su tutto l'archivio


If EstrattoSE(k,1) + EstrattoSE(k,2) = 30 Then ' se la somma del primo e secondo numero fa 30 gioco
Call ScriviEstrazioneSE(k,True) ' scrivo l'estrazione che ha generato il pronostico
Call ImpostaGiocataSE(1,aNumeri,,10,4) ' gioca per 10 colpi che si interrompono appena fa 4 punti
Call GiocaSE(k) ' gioco i numeri al superenalotto
End If
Next


Call ScriviResocontoSE ' scrivo resoconto superenalotto



End Sub
 

Alien.

Advanced Premium Member
Messaggi
23.415
Punti reazione
191
Punti
63
E si gioca una volta l'anno all'incirca ma poi come li giochi i 20 numeri? il gioco è su tutte,grazie.
 

lla

Super Member >PLATINUM<
Messaggi
401
Punti reazione
7
Punti
18
ciao Alien

in realtà mi serve solo per fare ricerche e verifiche, a differenza del lotto di programmi per il supernalotto ce ne sono pochi e ho pensato di usare questo semplice semplice, solo che mette la posizione sui numeri e volevo essere libera di scegliere 2 numeri sulla sestina senza la posizione.
io sono stata capace solo di modificare If EstrattoSE(k,1) + EstrattoSE(k,2) = 30

in
If EstrattoSE(k,1)= Numero a scelta 1 and EstrattoSE(k,2) =numero a scelta 2 ma mi tocca cambiare le posizioni a mano :D
 

Master

Advanced Member
Messaggi
709
Punti reazione
21
Punti
18
Prova questo

Codice:
Sub Main
   ' gioca i numeri da 1 a 20 per 10 colpi se trova i 2 numeri scelti nell'estrazione
   Dim RetEsito,RetColpi,RetEstratti,RetIdEstr
   Dim xlp,xColpi,AA,S,A,B,P,P1,P3,E1,Sorte
   AA = InputBox("Inserisci 2 Numeri SEPARATI dal punto"," NUMERI SPIA","38.60")
   AA = "0." & AA
   S = Split(AA,".")
   A = CInt(S(1)) : B = CInt(S(2))
   Sorte = CInt(InputBox("Sorte ?","SORTE",3))
   xColpi = CInt(InputBox("Quanti colpi ?","COLPI",10))
   ReDim aNumeri(30) ' array nueri in giocoo
   Dim k ' contrllo cicli
   For k = 20 To 30 ' preimposto i numeri in gioco da 1 a 20
      aNumeri(k) = k
   Next
   For k = 1 To EstrazioniArchivioSE ' gioco su tutto l'archivio
      For P = 01 To 6
         For P1 = 01 To 6
            If EstrattoSE(k,P) = A And EstrattoSE(k,P1) = B Then ' a e b numeri spia
               Scrivi(k) & " " & DataEstrazioneSE(k,1) & " - ",1,0
               For P3 = 1 To 8
                  E1 = EstrattoSE(k,P3)
                  If E1 = A Or E1 = B Then
                     ColoreTesto 2
                  Else
                     ColoreTesto 0
                  End If
                  Scrivi Format2(E1) & " ",1,0
                  ColoreTesto 0
               Next
               Scrivi" -"
               'Call ScriviEstrazioneSE(k,True)
               For xlp = 01 To xColpi
                  If VerificaEsitoSE(aNumeri,k + xlp,Sorte,01,RetEsito,RetColpi,RetEstratti,RetIdEstr) = True Then
                     ColoreTesto 2
                     Call Scrivi(FormatSpace(xlp,02,- 01) & "° clp.. " & DataEstrazioneSE(k + xlp) & _
                     " ... " & StringaNumeri(aNumeri) & " ... " & StringaEstrattiSE(k + xlp) & " --- " & FormatSpace(RetEsito,08,- 01) & " " & RetEstratti)
                     ColoreTesto 0
                  ElseIf RetEsito = "" And RetColpi < 01 Then
                     Call Scrivi("Esito in Corso per il " & Format2(xlp) & "° clp ",01)
                  Else
                     Call Scrivi(FormatSpace(xlp,02,- 01) & "° clp.. " & DataEstrazioneSE(k + xlp) & _
                     " ... " & StringaNumeri(aNumeri) & " ... " & StringaEstrattiSE(k + xlp) & " --- " & "negativo ")
                  End If
                  If k + xlp > EstrazioniArchivioSE Then Exit For
               Next
               Scrivi
            End If
         Next
      Next
   Next
End Sub
 
Ultima modifica:

i legend

Advanced Member >PLATINUM PLUS<
Messaggi
3.441
Punti reazione
188
Punti
63
Ciao, non ho il programma quindi non posso verificare
Se ho letto bene lo script , se vuoi verificare la presenza dell ambo spia
Potresti usare la funzione puntisuarray ma non ricordo se esiste anche per Superenalotto, oppure anziché fare due cicli usare
If posizione del primo numero >0 and posizione secondo numero >0 then
Questo dovrebbe velocizzare la ricerca .
Se ho interpretato male , spero che questa soluzione possa essere utile in altrio contesto.
Ciao :)
P.s
Del Superenalotto non conosco neanche le regole
 

Master

Advanced Member
Messaggi
709
Punti reazione
21
Punti
18
Ciao i legend
punti su array non l'ho ancora usato, quando ho tempo lo proverò,
non sono stato tanto a velocizzare lo script
dato che impiega circa 2 secondi dall'estrazione 1 all'estrazione fin :)
ti ringrazio per i consigli, c'è sempre qualcosa da imparare
alla prossima
 

genios

Advanced Member
Messaggi
726
Punti reazione
8
Punti
18
Visto che si parla di SuperEnalotto Qualcuno potrebbe sviluppare il seguente script per super enalotto : dall estrazione iniziale all estrazione finale step 10 Consideriamo le 30 terzine simmetriche quindi selezionare le terzine simmetriche che in 10 estrazioni non hanno dato nessun estratto (1) questa condizione deve essere verificata su i primi 7 numeri della colonna vincente . Raggrupparle le terzine simmetriche che in 10 estrazioni non hanno dato nessun estratto e metterle insieme , quindi fare il controllo su i risultati per 2 3 4 5 e 6 punti .Il controllo dovrà essere fatto su i 6 numeri della colonna vincente per 5 estrazioni .

ciao Eugenio
 

Alien.

Advanced Premium Member
Messaggi
23.415
Punti reazione
191
Punti
63
Ma ti pare che un alieno faccia gli script so guidare l'astronave ,trasformarmi in un albero ma lo script no:unsure::p:p:p
 

lla

Super Member >PLATINUM<
Messaggi
401
Punti reazione
7
Punti
18
vi vedo felici e scherzosi avete fatto terno? 😂

Master o chi può
si potrebbero aggiungere sempre a questo script modificato un paio di informazioni?

una tabellina con una colonna che dice quali sono i numeri + frequenti dopo l'ambo spia ?
per es. dopo l'ambo spia a scelta 10- 20 che mettiamo si sia verificato in 10 estrazioni su 100
quante volte è uscito il 12?
per es.3 volte sulle 10 totali

e un'altra colonna dove inserisce gli ambi più frequenti
quindi quante volte dopo il 10 e 20 si è verificato per es. il 12-14?

grazie
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 maggio 2020
    Bari
    40
    58
    46
    71
    84
    Cagliari
    73
    29
    19
    24
    27
    Firenze
    13
    58
    39
    36
    19
    Genova
    68
    63
    58
    55
    31
    Milano
    78
    18
    09
    75
    80
    Napoli
    41
    62
    21
    79
    25
    Palermo
    89
    25
    87
    67
    27
    Roma
    57
    58
    66
    41
    68
    Torino
    06
    87
    20
    02
    46
    Venezia
    90
    16
    77
    52
    26
    Nazionale
    54
    26
    52
    49
    60
Alto