Novità

Script per VinciCasa

ste20fra

Senior Member
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.

Advanced Premium Member
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)


tenor.gif
 

ppaaoolloo

Super Member >PLATINUM<
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(n),".")
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(n)
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
 

Mike58

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

Mike58

Advanced Member >PLATINUM PLUS<
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
 
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:

1.PNG
 

Mike58

Advanced Member >PLATINUM PLUS<
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)👍👍
 

Mike58

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

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

Advanced Member >PLATINUM<
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
======================================
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 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.
======================
stickman.gif
A presto
Silop ;) ;) ;)
 
Ultima modifica:

Mike58

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

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