20 Numeri....LuigiB x 10lotto5min

[keeper]

inviato ora

 

[pgioy]

arrivato,si apre
ma quando faccio avvia va in errore e come se manca qualcosa
a te risulta

 

[keeper]

Si
È gianni_spa

come la tua email? se si stasera di richiedo il contatto e ti passo il foglio

 

[pgioy]

(null)

La mail e dove mi hai inviato la versione prima,intanto sto facendo una modifica all' xls test sulle ventine,poi ti faccio vedere
Ciao keeper

 

[keeper]

come sta nandando io non ho risutlati positivi

 

[pgioy]

ciao keeper
pultroppo da dopo che mi hai inviato il file mi ha fatto boom il pc
e sono riuscito ora a metterlo in piedi,pochi minuti fa...
ora riprendo il lavoro.

 

[pgioy]

ciao Mike58
avrei una richiesta da chiederti
questo qui sotto e un tuo listato ma non mi lascia inserire piu di un certo
numero quando calcola va in errore,se voglio selezionarli tutti va in crisi.
Volevo anche chiederti se per caso hai uno script per il 10 e lotto 5 che inserendo un numero qualsiasi
mi indichi quali sono i numeri piu frequenti che li girano a torno.
grazie

Sub Main()
ImpostaArchivio10ELotto(2)
Dim num(10),nu(1),sorte(10)
SP = CInt(InputBox("Quale spia",,37))
so = CInt(InputBox("Quale sorte verificare...",,2))
cl = CInt(InputBox("Quanti colpi verificare...",,6))
dett = InputBox("Vuoi vedere il DETTAGLIO... 1=SI  2=NO",,2)
ScegliNumeri(num)
For k = 1 To UBound(num)
num(k) = num(k)
Next
Scrivi "Verifica dopo numero SPIA l'esito in x.. colpi dei Numeri..." & StringaNumeri(num),1
Scrivi
nu(1) = sp
fin = EstrazioniArchivioDL
ini = fin - 100
ReDim atitoli(6)
atitoli(1) = " DATA ESTR. "
atitoli(2) = " SPIA "
atitoli(3) = " ESITO "
atitoli(4) = " STRINGA ESITO"
atitoli(5) = "N° Colpi"
atitoli(6) = " NUMERI IN GIOCO "
Call InitTabella(atitoli,1,,3,5)
For es = ini To fin
If SerieFreqDL(es,es,nu,1) = 1 Then
Messaggio es
AvanzamentoElab Ini,fin,es
Call VerificaEsitoDL(num,es + 1,so,cl,retesito,retcolpi,retestratti,retidestr)
ReDim avalori(6)
avalori(1) = GetInfoEstrazioneDL(es)
avalori(2) = SP
avalori(3) = retesito
avalori(4) = retestratti
avalori(5) = retcolpi & "°"
avalori(6) = StringaNumeri(num)
Call AddRigaTabella(avalori,,,2)
End If
Next
CreaTabella
If dett = 1 Then
Scrivi"---------------------------- DETTAGLIO GIOCATE ----------------------------------------"
fin = EstrazioniArchivioDL
Ini = fin - 100
nu(1) = sp
For es = Ini To fin
If SerieFreqDL(es,es,nu,1) = 1 Then
ImpostaGiocataDL 1,num,1,6
gs = GetSpesa(True)
gv = GetVincita(True)
gg = GetGuadagno(True)
Scrivi String(125,"="),1
ColoreTesto 1
Scrivi "Uscita numero SPIA..." & SP & "  Nell'estrazione del..." & GetInfoEstrazioneDL(es),1
ColoreTesto 0
Scrivi String(125,"="),1
GiocaDL es
gs = GetSpesa(True)
gv = GetVincita(True)
gg = GetGuadagno(True)
Scrivi"Spesa Parziale....." & gs
Scrivi"Vincite Parziale..." & gv
Scrivi"Guadagno Parziale.." & gg
End If
Next
ScriviResocontoDL
End If
If dett = 2 Then
TestoInBandaPassante(" Listed by Mike58 "),1,3,0
End If
End Sub

 

[Mike58]

Ciao pgioy, nella fattispecie per il dettaglio lo script utilizza il codice GIOCA ES e per il codice non si possono giocare + di 10 numeri e quindi se sono maggiori di 10 va in errore.
Si può ovviare a questo eliminando tutte le righe del dettaglio cosi da non far operare il codice GIOCA.

Per la 2à richiesta penso di avere qualcosa anche non mia devo solo cercarla nei tanti script del mio pc.

prova cosi senza il dettaglio

Sub Main() 
ImpostaArchivio10ELotto(2) 
Dim num(10),nu(1),sorte(10) 
SP = CInt(InputBox("Quale spia",,37)) 
so = CInt(InputBox("Quale sorte verificare...",,2)) 
cl = CInt(InputBox("Quanti colpi verificare...",,6)) 
'dett = InputBox("Vuoi vedere il DETTAGLIO... 1=SI  2=NO",,2) 
ScegliNumeri(num) 
For k = 1 To UBound(num) 
num(k) = num(k) 
Next 
Scrivi "Verifica dopo numero SPIA l'esito in x.. colpi dei Numeri..." & StringaNumeri(num),1
 Scrivi 
nu(1) = sp 
fin = EstrazioniArchivioDL 
ini = fin - 100 
ReDim atitoli(6) 
atitoli(1) = " DATA ESTR. " 
atitoli(2) = " SPIA " 
atitoli(3) = " ESITO " 
atitoli(4) = " STRINGA ESITO" 
atitoli(5) = "N° Colpi" 
atitoli(6) = " NUMERI IN GIOCO " 
Call InitTabella(atitoli,1,,3,5) 
For es = ini To fin 
If SerieFreqDL(es,es,nu,1) = 1 Then 
Messaggio es 
AvanzamentoElab Ini,fin,es 
Call VerificaEsitoDL(num,es + 1,so,cl,retesito,retcolpi,retestratti,retidestr) 
ReDim avalori(6) 
avalori(1) = GetInfoEstrazioneDL(es) 
avalori(2) = SP 
avalori(3) = retesito 
avalori(4) = retestratti 
avalori(5) = retcolpi & "°" 
avalori(6) = StringaNumeri(num) 
Call AddRigaTabella(avalori,,,2) 
End If 
Next 
CreaTabella 
End Sub

 

[pgioy]

Ciao mike58
grazie molto gentile,ti ho chiesto di darmi una mano
dato che sto cercando di imparare a fare script,sto cercando di rubare piu informazioni
qua e la ,cosi provo a darvi una mano in futuro...
Volevo chiederti hai mica una didascalia per le nomenclature per il 10 e lotto
preche ce l'ho solo per il lotto ed e le video lezioni di luigi.
A presto

 

[Mike58]

Ciao pgioy, per imparare gli script basta volere e volersi applicare.
Solo la lettura di u semplice script può essere di aiuto, oltre alle videolezioni che su questo forum furono fatte da LuigiB.
Io a suo tempo le ho scaricate ma ahime dopo perdita dati del mio hard-disk non ho più scaricate, da li e con molta applicazione oggi riesco a fare le cose che a me interessano e magari fare qualcosa che sia di aiuto anche per altri utenti.

Mi spiace per la didascalia ma penso che cercando su google riesci a reperirla.

Ti allego uno script che fa in qualche modo quello che era la tua 2à richiesta listato dal Prof. LuigiB e modificato dal Prof. Rubino, che ringrazio e saluti per i loro insegnamenti.

Sub Main
 'by rubino
 Dim Inizio,Fine,idEstr,pt2,pt1,pt0,pt3
 Dim k,EntroColpi,e,ee,c,quanti,totest
 Dim nBase,nUscito,presenzespia
 Dim nUscite
 ReDim aPresenze(90,90),Incrocio(90)
 Dim RetRit,RetRitMax,RetFreq
 gioco = InputBox("1 = 10eLotto serale 2 = 10eLotto5Minuti",,1)
 EntroColpi = CInt(InputBox("Entro quanti colpi ?","Colpi",5))
 quanti = CInt(InputBox("Quanti numeri frequenti vuoi?",,7))
 ''''imposta archivio
 Call ImpostaArchivio10ELotto(Int(gioco))
 If gioco = 1 Then Inizio = 8077 Else Inizio = EstrazioneFin - 1500
 Fine = EstrazioneFin
 totest = Fine - Inizio
 ColoreTesto(1)
 If Int(gioco) = 1 Then
  Scrivi " Namescript (SpiaefrequentiRubinoV2) by(LuigiB - mod.Rubino) "
  Scrivi " Archivio impostato su 10 E LOTTO SERALE " & " Frequenti quantità " & quanti,1
  Scrivi " n.estrazioni esaminate " & totest & " Entro colpi n." & EntroColpi
  Scrivi " dal.n. al n. " & Inizio & "/" & Fine
 End If
 If Int(gioco) = 2 Then
  Scrivi " Archivio impostato su 1O E LOTTO 5 MINUTI " & " Frequenti quantità " & quanti,1
  Scrivi " Ultime estrazioni esaminate " & totest & " Entro colpi n." & EntroColpi
 End If
 Scrivi " Situazione Frequenti nei colpi successivi all'estrazione del nr.spia ",1
 For k = Inizio To Fine
  For e = 1 To 20
   nBase = EstrattoDL(k,e)
   For c = 1 To EntroColpi
    idEstr = k + c
    For ee = 1 To 20
     nUscito = EstrattoDL(idEstr,ee)
     aPresenze(nBase,nUscito) = aPresenze(nBase,nUscito) + 1
    Next
   Next
  Next
  Call AvanzamentoElab(Inizio,Fine,k)
  If ScriptInterrotto Then Exit For
 Next
 If quanti < 11 Then
  pt3 = quanti - 3
  pt2 = quanti - 2
  pt1 = quanti - 1
  pt0 = quanti
 Else
  pt0 = 10
  pt1 = 9
  pt2 = 8
  pt3 = 7
 End If
 ReDim aTitoli(11)
 aTitoli(1) = "Numero Spia"
 aTitoli(2) = "Numeri Piu Freq"
 aTitoli(3) = "Uscite"
 aTitoli(4) = "Frequenza"
 aTitoli(5) = "% fav.Spia"
 aTitoli(6) = "% fav.numeri Freq."
 aTitoli(7) = "Punti" & pt3
 aTitoli(8) = "Punti" & pt2
 aTitoli(9) = "Punti" & pt1
 aTitoli(10) = "Punti" & pt0
 aTitoli(11) = " Ritardo x 5 "
 Call InitTabella(aTitoli,3,"center",1.5,1)
 For nBase = 1 To 90
  ReDim aValori(11)
  aValori(1) = nBase
  aValori(2) = GetNumeroPiuFreq(nBase,aPresenze,nUscite,quanti,Incrocio)
  ReDim aV(0)
  Call SplitByChar(aValori(2)," ",aV)
  aValori(3) = nUscite
  ''''controlla presenze totali spia nel range di estrazioni
  ReDim aN(1)
  aN(1) = aValori(1)
  Call StatisticaFormazioneDL(aN,1,RetRit,RetRitMax,0,RetFreq,Inizio,Fine)
  presenzespia = RetFreq
  ''''controlla frequenze totali della quantità di numeri
  ReDim aN(1)
  aN(1) = aValori(2)
  Call StatisticaFormazioneDL(aN,1,RetRit,RetRitMax,0,RetFreq,Inizio,Fine)
  ''''controlla frequenze totali della quantità di numeri
  f = UBound(aV) - 1
  ReDim aVn(f)
  For e = 0 To f
   aVn(e) = aV(e)
  Next
  aValori(7) = 0
  aValori(8) = 0
  aValori(9) = 0
  aValori(10) = 0
  fpt3 = SerieFreqDL(Inizio,Fine,aVn,pt3)
  aValori(7) = fpt3
  fpt2 = SerieFreqDL(Inizio,Fine,aVn,pt2)
  aValori(8) = fpt2
  fpt1 = SerieFreqDL(Inizio,Fine,aVn,pt1)
  aValori(9) = fpt1
  fpt0 = SerieFreqDL(Inizio,Fine,aVn,pt0)
  aValori(10) = fpt0
  aValori(4) = presenzespia
  aValori(5) = Round(nUscite/totest * 100,2)
  aValori(6) = Round(nUscite/presenzespia * 100,2)
  'SerieRitardoDL(Inizio,Fine,aN,3)
  aValori(11) = SerieRitardoDL(Inizio,Fine,aVn,5)
  Call AddRigaTabella(aValori)
  If aValori(7) > 0 Then Call SetColoreCella(7,vbRed,vbWhite)
  If aValori(8) > 0 Then Call SetColoreCella(8,vbGreen,vbBlack)
  If aValori(9) > 0 Then Call SetColoreCella(9,vbYellow,vbBlack)
  If aValori(10) > 0 Then Call SetColoreCella(10,vbYellow,vbBlack)
 Next
 Call CreaTabella
End Sub
Function GetNumeroPiuFreq(nBase,aPresenze,nUscite,quanti,Incrocio)
 Dim k
 ReDim aOrd(90,2)
 nfre = ""
 For k = 1 To 90
  aOrd(k,1) = Format2(k)
  aOrd(k,2) = aPresenze(nBase,k)
 Next
 Call OrdinaMatrice(aOrd,- 1,2)
 For q = 1 To Int(quanti)
  nfre = nfre & aOrd(q,1) & " "
  tfre = tfre + aOrd(q,2)
 Next
 ''
 ''' GetNumeroPiuFreq = aOrd(1,1)
 GetNumeroPiuFreq = nfre
 ''''nUscite = aOrd(1,2)
 nUscite = tfre
End Function

 

[pgioy]

grazie Mike58
ultimo script va benissimo,ti ringrazio molto ed intanto cerco
a presto.
ciao

 

[keeper]

ciao pgioy anche io ho questo script e con rubino l'abbiamo anche modificato insierendo l'eventuale fascia oraria ma mi permetto che l'abbiamo testato tanto tempo e non da i giusti risultati

 

[pgioy]

Ok keeper, provo ha seguirlo un po'
Vedo cosa esattamente combina, tu hai qualcosa di simile per poterlo confrontare con risultati di calcolo
Grazie ciao

 

[keeper]

Sub MainDim Inizio,Fine,idEstr,pt2,pt1,pt0,pt3
Dim k,EntroColpi,e,ee,c,quanti,totest
Dim nBase,nUscito,presenzespia
Dim nUscite,kini,kfin,Orarin,Orarfi,gioco,kein
ReDim aPresenze(90,90),Incrocio(90)
Dim RetRit,RetRitMax,RetFreq
gioco = InputBox("1 = 10eLotto serale       2 = 10eLotto5Minuti",,1)
EntroColpi = CInt(InputBox("Entro quanti colpi ?","Colpi",1))
quanti = CInt(InputBox("Quanti numeri frequenti vuoi?",,7))
If gioco = 1 Then
Orarin = 0
Orarfi = 288
Else
Orarin = 49
Orarfi = 75
End If
kin = CInt(InputBox(" solo x 10Lotto5M Range Orario da n.:",,Orarin))
kfi = CInt(InputBox(" solo x 10Lotto5M Range Orario  a n. ",,Orarfi))
kein = CInt(InputBox(" solo x 10Lotto5M quanti giorni Estrazione indietro?",,500))
''''imposta archivio
Call ImpostaArchivio10ELotto(Int(gioco))
If gioco = 1 Then
Inizio = 8077
Fine = EstrazioneFin
Else
Fine = EstrazioniArchivioDL
Inizio = Fine - kein
End If
totest = Fine - Inizio
ColoreTesto(1)
If Int(gioco) = 1 Then
Scrivi " Namescript (SpiaefrequentiRubinoV2)    by(LuigiB - mod.Rubino) "
Scrivi " Archivio impostato su 10 E LOTTO SERALE   " & " Frequenti quantità " & quanti,1
Scrivi " n.estrazioni esaminate " & totest & "   Entro colpi n." & EntroColpi
Scrivi " dal.n.     al n.     " & Inizio & "/" & Fine
End If
If Int(gioco) = 2 Then
Scrivi " Archivio impostato su 1O E LOTTO 5 MINUTI " & " Frequenti quantità " & quanti,1
Scrivi " dal.n. al n. " & Inizio & "/" & Fine
OrEda =(kin / 12) + 5
OrEa =(kfi / 12) + 5
Scrivi " Ultime estrazioni esaminate " & totest & " Entro colpi n." & EntroColpi & " Range Orario :" & " ( " & Int(OrEda) & " : " & Int(OrEa) & " )" & " estr.n." & kin & " : " & kfi
End If
Scrivi " Situazione Frequenti nei colpi successivi all'estrazione del nr.spia ",1
'''''-'-------------------------------------------------------------------------------------------
For k = Inizio To Fine
If IndiceAnnualeDL(k) >= kin And IndiceAnnualeDL(k) <= kfi Then
'Scrivi k & " " & IndiceAnnuale(k) & "--" & kin & "--" & kfi
Call Messaggio(Format2(k) & " " & DataEstrazioneDL(k) & "  range orario:    " & kini & " : " & kfin)
For e = 1 To 20
nBase = EstrattoDL(k,e)
For c = 1 To EntroColpi
idEstr = k + c
For ee = 1 To 20
nUscito = EstrattoDL(idEstr,ee)
aPresenze(nBase,nUscito) = aPresenze(nBase,nUscito) + 1
Next
Next
Next
End If
Call AvanzamentoElab(Inizio,Fine,k)
If ScriptInterrotto Then Exit For
Next
'''''-'-------------------------------------------------------------------------------------------
If quanti < 11 Then
pt3 = quanti - 3
pt2 = quanti - 2
pt1 = quanti - 1
pt0 = quanti
Else
pt0 = 10
pt1 = 9
pt2 = 8
pt3 = 7
End If
ReDim aTitoli(10)
aTitoli(1) = "Numero Spia"
aTitoli(2) = "Numeri Piu Freq"
aTitoli(3) = "Uscite"
aTitoli(4) = "Frequenza"
aTitoli(5) = "% fav.Spia"
aTitoli(6) = "% fav.numeri Freq."
aTitoli(7) = "Punti" & pt3
aTitoli(8) = "Punti" & pt2
aTitoli(9) = "Punti" & pt1
aTitoli(10) = "Punti" & pt0
Call InitTabella(aTitoli,3,"center",1.5,1)
For nBase = 1 To 90
ReDim aValori(10)
aValori(1) = nBase
aValori(2) = GetNumeroPiuFreq(nBase,aPresenze,nUscite,quanti,Incrocio)
ReDim aV(0)
Call SplitByChar(aValori(2)," ",aV)
aValori(3) = nUscite
''''controlla presenze totali spia nel range di estrazioni
ReDim aN(1)
aN(1) = aValori(1)
Call StatisticaFormazioneDL(aN,1,RetRit,RetRitMax,0,RetFreq,Inizio,Fine)
presenzespia = RetFreq
''''controlla frequenze totali della quantità di numeri
ReDim aN(1)
aN(1) = aValori(2)
Call StatisticaFormazioneDL(aN,1,RetRit,RetRitMax,0,RetFreq,Inizio,Fine)
''''controlla frequenze totali della quantità di numeri
f = UBound(aV) - 1
ReDim aVn(f)
For e = 0 To f
aVn(e) = aV(e)
Next
aValori(7) = 0
aValori(8) = 0
aValori(9) = 0
aValori(10) = 0
fpt3 = SerieFreqDL(Inizio,Fine,aVn,pt3)
aValori(7) = fpt3
fpt2 = SerieFreqDL(Inizio,Fine,aVn,pt2)
aValori(8) = fpt2
fpt1 = SerieFreqDL(Inizio,Fine,aVn,pt1)
aValori(9) = fpt1
fpt0 = SerieFreqDL(Inizio,Fine,aVn,pt0)
aValori(10) = fpt0
aValori(4) = presenzespia
aValori(5) = Round(nUscite/totest*100,2)
If presenzespia > 0 Then aValori(6) = Round(nUscite/presenzespia*100,2)
Call AddRigaTabella(aValori)
If aValori(7) > 0 Then Call SetColoreCella(7,vbRed,vbWhite)
If aValori(8) > 0 Then Call SetColoreCella(8,vbGreen,vbBlack)
If aValori(9) > 0 Then Call SetColoreCella(9,vbYellow,vbBlack)
If aValori(10) > 0 Then Call SetColoreCella(10,vbYellow,vbBlack)
Next
Call CreaTabella
End Sub
Function GetNumeroPiuFreq(nBase,aPresenze,nUscite,quanti,Incrocio)
Dim k
ReDim aOrd(90,2)
nfre = ""
For k = 1 To 90
aOrd(k,1) = Format2(k)
aOrd(k,2) = aPresenze(nBase,k)
Next
Call OrdinaMatrice(aOrd,- 1,2)
For q = 1 To Int(quanti)
nfre = nfre & aOrd(q,1) & " "
tfre = tfre + aOrd(q,2)
Next
''
''' GetNumeroPiuFreq = aOrd(1,1)
GetNumeroPiuFreq = nfre
''''nUscite = aOrd(1,2)
nUscite = tfre
End Function

 

[pgioy]

grazie keeper