Script per VinciCasa

ste20fra · 8 Febbraio 2020

Mike58 ha scritto:
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)

Ciao Mike58... grazie per lo script... in merito alla richiesta di script spiace anche a me (e forse a noi di questo thread !!) il tuo messaggio, ed anzi era proprio per ovviare a continue richieste che nel post #55 ti avevo chiesto la possibilità di darci quelli già in tuo possesso abbinabili a questa lotteria.... comunque sia, ti rinnovo questa richiesta e ti ringrazio per tutti quelli che ci hai "regalato"....
A presto..
Ciao !!

Alien. · 8 Febbraio 2020

Mike58 ha scritto:
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)

ppaaoolloo · 16 Febbraio 2020

ciao
un affettuoso saluto a Mike e tutti gli altri amici
chiedo cortesemente se è possibile modificare
questo script del 10elotto per VINCICASA

ringrazio anticipatamente della disponibilità e cortesia

saluti

'Option Explicit
Sub Main
Dim Tipoarchivio
Tipoarchivio = ScegliArchivioDL
If Tipoarchivio > 00 Then
If Tipoarchivio = 02 Then
If MsgBox("Vuoi aggiornare le estrazioni prima di eseguire il listato",vbQuestion + vbYesNo) = vbYes Then
Call AggiornaArchivioDL
End If
End If
Call ImpostaArchivio10ELotto(Tipoarchivio)
Dim qualetab,qt
Dim sorte,color
qualetab = CInt(InputBox("QUALE TABELLA","1 = Tab Normale 2 = Tab excel",2))
qt = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO",,200))
sorte = CInt(InputBox("QUALE SORTE ",,1))
color = CInt(InputBox("Quale DECINA vuoi evidenziare",,1))
'Dim posta(2)
'posta(1) = 1
'posta(2) = 1
Dim Ini,fin
fin = EstrazioneFin
Ini = EstrazioneFin - qt

If Tipoarchivio = 01 Then Call Scrivi("ARCHIVIO 10 e Lotto Serale ",01)
If Tipoarchivio = 02 Then Call Scrivi("ARCHIVIO 10 e Lotto 5 Minuti ",01)
Call Scrivi(" dal " & DataEstrazioneDL(Ini) & " al " & DataEstrazioneDL(fin),01)
Call Scrivi("Sorte analizzata..." & NomeSorte(sorte),01,01,,01,03)
Call Scrivi()

ReDim atitoli(30)
atitoli(01) = " fila "
atitoli(02) = " numeri "
atitoli(03) = " Rit. "
atitoli(04) = " Rit. M. "
atitoli(05) = " Estr. "
atitoli(06) = " -1 "
atitoli(07) = " -2 "
atitoli(08) = " -3 "
atitoli(09) = " -4 "
atitoli(10) = " -5 "
atitoli(11) = " -6 "
atitoli(12) = " -7 "
atitoli(13) = " -8 "
atitoli(14) = " -9 "
atitoli(15) = " -10 "
atitoli(16) = " Estr. "
atitoli(17) = " +2 "
atitoli(18) = " +3 "
atitoli(19) = " +4 "
atitoli(20) = " +5 "
atitoli(21) = " +6 "
atitoli(22) = " +7 "
atitoli(23) = " +8 "
atitoli(24) = " +9 "
atitoli(25) = " +10 "
atitoli(26) = " +11 "
atitoli(27) = " I.C. "
atitoli(28) = " Media uscita "
atitoli(29) = " Stringa estratti "
atitoli(30) = " Ultima ESTR_Esito "

