Novità

modifica su script SE

lla

Advanced Member >PLATINUM PLUS<
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
E si gioca una volta l'anno all'incirca ma poi come li giochi i 20 numeri? il gioco è su tutte,grazie.
 

lla

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

Premium Member
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 >PLATINUM<
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 >PLATINUM<
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
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

Advanced Member >PLATINUM PLUS<
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
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto