Novità

Script per VinciCasa

silop2005

Advanced Member >PLATINUM<
Vedi l'allegato 2194196

Perdonatemi... Mike58, o anche qualcun'alro: potreste spiegarmi per cortesia come dovrei interpretare questo tabellone analitico ??? La sezione che vorrei approfondire ha inizio dalla colonna subito dopo quella riempita di giallo...
Grazie a tutti per le delucidazioni....
Ciao !!
========================================
LOGOSILOP.gif
SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vers.1.0.9
======================
Ciao Ste20fra ,
======================
cerco di darti qualche spiegazione sul tabellone Vinci Casa pubblicato,
in attesa che anche il buon Mike58 completi il tutto.
Ti allego una immagine dello stesso tabellone Vinci Casa con una estrazione in meno
un colpo in meno cioè alla 1086° estrazione, in modo da capire
l'evoluzione dei vari parametri elencati nelle colonne.
=====================
stickman.gif
VC1.jpg
=====================
E rimetto anche la tua immagine per riscontro
=====================
1580558518255.png
=====================
come puoi vedere nel primo tabellone all'estrazione 1086 del 30/01/2020
(ADESSO) sono sortiti i cinque estratti 19-25-32-33-35 e di norma si indicano con ritardo Attuale ZERO
ed anche il ritardo sincrono di livello si indica con ritardo ZERO
e questi DUE ritardi aumenteranno di un colpo (una estrazione) fino a quando
la cinquina resterà in SINCRONISMO con tutti i suoi 5 numeri (Livello 5 L5).
Quando la cinquina "perderà" ovvero sortira uno o più dei suoi elementi/numeri
il ritardo sincrono di livello 5 si fermerà
ed inizierà da ZERO il suo nuovo livello.
In pratica vediamo che all'estrazione 1087 la cinquina originaria con i 5 estratti [L5]
è passata al livello sincrono 3 [L3] perché ha "perso" cioè sono sortiti DUE suoi elementi/numeri
ed il RSL ritardo sincrono di livello incomincia la conta da ZERO,
mentre il ritardo attuale conta una estrazione (perché effettivamente è passata UNA estrazione).
=====================
Continua….
Buona serata a tutto il forum.
stickman.gif
======================
A presto
Silop ;) ;) ;)
 

Mike58

Advanced Member >PLATINUM PLUS<
SI SCUSAMI MIKE non vorrei abusare della tua pazienza si ci sono tutti avevo già visto ma il mio discorso è un po diverso le formule pari e dispari sono:
322341140550
le frequenze:
per 100 cc

383016132

che uniti fanno :

322341145formule PD
383016132FREQUENZE IN 100 CC

questo ti è possibile farlo ? grazie. Sorry


Alien non capisco cosa non riesci a leggere

Sullo script sono elencate le estrazioni con indicazioni Pari-Dispari
che poi sono raccolte nel totale
sulle ultime 100 estrazioni sono come da specchietto

se leggi 2 pari ci saranno 3 dispari che sono esattamente 49 estrazioni su 100 ultime.
chiaro dovete sforzarvi di capire altrimenti non andiamo sulla stessa strada e prima o poi ci perdiamo.
 

Alien.

Advanced Premium Member
Alien non capisco cosa non riesci a leggere

Sullo script sono elencate le estrazioni con indicazioni Pari-Dispari
che poi sono raccolte nel totale
sulle ultime 100 estrazioni sono come da specchietto

se leggi 2 pari ci saranno 3 dispari che sono esattamente 49 estrazioni su 100 ultime.
chiaro dovete sforzarvi di capire altrimenti non andiamo sulla stessa strada e prima o poi ci perdiamo.


è HAI RAGIONE OVVIAMENTE CON IL TUO RAGIONAMENTO MA NOI ALIENI LA VEDIAMO DA UN ALTRA PARTE :p :p :p COMUNQUE è MOLTO PIU' SEMPLICE CON 14 -23 -41 ECC....GRAZIE.
COME INTERRUZIONI COSA INTENDI ? A SENTI MA TRASFORMARE LE COLONNE IN EXCEL MI TOCCA RICOPIARE UNA PER UNO LA COLONNA VINCENTE ?NUN SE PO' FA'?
 

ste20fra

Senior Member
========================================
LOGOSILOP.gif
SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vers.1.0.9
======================
Ciao Ste20fra ,
======================
cerco di darti qualche spiegazione sul tabellone Vinci Casa pubblicato,
in attesa che anche il buon Mike58 completi il tutto.
Ti allego una immagine dello stesso tabellone Vinci Casa con una estrazione in meno
un colpo in meno cioè alla 1086° estrazione, in modo da capire
l'evoluzione dei vari parametri elencati nelle colonne.
=====================
stickman.gif
VC1.jpg
=====================
E rimetto anche la tua immagine per riscontro
=====================
1580558518255.png
=====================
come puoi vedere nel primo tabellone all'estrazione 1086 del 30/01/2020
(ADESSO) sono sortiti i cinque estratti 19-25-32-33-35 e di norma si indicano con ritardo Attuale ZERO
ed anche il ritardo sincrono di livello si indica con ritardo ZERO
e questi DUE ritardi aumenteranno di un colpo (una estrazione) fino a quando
la cinquina resterà in SINCRONISMO con tutti i suoi 5 numeri (Livello 5 L5).
Quando la cinquina "perderà" ovvero sortira uno o più dei suoi elementi/numeri
il ritardo sincrono di livello 5 si fermerà
ed inizierà da ZERO il suo nuovo livello.
In pratica vediamo che all'estrazione 1087 la cinquina originaria con i 5 estratti [L5]
è passata al livello sincrono 3 [L3] perché ha "perso" cioè sono sortiti DUE suoi elementi/numeri
ed il RSL ritardo sincrono di livello incomincia la conta da ZERO,
mentre il ritardo attuale conta una estrazione (perché effettivamente è passata UNA estrazione).
=====================
Continua….
Buona serata a tutto il forum.
stickman.gif
======================
A presto
Silop ;) ;) ;)

Ciao Silop... si si, facile comprensione: mi perdevo solo nella colonna dove erano evidenziati in rosso i numeri, ma ho capito i passaggi...
Grazie come sempre...
Ciao..
 
Ultima modifica:

ste20fra

Senior Member
Ecco che il Verificatore fa al caso richiesto.
Codice:
Sub Main
   Dim L,T,V,sFile
  sFile = GetDirectoryAppData & "Archiviovincicasa2.txt"
   'sfile = ScegliFile("C:\.....\Desktop\.txt")
   Call ApriBaseDatiFT(sFile,5,",",40)
   Ini = 1
   fin = EstrazioniArchivioFT
   'nk = 0
   Tot = fin - Ini + 1

   'r = InputBox("Quale ruota",,1)
   s = InputBox("Quale Sorte di Verifica",,2)
   ResetTimer
   'ReDim Ru(0)
   'ScegliRuote(Ru)
   'Ru(1) = r
   so = NomeSorte(s)
   'L = Array(0,18,19,20,43,53)
   Call ScegliNumeri(L)
   T = Array(T,"Lunghetta","Freq","Rit.Att","Max Sto","InCr","Sorte di Verifica")
   Call InitTabella(T)
   Call StatisticaFormazioneFT(L,s,rit,max,Incr,fre,Ini,fin)
   V = Array(V,StringaNumeri(L),fre,rit,max,Incr,so)
   Call AddRigaTabella(V)
   CreaTabella
   Scrivi ".............................................Verifica..........................................................................."
   For es = Ini To fin
      Call VerificaEsitoFT(L,es,s,1,esito,clp,estr,id)
      If esito <> "" Then
         k = k + 1
         ReDim Preserve aRetRit(k)
         aRetRit(k) = es
         ReDim Preserve ess(k)
         ess(k) = aRetRit(k) - aRetRit(k - 1)
         Scrivi FormatSpace(k,4) & vbTab,0,0
       
         If k = 1 Then Scrivi Space(6) & GetInfoEstrazioneFT(es) & vbTab,0,0
         If k > 1 Then Scrivi Space(5) & GetInfoEstrazioneFT(es) & vbTab,0,0
         '...............................
         If esito = "Ambo" Then k2 = k2 + 1
         If esito = "Terno"  Then k3 = k3 + 1
         If esito = "Quaterna" Then k4 = k4 + 1
         If esito = "Cinquina" Then k5 = k5 + 1
         '........................................
         Scrivi estr & vbTab & vbTab & FormatSpace(fin - id,4) & " > Esrtazioni Trascorse < " & " Elenco Ritardi ... " & ess(k) & vbTab,0,0
         Scrivi esito

      End If
   Next
   Scrivi String(130,".")
   Scrivi
   Scrivi "Ambi............... " & k2
   Scrivi "Terni.............. " & k3
   Scrivi "Quaterne........... " & k4
   Scrivi "Cinquine........... " & k5
   Scrivi
   Scrivi "Tempo Trascorso : " & TempoTrascorso
End Sub

Ciao

Ciao Mike58.... perdonami, ma volevo chiederti se era possibile modificare questo script (o magari ne hai uno nuovo) per la verifica degli ambi, terni e quaterne maggiormente sortiti...
Come da mia richiesta, questo che mi hai inviato fa quello che cercavo, però vorrei avere, se possibile, anche quello che fa la ricerca al contrario: cioè sull'archivio FT individuare gli ambi, terni e quaterne che hanno avuto il maggior numero di uscite... ho provato a farlo con questo script, spuntando tutti i 40 numeri, però ovviamente mi riconosce solo le cinquine sortite, nonostante alla richiesta iniziale inserisca 2 per ambo...
Vedi tu se puoi... ti ringrazio come sempre per la tua disponibilità....
Ciao..
 

Mike58

Advanced Member >PLATINUM PLUS<
Ambi freq
Codice:
Sub Main
   Dim sFile,T,V
   Dim Nu(2)
   sFile = GetDirectoryAppData & "ArchivioVinciCasa3.txt"
   'sfile = ScegliFile("C:\.....\Desktop\.txt")
   Call ApriBaseDatiFT(sFile,5,",",40)

   Ini = 1
   fin = EstrazioniArchivioFT
   Scrivi "Estrazioni Analizzate : " & fin - Ini + 1
   T = Array(T,"Ambi","Freq","Rit","Max","Incr","A","B","Freq x 1","Rit x 1")
   Call InitTabella(T)
   For x = 1 To 39
      For y = x + 1 To 40
         Nu(1) = x
         Nu(2) = y
         'If x <> y Then
         Call StatisticaFormazioneFT(Nu,2,rit,max,Incr,fre,Ini,fin)
         If fre > 4 Then
         a = EstrattoFrequenzaFT(Nu(1),Ini,fin)
         b = EstrattoFrequenzaFT(Nu(2),Ini,fin)
         c = SerieFreqFT(Ini,fin,Nu,1)
         d = SerieRitardoFT(Ini,fin,Nu,1)

         k = k + 1
         V = Array(V,StringaNumeri(Nu),fre,rit,max,Incr,a,b,c,d)
         Call AddRigaTabella(V)
            'Scrivi StringaNumeri(Nu,,1) & vbTab & fre
            'End If
         End If
      Next
   Next
   Call CreaTabellaOrdinabile(2)
   Scrivi "Ambi trovati con freq > 1 : " & k,1
End Sub
Terni freq
Codice:
Sub Main
   Dim sFile,T,V
   Dim Nu(3)
   sFile = GetDirectoryAppData & "ArchivioVinciCasa3.txt"
   'sfile = ScegliFile("C:\.....\Desktop\.txt")
   Call ApriBaseDatiFT(sFile,5,",",40)

   Ini = 1
   fin = EstrazioniArchivioFT
   Scrivi "***** Lotteria MillionDay ****** ",1,,,1,3,,1
   Scrivi Space(35) & "Mike58",1,,,2,3
   Scrivi "Estrazioni Analizzate : " & fin - Ini + 1
  
   ResetTimer
   T = Array(T,"Ambi","Freq","Rit","Max","Incr","A","B","C","Freq x 2","Rit x 2")
   Call InitTabella(T)
   For x = 1 To 38
      For y = x + 1 To 39
         For z = y + 1 To 40
            Nu(1) = x
            Nu(2) = y
            Nu(3) = z
            'If x <> y Then
            Call StatisticaFormazioneFT(Nu,3,rit,max,Incr,fre,Ini,fin)
            If fre > 4 Then
               a = EstrattoFrequenzaFT(Nu(1),Ini,fin)
               b = EstrattoFrequenzaFT(Nu(2),Ini,fin)
               ab = EstrattoFrequenzaFT(Nu(3),Ini,fin)
               c = SerieFreqFT(Ini,fin,Nu,2)
               d = SerieRitardoFT(Ini,fin,Nu,2)
               k = k + 1
               V = Array(V,StringaNumeri(Nu),fre,rit,max,Incr,a,b,ab,c,d)
               Call AddRigaTabella(V)
            End If
         Next
      Next
      Call Messaggio("Tempo di elaborazione : " & TempoTrascorso)
      Call AvanzamentoElab(x,y,z)
   Next
   Scrivi "Terni trovati con freq > 1 : " & k,1
   Call CreaTabellaOrdinabile(2)
 
End Sub
 

Mike58

Advanced Member >PLATINUM PLUS<
Lunghette

Codice:
Option Explicit
Dim clsHSS
Class clsCombinazione
   Private aNum
   Private aBNum
   Private mFrequenze
   Private mPresenze
   Private mClasse
   Private mKey
   Private aIdEstr
   Private nTrov
   Private Sub Class_Initialize()
      mFrequenze = 00
      mPresenze = 00
      ReDim aBnum(40)
   End Sub
   Public Property Get Classe
      Classe = mClasse
   End Property
   Public Property Let Classe(v)
      mClasse = v
   End Property
   Public Property Get ArrayNum
      ArrayNum = aNum
   End Property
   Public Property Get Key
      Key = mKey
   End Property
   Public Property Let Key(v)
      mKey = v
   End Property
   Public Property Get Presenze
      Presenze = mPresenze
   End Property
   Public Property Get Frequenze
      Frequenze = mFrequenze
   End Property
   Public Property Get Combinazione
      Combinazione = StringaNumeri(aNum,,True)
   End Property
   Sub IncrementaFrequenze
      mFrequenze = mFrequenze + 01
   End Sub
   Sub SetNumeri(aNumTmp)
      Dim k
      aNum = aNumTmp
      For k = 01 To UBound(aNum)
         aBNum(aNum(k)) = True
      Next
   End Sub
   Sub CalcolaFrequenza(nSorte,nIni,nFin)
      'mFrequenze = SerieFreqTurbo(nIni,nFin,aNum,aRuote,nSorte)
      mFrequenze = clsHSS.SerieFreqTxt(nIni,nFin,aNum,nSorte)
   End Sub
   Sub CalcolaPresenze(nSorte,Inizio,Fine)
      Dim k,r,e,nPunti,nPresenze
      Dim aB
      ReDim aNumRuota(05)
      nPresenze = 00
      For k = Inizio To Fine
         Call GetArrayNumeri(k,aNumRuota)
         nPunti = 00
         For e = 01 To 05
            If aBNum(aNumRuota(e)) Then
               nPunti = nPunti + 01
            End If
         Next
         If nPunti >= nSorte Then
            nPresenze = nPresenze + 01
         End If
      Next
      mPresenze = nPresenze
   End Sub
   Sub AddIdEstr(v)
      nTrov = nTrov + 01
      ReDim Preserve aIdEstr(nTrov)
      aIdEstr(nTrov) = v
   End Sub
