Superenalotto

Amedeo1972 · 10 Maggio 2016

Nel ringraziare Moro_80 per il Plugin fatto per il Superenalotto volevo chiedere agli scripter un favore , uno script per una ricerca che sto facendo con carta e penna per il superenalotto , vi spiego cosa mi serve :
1) Lo script mi dovrebbe chiedere quante estrazioni vuoi analizzare? ( Estrazioni Superenalotto ) (n10,20,30,ecc....)
2) Vuoi inserire il Numero Jolly? ( SI o NO )
3) Vuoi inserire il Numero SuperStar ( SI o NO )
4) In base alle estrazioni che analizzo 10,20,30, ecc..., lo script mi dovrebbe dire di tutti i 90 numeri le loro uscite nelle estrazioni analizzate possibilmente in tabella sarebbe piu' comodo.
Vi faccio un esempio di cosa mi dovrebbe restituire :
ESTRATTI USCITI 1 VOLTA = ..................................................
ESTRATTI USCITI 2 VOLTE = ..................................................
ESTRATTI USCITI 3 VOLTE = ..................................................
ESTRATTI USCITI 4 VOLTE = ..................................................
ESTRATTI USCITI 5 VOLTE = ..................................................
ESTRATTI USCITI 6 VOLTE = ..................................................
ESTRATTI USCITI 7 VOLTE = ..................................................

ECC......

Lo so per adesso e solo una ricerca ma in base a questa ricerca dopo ci sara' un seguito con i calcoli da fare per avere la previsione . Ringrazio anticipatamente chiunque voglia aiutarmi e spero che non sia molto difficile per voi perche' io non ci riesco , grazie , ciao.

Mike58 · 11 Maggio 2016

Ciao Amedeo, accontentati per ora della sola presenza degli estratti in sestina senza conteggio dei numeri jolly e Superstar.
Lo script è abbastanza semplice nella sua stesura nel conteggio solo presenze, mentre per il conteggio jolly e superstar è più complicato anche se penso non impossibile (ma non ho approfondito)

Ciao intanto utilizzalo cosi per i tuoi scopi.

Codice:

Sub Main
 Dim Riga,T,V,Nu(1)
 estr = InputBox("Quante estrazioni Analizzo",,20)
 Ini = EstrazioniArchivioSE - estr
 fin = EstrazioniArchivioSE
 Tot = fin - Ini
 Scrivi "Presenze SuperEnalotto",1,1,,1,3,,1
 Scrivi "Range Inizio  : " & DataEstrazioneSE(Ini)
 Scrivi "Range Fine    : " & DataEstrazioneSE(fin)
 Scrivi "Totali Estraz.: " & Tot
 Scrivi
 T = Array(T,"N.Presenze","Numeri","Q.tà")
 Call InitTabella(T)
 For x = 0 To estr
  For n = 1 To 90
   Nu(1) = n
   If SerieFreqSE(Ini,fin,Nu,1) = x Then
    k = k + 1
    Riga = Riga & Nu(1) & " "
   End If
  Next
  If Riga <> "" Then
   V = Array(V,x,Riga,k)
   Call AddRigaTabella(V)
  End If
  Riga = ""
  k = 0
 Next
 Call CreaTabella()
End Sub

Amedeo1972 · 11 Maggio 2016

Grazie Sig.Mike58 sei stato gentilissimo lo script e perfetto in tre secondi a analizzato 30 estrazioni il 99,99% del lavoro e fatto adesso devo studiare un po di cose che o in mente e spero che riesco nel mio intendo , come riesco a finire questo lavoro saro' felicissimo di farvi sapere i miei studi e di condividere tutto con voi tutti , per adesso grazie , grazie , grazie.

edesimone · 13 Maggio 2016

Buona sera Mike58

lanciando questo scripter, quante estrazioni analizzo, io metto 5, mi da questa

Presenze SuperEnalotto Range Inizio : 30.04.2016 Range Fine : 12.05.2016 Totali Estraz.: 5

quello che voglio sapere perchè mi calcola Totali Estraz.: 5, se il Range Inizio : 30.04.2016 e il Range Fine : 12.05.2016

il Totali Estraz.: dovrebbe essere 6, si può mofificare in modo che calcoli 6.

Mike58 · 13 Maggio 2016

In effetti le estrazioni conteggiate sono 6, basta modificare la linea di codice che fa l'operazione

Tot = fin - ini ' che da come risultato 5
con
Tot = fin - ini + 1 ' ed il risultato sarà = 6

Ciao

P.s. vi che ho aggiunto altre indicazioni vi posto il listato.

Codice:

Sub Main
 Dim T,V,Nu(1)
 estr = InputBox("Quante estrazioni Analizzo",,20)
 Ini = EstrazioniArchivioSE - estr
 fin = EstrazioniArchivioSE
 Tot = fin - Ini + 1
 Scrivi "Presenze SuperEnalotto",1,1,,1,3,,1
 Scrivi "Range Inizio  : " & DataEstrazioneSE(Ini)
 Scrivi "Range Fine    : " & DataEstrazioneSE(fin)
 Scrivi "Totali Estraz.: " & Tot
 Scrivi
 T = Array(T,"N.Presenze","Numeri","Q.tà","Ritardo Serie","Verifica","esito")
 Call InitTabella(T)
 For x = 0 To estr
  For n = 1 To 90
   Nu(1) = n
   If SerieFreqSE(Ini,fin,Nu,1) = x Then
    k = k + 1
    ReDim Preserve riga(k)
    riga(k) = n
    sr = SerieRitardoSE(Ini,fin,riga,1)
    Call VerificaEsitoSE(riga,EstrazioniArchivioSE,1,,esito,,es1)
   End If
  Next
  If k > 0 Then
   V = Array(V,x,StringaNumeri(riga),k,sr,es1,esito)
   Call AddRigaTabella(V)
  End If
  'riga = ""
  k = 0
 Next
 Call CreaTabella()
 Scrivi "Ulima Estrazione : " & StringaEstrattiSE(fin),1
 Scrivi
 Scrivi
 Scrivi "Script By Mike58",1,,,1,2,,1
End Sub

Mike58 · 13 Maggio 2016

Sapendo che sei appassionato del10 e lotto ti posto anche lo stesso script per il 10 e lotto.

Codice:

Sub Main
 Dim T,V,Nu(1)
 arch = InputBox("Quale archivio 10 e lotto" & Chr(13) & Chr(13) & "1 - Serale " & Chr(13) & "2 - 5 Min",,1)
 ImpostaArchivio10ELotto (arch)
 estr = InputBox("Quante estrazioni Analizzo",,20)
 If arch = 1 Then scelta = "Serale"
 If arch = 2 Then scelta = "5 Minuti"  
 Ini = EstrazioniArchivioDL - estr
 fin = EstrazioniArchivioDL
 Tot = fin - Ini + 1
 Scrivi "Presenze 10 e Lotto " & scelta,1,1,,1,3,,1
 Scrivi "Range Inizio  : " & DataEstrazioneDL(Ini)
 Scrivi "Range Fine    : " & DataEstrazioneDL(fin)
 Scrivi "Totali Estraz.: " & Tot
 Scrivi
 T = Array(T,"N.Presenze","Numeri","Q.tà","Ritardo Serie","Verifica","esito")
 Call InitTabella(T)
 For x = 0 To estr
  For n = 1 To 90
   Nu(1) = n
   If SerieFreqDL(Ini,fin,Nu,1) = x Then
    k = k + 1
    ReDim Preserve riga(k)
    riga(k) = n
    sr = SerieRitardoDL(Ini,fin,riga,1)
    Call VerificaEsitoDL(riga,EstrazioniArchivioDL,1,,esito,,es1)
   End If
  Next
  If k > 0 Then
   V = Array(V,x,StringaNumeri(riga),k,sr,es1,esito)
   Call AddRigaTabella(V)
  End If
  'riga = ""
  k = 0
 Next
 Call CreaTabella()
 Scrivi "Ulima Estrazione : " & StringaEstrattiDL(fin),1
 Scrivi
 Scrivi
 Scrivi "Script By Mike58",1,,,1,2,,1
End Sub

Alien. · 14 Maggio 2016

Ciao Mike ,favoloso script ma da il tutto a estrazione avvenuta ma non da il pronostico ?
Poi senti cosa mi è successo da Passion ti puoi informare? non entro......grazie-

Mike58 · 14 Maggio 2016

Alien, lo script è di natura statistica e trova le frequenze per quantità in un numero predefinito di estrazioni.
No non ci sono previsioni, le previsioni o l'utilizzo per questo fine lo può solo dire l'autore della richiesta.

Altri forum non li frequento più (faccio fatica a frequentare questo dove c'è il papà degli insegnamenti scriptici) e pertanto non ti posso per questo aiutare.

Ciao e non ti cacciare in situazioni complicate.

Alien. · 14 Maggio 2016

è hai ragione.....sono esperto in situazioni complica....devo prendermi una camomilla .....hhahaah grazie.

Amedeo1972 · 14 Maggio 2016

Grazie Mike58 per quello che fai sei una bravissima persona , ancora niente per jolly e Superstar? Grazie ancora , ciao.

vengio · 15 Maggio 2016

Chiedo scusa se approfitto di questo post ma mi sembra che in spaziometria non vi sia l'opzione di controllo vincite su un singolo file colonnare, ridotto o altro, rispetto all'archivio, o meglio c'è un'opzione che richiama tale funzione ma non funziona nel modo adeguato. Sbaglio io?

Mike58 · 15 Maggio 2016

Per Vengio, ricordo che mastichi un pochetto codici script , questo potresti farlo richiamando il flle colonnare memorizzato in un file di testo con tutti i codici con suffisso FT e farti lo script ad oc.
Se esiste in altri modi non so.

Per Amedeo non esiste la possibiltà di fare statistica scriptica con i numeri jolly e Superstar al Superenalotto in quanto i codici per tale statistica non ci sono, diversamente con il 10 e lotto che c'è l'apposioto codice per il numeroOro.

Ma prova a vedere se con l'escamotage dei numeriRipetuti nel vettore riesci ugualmente a raggiungere lo scopo di raccolta dati.

Codice:

Sub Main
 Dim T,V,Nu(1),star(1),jolly(1),vetQj,vetNj,vetQs,vetNs
 estr = InputBox("Quante estrazioni Analizzo",,30)
 Ini = EstrazioniArchivioSE - estr
 fin = EstrazioniArchivioSE
 Tot = fin - Ini + 1
 Scrivi "Presenze SuperEnalotto",1,1,,1,3,,1
 Scrivi "Range Inizio  : " & DataEstrazioneSE(Ini)
 Scrivi "Range Fine    : " & DataEstrazioneSE(fin)
 Scrivi "Totali Estraz.: " & Tot
 Scrivi
 T = Array(T,"N.Presenze","Numeri","Q.tà","Ritardo Serie","Verifica","esito")
 Call InitTabella(T)
 For x = 0 To estr
  For n = 1 To 90
   Nu(1) = n
   If SerieFreqSE(Ini,fin,Nu,1) = x Then
    k = k + 1
    ReDim Preserve riga(k)
    riga(k) = n
    sr = SerieRitardoSE(Ini,fin,riga,1)
    Call VerificaEsitoSE(riga,EstrazioniArchivioSE,1,,esito,,es1)
   End If
  Next
  If k > 0 Then
   V = Array(V,x,StringaNumeri(riga),k,sr,es1,esito)
   Call AddRigaTabella(V)
  End If
  'riga = ""
  k = 0
 Next
 Call CreaTabella()
 Scrivi "Ulima Estrazione : " & StringaEstrattiSE(fin),1
 Scrivi
 Tt = Array(Tt,"N.Presenze","Numeri","Q.tà","Q.tà Ripetuti","Numeri Ripetuti")
 Call InitTabella(Tt)
 'For xx = 1 To estr
 For es = Ini To fin
  star(1) = EstrattoSE(es,8)
  jolly(1) = EstrattoSE(es,7)
  If EstrattoFrequenzaSE(star(1),Ini,fin) > 0 Then
   kk = kk + 1
   ReDim Preserve stella(kk)
   stella(kk) = star(1)
  End If
  If EstrattoFrequenzaSE(jolly(1),Ini,fin) > 0 Then
   kj = kj + 1
   ReDim Preserve joll(kj)
   joll(kj) = jolly(1)
  End If
  'Next
 Next
 
 Call NumeriRipetutiRilevatiV(joll,vetNj,vetQj)
 Call NumeriRipetutiRilevatiV(stella,vetNs,vetQs)
 'If kk > 0 Then
 vv = Array(vv,"SuperStar",StringaNumeri(stella,,1),kk,StringaNumeri(vetQs),StringaNumeri(vetNs))
 Call AddRigaTabella(Vv)
 Vj = Array(Vj,"jolly",StringaNumeri(joll,,1),kj,StringaNumeri(vetQj),StringaNumeri(vetNj))
 Call AddRigaTabella(Vj)
 'End If
 kk = 0
 kj = 0
 vetQj = 0
 vetQs = 0
 CreaTabella
 Scrivi
 Scrivi "Script By Mike58",1,,,1,2,,1
End Sub

Ciao

Mike58 · 15 Maggio 2016

chiaramente sono caparbio e la statistica dei numeri superstar e Jolly è possibile con gli escamotage delle posizioni.

Codice:

'Option Explicit
Sub Main
 Dim k,x,T,V
 arch = InputBox("Quante Estrazioni",,30)
 scelta = CInt(InputBox("Quale posizione" & Chr(13) & Chr(13) & "7 = Jolly" & Chr(13) & "8 = SuperStar",,8))
 If scelta = 7 Then Scrivi "Jolly"
 If scelta = 8 Then Scrivi "SuperStar"
 T = Array(V,"Numero","Ritardo","Frequenza")
 Call InitTabella(T)
 ReDim aPos(8)
 aPos(scelta) = True
 ReDim aNum(1)
 For x = 1 To 90
  aNum(1) = x
  V = Array(V,x,RitardoCombinazioneSE(aNum,1,,aPos),EstrattoFrequenzaSE(x,EstrazioniArchivioSE - arch,EstrazioniArchivioSE,aPos))
  Call AddRigaTabella(V)
 Next
 Call CreaTabella(3)
End Sub

vengio · 15 Maggio 2016

Mike58;n1977829 ha scritto:

Per Vengio, ricordo che mastichi un pochetto codici script , questo potresti farlo richiamando il flle colonnare memorizzato in un file di testo con tutti i codici con suffisso FT e farti lo script ad oc.
Se esiste in altri modi non so.

Per Amedeo non esiste la possibiltà di fare statistica scriptica con i numeri jolly e Superstar al Superenalotto in quanto i codici per tale statistica non ci sono, diversamente con il 10 e lotto che c'è l'apposioto codice per il numeroOro.

Ma prova a vedere se con l'escamotage dei numeriRipetuti nel vettore riesci ugualmente a raggiungere lo scopo di raccolta dati.

Codice:

Sub Main
Dim T,V,Nu(1),star(1),jolly(1),vetQj,vetNj,vetQs,vetNs
estr = InputBox("Quante estrazioni Analizzo",,30)
Ini = EstrazioniArchivioSE - estr
fin = EstrazioniArchivioSE
Tot = fin - Ini + 1
Scrivi "Presenze SuperEnalotto",1,1,,1,3,,1
Scrivi "Range Inizio : " & DataEstrazioneSE(Ini)
Scrivi "Range Fine : " & DataEstrazioneSE(fin)
Scrivi "Totali Estraz.: " & Tot
Scrivi
T = Array(T,"N.Presenze","Numeri","Q.tà","Ritardo Serie","Verifica","esito")
Call InitTabella(T)
For x = 0 To estr
For n = 1 To 90
Nu(1) = n
If SerieFreqSE(Ini,fin,Nu,1) = x Then
k = k + 1
ReDim Preserve riga(k)
riga(k) = n
sr = SerieRitardoSE(Ini,fin,riga,1)
Call VerificaEsitoSE(riga,EstrazioniArchivioSE,1,,esito,,es1)
End If
Next
If k > 0 Then
V = Array(V,x,StringaNumeri(riga),k,sr,es1,esito)
Call AddRigaTabella(V)
End If
'riga = ""
k = 0
Next
Call CreaTabella()
Scrivi "Ulima Estrazione : " & StringaEstrattiSE(fin),1
Scrivi
Tt = Array(Tt,"N.Presenze","Numeri","Q.tà","Q.tà Ripetuti","Numeri Ripetuti")
Call InitTabella(Tt)
'For xx = 1 To estr
For es = Ini To fin
star(1) = EstrattoSE(es,8)
jolly(1) = EstrattoSE(es,7)
If EstrattoFrequenzaSE(star(1),Ini,fin) > 0 Then
kk = kk + 1
ReDim Preserve stella(kk)
stella(kk) = star(1)
End If
If EstrattoFrequenzaSE(jolly(1),Ini,fin) > 0 Then
kj = kj + 1
ReDim Preserve joll(kj)
joll(kj) = jolly(1)
End If
'Next
Next

Call NumeriRipetutiRilevatiV(joll,vetNj,vetQj)
Call NumeriRipetutiRilevatiV(stella,vetNs,vetQs)
'If kk > 0 Then
vv = Array(vv,"SuperStar",StringaNumeri(stella,,1),kk,StringaNumeri(vetQs),StringaNumeri(vetNs))
Call AddRigaTabella(Vv)
Vj = Array(Vj,"jolly",StringaNumeri(joll,,1),kj,StringaNumeri(vetQj),StringaNumeri(vetNj))
Call AddRigaTabella(Vj)
'End If
kk = 0
kj = 0
vetQj = 0
vetQs = 0
CreaTabella
Scrivi
Scrivi "Script By Mike58",1,,,1,2,,1
End Sub

Ciao

Caro Mike come hai detto mastico un pochetto, puoi farmi un esempio reale di cio che hai scritto? Grazie e ciao.

Mike58 · 15 Maggio 2016

Ciao Vengio, non è facile fare un esempio concreto, ma vediamo se ti posso essere di aiuto dato che un pochetto ti intenti di script.

con questo script dovresti leggere un file colonnare che avrai salvato in una locazione voluta e dopo costruirci attorno tutte le situazioni che vorrai ricavare.

Codice:

Option Explicit
Sub Main
 Dim sFile
 Dim nClasse
 Dim nColonneTot
 Dim k
 sFile = ScegliFile(GetDirectoryAppData,".col")' directory del file colonnare
 If FileEsistente(sFile) Then
  ReDim aRetCol(0)
  Call LeggiColonnaSistema(aRetCol,1,sFile,nClasse,nColonneTot)
  For k = 1 To nColonneTot
   ReDim aRetCol(0)
   Call LeggiColonnaSistema(aRetCol,k,sFile)
   Call Scrivi(StringaNumeri(aRetCol))
  Next
 End If
End Sub

ciao

vengio · 15 Maggio 2016

Mike58;n1977923 ha scritto:
Ciao Vengio, non è facile fare un esempio concreto, ma vediamo se ti posso essere di aiuto dato che un pochetto ti intenti di script.

con questo script dovresti leggere un file colonnare che avrai salvato in una locazione voluta e dopo costruirci attorno tutte le situazioni che vorrai ricavare.

Codice:

Option Explicit Sub Main Dim sFile Dim nClasse Dim nColonneTot Dim k sFile = ScegliFile(GetDirectoryAppData,".col")' directory del file colonnare If FileEsistente(sFile) Then ReDim aRetCol(0) Call LeggiColonnaSistema(aRetCol,1,sFile,nClasse,nColonneTot) For k = 1 To nColonneTot ReDim aRetCol(0) Call LeggiColonnaSistema(aRetCol,k,sFile) Call Scrivi(StringaNumeri(aRetCol)) Next End If End Sub

ciao

Grazie Mike, ho caricato il file adesso devo vedere se riesco da allegare il resto. Spero tu rimanga in zona nel caso mi perdessi.

Amedeo1972 · 15 Maggio 2016

Grazie Mike58 sei un grande anche se l'ultimo script per il file colonnare non l'ho capito ma a me vanno benissimo gli altri che ai fatto sono ottimi per la mia ricerca , grazie ancora , ciao.

vengio · 16 Maggio 2016

Mike58;n1977923 ha scritto:
Ciao Vengio, non è facile fare un esempio concreto, ma vediamo se ti posso essere di aiuto dato che un pochetto ti intenti di script.

con questo script dovresti leggere un file colonnare che avrai salvato in una locazione voluta e dopo costruirci attorno tutte le situazioni che vorrai ricavare.

Codice:

Option Explicit Sub Main Dim sFile Dim nClasse Dim nColonneTot Dim k sFile = ScegliFile(GetDirectoryAppData,".col")' directory del file colonnare If FileEsistente(sFile) Then ReDim aRetCol(0) Call LeggiColonnaSistema(aRetCol,1,sFile,nClasse,nColonneTot) For k = 1 To nColonneTot ReDim aRetCol(0) Call LeggiColonnaSistema(aRetCol,k,sFile) Call Scrivi(StringaNumeri(aRetCol)) Next End If End Sub

ciao

Ciao Mike, mi sono perso. Devo controllare un file di 47 colonne mensilmente e non so come uscirne, se puoi aiutarmi.

Mike58 · 16 Maggio 2016

Ciao Vengio, una volta lanciato lo script devi ricercare le colonne salvate anche in file di testo (possibilmente solo con spazio),
esempio
01 02 03 04 05
06 07 08 11 12
etc
salvati magari nel suo direttorio di spaziometria ossia SviluppiColonne(per provare ci sono già colonne di test) e in questo modo vengono visualizzate a video.

Poi una volta che hai i vettoriNumeri devi costruirci attorno le ricerche che vorresti.

Provaci se c'è bisogno sono qua !!!.

ciao

vengio · 16 Maggio 2016

Mike58;n1978075 ha scritto:
Ciao Vengio, una volta lanciato lo script devi ricercare le colonne salvate anche in file di testo (possibilmente solo con spazio),
esempio
01 02 03 04 05
06 07 08 11 12
etc
salvati magari nel suo direttorio di spaziometria ossia SviluppiColonne(per provare ci sono già colonne di test) e in questo modo vengono visualizzate a video.

Poi una volta che hai i vettoriNumeri devi costruirci attorno le ricerche che vorresti.

Provaci se c'è bisogno sono qua !!!.

ciao

Trovato il file.col, ma poi ogni cosa che provo a fare mi da errore, tipo ini = etc---"variabile non definita", sbaglio quindi proprio l'impostazione dello script.

Superenalotto

Member

Advanced Member >PLATINUM PLUS<

Member

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Member

Super Member >GOLD<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Super Member >GOLD<

Advanced Member >PLATINUM PLUS<

Super Member >GOLD<

Member

Super Member >GOLD<

Advanced Member >PLATINUM PLUS<

Super Member >GOLD<