Sistemistica VinciCasa Thread Completo!

Gabrieleno90 · 10 Febbraio 2021

Apro questo thread della lotteria italiana Vinci Casa dove ognuno può pubblicare e portare a conoscenza di tutti le proprie idee, che con il contributo di tutti possono essere ampliate e migliorate. by Silop2005

Intanto, vi metto qualche screen che ho preso su un altro forum, in quanto mi piacerebbe capire, e sopratutto imparare con il vostro aiuto e con la collaborazione di tutti.

Volevo anche Anticipare, se e possibile, inserire tutti i script utili per Vincicasa, per un eventuale aiuto hai nuovi iscritti, visto che, girando per le sezioni, per andare a scovare qualche script, bisogna leggersi tanti post e commenti, invece perché non creiamo un solo Thread? Cosa ne pensate?

========Iniziamo========= by Silop

====== Fine====== by Silop

Ho postato questi Screen per un eventuale aiuto tra Scripter e Programmatori e sopratutto insegnare i nuovi noob come me ok?

Taggo i più esperti che ho visto girando per questo forum:

@Mike58 @Nikor @silop2005 @ste20fra @dbr @Alien. @claudio8
E sopratutto il grande @LuigiB Creatore di Spaziometria!

Mike58 · 10 Febbraio 2021

uno script per gli ambi + frequenti.
P.s. per utilizzare lo script bisogna avere l'archivio con nome VinciCasa nella cartella di spaziometria.

Codice:

Sub Main
   Dim sFileBd
   Dim sChrSep
   sfile = GetDirectoryAppData & "vincicasa.txt"
   'sfile = ScegliFile("C:\.....\Desktop\.txt")
   Call ApriBaseDatiFT(sfile,5,",",40)

   '=================================================
   Dim T,V
   Ini = 1'EstrazioneFin - estr
   fin = EstrazioniArchivioFT
   Tot = fin - Ini + 1
   qa = CInt(InputBox("Quanti Ambi Vuoi Visualizzare",,10))
   Scrivi "Presenze VinciCasa",1,,,1,3,,1
   Scrivi "Range Inizio  : " & GetInfoEstrazioneFT(Ini)
   Scrivi "Range Fine    : " & GetInfoEstrazioneFT(fin)
   Scrivi "Totali Estraz.: " & Tot
   'Scrivi "Media Presenza: " & Int(Tot/11)
   Scrivi
  
   Dim F(4005,4)
  
   'Scrivi "Ambi più Frequenti - Fr - Rit",1
   T = Array(T,"N","Ambo + freq","Freq","Ritardo")
   Call InitTabella(T,1,,3,5)
  
   For xx = 1 To 89
      For yy = xx + 1 To 90
         af = AmboFrequenzaFT(xx,yy,Ini,fin)
         ar = AmboRitardoFT(xx,yy,Ini,fin)
         'If af > 3 Then
         kf = kf + 1
         F(kf,1) = "Ambo Freq... "
         F(kf,2) = Format2(xx) & "." & Format2(yy)
         F(kf,3) = af
         F(kf,4) = ar
         'End If
      Next
   Next
   Call OrdinaMatrice(F,- 1,3)
   For xy = 1 To qa
      'Scrivi F(xy,1) & F(xy,2) & " - " & F(xy,3) & " - Ritarda da... " & F(xy,4)
      V = Array(V,xy,F(xy,2),F(xy,3), F(xy,4))
Call AddRigaTabella(V)
   Next
   CreaTabella
   'Scrivi
Scrivi "Script By Mike58",1,,,1,3
  
  
End Sub

Gabrieleno90 · 10 Febbraio 2021

Mike58 ha scritto:

uno script per gli ambi + frequenti.
P.s. per utilizzare lo script bisogna avere l'archivio con nome VinciCasa nella cartella di spaziometria.

Codice:

Sub Main
   Dim sFileBd
   Dim sChrSep
   sfile = GetDirectoryAppData & "vincicasa.txt"
   'sfile = ScegliFile("C:\.....\Desktop\.txt")
   Call ApriBaseDatiFT(sfile,5,",",40)

   '=================================================
   Dim T,V
   Ini = 1'EstrazioneFin - estr
   fin = EstrazioniArchivioFT
   Tot = fin - Ini + 1
   qa = CInt(InputBox("Quanti Ambi Vuoi Visualizzare",,10))
   Scrivi "Presenze VinciCasa",1,,,1,3,,1
   Scrivi "Range Inizio  : " & GetInfoEstrazioneFT(Ini)
   Scrivi "Range Fine    : " & GetInfoEstrazioneFT(fin)
   Scrivi "Totali Estraz.: " & Tot
   'Scrivi "Media Presenza: " & Int(Tot/11)
   Scrivi
 
   Dim F(4005,4)
 
   'Scrivi "Ambi più Frequenti - Fr - Rit",1
   T = Array(T,"N","Ambo + freq","Freq","Ritardo")
   Call InitTabella(T,1,,3,5)
 
   For xx = 1 To 89
      For yy = xx + 1 To 90
         af = AmboFrequenzaFT(xx,yy,Ini,fin)
         ar = AmboRitardoFT(xx,yy,Ini,fin)
         'If af > 3 Then
         kf = kf + 1
         F(kf,1) = "Ambo Freq... "
         F(kf,2) = Format2(xx) & "." & Format2(yy)
         F(kf,3) = af
         F(kf,4) = ar
         'End If
      Next
   Next
   Call OrdinaMatrice(F,- 1,3)
   For xy = 1 To qa
      'Scrivi F(xy,1) & F(xy,2) & " - " & F(xy,3) & " - Ritarda da... " & F(xy,4)
      V = Array(V,xy,F(xy,2),F(xy,3), F(xy,4))
Call AddRigaTabella(V)
   Next
   CreaTabella
   'Scrivi
Scrivi "Script By Mike58",1,,,1,3
 
 
End Sub

Mike, se vinco ti pago per tutto quello che mi stai dando te lo giuro eheh, tu sei l'unico che mi aiuta, e questo ti ringrazio, a tempo perso, metti qualche script buono, cosi almeno facciamo un unico articolo.

Mike58 · 10 Febbraio 2021

Ciao Gabriele, io di script ne posso mettere quanti ne vuoi ma poi se tu che devi utilizzarli al meglio
ti metto le urne di silop che abbiamo fatto con silop (visto le videate dello stesso)
come si leggono le urne ?
conta quante estrazioni ci vogliono a completare l'uscita di tutti i 40 numeri.
con resoconto presenze e ritardo dell'urna attuale.

Codice:

Sub Main
 
   Dim ini,fin,es,r,p,n,i,y,f,sortiti,ini2,nu(1),nn(1),aa(20),ru(1)
   Dim ciclo,nEstraz,w,g
   ReDim aFreq(90),aNumeri(90),stat(20,11),stat(20,12) ' aggiunta di Enplein
   ReDim mRisultati(120,23)'<---120 corrisponde al max cicli che contiene la tab finale... col tempo aumentare se necessario
   Dim sNum,z 'aggiunta di Enplein
   Dim sFile
   sFile = GetDirectoryAppData & "VinciCasa.txt"
   'sFile = "C:\users\Mike58\Desktop\VinciCasa.txt"
   Call ApriBaseDatiFT(sFile,5,",",40)

   'r = CInt(InputBox("INSERISCI LA RUOTA DI RICERCA",,12))
   ini = CInt(InputBox("INIZIO RICERCA ESTRAZIONE N°",,1))
   z = CInt(InputBox("QUANTI SETTORE VUOI?",,20)) 'aggiunta di Enplein
   fin = CInt(InputBox("Fine RICERCA ESTRAZIONE N°",,EstrazioniArchivioFT))
   'fin = EstrazioneFin
   ciclo = 0
   ini2 = ini
   nEstraz = 0
   ru(1) = r
   '-------------------------------------
   For i = 1 To 40 'inizializzo la matrice
      aNumeri(i) = i 'vettore per il controllo sortita di ciascun numero
      aFreq(i) = 0 ' la frequenza
   Next
   '----------------------------------
   For es = ini To fin
      For p = 1 To 5
         n = EstrattoFT(es,p)
         aNumeri(n) = 0 ' azzera il numero sortito nel vettore di controllo
         aFreq(n) = aFreq(n) + 1 ' conta le frequenze di sortita
      Next
      If EstrattoFT(es,1) > 0 Then nEstraz = nEstraz + 1' conta le estrazioni salvo che siano vuote...
      sortiti = 0
      For i = 1 To 40
         If aNumeri(i) > 0 Then sortiti = sortiti + 1 ' ad ogni estrazione verifica quandi num sono fin lì sortiti
      Next
      If sortiti = 0 Then
         ciclo = ciclo + 1 ' conta i cicli naturali
         mRisultati(ciclo,21) = nEstraz
         mRisultati(ciclo,22) = ini2 '& " | " & DataEstrazione(ini2)
         mRisultati(ciclo,23) = es & " | " & DataEstrazioneFT(es)' estrazione che chiude il ciclo naturale
         For i = 1 To 40
            f = aFreq(i) ' memorizzo sulla variabile f la freq del numero (per facilità di scrittura listato)
            mRisultati(ciclo,f) = mRisultati(ciclo,f) + 1 ' aggiorno il numero di numeri per la freq nella tabella finale
         Next
         ini2 = es + 1
         '---------------------------------------------------------------------
         nEstraz = 0 ' riazzero il numero di estrazioni (durata ciclo naturale)
         For i = 1 To 40 'reinizializzo la matrice
            aNumeri(i) = i 'vettore per il controllo sortita di ciascun numero
            aFreq(i) = 0 ' la frequenza
         Next
         '---------------------------------------------------------------------
      ElseIf es = fin Then ' per gestire il ciclo in corso...
         ciclo = ciclo + 1 ' conta i cicli naturali
         mRisultati(ciclo,21) = nEstraz
         mRisultati(ciclo,22) = ini2 & " | " & DataEstrazioneFT(ini2)
         mRisultati(ciclo,23) = "in corso all'indice " & fin & " del " & DataEstrazioneFT(fin) 'aggiunta Enplein
         For w = 0 To z 'aggiunta Enplein
            stat(w,11) = 0: stat(w,12) = 0 : g = 0 :sNum = "" 'aggiunta Enplein
            For i = 1 To 40
               f = aFreq(i) ' memorizzo sulla variabile f la freq del numero (per facilità di scrittura listato)
               ' aggiorno il numero di numeri per la freq nella tabella finale
               If f = w Then g = g + 1 :sNum = sNum & Format2(i) & " " : mRisultati(ciclo,f) = mRisultati(ciclo,f) + 1 'Enplein
            Next 'aggiunta Enplein
            stat(w,11) = sNum 'aggiunta Enplein
            stat(w,12) = g 'aggiunta Enplein
         Next
         '------------------------------------------------
      End If
      If ScriptInterrotto Then Exit For
   Next
   Scrivi Chr(169) & " Script In Tabella by Silop & Mike58 " & Chr(174),1,1,,1,4,,1
   Scrivi "------------------------------------------------------------------------------------------"
   Scrivi Space(25) & "RICERCA URNE NATURALI by Silop sulla ruota : " & SiglaRuota(r) & " DAL " & DataEstrazioneFT(ini) & "(" & ini & ")",1
   Scrivi "-----------------------------------------------------------------------  all'estrazione " & fin & " del " & DataEstrazioneFT(fin)
   Scrivi " -L'archivio delle 11 ruote del lotto classico le carica in automatico con il prg. SPMT ---"
   Scrivi Space(3) & " |-------------- quantità numeri per frequenza ------------------|",1
   '------------ tabella titoli ----------------
   ReDim Tt(25)
   Tt(1) = " casi "
   For xy = 2 To 22
      Tt(xy) = xy - 2
   Next
   Tt(23) = " Estraz. "
   Tt(24) = " Inizio "
   Tt(25) = " fine "
   Call InitTabella(Tt,2,,2,5,"arial black")
   '------------------------------------------
   ReDim Vv(25)
   For i = 1 To ciclo - 1
      If i = ciclo And mRisultati(ciclo,0) > 0 Then ColoreTesto 2 Else ColoreTesto 0
      Vv(1) = FormatSpace(i,3,1) & "° "
      For y = 0 To 20
         Vv(y + 2) = mRisultati(i,y)
      Next
      Vv(23) = mRisultati(i,21)
      Vv(24) = mRisultati(i,22)
      Vv(25) = mRisultati(i,23)
      ColoreTesto 0
      k0 = k0 + Vv(2)
      k1 = k1 + Vv(3)
      k2 = k2 + Vv(4)
      k3 = k3 + Vv(5)
      k4 = k4 + Vv(6)
      k5 = k5 + Vv(7)
      k6 = k6 + Vv(8)
      k7 = k7 + Vv(9)
      k8 = k8 + Vv(10)
      k9 = k9 + Vv(11)
      k10 = k10 + Vv(12)
      k11 = k11 + Vv(13)
      k12 = k12 + Vv(14)
      k13 = k13 + Vv(15)
      k14 = k14 + Vv(16)
      k15 = k15 + Vv(17)
      k16 = k16 + Vv(18)
      k17 = k17 + Vv(19)
      k18 = k18 + Vv(20)
      k19 = k19 + Vv(21)
      k20 = k20 + Vv(22)
      k21 = k21 + Vv(23)
      Call AddRigaTabella(Vv,,,2,,"arial black")
      Call SetColoreCella(23,7,5)
      For cx = 1 To 25
         If Vv(23) + Vv(24) - 1 = fin Then Call SetColoreCella((cx),4,2)
      Next
   Next
   ReDim av(26)
   av(2) = Round(k0/i,2)
   av(3) = Round(k1/i,2)
   av(4) = Round(k2/i,2)
   av(5) = Round(k3/i,2)
   av(6) = Round(k4/i,2)
   av(7) = Round(k5/i,2)
   av(8) = Round(k6/i,2)
   av(9) = Round(k7/i,2)
   av(10) = Round(k8/i,2)
   av(11) = Round(k9/i,2)
   av(12) = Round(k10/i,2)
   av(13) = Round(k11/i,2)
   av(14) = Round(k12/i,2)
   av(15) = Round(k13/i,2)
   av(16) = Round(k14/i,2)
   av(17) = Round(k15/i,2)
   av(18) = Round(k16/i,2)
   av(19) = Round(k17/i,2)
   av(20) = Round(k18/i,2)
   av(21) = Round(k19/i,2)
   av(22) = Round(k20/i,2)
   av(23) = Round(k21/i,2)
   av(25) = " Medie "
   Call AddRigaTabella(av,3,,2,1,"arial black")
   Call AddRigaTabella(Tt,1,,2,5,"arial black")
   Call SetTableWidth("100%")
   'CreaTabella
   ReDim Vvf(25)
   For ii = ciclo - 1 To ciclo
      If ii = ciclo And mRisultati(ciclo,0) > 0 Then ColoreTesto 2 Else ColoreTesto 0
      Vvf(1) = FormatSpace(i,3,1) & "° "
      For y = 0 To 20
         Vvf(y + 2) = mRisultati(i,y)
      Next
      Vvf(23) = mRisultati(i,21)
      Vvf(24) = mRisultati(i,22)
      Vvf(25) = mRisultati(i,23)
   Next
   Call AddRigaTabella(Vvf,4,,2,2,"arial black")
   Call CreaTabella
   '------------ scrivi valori -------------------------
   ' -------- aggiunta conta numeri ciclo precedente ---- aggiunta Mike ------------
   ini3 = ini2'fin - 56 - nEstraz
   ini4 = fin - nEstraz
 
   For cic = ini3 To ini4
      kc = kc + 1
      'Tota = (ini3 + kc)
      Scrivi "Numeri sortiti ciclo precedente   " & StringaEstrattiFT(cic),1,,,0,3,,1
      Scrivi "Range inizio : " & ini3,1,,,1
      Scrivi "Range fine   : " & ini3 + kc,1,,,1
      Scrivi "Totali estraz: " & Tota + 1,1
      Scrivi "Urna N.        " & ciclo - 1,1,1,,1,3,,1
      Scrivi
      For x = 0 To 20
         For y = 1 To 40
            nu(1) = y
            If SerieFreqFT(ini3,cic,nu,1) = x Then
               k = k + 1
               If x > 0 Then kt = kt + 1
               ReDim Preserve num(k)
               num(k) = y
             
            End If
         Next
       
         If k > 0 Then
            Scrivi "Settore  " & FormatSpace(x,2) & "  Presenze  = " & FormatSpace(k,2),1,0,,1
            Scrivi " NUM... " & StringaNumeri(num,,1),1,1,,1,2
            k = 0
         ElseIf k = 0 Then
            Scrivi "Settore  " & FormatSpace(x,2) & "  Presenze  = " & FormatSpace(k,2),1,0,,1
            Scrivi " NUM... " & "--",1,1,,1,2
         End If
         If k = kc Then Exit For
         'k = 0
      Next
      Scrivi
   Next
   '............... fine precedente..................................
   For xx = 0 To Tot
      For yy = 1 To 40
         nn(1) = yy
         If SerieRitardoFT(ini3,ini4,nn,1) = xx Then
            kk = kk + 1
            kktt = kktt + 1
            ReDim Preserve ult(kk)
            ult(kk) = yy
         End If
      Next
      If kk > 0 Then
         Scrivi "TOT. uscite " & FormatSpace(kktt,2) '& " - " & FormatSpace(kk,2) & " Numeri al ritardo.... " & FormatSpace(xx,2),1,0,,2
         'Scrivi " NUM... " & StringaNumeri(ult,,1),1,1,,2,2
      End If
      kk = 0
   Next
   '-------------fine aggiunta Mike -------------------------------
   Scrivi
   'Scrivi "La ruota di : " & SiglaRuota(r) & " analisi sui 5p estratti"
   'For w = 0 To z
   'ColoreTesto(2): Scrivi "Num in attesa di sortita SETTORE " & FormatSpace(w,3,1) & " [" & ciclo & "° Urna ] N. " & FormatSpace(stat(w,12),3,1) & " : " & stat(w,11),1
   '   'Next
   Scrivi String(160,"="),1,1,,0,2
   ini5 = fin - nEstraz + 1
   ini6 = fin
   Tot = ini6 - ini5
   Scrivi "Numeri sortiti ciclo Ultimo " & " & Estrazione corrente... " & StringaEstrattiFT(fin),1,,,0,3,,1
   Scrivi "Range inizio : " & ini5,1,,,1
   Scrivi "Range fine   : " & ini6,1,,,1
   Scrivi "Totali estraz: " & Tot + 1,1
   Scrivi "Urna N.        " & ciclo,1,1,,1,3,,1
   Scrivi
   For x = 0 To 20
      For y = 1 To 40
         nu(1) = y
         If SerieFreqFT(ini5,ini6,nu,1) = x Then
            k = k + 1
            If x > 0 Then kt = kt + 1
            ReDim Preserve num(k)
            num(k) = y
         End If
      Next
      Call VerificaEsitoFT(num,ini6,1,1,esito,,estr,id)
      If k > 0 Then
         Scrivi "Settore  " & FormatSpace(x,2) & "  Presenze  = " & FormatSpace(k,3),1,0,,1
         If esito <> "" Then Scrivi estr & vbTab,1,0,,2,2
         If esito = "" Then Scrivi ".. .. .. .. .. " & vbTab,1,0,,2,2
         Scrivi StringaNumeri(num,,1),1,1,,1,2
     

      End If
      k = 0
   Next
   Scrivi
   For xx = 0 To Tot
      For yy = 1 To 55
         nn(1) = yy
         If SerieRitardoFT(ini5,ini6,nn,1) = xx Then
            kk = kk + 1
            ktt = ktt + 1
            ReDim Preserve ult(kk)
            ult(kk) = yy
            'ReDim Preserve Tota(ktt)
            'Tota(ktt) = yy
         End If
      Next
      If kk > 0 Then
         Scrivi "TOT.Uscite : " & FormatSpace(ktt,2) & " - " & FormatSpace(kk,2) & " Numeri al ritardo.... " & FormatSpace(xx,2),1,0,,2,2
         Scrivi " NUM... " & StringaNumeri(ult,,1),1,1,,2,2
      End If
      kk = 0
      'kt = 0
   Next
   '-------------fine aggiunta Mike -------------------------------
   Scrivi String(160,"="),1,1,,0,2
End Sub

Gabrieleno90 · 10 Febbraio 2021

Lo so, infatti si alcuni ci capisco poco e su altri leggo quello che scrivete.. anche perché la maggior parte delle persone citate resta poco sul forum, e l'unica persona che mi sta dando una mano sei tu e questo sono veramente grato. Comunque quando mi metto al PC ti scrivo una cosa che abbiamo analizzato un amico..

Mike58 · 10 Febbraio 2021

Scelta Fascia di Ritardo Min e Max contenente i Numeri nel range di ritardo scelto.

Codice:

Sub Main
   Dim Ru(1),T,V,sFile
   sFile = GetDirectoryAppData & "Vincicasa.txt"
   Call ApriBaseDatiFT(sFile,5,",",40)
   ritroso = CInt(InputBox("quante Estrazioni indietro",,1))
   Ini = 1'EstrazioneFin - 300
   fin = EstrazioniArchivioFT - ritroso
   Fine = EstrazioniArchivioFT
   fs = CInt(InputBox("Quale fascia di ritardo Minima",,10))
   fsx = CInt(InputBox("Quale fascia di ritardo Massima",,18))
   Scrivi
   SetColorSezione(6)
   Scrivi "Inizio Range : " & GetInfoEstrazioneFT(Ini)
   Scrivi "Fine Range   : " & GetInfoEstrazioneFT(fin)
   Scrivi "Fascie di Ritardo => a " & fs,1
   Scrivi "Fascie di Ritardo =< a " & fsx,1
   Scrivi
   EndColorSezione
   ResetTimer
   T = Array(T,"Ruota","Presenze Reali","Numeri","Ritardi Relativi Num","Min","Max","Presenza teorica","Scarto","Colpo","VerificaEsito","Ritardo Rp_Gruppo","RsL")
   Call InitTabella(T,,,3,1,"Cambria")
   'For r = 1 To 12
   'If r = 11 Then r = 12
   'Ru(1) = r
   For n = 1 To 55
      Nrit = EstrattoRitardoFT(n,Ini,fin)
      If Nrit >= fs And Nrit <= fsx Then
         k = k + 1
         ReDim Preserve aNum(k)
         aNum(k) = n
         'ReDim Preserve pos(k)
         'pos(k) = RitPosCrono(n,Ru,fine)
         'minGr = MinimoV(pos,1,- 1) ' visualizza il Minimo Rp_Gruppo
         'slr = RitSincDiLiv(n,Ru,fine,k)
      End If
      If Nrit >= fs And Nrit <= fsx Then
         ReDim Preserve NritNum(k)
         NritNum(k) = Nrit
         min = MinimoV(NritNum,1,- 1)
         max = MassimoV(NritNum)
      End If
   Next
   If k > 0 Then
      kk = Round(QuantitaTeoricaCombCompreseTraRit(min,max,1,1,1),2)
      kkk = k - kk
      Call VerificaEsitoFT(aNum,fine,1,1,,clp,es1)
      aa = SerieRitardoFT(Ini,fin,aNum,2) ' visualizza anche il ritardo Minimo
      V = Array(V,SiglaRuota(r),k,StringaNumeri(aNum),StringaNumeri(NritNum),min,max,kk,kkk,clp,es1,aa,slr)
      Call AddRigaTabella(V,,,3,,"Cambria")
   Else
      vv = Array(vv,SiglaRuota(r),"-","..","..","..","..","..","..","..","..","..","..")
      Call AddRigaTabella(vv,,,3,,"Cambria")
   End If
   If kkk > 1.20 Then Call SetColoreCella(8,,2)
   k = 0
   kk = 0
   'If ScriptInterrotto Then Exit For
   ' Next
   Call SetTableWidth("100%")
   CreaTabella
   Scrivi
   Scrivi "Script by Mike58",1,,,2,3,,1
   Call Scrivi(TempoTrascorso)