End Class
Private aEstrattiBool
Sub Main
   Dim sFileArchivio : sFileArchivio = GetDirectoryAppData & "Archiviovincicasa3.txt"
   'sFileArchivio = "C:\users\Mike58\DeskTop\SiVinceTuTToSuperEna.txt"
   Call ApriBaseDatiFT(sFileArchivio,05,",",40)
   Set clsHSS = CreateObject("HSS.ClsHighSpeedStat") : Call clsHSS.Init(sFileArchivio,09,",",05)
   '
   Dim nEstrDaUSare,nClasse,nSorte,CollLunghette,nIni,nFin,k
   nEstrDaUSare = 10' 18 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   '
   nClasse = ScegliClasse()' 7 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   nSorte = ScegliSorte()' 2 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   nIni =(EstrazioniArchivioFT - nEstrDaUSare) + 01
   nFin = EstrazioniArchivioFT
   Set CollLunghette = GetCollLunghettaMigliori(nIni,nFin,nClasse,nSorte,nEstrDaUSare)
   Call AlimentaTabOutput(CollLunghette,nClasse,nSorte)
   Set clsHSS = Nothing
End Sub
Sub GetArrayNumeri(k,aNum)
   aNum(01) = EstrattoFT(k,01)
   aNum(02) = EstrattoFT(k,02)
   aNum(03) = EstrattoFT(k,03)
   aNum(04) = EstrattoFT(k,04)
   aNum(05) = EstrattoFT(k,05)
   'aNum(06) = EstrattoFT(k,06)
End Sub
Sub AlimentaTabOutput(CollLunghette,nClasse,nSorte)
   Dim av,cLung
   Call Scrivi("Classe : " & nClasse)
   Call Scrivi("Sorte  : " & nSorte)
   Call Scrivi("Tempo Trascorso : " & TempoTrascorso)
   av = Array("","Lunghetta","Frequenza","Presenza")
   Call InitTabella(av)
   For Each cLung In CollLunghette
      av(01) = cLung.Combinazione
      av(02) = cLung.Frequenze
      av(03) = cLung.Presenze
      Call AddRigaTabella(av)
   Next : Call MsgBox(TempoTrascorso) : Call ScegliTipoTabella()
End Sub
Function GetCollLunghettaMigliori(Inizio,Fine,nClasse,nSorte,nEstrUsate)
   Dim CollComb,cComb
   Dim CollLung,cLung
   Dim k,j,e
   Dim nFatte,nDaFare
   Dim nRetFrequenze
   Dim sKey
   ReDim aCol(nSorte)
   ReDim abNumValidi(90)
   ReDim aEstrattiBool(nEstrUsate,90)
   Call AlimentaArrayEstrattiBool(aEstrattiBool,Inizio,Fine)
   Set CollComb = GetNewCollection
   Set CollLung = GetNewCollection
   ' alimento una collection con tutte le combinazioni di classe <nSorte> che si
   ' formano con le cinquine comprese nel range interessato
   ' di ogni singola combinazione si calcolano le frequenze
   For k = Inizio To Fine
      ReDim aNum(05)
      Call GetArrayNumeri(k,aNum)
      For e = 01 To 05
         abNumValidi(aNum(e)) = True
      Next
      Call OrdinaMatriceTurbo(aNum,01)
      Call InitSviluppoIntegrale(aNum,nSorte)
      Do While GetCombSviluppo(aCol)
         sKey = "k" & StringaNumeri(aCol,,True)
         If GetItemCollection(CollComb,sKey,cComb) Then
            cComb.IncrementaFrequenze
         Else
            Set cComb = New clsCombinazione
            cComb.Classe = nSorte
            cComb.SetNumeri(aCol)
            cComb.key = sKey
            cComb.IncrementaFrequenze
            Call AddItemColl(CollComb,cComb,sKey)
         End If
      Loop
      Call AvanzamentoElab(Inizio,Fine,k)
   Next
   Call AvanzamentoElab(Inizio,Fine,Inizio)
   ' ordino la collection contenente tutte le combinazioni di classe <nSorte> per il valore frequenza
   Call OrdinaItemCollection(CollComb,"Frequenze","Key")
   ' da ognuna delle combinazioni base scasturirà una lunghetta quindi ciclo su tutte
   ' le combinazioni base presenti nella collection e per ciascuna costruirò una lunghetta
   nDaFare = CollComb.count
   nFatte = 00
   For Each cComb In CollComb
      ReDim aRetCol(nClasse)
      ' ottiene la lunghetta "migliore" che contiene la combinazione base
      If GetLung(cComb,aRetCol,nRetFrequenze,CollComb,Inizio,Fine,nSorte,nClasse,abNumValidi,nEstrUsate) Then
         ' aggiungo la lunghetta trovata in una nuova collection
         Set cLung = New clsCombinazione
         cLung.Classe = nClasse
         Call OrdinaMatriceTurbo(aRetCol,01)
         cLung.SetNumeri(aRetCol)
         sKey = "k" & StringaNumeri(aRetCol,,True)
         Call cLung.CalcolaFrequenza(nSorte,Inizio,Fine)
         Call cLung.CalcolaPresenze(nSorte,Inizio,Fine)
         Call AddItemInColl(cLung,sKey,CollLung)
      End If
      nFatte = nFatte + 01
      If nFatte Mod 10 = 00 Then
         Call Messaggio(nFatte)
         Call AvanzamentoElab(1,nDaFare,nFatte)
         If ScriptInterrotto Then Exit For
         Call DoEventsEx()
      End If
   Next
   ' ordino la collection delle lunghette trovate per poi mostrarle in output
   Call OrdinaItemCollection(CollLung,"Presenze")
   Set GetCollLunghettaMigliori = CollLung
End Function
Sub AlimentaArrayEstrattiBool(aEstrattiBool,Inizio,Fine)
   Dim idEstr,i,e
   ReDim aNum(06)
   For idEstr = Inizio To Fine
      i = i + 01
      Call GetArrayNumeri(idEstr,aNum)
      For e = 01 To 05
         aEstrattiBool(i,aNum(e)) = True
      Next
   Next
End Sub
Sub AddItemInColl(cItem,sKey,Coll)
   On Error Resume Next
   Coll.Add cItem,sKey
   If Err <> 00 Then Err.Clear