Call InitTabella(atitoli,2,,2,5)
Dim a(90)
a(01) = "01.02"
a(02) = "02.03"
a(03) = "03.04"
a(04) = "04.05"
a(05) = "05.06"
a(06) = "06.07"
a(07) = "07.08"
a(08) = "08.09"
a(09) = "09.10"
a(10) = "10.11"
a(11) = "11.12"
a(12) = "12.13"
a(13) = "13.14"
a(14) = "14.15"
a(15) = "15.16"
a(16) = "16.17"
a(17) = "17.18"
a(18) = "18.19"
a(19) = "19.20"
a(20) = "20.21"
a(21) = "21.22"
a(22) = "22.23"
a(23) = "23.24"
a(24) = "24.25"
a(25) = "25.26"
a(26) = "26.27"
a(27) = "27.28"
a(28) = "28.29"
a(29) = "29.30"
a(30) = "30.31"
a(31) = "31.32"
a(32) = "32.33"
a(33) = "33.34"
a(34) = "34.35"
a(35) = "35.36"
a(36) = "36.37"
a(37) = "37.38"
a(38) = "38.39"
a(39) = "39.40"
a(40) = "40.41"
a(41) = "41.42"
a(42) = "42.43"
a(43) = "43.44"
a(44) = "44.45"
a(45) = "45.46"
a(46) = "46.47"
a(47) = "47.48"
a(48) = "48.49"
a(49) = "49.50"
a(50) = "50.51"
a(51) = "51.52"
a(52) = "52.53"
a(53) = "53.54"
a(54) = "54.55"
a(55) = "55.56"
a(56) = "56.57"
a(57) = "57.58"
a(58) = "58.59"
a(59) = "59.60"
a(60) = "60.61"
a(61) = "61.62"
a(62) = "62.63"
a(63) = "63.64"
a(64) = "64.65"
a(65) = "65.66"
a(66) = "66.67"
a(67) = "67.68"
a(68) = "68.69"
a(69) = "69.70"
a(70) = "70.71"
a(71) = "71.72"
a(72) = "72.73"
a(73) = "73.74"
a(74) = "74.75"
a(75) = "75.76"
a(76) = "76.77"
a(77) = "77.78"
a(78) = "78.79"
a(79) = "79.80"
a(80) = "80.81"
a(81) = "81.82"
a(82) = "82.83"
a(83) = "83.84"
a(84) = "84.85"
a(85) = "85.86"
a(86) = "86.87"
a(87) = "87.88"
a(88) = "88.89"
a(89) = "89.90"
a(90) = "90.01"
'--------------------------------------------------------------------
Dim n,nu
For n = 01 To UBound(a)
nu = Split("00." & a

,".")
Dim rit,max,Incr,fre
Dim retesito,colpi,retestratti,retid
Dim esitoF,estrF
Call StatisticaFormazioneDL(nu,sorte,rit,max,Incr,fre,Ini,fin)
Call VerificaEsitoDL(nu,fin - rit,sorte,10,retesito,colpi,retestratti,retid)
Call VerificaEsitoDL(nu,fin,AMBATA_,,esitoF,,estrF)
aaa = SerieFreqDL(fin,fin,nu,AMBATA_)
bbb = SerieFreqDL(fin - 01,fin - 01,nu,AMBATA_)
ccc = SerieFreqDL(fin - 02,fin - 02,nu,AMBATA_)
ddd = SerieFreqDL(fin - 03,fin - 03,nu,AMBATA_)
eee = SerieFreqDL(fin - 04,fin - 04,nu,AMBATA_)
fff = SerieFreqDL(fin - 05,fin - 05,nu,AMBATA_)
ggg = SerieFreqDL(fin - 06,fin - 06,nu,AMBATA_)
hhh = SerieFreqDL(fin - 07,fin - 07,nu,AMBATA_)
iii = SerieFreqDL(fin - 08,fin - 08,nu,AMBATA_)
lll = SerieFreqDL(fin - 09,fin - 09,nu,AMBATA_)
mmm = SerieFreqDL(fin - 10,fin - 10,nu,AMBATA_)

If fre >= 00 Then
ReDim avalori(30)
Dim aaa,bbb,ccc,ddd,eee,fff,ggg,hhh,iii,lll,mmm
avalori(01) = " Dec. " & Format2

avalori(02) = StringaNumeri(nu)
avalori(03) = rit
avalori(04) = max
avalori(05) = aaa
avalori(06) = bbb
avalori(07) = ccc
avalori(08) = ddd
avalori(09) = eee
avalori(10) = fff
avalori(11) = ggg
avalori(12) = hhh
avalori(13) = iii
avalori(14) = lll
avalori(15) = mmm
avalori(16) = aaa
avalori(17) = aaa + bbb
avalori(18) = aaa + bbb + ccc
avalori(19) = aaa + bbb + ccc + ddd
avalori(20) = aaa + bbb + ccc + ddd + eee
avalori(21) = aaa + bbb + ccc + ddd + eee + fff
avalori(22) = aaa + bbb + ccc + ddd + eee + fff + ggg
avalori(23) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh
avalori(24) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh + iii
avalori(25) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh + iii + lll
avalori(26) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh + iii + lll + mmm
avalori(27) = Round(qt/fre,2)
avalori(28) = Round(fre/qt*rit,2)
avalori(29) = retestratti
avalori(30) = esitoF & " : " & estrF

Call AddRigaTabella(avalori,,,02)
End If
Dim x
For x = 01 To 16
If n = color Then Call SetColoreCella((x),03,01)
Next
Next
Call SetTableWidth("100%")
If qualetab = 01 Then Call CreaTabella(06)
If qualetab = 02 Then Call CreaTabellaOrdinabile(06)
If qualetab > 02 Then Call MsgBox(" errore digit Tabella")
PicClear
Call PicStampaTesto(01,10,"Script by Mike58 ",,01,01,,11,vbRed)
PicEsegui
End If
End Sub
Function ScegliArchivioDL()
ReDim aVoci(01)
aVoci(00) = "10 e lotto Serale"
aVoci(01) = "10 e lotto 5minuti"
ScegliArchivioDL = ScegliOpzioneMenu(aVoci,00,"Scegli archivio 10eLotto") + 01
End Function

Gabrieleno90 · 9 Febbraio 2021

Mike58 ha scritto:

Ciao, ripopolo questo post visto che questo script mi sta dando problemi, non mi carica la Verifica, nel senso, mi si blocca!

Mike58 · 9 Febbraio 2021

Con uno script che ho io non si blocca

Codice:

Sub Main
   Dim L,T,V,sFile
   sFile = GetDirectoryAppData & "Vincicasa.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,1,4,7,12,15,18,39,40)
   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
         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 "Tempo Trascorso : " & TempoTrascorso
End Sub

Alien. · 10 Febbraio 2021

Scusate c'èra uno script che aggiornava "VINCI CASA" DOVE LO RITROVO........GRAZIE.

Mike58 · 15 Febbraio 2021

Aggiorna da Silop

Codice:

Option Explicit
Sub Main
   Dim k
   If ApriBaseDatiFT(AggiornaArchivioUkGetPath,5,",",40) Then
      'inserire qui il proprio codice
      ' codice di esempio ==========
      For k = 1 To EstrazioniArchivioFT
         'Call ScriviEstrazioneFT(k,True)
         Scrivi k & "," & Replace(DataEstrazioneFT(k),".","/") & "," & StringaEstrattiFT(k,",")
      Next
      '================
   End If
End Sub
Function AggiornaArchivioUkGetPath()
   Dim sFileLocal
   Dim k
   sFileLocal = GetDirectoryAppData & "VinciCasa.txt"
   AggiornaArchivioUkGetPath = ""
   If EliminaFile(sFileLocal) Then
      Call Messaggio("Scarico File Archivio")
      If DownloadFromWeb("https://www.silop.it/script/archivi/VinciCasa/ArchivioVinciCasa.txt",sFileLocal) Then
         ReDim aRighe(0)
         Call Messaggio("Conversione file in corso..")
         If LeggiRigheFileDiTesto(sFileLocal,aRighe) Then
            If EliminaFile(sFileLocal) Then
               For k = 0 To UBound(aRighe)
                  Call ScriviFile(sFileLocal,aRighe(k),False)
                  Call AvanzamentoElab(0,UBound(aRighe),k)
               Next
               LanciaFile(sFileLocal)
               Call CloseAllFileHandle
               Call Messaggio("")
               AggiornaArchivioUkGetPath = sFileLocal
            End If
         End If
      Else
         MsgBox "Impossibile scaricare il file dell'archivio"
      End If
   Else
      MsgBox "Impossibile cancellare il file esistente " & vbCrLf & sFileLocal
   End If
End Function

Gabrieleno90 · 15 Febbraio 2021

Mike58 ha scritto:

Aggiorna da Silop

Codice:

Option Explicit
Sub Main
   Dim k
   If ApriBaseDatiFT(AggiornaArchivioUkGetPath,5,",",40) Then
      'inserire qui il proprio codice
      ' codice di esempio ==========
      For k = 1 To EstrazioniArchivioFT
         'Call ScriviEstrazioneFT(k,True)
         Scrivi k & "," & Replace(DataEstrazioneFT(k),".","/") & "," & StringaEstrattiFT(k,",")
      Next
      '================
   End If
End Sub
Function AggiornaArchivioUkGetPath()
   Dim sFileLocal
   Dim k
   sFileLocal = GetDirectoryAppData & "VinciCasa.txt"
   AggiornaArchivioUkGetPath = ""
   If EliminaFile(sFileLocal) Then
      Call Messaggio("Scarico File Archivio")
      If DownloadFromWeb("https://www.silop.it/script/archivi/VinciCasa/ArchivioVinciCasa.txt",sFileLocal) Then
         ReDim aRighe(0)
         Call Messaggio("Conversione file in corso..")
         If LeggiRigheFileDiTesto(sFileLocal,aRighe) Then
            If EliminaFile(sFileLocal) Then
               For k = 0 To UBound(aRighe)
                  Call ScriviFile(sFileLocal,aRighe(k),False)
                  Call AvanzamentoElab(0,UBound(aRighe),k)
               Next
               LanciaFile(sFileLocal)
               Call CloseAllFileHandle
               Call Messaggio("")
               AggiornaArchivioUkGetPath = sFileLocal
            End If
         End If
      Else
         MsgBox "Impossibile scaricare il file dell'archivio"
      End If
   Else
      MsgBox "Impossibile cancellare il file esistente " & vbCrLf & sFileLocal
   End If
End Function

Buonasera Mike, ti ringrazio per quello ch fai in questo post, stai sfornando script su script per chi te li chiede, e menomale che ci sei tu, comunque, ti volevo chiedere solo un piccolo piacere, anche se te ne ho chiesti tanti ok?

Tu hai qualche script in quanto può analizzare una vincita su tutte le estrazioni del tipo:

Gabrieleno90 · 15 Febbraio 2021

Alien. ha scritto:
Scusate c'èra uno script che aggiornava "VINCI CASA" DOVE LO RITROVO........GRAZIE.

Questo post e solo per vincicasa, se ti serve uno script, puoi guardare alla prima pagina, ne ha sfornati cosi tanti che neanche ti immagini eh!

Mike58 · 15 Febbraio 2021

Gabrieleno90 ha scritto:
Buonasera Mike, ti ringrazio per quello ch fai in questo post, stai sfornando script su script per chi te li chiede, e menomale che ci sei tu, comunque, ti volevo chiedere solo un piccolo piacere, anche se te ne ho chiesti tanti ok?

Tu hai qualche script in quanto può analizzare una vincita su tutte le estrazioni del tipo:

Vedi l'allegato 2210919

Alien, penso che si possa fare ex-novo (sicuramente l'ho già fatto, ma faccio prima a farlo che trovarlo)

Gabrieleno90 · 15 Febbraio 2021

Mike58 ha scritto:
Alien, penso che si possa fare ex-novo (sicuramente l'ho già fatto, ma faccio prima a farlo che trovarlo)

Ok grazie mille, comunque sono Gabriele.

Mike58 · 15 Febbraio 2021

Adattato al volo

Codice:

Sub Main
   Dim Nu(5),NP(55),aN(90),T,V,sFile
   '----------------------------------------------------------------
   'sFile = GetDirectoryAppData & "ArchiviTxTMike58\MillionDay.txt"
   sFile = GetDirectoryAppData & "Vincicasa.txt"
   Call ApriBaseDatiFT(sFile,5,",",40)
   '----------------------------------------------------------------
   T = Array(T,"Data Esstaz.","Estratti","Peso & ( F55 )","1-10","11-20","21-30","31-40","-","Esito","Punti","Vincita $$ ","Rit Prec","Freq Es")
   Call InitTabella(T)
   Ini = 1
   fin = EstrazioniArchivioFT
   d11 = ""
   d22 = ""
   d33 = ""
   d44 = ""
   d55 = ""
   riga = ""
   riga2 = ""
   For x = 1 To 1 ' for per numeri di array
      'NP(x) = Array(0,20,21,34,37,46)
      'NP(X) = Array(0,11,15,22,36,44)
      'NP(x) = Array(0,6,10,29,35,36)
      NP(x) = Array(0,7,11,13,17,25) ' inserire colonna
      Scrivi "Numeri in Gioco : " & StringaNumeri(NP(x)),1
      Scrivi "Giocata al VinciCasa ",1,,,1,3,,1
      Scrivi "Estrazioni  Uguali e superiori a 2 Punti"
      For es = Ini To fin
      k = k + 1
      Call Messaggio("Estrazioni in Esame ..... " & k)
      Call AvanzamentoElab(Ini,fin,es)
         For p = 1 To 5
            aN(p) = ""
            Nu(p) = EstrattoFT(es,p)
            aa = SommaEstrattiFT(es)
            bb = FuoriX(aa,55)
            If Nu(p) <= 10 Then d11 = d11 & Nu(p) & " "
            If Nu(p) > 10 And Nu(p) < 21 Then d22 = d22 & Nu(p) & " "
            If Nu(p) > 20 And Nu(p) < 31 Then d33 = d33 & Nu(p) & " "
            If Nu(p) > 30 And Nu(p) < 41 Then d44 = d44 & Nu(p) & " "
            'If Nu(p) > 44 And Nu(p) < 56 Then d55 = d55 & Nu(p) & " "
            
            If Nu(p) <= 10 Then dd11 = dd11 + 1
            If Nu(p) > 10 And Nu(p) < 21 Then dd22 = dd22 + 1
            If Nu(p) > 20 And Nu(p) < 31 Then dd33 = dd33 + 1
            If Nu(p) > 30 And Nu(p) < 41 Then dd44 = dd44 + 1
            'If Nu(p) > 44 And Nu(p) < 56 Then dd55 = dd55 + 1
            
            rit = EstrattoRitardoFT(Nu(p),Ini,es - 1)
            fre = EstrattoFrequenzaFT(Nu(p),Ini,es)
            riga = riga & Format2(rit) & " "
            riga2 = riga2 & Format2(fre) & " "
            
            
         Next
         Call VerificaEsitoFT(NP(x),es,1,1,,,es1)
         pt = SerieFreqFT(es,es,NP(x),1)
         If pt = 0 Or pt = 1 Then vc = 0
         If pt = 2 Then vc = 2
         If pt = 2 Then pt2 = pt2 + 1
         If pt = 3 Then vc = 50
         If pt = 3 Then pt3 = pt3 + 1
         If pt = 4 Then vc = 1000
         If pt = 4 Then pt4 = pt4 + 1
         If pt = 5 Then vc = 1000000
         If pt > 1 Then
         V = Array(V,GetInfoEstrazioneFT(es),StringaNumeri(Nu,,1),aa & " ( " & bb & " )",d11,d22,d33,d44,d55,es1,pt,vc,riga,riga2)
         Call AddRigaTabella(V)
         End If
         For xx = 4 To 8
         Call SetColoreCella((xx),6,0)
         If pt > 1 Then Call SetColoreCella(11,3,1)
         Call SetColoreCella(2,6,0)
         Next
         'pt3 = 0
         d11 = ""
         d22 = ""
         d33 = ""
         d44 = ""
         d55 = ""
         riga = ""
         riga2 = ""
      Next
   Next
   vv = Array(vv," "," ","Totali",dd11,dd22,dd33,dd44,dd55," "," "," "," "," ")
   Call AddRigaTabella(vv)
   CreaTabella
   Scrivi "Ambi     : " & pt2
   Scrivi "Terni    : " & pt3
   Scrivi "Quaterne : " & pt4
End Sub

Mike58 · 15 Febbraio 2021

Gabriele hai ragione mi sembrava di alien la richiesta.
Sorry

Gabrieleno90 · 16 Febbraio 2021

Mike58 ha scritto:
Gabriele hai ragione mi sembrava di alien la richiesta.
Sorry

Tranquillo, comunque certi script non riesco a capirli, ci sono delle parole che non conosco, e sopratutto alcuni danno errori, oppure mi caricano 1/4 dell' archivio, uff Sinceramente non pensavo che fosse cosi difficile capire tutto questo.

Mike58 · 16 Febbraio 2021

Gabriele,sono io che non capisco perchè non ti funzionano le elaborazioni dei miei script.
Devi avere spaziometria ultime versioni ( ma penso usi questa)
devi avere l'archivio aggionato e senza errori (tipo spazi vuoti o altro) e metterlo nella cartella della directory di spazio con nome VinciCasa.
Poi come dici le diciture sono dei parametri statistici e sta a te interpretarli.
Se non riesci in qualcosa posta le immagini con gli errori altrimenti non ti posso aiutare.

Ciao

silop2005 · 16 Febbraio 2021

Mike58 ha scritto:

Adattato al volo

Codice:

Sub Main
   Dim Nu(5),NP(55),aN(90),T,V,sFile
   '----------------------------------------------------------------
   'sFile = GetDirectoryAppData & "ArchiviTxTMike58\MillionDay.txt"
   sFile = GetDirectoryAppData & "Vincicasa.txt"
   Call ApriBaseDatiFT(sFile,5,",",40)
   '----------------------------------------------------------------
   T = Array(T,"Data Esstaz.","Estratti","Peso & ( F55 )","1-10","11-20","21-30","31-40","-","Esito","Punti","Vincita $$ ","Rit Prec","Freq Es")
   Call InitTabella(T)
   Ini = 1
   fin = EstrazioniArchivioFT
   d11 = ""
   d22 = ""
   d33 = ""
   d44 = ""
   d55 = ""
   riga = ""
   riga2 = ""
   For x = 1 To 1 ' for per numeri di array
      'NP(x) = Array(0,20,21,34,37,46)
      'NP(X) = Array(0,11,15,22,36,44)
      'NP(x) = Array(0,6,10,29,35,36)
      NP(x) = Array(0,7,11,13,17,25) ' inserire colonna
      Scrivi "Numeri in Gioco : " & StringaNumeri(NP(x)),1
      Scrivi "Giocata al VinciCasa ",1,,,1,3,,1
      Scrivi "Estrazioni  Uguali e superiori a 2 Punti"
      For es = Ini To fin
      k = k + 1
      Call Messaggio("Estrazioni in Esame ..... " & k)
      Call AvanzamentoElab(Ini,fin,es)
         For p = 1 To 5
            aN(p) = ""
            Nu(p) = EstrattoFT(es,p)
            aa = SommaEstrattiFT(es)
            bb = FuoriX(aa,55)
            If Nu(p) <= 10 Then d11 = d11 & Nu(p) & " "
            If Nu(p) > 10 And Nu(p) < 21 Then d22 = d22 & Nu(p) & " "
            If Nu(p) > 20 And Nu(p) < 31 Then d33 = d33 & Nu(p) & " "
            If Nu(p) > 30 And Nu(p) < 41 Then d44 = d44 & Nu(p) & " "
            'If Nu(p) > 44 And Nu(p) < 56 Then d55 = d55 & Nu(p) & " "
          
            If Nu(p) <= 10 Then dd11 = dd11 + 1
            If Nu(p) > 10 And Nu(p) < 21 Then dd22 = dd22 + 1
            If Nu(p) > 20 And Nu(p) < 31 Then dd33 = dd33 + 1
            If Nu(p) > 30 And Nu(p) < 41 Then dd44 = dd44 + 1
            'If Nu(p) > 44 And Nu(p) < 56 Then dd55 = dd55 + 1
          
            rit = EstrattoRitardoFT(Nu(p),Ini,es - 1)
            fre = EstrattoFrequenzaFT(Nu(p),Ini,es)
            riga = riga & Format2(rit) & " "
            riga2 = riga2 & Format2(fre) & " "
          
          
         Next
         Call VerificaEsitoFT(NP(x),es,1,1,,,es1)
         pt = SerieFreqFT(es,es,NP(x),1)
         If pt = 0 Or pt = 1 Then vc = 0
         If pt = 2 Then vc = 2
         If pt = 2 Then pt2 = pt2 + 1
         If pt = 3 Then vc = 50
         If pt = 3 Then pt3 = pt3 + 1
         If pt = 4 Then vc = 1000
         If pt = 4 Then pt4 = pt4 + 1
         If pt = 5 Then vc = 1000000
         If pt > 1 Then
         V = Array(V,GetInfoEstrazioneFT(es),StringaNumeri(Nu,,1),aa & " ( " & bb & " )",d11,d22,d33,d44,d55,es1,pt,vc,riga,riga2)
         Call AddRigaTabella(V)
         End If
         For xx = 4 To 8
         Call SetColoreCella((xx),6,0)
         If pt > 1 Then Call SetColoreCella(11,3,1)
         Call SetColoreCella(2,6,0)
         Next
         'pt3 = 0
         d11 = ""
         d22 = ""
         d33 = ""
         d44 = ""
         d55 = ""
         riga = ""
         riga2 = ""
      Next
   Next
   vv = Array(vv," "," ","Totali",dd11,dd22,dd33,dd44,dd55," "," "," "," "," ")
   Call AddRigaTabella(vv)
   CreaTabella
   Scrivi "Ambi     : " & pt2
   Scrivi "Terni    : " & pt3
   Scrivi "Quaterne : " & pt4
End Sub

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

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 Mike58,

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

si vede … fatto a volo…

questa riga che era per la lotteria MillionDay

bb = FuoriX(aa,55)

deve essere modificata cosi :

bb = FuoriX(aa,40) ' silop al posto di 55 ho messo 40
e anche questa :
,"Peso & ( F55 )"
con
,"Peso & ( F40 )"

Buon divertimento con Vinci Casa.

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

Buona giornata a tutto il forum.

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

A presto

Silop

Mike58 · 16 Febbraio 2021

Si Silop la modifica è corretta.
Purtroppo adattando al volo qualcosa sfugge.

Ciao

Gabrieleno90 · 16 Febbraio 2021

Mike58 ha scritto:
Si Silop la modifica è corretta.
Purtroppo adattando al volo qualcosa sfugge.

Ciao

Infatti alcuni errori me li mette e non so cosa risolverli, ma una domanda, cosa usi per creare questi script? JavaScript?

Mike58 · 16 Febbraio 2021

No Vbscript è un linguaggio con codici spiegati nell'help di spaziometria.
Ci vuole impegno,pazienza e tanta volontà per imparare, ma ti assicuro che ti puoi togliere tante soddisfazioni a fare tutto quello che ti passa per la testa nel gioco lotto e lotterie varie.

Gabrieleno90 · 16 Febbraio 2021

Mike58 ha scritto:
No Vbscript è un linguaggio con codici spiegati nell'help di spaziometria.
Ci vuole impegno,pazienza e tanta volontà per imparare, ma ti assicuro che ti puoi togliere tante soddisfazioni a fare tutto quello che ti passa per la testa nel gioco lotto e lotterie varie.

Si volevo dire quello, il t9 fa quello che vuole.. comunque.. dopo ti posto alcune cose che non ho capito

Script per VinciCasa

Senior Member

Advanced Premium Member

Super Member >PLATINUM<

Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Member

Member

Advanced Member >PLATINUM PLUS<

Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Member

Advanced Member >PLATINUM PLUS<

Member