End Sub

Gabrieleno90 · 10 Febbraio 2021

Mike58 ha scritto:

Ciao Gabriele, io di script ne posso mettere quanti ne vuoi ma poi se tu che devi utilizzarli al meglio
ti metto le urne di silop che abbiamo fatto con silop (visto le videate dello stesso)
come si leggono le urne ?
conta quante estrazioni ci vogliono a completare l'uscita di tutti i 40 numeri.
con resoconto presenze e ritardo dell'urna attuale.

Codice:

Sub Main

   Dim ini,fin,es,r,p,n,i,y,f,sortiti,ini2,nu(1),nn(1),aa(20),ru(1)
   Dim ciclo,nEstraz,w,g
   ReDim aFreq(90),aNumeri(90),stat(20,11),stat(20,12) ' aggiunta di Enplein
   ReDim mRisultati(120,23)'<---120 corrisponde al max cicli che contiene la tab finale... col tempo aumentare se necessario
   Dim sNum,z 'aggiunta di Enplein
   Dim sFile
   sFile = GetDirectoryAppData & "VinciCasa.txt"
   'sFile = "C:\users\Mike58\Desktop\VinciCasa.txt"
   Call ApriBaseDatiFT(sFile,5,",",40)

   'r = CInt(InputBox("INSERISCI LA RUOTA DI RICERCA",,12))
   ini = CInt(InputBox("INIZIO RICERCA ESTRAZIONE N°",,1))
   z = CInt(InputBox("QUANTI SETTORE VUOI?",,20)) 'aggiunta di Enplein
   fin = CInt(InputBox("Fine RICERCA ESTRAZIONE N°",,EstrazioniArchivioFT))
   'fin = EstrazioneFin
   ciclo = 0
   ini2 = ini
   nEstraz = 0
   ru(1) = r
   '-------------------------------------
   For i = 1 To 40 'inizializzo la matrice
      aNumeri(i) = i 'vettore per il controllo sortita di ciascun numero
      aFreq(i) = 0 ' la frequenza
   Next
   '----------------------------------
   For es = ini To fin
      For p = 1 To 5
         n = EstrattoFT(es,p)
         aNumeri(n) = 0 ' azzera il numero sortito nel vettore di controllo
         aFreq(n) = aFreq(n) + 1 ' conta le frequenze di sortita
      Next
      If EstrattoFT(es,1) > 0 Then nEstraz = nEstraz + 1' conta le estrazioni salvo che siano vuote...
      sortiti = 0
      For i = 1 To 40
         If aNumeri(i) > 0 Then sortiti = sortiti + 1 ' ad ogni estrazione verifica quandi num sono fin lì sortiti
      Next
      If sortiti = 0 Then
         ciclo = ciclo + 1 ' conta i cicli naturali
         mRisultati(ciclo,21) = nEstraz
         mRisultati(ciclo,22) = ini2 '& " | " & DataEstrazione(ini2)
         mRisultati(ciclo,23) = es & " | " & DataEstrazioneFT(es)' estrazione che chiude il ciclo naturale
         For i = 1 To 40
            f = aFreq(i) ' memorizzo sulla variabile f la freq del numero (per facilità di scrittura listato)
            mRisultati(ciclo,f) = mRisultati(ciclo,f) + 1 ' aggiorno il numero di numeri per la freq nella tabella finale
         Next
         ini2 = es + 1
         '---------------------------------------------------------------------
         nEstraz = 0 ' riazzero il numero di estrazioni (durata ciclo naturale)
         For i = 1 To 40 'reinizializzo la matrice
            aNumeri(i) = i 'vettore per il controllo sortita di ciascun numero
            aFreq(i) = 0 ' la frequenza
         Next
         '---------------------------------------------------------------------
      ElseIf es = fin Then ' per gestire il ciclo in corso...
         ciclo = ciclo + 1 ' conta i cicli naturali
         mRisultati(ciclo,21) = nEstraz
         mRisultati(ciclo,22) = ini2 & " | " & DataEstrazioneFT(ini2)
         mRisultati(ciclo,23) = "in corso all'indice " & fin & " del " & DataEstrazioneFT(fin) 'aggiunta Enplein
         For w = 0 To z 'aggiunta Enplein
            stat(w,11) = 0: stat(w,12) = 0 : g = 0 :sNum = "" 'aggiunta Enplein
            For i = 1 To 40
               f = aFreq(i) ' memorizzo sulla variabile f la freq del numero (per facilità di scrittura listato)
               ' aggiorno il numero di numeri per la freq nella tabella finale
               If f = w Then g = g + 1 :sNum = sNum & Format2(i) & " " : mRisultati(ciclo,f) = mRisultati(ciclo,f) + 1 'Enplein
            Next 'aggiunta Enplein
            stat(w,11) = sNum 'aggiunta Enplein
            stat(w,12) = g 'aggiunta Enplein
         Next
         '------------------------------------------------
      End If
      If ScriptInterrotto Then Exit For
   Next
   Scrivi Chr(169) & " Script In Tabella by Silop & Mike58 " & Chr(174),1,1,,1,4,,1
   Scrivi "------------------------------------------------------------------------------------------"
   Scrivi Space(25) & "RICERCA URNE NATURALI by Silop sulla ruota : " & SiglaRuota(r) & " DAL " & DataEstrazioneFT(ini) & "(" & ini & ")",1
   Scrivi "-----------------------------------------------------------------------  all'estrazione " & fin & " del " & DataEstrazioneFT(fin)
   Scrivi " -L'archivio delle 11 ruote del lotto classico le carica in automatico con il prg. SPMT ---"
   Scrivi Space(3) & " |-------------- quantità numeri per frequenza ------------------|",1
   '------------ tabella titoli ----------------
   ReDim Tt(25)
   Tt(1) = " casi "
   For xy = 2 To 22
      Tt(xy) = xy - 2
   Next
   Tt(23) = " Estraz. "
   Tt(24) = " Inizio "
   Tt(25) = " fine "
   Call InitTabella(Tt,2,,2,5,"arial black")
   '------------------------------------------
   ReDim Vv(25)
   For i = 1 To ciclo - 1
      If i = ciclo And mRisultati(ciclo,0) > 0 Then ColoreTesto 2 Else ColoreTesto 0
      Vv(1) = FormatSpace(i,3,1) & "° "
      For y = 0 To 20
         Vv(y + 2) = mRisultati(i,y)
      Next
      Vv(23) = mRisultati(i,21)
      Vv(24) = mRisultati(i,22)
      Vv(25) = mRisultati(i,23)
      ColoreTesto 0
      k0 = k0 + Vv(2)
      k1 = k1 + Vv(3)
      k2 = k2 + Vv(4)
      k3 = k3 + Vv(5)
      k4 = k4 + Vv(6)
      k5 = k5 + Vv(7)
      k6 = k6 + Vv(8)
      k7 = k7 + Vv(9)
      k8 = k8 + Vv(10)
      k9 = k9 + Vv(11)
      k10 = k10 + Vv(12)
      k11 = k11 + Vv(13)
      k12 = k12 + Vv(14)
      k13 = k13 + Vv(15)
      k14 = k14 + Vv(16)
      k15 = k15 + Vv(17)
      k16 = k16 + Vv(18)
      k17 = k17 + Vv(19)
      k18 = k18 + Vv(20)
      k19 = k19 + Vv(21)
      k20 = k20 + Vv(22)
      k21 = k21 + Vv(23)
      Call AddRigaTabella(Vv,,,2,,"arial black")
      Call SetColoreCella(23,7,5)
      For cx = 1 To 25
         If Vv(23) + Vv(24) - 1 = fin Then Call SetColoreCella((cx),4,2)
      Next
   Next
   ReDim av(26)
   av(2) = Round(k0/i,2)
   av(3) = Round(k1/i,2)
   av(4) = Round(k2/i,2)
   av(5) = Round(k3/i,2)
   av(6) = Round(k4/i,2)
   av(7) = Round(k5/i,2)
   av(8) = Round(k6/i,2)
   av(9) = Round(k7/i,2)
   av(10) = Round(k8/i,2)
   av(11) = Round(k9/i,2)
   av(12) = Round(k10/i,2)
   av(13) = Round(k11/i,2)
   av(14) = Round(k12/i,2)
   av(15) = Round(k13/i,2)
   av(16) = Round(k14/i,2)
   av(17) = Round(k15/i,2)
   av(18) = Round(k16/i,2)
   av(19) = Round(k17/i,2)
   av(20) = Round(k18/i,2)
   av(21) = Round(k19/i,2)
   av(22) = Round(k20/i,2)
   av(23) = Round(k21/i,2)
   av(25) = " Medie "
   Call AddRigaTabella(av,3,,2,1,"arial black")
   Call AddRigaTabella(Tt,1,,2,5,"arial black")
   Call SetTableWidth("100%")
   'CreaTabella
   ReDim Vvf(25)
   For ii = ciclo - 1 To ciclo
      If ii = ciclo And mRisultati(ciclo,0) > 0 Then ColoreTesto 2 Else ColoreTesto 0
      Vvf(1) = FormatSpace(i,3,1) & "° "
      For y = 0 To 20
         Vvf(y + 2) = mRisultati(i,y)
      Next
      Vvf(23) = mRisultati(i,21)
      Vvf(24) = mRisultati(i,22)
      Vvf(25) = mRisultati(i,23)
   Next
   Call AddRigaTabella(Vvf,4,,2,2,"arial black")
   Call CreaTabella
   '------------ scrivi valori -------------------------
   ' -------- aggiunta conta numeri ciclo precedente ---- aggiunta Mike ------------
   ini3 = ini2'fin - 56 - nEstraz
   ini4 = fin - nEstraz

   For cic = ini3 To ini4
      kc = kc + 1
      'Tota = (ini3 + kc)
      Scrivi "Numeri sortiti ciclo precedente   " & StringaEstrattiFT(cic),1,,,0,3,,1
      Scrivi "Range inizio : " & ini3,1,,,1
      Scrivi "Range fine   : " & ini3 + kc,1,,,1
      Scrivi "Totali estraz: " & Tota + 1,1
      Scrivi "Urna N.        " & ciclo - 1,1,1,,1,3,,1
      Scrivi
      For x = 0 To 20
         For y = 1 To 40
            nu(1) = y
            If SerieFreqFT(ini3,cic,nu,1) = x Then
               k = k + 1
               If x > 0 Then kt = kt + 1
               ReDim Preserve num(k)
               num(k) = y
            
            End If
         Next
      
         If k > 0 Then
            Scrivi "Settore  " & FormatSpace(x,2) & "  Presenze  = " & FormatSpace(k,2),1,0,,1
            Scrivi " NUM... " & StringaNumeri(num,,1),1,1,,1,2
            k = 0
         ElseIf k = 0 Then
            Scrivi "Settore  " & FormatSpace(x,2) & "  Presenze  = " & FormatSpace(k,2),1,0,,1
            Scrivi " NUM... " & "--",1,1,,1,2
         End If
         If k = kc Then Exit For
         'k = 0
      Next
      Scrivi
   Next
   '............... fine precedente..................................
   For xx = 0 To Tot
      For yy = 1 To 40
         nn(1) = yy
         If SerieRitardoFT(ini3,ini4,nn,1) = xx Then
            kk = kk + 1
            kktt = kktt + 1
            ReDim Preserve ult(kk)
            ult(kk) = yy
         End If
      Next
      If kk > 0 Then
         Scrivi "TOT. uscite " & FormatSpace(kktt,2) '& " - " & FormatSpace(kk,2) & " Numeri al ritardo.... " & FormatSpace(xx,2),1,0,,2
         'Scrivi " NUM... " & StringaNumeri(ult,,1),1,1,,2,2
      End If
      kk = 0
   Next
   '-------------fine aggiunta Mike -------------------------------
   Scrivi
   'Scrivi "La ruota di : " & SiglaRuota(r) & " analisi sui 5p estratti"
   'For w = 0 To z
   'ColoreTesto(2): Scrivi "Num in attesa di sortita SETTORE " & FormatSpace(w,3,1) & " [" & ciclo & "° Urna ] N. " & FormatSpace(stat(w,12),3,1) & " : " & stat(w,11),1
   '   'Next
   Scrivi String(160,"="),1,1,,0,2
   ini5 = fin - nEstraz + 1
   ini6 = fin
   Tot = ini6 - ini5
   Scrivi "Numeri sortiti ciclo Ultimo " & " & Estrazione corrente... " & StringaEstrattiFT(fin),1,,,0,3,,1
   Scrivi "Range inizio : " & ini5,1,,,1
   Scrivi "Range fine   : " & ini6,1,,,1
   Scrivi "Totali estraz: " & Tot + 1,1
   Scrivi "Urna N.        " & ciclo,1,1,,1,3,,1
   Scrivi
   For x = 0 To 20
      For y = 1 To 40
         nu(1) = y
         If SerieFreqFT(ini5,ini6,nu,1) = x Then
            k = k + 1
            If x > 0 Then kt = kt + 1
            ReDim Preserve num(k)
            num(k) = y
         End If
      Next
      Call VerificaEsitoFT(num,ini6,1,1,esito,,estr,id)
      If k > 0 Then
         Scrivi "Settore  " & FormatSpace(x,2) & "  Presenze  = " & FormatSpace(k,3),1,0,,1
         If esito <> "" Then Scrivi estr & vbTab,1,0,,2,2
         If esito = "" Then Scrivi ".. .. .. .. .. " & vbTab,1,0,,2,2
         Scrivi StringaNumeri(num,,1),1,1,,1,2
    

      End If
      k = 0
   Next
   Scrivi
   For xx = 0 To Tot
      For yy = 1 To 55
         nn(1) = yy
         If SerieRitardoFT(ini5,ini6,nn,1) = xx Then
            kk = kk + 1
            ktt = ktt + 1
            ReDim Preserve ult(kk)
            ult(kk) = yy
            'ReDim Preserve Tota(ktt)
            'Tota(ktt) = yy
         End If
      Next
      If kk > 0 Then
         Scrivi "TOT.Uscite : " & FormatSpace(ktt,2) & " - " & FormatSpace(kk,2) & " Numeri al ritardo.... " & FormatSpace(xx,2),1,0,,2,2
         Scrivi " NUM... " & StringaNumeri(ult,,1),1,1,,2,2
      End If
      kk = 0
      'kt = 0
   Next
   '-------------fine aggiunta Mike -------------------------------
   Scrivi String(160,"="),1,1,,0,2
End Sub

Mi sono messo al pc per fare questi script, e ho notato questo:

Mike58 · 10 Febbraio 2021

Tranquillo è uno script adattato dal lotto e qualche dicitura non l'ho cancellata.
Di sicuro opera su archivio esterno Vincicasa.

Ciao

silop2005 · 10 Febbraio 2021

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 e RicercaLunghetta vers.1.0.29

======================

Ciao Gabrieleno90 ,

======================

quella scritta che hai evidenziato in giallo

è una mia note/appunto per ricordarmi

che se tolgo dai comandi la finale "FT" elabora l'archivio del lotto.

======================

Comunque per non vederla basta mettere l'apice " ' " all'inizio della riga,

in questo modo :

'Scrivi " -L'archivio delle 11 ruote del lotto classico le carica in automatico con il prg. SPMT ---"

cosi quando fai partire lo script del bravo Mike58 non la vedrai più.

======================

Buona serata a tutto il forum.

======================

A presto

Silop

Gabrieleno90 · 10 Febbraio 2021

silop2005 ha scritto:
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 e RicercaLunghetta vers.1.0.29
======================
Ciao Gabrieleno90 ,
======================
quella scritta che hai evidenziato in giallo
è una mia note/appunto per ricordarmi
che se tolgo dai comandi la finale "FT" elabora l'archivio del lotto.
======================
Comunque per non vederla basta mettere l'apice " ' " all'inizio della riga,
in questo modo :
'Scrivi " -L'archivio delle 11 ruote del lotto classico le carica in automatico con il prg. SPMT ---"
cosi quando fai partire lo script del bravo Mike58 non la vedrai più.
======================
Buona serata a tutto il forum.
======================