End Sub
Function GetLung(cComb,aRetCol,nRetPres,collComb,Inizio,Fine,nSorte,nClasse,abNumValidi,nQtEstrUsate)
   ' a partire dalla combinazione base costruisce la lunghetta migliore (piu prolifica per presenze)
   Dim nPos,n,nPresMax,nNum,nPresTmp,k,aNumBase
   Dim aNumDaSvil,nQtNumDaSvil,aColDaPrendere,bFound
   ReDim aBUsati(90)
   Dim objSvil
   Dim sKey
   Dim cCombTmp
   Dim nClasseSvilTmp
   ' inizializzo un nuovo motore di sviluppo
   Set objSvil = GetMotoreSviluppoIntegrale
   ' leggo i numeri della combinazione base
   aNumBase = cComb.ArrayNum
   For k = 01 To cComb.Classe
      aRetCol(k) = aNumBase(k)
      aBUsati(aRetCol(k)) = True
   Next
   ' faccio in clclo che dura fino a quando la lunghetta non arriva a contenere la quantità
   ' di numeri voluta
   ' la lunghetta parte con i numeri della combinazione base
   ' i numeri vengono aggiunti sviluppandoli con combinazioni di classe <nSorte>
   ' al termine del ciclo do sia avrà la combinazione migliore da aggiungere
   ' alla lunghetta base
   ' il giro continua finche la lunghetta non raggiunge la quantita di numeri voluti
   nPos = cComb.Classe
   Do While nPos < nClasse
      ' calcolo  la classe per sviluppare le combinazioni da testare insieme ai numeri gia presenti
      ' nella lunghetta
      ' se possibile la classe di sviluppo è pari a <nSorte> senno viene calcolata e assume un valore inferiore
      If nClasse - nPos >= nSorte Then
         nClasseSvilTmp = nSorte
      Else
         nClasseSvilTmp = nClasse - nPos
      End If
      ' predispongo la lunghetta per accogliere i numeri che otterremo dallo sviluppo
      ReDim Preserve aRetCol(nPos + nClasseSvilTmp)
      ' individuo i numeri da sviluppare i quali devono avere la c aratteristica sia di essere usciti
      ' nelle estrazioni coinvolte dal range sia di non essere gia presenti nella lunghetta stessa
      ReDim aNumDaSvil(90)
      nQtNumDaSvil = 00
      For n = 01 To 90
         If Not(aBUsati(n)) Then
            If abNumValidi(n) Then
               nQtNumDaSvil = nQtNumDaSvil + 01
               aNumDaSvil(nQtNumDaSvil) = n
            End If
         End If
      Next
      ReDim Preserve aNumDaSvil(nQtNumDaSvil)
      ' inizio a sviluppare le combinazioni da testare insieme ai numeri della lunghetta
      ReDim aCol(nClasseSvilTmp)
      bFound = False
      Call objSvil.InitSviluppoIntegrale(aNumDaSvil,nClasseSvilTmp)
      Do While objSvil.GetCombSviluppo(aCol)
         ' nelle opportune posizioni dell'array della lunghetta pongo i numeri della combinazione sviluppata
         For k = 01 To nClasseSvilTmp
            aRetCol(nPos + k) = aCol(k)
         Next
         ' calcolo le presenze della lunghetta
         '
         nPresTmp = Presenze(aRetCol,nQtEstrUsate,UBound(aRetCol),nSorte)''''''''''''''''''''''''''''''''''
         '
         ' se le presenze calcolate sono >= a quelle gia inidviduate allora
         ' devo tenere traccia della combinazione da prendere per inserirla
         ' nella lunghetta all'uscita  del ciclo
         If nPresTmp >= nPresMax Then
            aColDaPrendere = aCol
            nPresMax = nPresTmp
            bFound = True
         End If
      Loop
      ' se ho trovato una combinazione da poter inserire nella lunghetta
      ' procedo ad inserirla e tengo traccia della nuova dimensione (quantita dei numeri)
      ' della lunghetta
      ' se non ho trovato niente è inutile continuare esce
      If bFound Then
         For k = 01 To nClasseSvilTmp
            aRetCol(nPos + k) = aColDaPrendere(k)
            aBUsati(aColDaPrendere(k)) = True
         Next
         nPos = nPos + nClasseSvilTmp
      Else
         Exit Do
      End If
   Loop
   ' se la lunghetta ha raggiunto la dimesnione prevista la funzione torna true
   If nPos = nClasse Then
      GetLung = True
   Else
      GetLung = False
   End If
End Function
Sub AlimentaNumValidi(aCol,Inizio,Fine,aRuote,abNumValidi)
   ' funzione usata per test non nello script
   ReDim abNumValidi(90)
   ReDim aNumRuota(06)
   Dim idEstr,e
   For idEstr = Inizio To Fine
      Call GetArrayNumeri(idEstr,aNumRuota)
      If PuntiSuArray(aNumRuota,aCol) > 01 Then
         For e = 01 To 05
            abNumValidi(aNumRuota(e)) = True
         Next
      End If
   Next
End Sub
Function Presenze(aColDaSvilTmp,nQtEstrUsate,nClasseLunghetta,Sorte)
   ' calcola le presenze di una lunghetta
   Dim k,r,e,nPunti,aNumRuota,nPresenze
   ' Dim aB
   nPresenze = 00
   ' aB = ArrayNumeriToBool(aColDaSvilTmp)
   For k = 01 To nQtEstrUsate
      '         Call GetArrayNumeriRuota(k,aRuote(r),aNumRuota)
      nPunti = 00
      For e = 01 To nClasseLunghetta
         If aEstrattiBool(k,aColDaSvilTmp(e)) Then
            nPunti = nPunti + 01
         End If
      Next
      If nPunti >= Sorte Then
         nPresenze = nPresenze + 01
      End If
   Next
   Presenze = nPresenze
End Function
Function ScegliClasse()
   Dim k,i,aVoci(12) : For k = 01 To(01 - 01) + UBound(aVoci) : i = i + 01 : aVoci(i) = k : Next
   k = ScegliOpzioneMenu(aVoci,07,"Selezionare Classe Sviluppo Lunghetta")
   ScegliClasse = Int(aVoci(k))
End Function
Function ScegliSorte()
   Dim i,aVoci(05) : For i = 01 To 05 : aVoci(i) = NomeSorte(i) : Next
   ScegliSorte = ScegliOpzioneMenu(aVoci,02,"Selezionare Sorte da Analizzare")
End Function
Function ScegliTipoTabella()
   Dim aVoci : aVoci = Array(aVoci,"Tabella Normale","Tabella Ordinabile")
   ScegliTipoTabella = ScegliOpzioneMenu(aVoci,02,"Selezionare Tipo Tabella")
   If ScegliTipoTabella = 01 Then : Call CreaTabella() : Else : Call CreaTabellaOrdinabile() : End If
End Function
 

dbr

Advanced Member >PLATINUM PLUS<
Ciao
per Mike58 o chi può.
Ho trovato questo listato (Million Day) che poi ho riadattato al VinciCasa.
Ora mi chiede di visualizzare solo le prime 100 colonne dell'archivio per
velocizzare i tempi di esecuzione.
Vorrei se possibile analizzare le ultime 100 o più, come posso coreggerlo ?
ho provato ma più che modificare il percorso dell'archivio non so fare.

Grazie dbr(Renzo)
 

Allegati

  • Griglia tabella.txt
    2 KB · Visite: 15

Mike58

Advanced Member >PLATINUM PLUS<
Ciao dbr, devi modificare i parametri di inizio e fine range
ini = 1 ' prima estrazione
diventa
ini = estrazioniarchivioFT -100
fine = estrazioniarchivioFT

Codice:
Sub Main
 Dim nu(5),T,V,aN(40)
 Dim sFileBd
 Dim sChrSep
 sChrSep = ","
 sFileBd = GetDirectoryAppData & "ArchivioVinciCasa3.txt" ' Percorso FileTesto
 'Call ApriBaseDatiFT(sFileBd,6,sChrSep,90) ' x Sivicetutto
 Call ApriBaseDatiFT(sFileBd,5,sChrSep,40) ' x VinciCasa
 'Call ApriBaseDatiFT(sFileBd,5,sChrSep,55) ' x MillionDay
 Ini = EstrazioniArchivioFT - 100
 fin = EstrazioniArchivioFT - 1
 fine = EstrazioniArchivioFT
 ReDim T(42)'--------------------------------------------------------
 T(1) = "info data"
 T(2) = "Estratti"
 For x = 1 To 40
  T(x + 2) = Format2(x)
 Next
 Call InitTabella(T)
 For es = Ini To fine
  'For r = 1 To 1
  ReDim V(42)'------------------------------------------------------
  V(1) = GetInfoEstrazioneFT(es)
  V(2) = StringaEstrattiFT(es)
  For xx = 1 To 40
   aN(xx) = ""
   'aN(xx) = xx
   For p = 1 To 5
    nu(p) = EstrattoFT(es,p)
    If nu(p) = xx Then aN(xx) = aN(xx) & nu(p)
    If nu(p) = xx Then kk = kk + 1
    V(xx + 2) = aN(xx)
   Next
  Next
  Call AddRigaTabella(V)
 Next
 ReDim VV(42)
 For xxx = 1 To 40
  aa = EstrattoFrequenzaFT(xxx,Ini,fine)
  VV(1) = "Presenze"
  VV(xxx + 2) = aa
 Next
 Call AddRigaTabella(VV,3)
 ReDim VVV(42)
 For xxx = 1 To 40
  aa = EstrattoRitardoFT(xxx,Ini,fine)
  VVV(1) = "Ritardo"
  VVV(xxx + 2) = aa
 Next
 Call AddRigaTabella(VVV,6)
 ReDim VVVv(42)
 For xxx = 1 To 40
  aa = EstrattoStoricoFT(xxx,Ini,fine)
  VVVv(1) = "Rit Storico"
  VVVv(xxx + 2) = aa
 Next
 Call AddRigaTabella(VVVv,7)
 Call SetTableWidth("100%")
 CreaTabella
 For y = 1 To 40
  n = EstrattoFrequenzaFT(y,Ini,fin)
  m = EstrattoRitardoFT(y,Ini,fin)
  o = EstrattoStoricoFT(y,Ini,fin)
  If n > 0 And m = o Then
   kn = kn + 1
   ReDim Preserve aNum(kn)
   aNum(kn) = y
   ReDim Preserve aRit(kn)
   aRit(kn) = m
   Call VerificaEsitoFT(aNum,fine,1,1,esito,,es1)
  End If
 Next
 Scrivi "Numeri per Gioco  : " & StringaNumeri(aNum,,1) & " ( " & kn & " )" & vbTab & esito & vbTab & es1,1
 Scrivi "Numeri in Ritardo : " & StringaNumeri(aRit,,1),1,,,1
End Sub
 

ste20fra

Senior Member
Ciao dbr, devi modificare i parametri di inizio e fine range
ini = 1 ' prima estrazione
diventa
ini = estrazioniarchivioFT -100
fine = estrazioniarchivioFT

Codice:
Sub Main
Dim nu(5),T,V,aN(40)
Dim sFileBd
Dim sChrSep
sChrSep = ","
sFileBd = GetDirectoryAppData & "ArchivioVinciCasa3.txt" ' Percorso FileTesto
'Call ApriBaseDatiFT(sFileBd,6,sChrSep,90) ' x Sivicetutto
Call ApriBaseDatiFT(sFileBd,5,sChrSep,40) ' x VinciCasa
'Call ApriBaseDatiFT(sFileBd,5,sChrSep,55) ' x MillionDay
Ini = EstrazioniArchivioFT - 100
fin = EstrazioniArchivioFT - 1
fine = EstrazioniArchivioFT
ReDim T(42)'--------------------------------------------------------
T(1) = "info data"
T(2) = "Estratti"
For x = 1 To 40
  T(x + 2) = Format2(x)
Next
Call InitTabella(T)
For es = Ini To fine
  'For r = 1 To 1
  ReDim V(42)'------------------------------------------------------
  V(1) = GetInfoEstrazioneFT(es)
  V(2) = StringaEstrattiFT(es)
  For xx = 1 To 40
   aN(xx) = ""
   'aN(xx) = xx
   For p = 1 To 5
    nu(p) = EstrattoFT(es,p)
    If nu(p) = xx Then aN(xx) = aN(xx) & nu(p)
    If nu(p) = xx Then kk = kk + 1
    V(xx + 2) = aN(xx)
   Next
  Next
  Call AddRigaTabella(V)
Next
ReDim VV(42)
For xxx = 1 To 40
  aa = EstrattoFrequenzaFT(xxx,Ini,fine)
  VV(1) = "Presenze"
  VV(xxx + 2) = aa
Next
Call AddRigaTabella(VV,3)
ReDim VVV(42)
For xxx = 1 To 40
  aa = EstrattoRitardoFT(xxx,Ini,fine)
  VVV(1) = "Ritardo"
  VVV(xxx + 2) = aa
Next
Call AddRigaTabella(VVV,6)
ReDim VVVv(42)
For xxx = 1 To 40
  aa = EstrattoStoricoFT(xxx,Ini,fine)
  VVVv(1) = "Rit Storico"
  VVVv(xxx + 2) = aa
Next
Call AddRigaTabella(VVVv,7)
Call SetTableWidth("100%")
CreaTabella
For y = 1 To 40
  n = EstrattoFrequenzaFT(y,Ini,fin)
  m = EstrattoRitardoFT(y,Ini,fin)
  o = EstrattoStoricoFT(y,Ini,fin)
  If n > 0 And m = o Then
   kn = kn + 1
   ReDim Preserve aNum(kn)
   aNum(kn) = y
   ReDim Preserve aRit(kn)
   aRit(kn) = m
   Call VerificaEsitoFT(aNum,fine,1,1,esito,,es1)
  End If
Next
Scrivi "Numeri per Gioco  : " & StringaNumeri(aNum,,1) & " ( " & kn & " )" & vbTab & esito & vbTab & es1,1
Scrivi "Numeri in Ritardo : " & StringaNumeri(aRit,,1),1,,,1
End Sub

Ciao.... cosa restituisce questo codice ???
Grazie...
Ciao..
 

Mike58

Advanced Member >PLATINUM PLUS<
Grazie, ok.... ma per poterla modificare per analizzare un range di estrazioni a piacimento (esempio quelle dell'ultimo mese) cosa devo riportare nelle variabili "Ini / Fin / Fine" ???

Ahia ahia, devi fare tu i calcoli, vedi quante estrazioni sono passate nel mese magari corrente e stabilisci dalla fine quante ne sono trascorse e poi lo riporti in inizio
ini = estrazioniarchivioFt - ???

ciao
 

ste20fra

Senior Member
Ti ringrazio Mike58 per la tua indicazione..... Volevo chiederti se era possibile avere uno script che riporta i numeri spia sulla base di numeri che andremo ad indicare.... e, se non chiedo troppo, sarebbe utile avere tutti gli script (esclusi quelli già postati, ovviamente !!) che potrebbero essere di aiuto nelle varie ricerche di analisi per quanto concerne questa lotteria, così evitiamo di stressarti e chiedere ogni volta uno script diverso.... poi i tuoi consigli su determinati script sono oro colato.... per questo ti ringrazio molto....
A presto,
ciao
 

ste20fra

Senior Member
Ciao Mike58... potresti controllare ed individuare il motivo perchè il codice che ti allego non mi valorizza le colonne di: Rit / Max / Pre / Freq ??? Dove sta l'errore ???
Il codice è questo:
Codice:
Sub Main
   Dim sFileArchivio
   sFileArchivio = "C:\Users\Utente\AppData\Roaming\SpazioMetria\ArchivioVinciCasa\Archivio Totale VinciCasa.txt"
   Call ApriBaseDatiFT(sFileArchivio,05,",",40)
   '----------------------------------------------------------------------------
   Dim T,V,Nu(5),Dec(5),DeN(5),gVett(1)
   Ini = 1
   fin = EstrazioniArchivioFT
   Tot = fin - Ini + 1
   Scrivi "Formule Decine Naturali By Silop Archivio VinciCasa : " & scelta,1,1,,1,3,,1
   Scrivi "Range Inizio  : " & DataEstrazioneFT(Ini)
   Scrivi "Range Fine    : " & DataEstrazioneFT(fin)
   Scrivi "Totali Estraz.: " & Tot
   Scrivi
   T = Array(T,"N.Estraz.","Estratti","Ritardo Serie","Somma Estratti","DN1","DN2","DN3","DN4","Formula Naturale","Somma Nat","pari","dispari","Formula","Fr Gr")
   Call InitTabella(T)
   d1 = 0
   d2 = 0
   d3 = 0
   d4 = 0
   par = 0
   dis = 0
   'd5 = 0
   'riga = 0
   For es = Ini To fin
      For p = 1 To 5
         Nu(p) = EstrattoFT(es,p)
         Dec(p) = DecinaCabalistica(EstrattoFT(es,p))
         DeN(p) = DecinaNaturale(EstrattoFT(es,p))
         If DeN(p) = 0 Then d1 = d1 + 1
         If DeN(p) = 1 Then d2 = d2 + 1
         If DeN(p) = 2 Then d3 = d3 + 1
         If DeN(p) = 3 Then d4 = d4 + 1
         'If DeN(p) = 4 Then d5 = d5 + 1
         If Nu(p) < 11 Then DeN(p) = 1
         If Nu(p) > 10 And Nu(p) < 21 Then DeN(p) = 2
         If Nu(p) > 20 And Nu(p) < 31 Then DeN(p) = 3
         If Nu(p) > 30 And Nu(p) < 41 Then DeN(p) = 4
         riga = riga & DeN(p) & " "
         sommaDec = sommaDec + Dec(p)
         sommaNat = sommaNat + DeN(p)
         sommaE = SommaEstrattiFT(es)
         If pari(Nu(p)) Then par = par + 1
         If dispari(Nu(p)) Then dis = dis + 1
         '---------- Gruppo Formula ----------------
         If d1 = 5 And d2 = 0 And d3 = 0 And d4 = 0 Then gr = 1 '11111_1   11111_
         If d1 = 4 And d2 = 1 And d3 = 0 And d4 = 0 Then gr = 2 '11112_2   11112_
         If d1 = 4 And d2 = 0 And d3 = 1 And d4 = 0 Then gr = 3 '11113_3   11113_
         If d1 = 4 And d2 = 0 And d3 = 0 And d4 = 1 Then gr = 4 '11114_4   11114_
         If d1 = 3 And d2 = 2 And d3 = 0 And d4 = 0 Then gr = 5 '11122_5   11122_
         If d1 = 3 And d2 = 1 And d3 = 1 And d4 = 0 Then gr = 6 '11123_6   11123_
         If d1 = 3 And d2 = 1 And d3 = 0 And d4 = 1 Then gr = 7 '11124_______7   11124_
         If d1 = 3 And d2 = 0 And d3 = 2 And d4 = 0 Then gr = 8 '11133_8   11133_
         If d1 = 3 And d2 = 0 And d3 = 1 And d4 = 1 Then gr = 9 '11134_9   11134_
         If d1 = 3 And d2 = 0 And d3 = 0 And d4 = 2 Then gr = 10 '11144_10   11144_
         If d1 = 2 And d2 = 3 And d3 = 0 And d4 = 0 Then gr = 11 '11222_11   11222_
         If d1 = 2 And d2 = 2 And d3 = 1 And d4 = 0 Then gr = 12 '11223_12   11223_
         If d1 = 2 And d2 = 2 And d3 = 0 And d4 = 1 Then gr = 13 '11224_13   11224_
         If d1 = 2 And d2 = 1 And d3 = 2 And d4 = 0 Then gr = 14 '11233______14   11233_
         If d1 = 2 And d2 = 1 And d3 = 1 And d4 = 1 Then gr = 15 '11234_15   11234_
         If d1 = 2 And d2 = 1 And d3 = 0 And d4 = 2 Then gr = 16 '11244_16   11244_
         If d1 = 2 And d2 = 0 And d3 = 3 And d4 = 0 Then gr = 17 '11333_____17   11333_
         If d1 = 2 And d2 = 0 And d3 = 2 And d4 = 1 Then gr = 18 '11334_18   11334_
         If d1 = 2 And d2 = 0 And d3 = 1 And d4 = 2 Then gr = 19 '11344_19   11344_
         If d1 = 2 And d2 = 0 And d3 = 0 And d4 = 3 Then gr = 20 '11444_20   11444_
         If d1 = 1 And d2 = 4 And d3 = 0 And d4 = 0 Then gr = 21 '12222_21   12222_
         If d1 = 1 And d2 = 3 And d3 = 1 And d4 = 0 Then gr = 22 '12223_22   12223_
         If d1 = 1 And d2 = 3 And d3 = 0 And d4 = 1 Then gr = 23 '11224_____23   12224_
         If d1 = 1 And d2 = 2 And d3 = 2 And d4 = 0 Then gr = 24 '12233_24   12233_
         If d1 = 1 And d2 = 2 And d3 = 1 And d4 = 1 Then gr = 25 '12234_25   12234_
         If d1 = 1 And d2 = 2 And d3 = 0 And d4 = 2 Then gr = 26 '12244_26   12244_
         If d1 = 1 And d2 = 1 And d3 = 3 And d4 = 0 Then gr = 27 '12333_27   12333_
         If d1 = 1 And d2 = 1 And d3 = 2 And d4 = 1 Then gr = 28 '12334_28   12334_
         If d1 = 1 And d2 = 1 And d3 = 1 And d4 = 2 Then gr = 29 '12344_29   12344_
         If d1 = 1 And d2 = 1 And d3 = 0 And d4 = 3 Then gr = 30 '12444_30   12444_
         If d1 = 1 And d2 = 0 And d3 = 4 And d4 = 0 Then gr = 31 '13333_31   13333_
         If d1 = 1 And d2 = 0 And d3 = 3 And d4 = 1 Then gr = 32 '13334_32   13334_
         If d1 = 1 And d2 = 0 And d3 = 2 And d4 = 2 Then gr = 33 '13344_33   13344_
         If d1 = 1 And d2 = 0 And d3 = 1 And d4 = 3 Then gr = 34 '13444_34   13444_
         If d1 = 1 And d2 = 0 And d3 = 0 And d4 = 4 Then gr = 35 '14444_35   14444_
         If d1 = 0 And d2 = 5 And d3 = 0 And d4 = 0 Then gr = 36 '22222_36   22222_
         If d1 = 0 And d2 = 4 And d3 = 1 And d4 = 0 Then gr = 37 '22223_37   22223_
         If d1 = 0 And d2 = 4 And d3 = 0 And d4 = 1 Then gr = 38 '22224_38   22224_
         If d1 = 0 And d2 = 3 And d3 = 2 And d4 = 0 Then gr = 39 '22233_39   22233_
         If d1 = 0 And d2 = 3 And d3 = 1 And d4 = 1 Then gr = 40 '22234_40   22234_
         If d1 = 0 And d2 = 3 And d3 = 0 And d4 = 2 Then gr = 41 '22244_41   22244_
         If d1 = 0 And d2 = 2 And d3 = 3 And d4 = 0 Then gr = 42 '22333_42   22333_
         If d1 = 0 And d2 = 2 And d3 = 2 And d4 = 1 Then gr = 43 '22334_43   22334_
         If d1 = 0 And d2 = 2 And d3 = 1 And d4 = 2 Then gr = 44 '22344_44   22344_
         If d1 = 0 And d2 = 2 And d3 = 0 And d4 = 3 Then gr = 45 '22444_45   22444_
         If d1 = 0 And d2 = 1 And d3 = 4 And d4 = 0 Then gr = 46 '23333_46   23333_
         If d1 = 0 And d2 = 1 And d3 = 3 And d4 = 1 Then gr = 47 '23334_47   23334_
         If d1 = 0 And d2 = 1 And d3 = 2 And d4 = 2 Then gr = 48 '23344_48   23344_
         If d1 = 0 And d2 = 1 And d3 = 1 And d4 = 3 Then gr = 49 '23444_49   23444_
         If d1 = 0 And d2 = 1 And d3 = 0 And d4 = 4 Then gr = 50 '24444_50   24444_
         If d1 = 0 And d2 = 0 And d3 = 5 And d4 = 0 Then gr = 51 '33333_51   33333_
         If d1 = 0 And d2 = 0 And d3 = 4 And d4 = 1 Then gr = 52 '33334_52   33334_
         If d1 = 0 And d2 = 0 And d3 = 3 And d4 = 2 Then gr = 53 '33344_53   33344_
         If d1 = 0 And d2 = 0 And d3 = 2 And d4 = 3 Then gr = 54 '33444_54   33444_
         If d1 = 0 And d2 = 0 And d3 = 1 And d4 = 4 Then gr = 55 '34444_55   34444_
         If d1 = 0 And d2 = 0 And d3 = 0 And d4 = 5 Then gr = 56 '44444_56   44444_
         '----------------------------------------------------------------
         'grr = 0
      Next
      Dim sFile,sRiga
      sFile = GetDirectoryTemp & "Test.txt"
      Call EliminaFile(sFile)
      sRiga = es & "," & DataEstrazioneFT(es) & "," & gr
      Call ScriviFile(sFile,sRiga)
      V = Array(V,es & " - " & DataEstrazioneFT(es),StringaNumeri(Nu),fin - es,sommaE,d1,d2,d3,d4,riga,sommaNat,par,dis,gr,aa)
      Call AddRigaTabella(V)
      Call SetColoreCella(2,6,0)
      For x = 5 To 8
         Call SetColoreCella((x),4,0)
      Next
      sommaDec = 0
      sommaNat = 0
      d1 = 0
      d2 = 0
      d3 = 0
      d4 = 0
      'd5 = 0   silop
      riga = ""
      par = 0
      dis = 0
      'grr = 0
   Next
   Call CreaTabellaOrdinabile()
   Scrivi
   Scrivi
   Scrivi "Script By Mike58",1,,,1,2,,1
   Scrivi "Formule Decine Naturali 5 POSIZIONI  By Silop Archivio VinciCasa : " & scelta,1,1,,1,3,,1
   MsgBox " Nella finestra che si apre selezionare il file : Arch_Formule_Tutte_1_56.txt "
'   '=================================================  'silop
  
   Dim sFileBd 'silop
   Dim sChrSep 'silop   
   sChrSep = "," 'silop
   sFileBd = ScegliFile("C:\Users\Utente\AppData\Roaming\SpazioMetria\ArchivioVinciCasa\Arch_Formule_Tutte_1_56.txt")
   '=================================================
   Call ApriBaseDatiFT(sFileBd,1,sChrSep,56) 'silop   silop 40 è 56
   '=================================================  'silop
   Dim Nn(1)
   Ini = 1
   fin = EstrazioniArchivio
  
   T = Array(T,"IdF","Gr","Comb","Formula","Rit","Max","Pre","Freq","FMTeo","PresTeo","Scarto")'array con colonne singole
   Call InitTabella(T)
   For x = 1 To 56
      Nn(1) = x
      'ru(1) = r
      ReDim apos(5)
      apos(1) = True
      Call StatisticaFormazioneFT(Nn,1,rit,max,Incr,fre,Ini,fin,apos)
      '............. inserimenti stringhe ....................................................................................
      If Nn(1) = 1 Then G = " G1 " :If Nn(1) = 1 Then ComB = " 252 " :If Nn(1) = 1 Then fm = " 11111 "
      If Nn(1) = 2 Then G = " G2 " :If Nn(1) = 2 Then ComB = " 2100 " :If Nn(1) = 2 Then fm = " 11112 "
      If Nn(1) = 3 Then G = " G2 " :If Nn(1) = 3 Then ComB = " 2100 " :If Nn(1) = 3 Then fm = " 11113 "
      If Nn(1) = 4 Then G = " G2 " :If Nn(1) = 4 Then ComB = " 2100 " :If Nn(1) = 4 Then fm = " 11114 "
      If Nn(1) = 5 Then G = " G3 " :If Nn(1) = 5 Then ComB = " 5400 " :If Nn(1) = 5 Then fm = " 11122 "
      If Nn(1) = 6 Then G = " G4 " :If Nn(1) = 6 Then ComB = " 12000 " :If Nn(1) = 6 Then fm = " 11123 "
      If Nn(1) = 7 Then G = " G4 " :If Nn(1) = 7 Then ComB = " 12000 " :If Nn(1) = 7 Then fm = " 11124 "
      If Nn(1) = 8 Then G = " G3 " :If Nn(1) = 8 Then ComB = " 5400 " :If Nn(1) = 8 Then fm = " 11133 "
      If Nn(1) = 9 Then G = " G4 " :If Nn(1) = 9 Then ComB = " 12000 " :If Nn(1) = 9 Then fm = " 11134 "
      If Nn(1) = 10 Then G = " G3 " :If Nn(1) = 10 Then ComB = " 5400 " :If Nn(1) = 10 Then fm = " 11144 "
      If Nn(1) = 11 Then G = " G3 " :If Nn(1) = 11 Then ComB = " 5400 " :If Nn(1) = 11 Then fm = " 11222 "
      If Nn(1) = 12 Then G = " G5 " :If Nn(1) = 12 Then ComB = " 20250 " :If Nn(1) = 12 Then fm = " 11223 "
      If Nn(1) = 13 Then G = " G5 " :If Nn(1) = 13 Then ComB = " 20250 " :If Nn(1) = 13 Then fm = " 11224 "
      If Nn(1) = 14 Then G = " G5 " :If Nn(1) = 14 Then ComB = " 20250 " :If Nn(1) = 14 Then fm = " 11233 "
      If Nn(1) = 15 Then G = " G6 " :If Nn(1) = 15 Then ComB = " 45000 " :If Nn(1) = 15 Then fm = " 11234 "
      If Nn(1) = 16 Then G = " G5 " :If Nn(1) = 16 Then ComB = " 20250 " :If Nn(1) = 16 Then fm = " 11244 "
      If Nn(1) = 17 Then G = " G3 " :If Nn(1) = 17 Then ComB = " 5400 " :If Nn(1) = 17 Then fm = " 11333 "
      If Nn(1) = 18 Then G = " G5 " :If Nn(1) = 18 Then ComB = " 20250 " :If Nn(1) = 18 Then fm = " 11334 "
      If Nn(1) = 19 Then G = " G5 " :If Nn(1) = 19 Then ComB = " 20250 " :If Nn(1) = 19 Then fm = " 11344 "
      If Nn(1) = 20 Then G = " G3 " :If Nn(1) = 20 Then ComB = " 5400 " :If Nn(1) = 20 Then fm = " 11444 "
      If Nn(1) = 21 Then G = " G2 " :If Nn(1) = 21 Then ComB = " 2100 " :If Nn(1) = 21 Then fm = " 12222 "
      If Nn(1) = 22 Then G = " G4 " :If Nn(1) = 22 Then ComB = " 12000 " :If Nn(1) = 22 Then fm = " 12223 "
      If Nn(1) = 23 Then G = " G4 " :If Nn(1) = 23 Then ComB = " 12000 " :If Nn(1) = 23 Then fm = " 12224 "
      If Nn(1) = 24 Then G = " G5 " :If Nn(1) = 24 Then ComB = " 20250 " :If Nn(1) = 24 Then fm = " 12233 "
      If Nn(1) = 25 Then G = " G6 " :If Nn(1) = 25 Then ComB = " 45000 " :If Nn(1) = 25 Then fm = " 12234 "
      If Nn(1) = 26 Then G = " G5 " :If Nn(1) = 26 Then ComB = " 20250 " :If Nn(1) = 26 Then fm = " 12244 "
      If Nn(1) = 27 Then G = " G4 " :If Nn(1) = 27 Then ComB = " 12000 " :If Nn(1) = 27 Then fm = " 12333 "
      If Nn(1) = 28 Then G = " G6 " :If Nn(1) = 28 Then ComB = " 45000 " :If Nn(1) = 28 Then fm = " 12334 "
      If Nn(1) = 29 Then G = " G6 " :If Nn(1) = 29 Then ComB = " 45000 " :If Nn(1) = 29 Then fm = " 12344 "
      If Nn(1) = 30 Then G = " G4 " :If Nn(1) = 30 Then ComB = " 12000 " :If Nn(1) = 30 Then fm = " 12444 "
      If Nn(1) = 31 Then G = " G2 " :If Nn(1) = 31 Then ComB = " 2100 " :If Nn(1) = 31 Then fm = " 13333 "
      If Nn(1) = 32 Then G = " G4 " :If Nn(1) = 32 Then ComB = " 12000 " :If Nn(1) = 32 Then fm = " 13334 "
      If Nn(1) = 33 Then G = " G5 " :If Nn(1) = 33 Then ComB = " 20250 " :If Nn(1) = 33 Then fm = " 13344 "
      If Nn(1) = 34 Then G = " G4 " :If Nn(1) = 34 Then ComB = " 12000 " :If Nn(1) = 34 Then fm = " 13444 "
      If Nn(1) = 35 Then G = " G2 " :If Nn(1) = 35 Then ComB = " 2100 " :If Nn(1) = 35 Then fm = " 14444 "
      If Nn(1) = 36 Then G = " G1 " :If Nn(1) = 36 Then ComB = " 252 " :If Nn(1) = 36 Then fm = " 22222 "
      If Nn(1) = 37 Then G = " G2 " :If Nn(1) = 37 Then ComB = " 2100 " :If Nn(1) = 37 Then fm = " 22223 "
      If Nn(1) = 38 Then G = " G2 " :If Nn(1) = 38 Then ComB = " 2100 " :If Nn(1) = 38 Then fm = " 22224 "
      If Nn(1) = 39 Then G = " G3 " :If Nn(1) = 39 Then ComB = " 5400 " :If Nn(1) = 39 Then fm = " 22233 "
      If Nn(1) = 40 Then G = " G4 " :If Nn(1) = 40 Then ComB = " 12000 " :If Nn(1) = 40 Then fm = " 22234 "
      If Nn(1) = 41 Then G = " G3 " :If Nn(1) = 41 Then ComB = " 5400 " :If Nn(1) = 41 Then fm = " 22244 "
      If Nn(1) = 42 Then G = " G3 " :If Nn(1) = 42 Then ComB = " 5400 " :If Nn(1) = 42 Then fm = " 22333 "
      If Nn(1) = 43 Then G = " G5 " :If Nn(1) = 43 Then ComB = " 20250 " :If Nn(1) = 43 Then fm = " 22334 "
      If Nn(1) = 44 Then G = " G5 " :If Nn(1) = 44 Then ComB = " 20250 " :If Nn(1) = 44 Then fm = " 22344 "
      If Nn(1) = 45 Then G = " G3 " :If Nn(1) = 45 Then ComB = " 5400 " :If Nn(1) = 45 Then fm = " 22444 "
      If Nn(1) = 46 Then G = " G2 " :If Nn(1) = 46 Then ComB = " 2100 " :If Nn(1) = 46 Then fm = " 23333 "
      If Nn(1) = 47 Then G = " G4 " :If Nn(1) = 47 Then ComB = " 12000 " :If Nn(1) = 47 Then fm = " 23334 "
      If Nn(1) = 48 Then G = " G5 " :If Nn(1) = 48 Then ComB = " 20250 " :If Nn(1) = 48 Then fm = " 23344 "
      If Nn(1) = 49 Then G = " G4 " :If Nn(1) = 49 Then ComB = " 12000 " :If Nn(1) = 49 Then fm = " 23444 "
      If Nn(1) = 50 Then G = " G2 " :If Nn(1) = 50 Then ComB = " 2100 " :If Nn(1) = 50 Then fm = " 24444 "
      If Nn(1) = 51 Then G = " G1 " :If Nn(1) = 51 Then ComB = " 252 " :If Nn(1) = 51 Then fm = " 33333 "
      If Nn(1) = 52 Then G = " G2 " :If Nn(1) = 52 Then ComB = " 2100 " :If Nn(1) = 52 Then fm = " 33334 "
      If Nn(1) = 53 Then G = " G3 " :If Nn(1) = 53 Then ComB = " 5400 " :If Nn(1) = 53 Then fm = " 33344 "
      If Nn(1) = 54 Then G = " G3 " :If Nn(1) = 54 Then ComB = " 5400 " :If Nn(1) = 54 Then fm = " 33444 "
      If Nn(1) = 55 Then G = " G2 " :If Nn(1) = 55 Then ComB = " 2100 " :If Nn(1) = 55 Then fm = " 34444 "
      If Nn(1) = 56 Then G = " G1 " :If Nn(1) = 56 Then ComB = " 252 " :If Nn(1) = 56 Then fm = " 44444 "
      '.......................... fine stringhe .............................................................................
      If G = " G1 " Then FMT = 2611.10
      If G = " G2 " Then FMT = 313.30
      If G = " G3 " Then FMT = 121.90
      If G = " G4 " Then FMT = 54.80
      If G = " G5 " Then FMT = 32.50
      If G = " G6 " Then FMT = 14.60
      fq = Round(Dividi(Tot,fre),2)
      PrT = Round(Dividi(Tot,FMT),2)
      Sca = Round((fre - PrT),2)
      
      V = Array(V,x,G,ComB,fm,rit,max,fre,fq,FMT,PrT,Sca)
      Call AddRigaTabella(V)
   Next
   CreaTabellaOrdinabile
End Sub

Grazie.
 

silop2005

Advanced Member >PLATINUM<
LOGOSILOP.gif
SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vers.1.0.9
======================
Ciao Ste20fra ,
======================
prova a mettere questa riga :
sFileArchivio = GetDirectoryAppData & "ArchivioVinciCasa\arch_VinciCasa.txt"
al posto di questa :
sFileArchivio = "C:\Users\Utente\AppData\Roaming\SpazioMetria\ArchivioVinciCasa\Archivio Totale VinciCasa.txt"
======================
Buona serata a tutto il forum.
stickman.gif
======================
A presto
Silop ;) ;) ;)
 

ste20fra

Senior Member
LOGOSILOP.gif
SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vers.1.0.9
======================
Ciao Ste20fra ,
======================
prova a mettere questa riga :
sFileArchivio = GetDirectoryAppData & "ArchivioVinciCasa\arch_VinciCasa.txt"
al posto di questa :
sFileArchivio = "C:\Users\Utente\AppData\Roaming\SpazioMetria\ArchivioVinciCasa\Archivio Totale VinciCasa.txt"
======================
Buona serata a tutto il forum.
stickman.gif
======================
A presto
Silop ;) ;) ;)

Ciao Silop... si, ok... grazie !!
Ciao
 

ste20fra

Senior Member
Ciao Mike58... hai uno script per analizzare le varie combinazioni vergini tenendo presente le varie estrazioni ??? Ti ringrazio in anticipo...
Ciao !!
 

Mike58

Advanced Member >PLATINUM PLUS<
Non Saprei, ambi vergini forse al vincicasa non c'è ne sono.
Tuttavia puoi vedere questo script e ricavare le vari risultanze.

Non capisco perché non mi fa inserire lo script con il code
ad ogni modo è in formato bloccoNote.

Raga basta script ( mi spiace ma sono stanco e un poco stufo)
 

Allegati

  • xxx.txt
    4,8 KB · Visite: 19

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto