Novità

Se possibile X Mike58

edesimone

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



Codice:
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
 
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
 
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.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 24 luglio 2025
    Bari
    71
    27
    87
    61
    39
    Cagliari
    69
    17
    79
    09
    04
    Firenze
    32
    13
    25
    58
    22
    Genova
    24
    41
    61
    66
    16
    Milano
    55
    59
    33
    80
    38
    Napoli
    18
    52
    32
    12
    72
    Palermo
    49
    77
    78
    90
    60
    Roma
    35
    04
    30
    02
    44
    Torino
    19
    79
    56
    77
    26
    Venezia
    82
    59
    68
    24
    21
    Nazionale
    81
    32
    19
    60
    38
    Estrazione Simbolotto
    Nazionale
    32
    07
    29
    37
    28
Indietro
Alto