A presto
Silop

Ciao carissimo silop, grazie mille.. oggi stavo guardando i script, mi ci vorrebbe veramente una guida ehehe

Gabrieleno90 · 10 Febbraio 2021

Mike58 ha scritto:
Tranquillo è uno script adattato dal lotto e qualche dicitura non l'ho cancellata.
Di sicuro opera su archivio esterno Vincicasa.

Ciao

Sisi l'archivio c'è lo..

3rt0n · 11 Febbraio 2021

ciao a tutti. volevo fare una domanda o pure come dire un sondaggio.

ma invece di giocare tutti dei piccoli sistemi non sarebbe meglio fare un mega sistema dove ognuno prende un numero a caso dal sistema finché i numeri finiscono??!!! ovviamente vincerà solo uno con la cinquina ma importante e che tutte le persone giochino dei numeri diversi del sistema. e non tutti che giocano lo stesso numero. o no??!! sarebbe un mega sistema con tanti giocatori ma non si divide niente

.
come vi sembra come idea??

Gabrieleno90 · 11 Febbraio 2021

Si si e poi chi vince deve dare i soldi a tutti quelli che hanno giocato, si poteva fare con million day, ma con vincicasa cosa si puo fare?

3rt0n · 12 Febbraio 2021

ma in teoria quello che vince tiene i soldi e basta. l’idea e quello di vincere tutti i giorni se giocano 3 milioni di persone nel caso di millionday oppure 500 mila persone con vincicasa. un si chiederà dove il guadagno se giocano tutti?? cosi facendo aumentiamo la probabilità di fare 5 a prescindere da chi vince. pero se oggi e toccato a uno domani toccherà a un altro. e cosi via. invece di giocare tutti il numero 13 31 perché pensiamo che siano fortunati diminuendo i numeri giocati. facendo gruppo giochiamo tutti combinazioni diversi probabili al 80% di fare un cinque. poi dipende dal sistema. ma se giochiamo in 500 mila uno farà cinquina all 99%(al giorno).

Gabrieleno90 · 12 Febbraio 2021

3rt0n ha scritto:
ma in teoria quello che vince tiene i soldi e basta. l’idea e quello di vincere tutti i giorni se giocano 3 milioni di persone nel caso di millionday oppure 500 mila persone con vincicasa. un si chiederà dove il guadagno se giocano tutti?? cosi facendo aumentiamo la probabilità di fare 5 a prescindere da chi vince. pero se oggi e toccato a uno domani toccherà a un altro. e cosi via. invece di giocare tutti il numero 13 31 perché pensiamo che siano fortunati diminuendo i numeri giocati. facendo gruppo giochiamo tutti combinazioni diversi probabili al 80% di fare un cinque. poi dipende dal sistema. ma se giochiamo in 500 mila uno farà cinquina all 99%(al giorno).

Perdonami, ma non e fattibile questa cosa, anche se hai detto un ottima proposta, ma invece, vediamo di utilizzare gli script e prevedere qualche 4, 5, cosa ne pensi? Da quanto conosci Vincicasa? Ci stai giocando qualche cosa?

Gabrieleno90 · 12 Febbraio 2021

Ciao @Mike58 volevo chiederti un altra cortesia. Recentemente avevo chiesto uno script, che mi consentisse di generare 5 numeri da numeri da me scelti escludendo quelli non scelti. Vorrei chiedere un aggiunta a questo script o comunque un nuovo script che abbia come caratteristica, non solo la caratteristica su citata, cioè quella di generare 5 numeri da numeri da me scelti, ma anche la possibilità di analizzare i numeri dispari, pari e frequenti. È possibile?

3rt0n · 12 Febbraio 2021

Gabrieleno90 ha scritto:
Perdonami, ma non e fattibile questa cosa, anche se hai detto un ottima proposta, ma invece, vediamo di utilizzare gli script e prevedere qualche 4, 5, cosa ne pensi? Da quanto conosci Vincicasa? Ci stai giocando qualche cosa?

perche non è fattibile? cmq anche se prevedi un buon 4 arrivi a vincere sui 100€.

Gabrieleno90 · 12 Febbraio 2021

3rt0n ha scritto:
perche non è fattibile? cmq anche se prevedi un buon 4 arrivi a vincere sui 100€.

Perché non lo e, nel senso, chi gioca con 1000 persone? E gia troppo che questo post riceve più di 1 commento al giorno su vincicasa..

3rt0n · 12 Febbraio 2021

Gabrieleno90 ha scritto:
Perché non lo e, nel senso, chi gioca con 1000 persone? E gia troppo che questo post riceve più di 1 commento al giorno su vincicasa..

vincicasa lo preso come esempio. può essere superenalotto. io parlo come idea. poi ovvio che i post non ci sono. io personalmente erano 10 anni che non entravo in un forum. invece se metti un fotto di un gattino su Facebook hai 10millioni di visualizzazioni. nei forum per dire non entra più nessuno. io ho gia il sitto pronto a mettere i sistemi online volevo solo chiedere un po in giro.

Gabrieleno90 · 12 Febbraio 2021

3rt0n ha scritto:
vincicasa lo preso come esempio. può essere superenalotto. io parlo come idea. poi ovvio che i post non ci sono. io personalmente erano 10 anni che non entravo in un forum. invece se metti un fotto di un gattino su Facebook hai 10millioni di visualizzazioni. nei forum per dire non entra più nessuno. io ho gia il sitto pronto a mettere i sistemi online volevo solo chiedere un po in giro.

Che Sistemi hai? Che cosa hai in mese, se vuoi me lo puoi dire senza problemi eh!

Sistemistica VinciCasa Thread Completo!

Member

Advanced Member >PLATINUM PLUS<

Member

Advanced Member >PLATINUM PLUS<

Member

Advanced Member >PLATINUM PLUS<

Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Member

Member

Junior Member

Member

Junior Member

Member

Member

Junior Member

Member

Junior Member

Member