Se possibile X Mike58

[edesimone]

Buona sera Mike58
Volevo chiederti uno script sempre se possibile sul 10elotto classico,
lo script mi deve dare la possibilità di inserire da 1 massimo 3 numeri.
Esempio non veritiero, inserisco i numeri 1,2,3 il programma dalla data 21/06/2005 ad oggi,
mi deve trovare l'ambata più frequente o l'ambo più frequente o il terno più frequente, naturalmente in meno colpi possibili,
per spiegarti meglio se inserisco 1,2,3, il programma mi deve dire che ogni volta che esce questo terno, per esempio,
mi ha trovato l'ambata 7 massimo colpi 3, l'ambo 7-15 massimo colpi 6 o il terno massimo colpi 15.
Naturalmente il tutto deve esser compreso di ritardo attuale che quello storico,
esempio: ambata 7 rit.att 1 rit.sto. 3 ecc.

un saluto
edesimone

 

[Mike58]

Ciao Edesimone, quello che chiedi non è semplice proverò a vedere e mixare un pò di script penso esistenti che facciano un qualcosa di simile.
Mi sembra che luigi ha fatto un qualcosa di simile vedrò di capirci qualcosa, per il momento è questo che posso dirti.

Ciao .

 

[edesimone]

Grazie Mike58
un saluto

 

[Mike58]

Ciao Edesimone, ho trovato un ottimo script di Rubino che fa ottimamente qualcosa circa la tua richiesta penso possa essere una base per arrivare a quello che sarebbe la tua richiesta.
Devo un attimino leggermelo anch'io e comunque vuole essere anche plauso ai lavori del bravo Rubino, nonchè un invito a ritornare attivo fra gli scripter.

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

 

[edesimone]

Buon giorno Mike58
Lo script di rubino va bene per altre previsioni, si parte dai numeri spia,
il mio deve partire dal terno spia, ripeto esempio, terno 1,2,3 nella
schermata mi deve dire quale ambata è uscita + frequente con rit.att e rit.sto in minor colpi possibili.
Stessa cosa per ambo e per il terno,naturalmente non tutti insieme, la scelta deve sempre esser richiesta.
Non mi dire che sono ripetitivo non è facile spiegarlo scrivendo,molto più facile telefonicamente.
Per finire il discorso io chiedo al programma di cercare il terno 1,2,3.
2° fase una tendina dove posso selezionare ambata o ambo o terno,il resto come sopra esposto.
Grazie
edesimone

 

[Mike58]

Ciao Edesimone,non ti preoccupare era chiaro quello che avevi richiesto ti avevo messo una base per vedere se partire da quello, ma ti dico solo che non è semplice trovare l'algoritmo giusto.
A mio avviso questo è una richiesta che solo Luigi può riuscire ad elaborare con facilità.

Ciao è buona giornata anche a te.

 

[edesimone]

Ciao Mike58
Speriamo che Luigib passi da queste parti.
un saluto
edesimone

 

[edesimone]

Qualcuno può risolvere questo enigma,(naturalmente se fattibile)
grazie
edesimone