Novità

MIKE58

Mi dispiace ma mi sembra di capire che vorresti la scelta Numeri, ma su quello script è inutile.
Ti rispondo anche per l'altra richiesta e purtroppo non è capibile circa quello che vorresti ottenere e valutare.

Mi spiace ma io passo.
 
Mike58 per laltra richiesta mi serve uno script che io possa controllare i numeri da 1 a 90 a mia scelta e ruota gli esiti verificati x ambo in su esempio bari 17 56 non esce dal 19.... grazie e cosi per altri numeri a mia scelta grazie
 
Di questi script ne sono stati fatti a iosa, sia con sviluppo per combinazione ( che ahinoi tempi di elaborazioni lunghi) che i più semplici per verifica lunghette con videata x tutte le ruote.

Uno dei miei primi script per statistica veloce raccoglieva vari dati

prova a vedere se ti può interessare
Statistica Veloce su combinazione di Numeri scelti 17.56 Per sorte... Ambo
==================================================================================================================================
Dalla data...14.09.1946 alla data...25.02.2016 - Estrazioni Totali 5176
==================================================================================================================================

[TABLE="border: 1, cellpadding: 0, cellspacing: 0"]
[TR]
[TD="bgcolor: #0000ff, align: center"] Ruota [/TD]
[TD="bgcolor: #0000ff, align: center"] [/TD]
[TD="bgcolor: #0000ff, align: center"]RD1 [/TD]
[TD="bgcolor: #0000ff, align: center"]RD2 [/TD]
[TD="bgcolor: #0000ff, align: center"]RD3 [/TD]
[TD="bgcolor: #0000ff, align: center"]RD4 [/TD]
[TD="bgcolor: #0000ff, align: center"]RD5 [/TD]
[TD="bgcolor: #0000ff, align: center"] Ritardo attuale [/TD]
[TD="bgcolor: #0000ff, align: center"] Ritardo Storico [/TD]
[TD="bgcolor: #0000ff, align: center"]incr. storico [/TD]
[TD="bgcolor: #0000ff, align: center"] Frequenza [/TD]
[TD="bgcolor: #0000ff, align: center"] - esito - [/TD]
[TD="bgcolor: #0000ff, align: center"] - stringa Esito - [/TD]
[TD="bgcolor: #0000ff, align: center"] data estraz.uscita [/TD]
[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"]Bari [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"]16 [/TD]
[TD="bgcolor: #ffffff, align: center"]47 [/TD]
[TD="bgcolor: #ffffff, align: center"]117 [/TD]
[TD="bgcolor: #ffffff, align: center"]163 [/TD]
[TD="bgcolor: #ffffff, align: center"]57 [/TD]
[TD="bgcolor: #ffffff, align: center"]5177 [/TD]
[TD="bgcolor: #ffffff, align: center"]5177 [/TD]
[TD="bgcolor: #ffffff, align: center"]5177 [/TD]
[TD="bgcolor: #ffffff, align: center"]0 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"]-- [/TD]
[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"]Cagliari [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"]2 [/TD]
[TD="bgcolor: #ffffff, align: center"]19 [/TD]
[TD="bgcolor: #ffffff, align: center"]14 [/TD]
[TD="bgcolor: #ffffff, align: center"]45 [/TD]
[TD="bgcolor: #ffffff, align: center"]11 [/TD]
[TD="bgcolor: #ffffff, align: center"]14 [/TD]
[TD="bgcolor: #ffffff, align: center"]1315 [/TD]
[TD="bgcolor: #ffffff, align: center"]0 [/TD]
[TD="bgcolor: #ffffff, align: center"]15 [/TD]
[TD="bgcolor: #ffffff, align: center"]Ambo [/TD]
[TD="bgcolor: #ffffff, align: center"]CA 56 .. 17 .. .. [/TD]
[TD="bgcolor: #ffffff, align: center"]23.01.2016 [/TD]
[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"]Firenze [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"]10 [/TD]
[TD="bgcolor: #ffffff, align: center"]28 [/TD]
[TD="bgcolor: #ffffff, align: center"]63 [/TD]
[TD="bgcolor: #ffffff, align: center"]12 [/TD]
[TD="bgcolor: #ffffff, align: center"]2 [/TD]
[TD="bgcolor: #ffffff, align: center"]604 [/TD]
[TD="bgcolor: #ffffff, align: center"]651 [/TD]
[TD="bgcolor: #ffffff, align: center"]0 [/TD]
[TD="bgcolor: #ffffff, align: center"]14 [/TD]
[TD="bgcolor: #ffffff, align: center"]Ambo [/TD]
[TD="bgcolor: #ffffff, align: center"]FI .. 17 .. .. 56 [/TD]
[TD="bgcolor: #ffffff, align: center"]17.04.2012 [/TD]
[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"]Genova [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"]38 [/TD]
[TD="bgcolor: #ffffff, align: center"]48 [/TD]
[TD="bgcolor: #ffffff, align: center"]8 [/TD]
[TD="bgcolor: #ffffff, align: center"]10 [/TD]
[TD="bgcolor: #ffffff, align: center"]24 [/TD]
[TD="bgcolor: #ffffff, align: center"]801 [/TD]
[TD="bgcolor: #ffffff, align: center"]1996 [/TD]
[TD="bgcolor: #ffffff, align: center"]0 [/TD]
[TD="bgcolor: #ffffff, align: center"]9 [/TD]
[TD="bgcolor: #ffffff, align: center"]Ambo [/TD]
[TD="bgcolor: #ffffff, align: center"]GE 56 .. 17 .. .. [/TD]
[TD="bgcolor: #ffffff, align: center"]13.01.2011 [/TD]
[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"]Milano [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"]31 [/TD]
[TD="bgcolor: #ffffff, align: center"]71 [/TD]
[TD="bgcolor: #ffffff, align: center"]1 [/TD]
[TD="bgcolor: #ffffff, align: center"]88 [/TD]
[TD="bgcolor: #ffffff, align: center"]67 [/TD]
[TD="bgcolor: #ffffff, align: center"]390 [/TD]
[TD="bgcolor: #ffffff, align: center"]997 [/TD]
[TD="bgcolor: #ffffff, align: center"]0 [/TD]
[TD="bgcolor: #ffffff, align: center"]14 [/TD]
[TD="bgcolor: #ffffff, align: center"]Ambo [/TD]
[TD="bgcolor: #ffffff, align: center"]MI .. .. .. 56 17 [/TD]
[TD="bgcolor: #ffffff, align: center"]29.08.2013 [/TD]
[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"]Napoli [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"]45 [/TD]
[TD="bgcolor: #ffffff, align: center"]9 [/TD]
[TD="bgcolor: #ffffff, align: center"]190 [/TD]
[TD="bgcolor: #ffffff, align: center"]8 [/TD]
[TD="bgcolor: #ffffff, align: center"]6 [/TD]
[TD="bgcolor: #ffffff, align: center"]846 [/TD]
[TD="bgcolor: #ffffff, align: center"]1062 [/TD]
[TD="bgcolor: #ffffff, align: center"]0 [/TD]
[TD="bgcolor: #ffffff, align: center"]13 [/TD]
[TD="bgcolor: #ffffff, align: center"]Ambo [/TD]
[TD="bgcolor: #ffffff, align: center"]NA 56 .. 17 .. .. [/TD]
[TD="bgcolor: #ffffff, align: center"]30.09.2010 [/TD]
[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"]Palermo [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"]8 [/TD]
[TD="bgcolor: #ffffff, align: center"]17 [/TD]
[TD="bgcolor: #ffffff, align: center"]72 [/TD]
[TD="bgcolor: #ffffff, align: center"]85 [/TD]
[TD="bgcolor: #ffffff, align: center"]63 [/TD]
[TD="bgcolor: #ffffff, align: center"]531 [/TD]
[TD="bgcolor: #ffffff, align: center"]1261 [/TD]
[TD="bgcolor: #ffffff, align: center"]0 [/TD]
[TD="bgcolor: #ffffff, align: center"]18 [/TD]
[TD="bgcolor: #ffffff, align: center"]Ambo [/TD]
[TD="bgcolor: #ffffff, align: center"]PA .. 17 .. 56 .. [/TD]
[TD="bgcolor: #ffffff, align: center"]04.10.2012 [/TD]
[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"]Roma [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"]112 [/TD]
[TD="bgcolor: #ffffff, align: center"]100 [/TD]
[TD="bgcolor: #ffffff, align: center"]23 [/TD]
[TD="bgcolor: #ffffff, align: center"]53 [/TD]
[TD="bgcolor: #ffffff, align: center"]59 [/TD]
[TD="bgcolor: #ffffff, align: center"]396 [/TD]
[TD="bgcolor: #ffffff, align: center"]863 [/TD]
[TD="bgcolor: #ffffff, align: center"]0 [/TD]
[TD="bgcolor: #ffffff, align: center"]19 [/TD]
[TD="bgcolor: #ffffff, align: center"]Ambo [/TD]
[TD="bgcolor: #ffffff, align: center"]RO .. 17 .. 56 .. [/TD]
[TD="bgcolor: #ffffff, align: center"]16.08.2013 [/TD]
[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"]Torino [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"]47 [/TD]
[TD="bgcolor: #ffffff, align: center"]3 [/TD]
[TD="bgcolor: #ffffff, align: center"]7 [/TD]
[TD="bgcolor: #ffffff, align: center"]32 [/TD]
[TD="bgcolor: #ffffff, align: center"]27 [/TD]
[TD="bgcolor: #ffffff, align: center"]49 [/TD]
[TD="bgcolor: #ffffff, align: center"]1231 [/TD]
[TD="bgcolor: #ffffff, align: center"]0 [/TD]
[TD="bgcolor: #ffffff, align: center"]14 [/TD]
[TD="bgcolor: #ffffff, align: center"]Ambo [/TD]
[TD="bgcolor: #ffffff, align: center"]TO .. 56 .. 17 .. [/TD]
[TD="bgcolor: #ffffff, align: center"]03.11.2015 [/TD]
[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"]Venezia [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"]14 [/TD]
[TD="bgcolor: #ffffff, align: center"]6 [/TD]
[TD="bgcolor: #ffffff, align: center"]36 [/TD]
[TD="bgcolor: #ffffff, align: center"]212 [/TD]
[TD="bgcolor: #ffffff, align: center"]23 [/TD]
[TD="bgcolor: #ffffff, align: center"]266 [/TD]
[TD="bgcolor: #ffffff, align: center"]1131 [/TD]
[TD="bgcolor: #ffffff, align: center"]0 [/TD]
[TD="bgcolor: #ffffff, align: center"]13 [/TD]
[TD="bgcolor: #ffffff, align: center"]Ambo [/TD]
[TD="bgcolor: #ffffff, align: center"]VE .. .. .. 56 17 [/TD]
[TD="bgcolor: #ffffff, align: center"]14.06.2014 [/TD]
[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"]Tutte [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"]2 [/TD]
[TD="bgcolor: #ffffff, align: center"]3 [/TD]
[TD="bgcolor: #ffffff, align: center"]1 [/TD]
[TD="bgcolor: #ffffff, align: center"]8 [/TD]
[TD="bgcolor: #ffffff, align: center"]2 [/TD]
[TD="bgcolor: #ffffff, align: center"]14 [/TD]
[TD="bgcolor: #ffffff, align: center"]185 [/TD]
[TD="bgcolor: #ffffff, align: center"]0 [/TD]
[TD="bgcolor: #00ff00, align: center"]129 [/TD]
[TD="bgcolor: #ffffff, align: center"]Ambo [/TD]
[TD="bgcolor: #ffffff, align: center"]CA 56 .. 17 .. .. [/TD]
[TD="bgcolor: #ffffff, align: center"]23.01.2016 [/TD]
[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"]Nazionale [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"]8 [/TD]
[TD="bgcolor: #ffffff, align: center"]89 [/TD]
[TD="bgcolor: #ffffff, align: center"]109 [/TD]
[TD="bgcolor: #ffffff, align: center"]40 [/TD]
[TD="bgcolor: #ffffff, align: center"]1 [/TD]
[TD="bgcolor: #ffffff, align: center"]326 [/TD]
[TD="bgcolor: #ffffff, align: center"]649 [/TD]
[TD="bgcolor: #ffffff, align: center"]0 [/TD]
[TD="bgcolor: #ffffff, align: center"]6 [/TD]
[TD="bgcolor: #ffffff, align: center"]Ambo [/TD]
[TD="bgcolor: #ffffff, align: center"]NZ .. 17 56 .. .. [/TD]
[TD="bgcolor: #ffffff, align: center"]25.01.2014 [/TD]
[/TR]
[/TABLE]
 
prova questi 2 script

1° Statistica veloce Lunghette

Codice: 
Sub Main()
 Dim num(10),numero(10),ruota(1),sorte
 sorte = CInt(InputBox("Quale sorte verificare ",,1))
 nStart = Timer ' partenza tempo di elaborazione
 ScegliNumeri(num)
 Ini = 3950'EstrazioneIni
 fin = EstrazioneFin
 diff = fin - Ini
 Scrivi"Statistica Veloce su combinazione di Numeri scelti" & "   ",True,False,6,0,3
 Scrivi"  " & StringaNumeri(num) & "  ",True,False,2,4,3
 Scrivi"  Per sorte..." & "   " & NomeSorte(sorte) & "  ",True,True,3,0,3
 Scrivi String(130,"=")
 Scrivi " Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & "  - Estrazioni Totali " & DIFF,1
 Scrivi String(130,"=")
 Scrivi
 '--------- crea tabella---------------
 ReDim atitoli(14)
 atitoli(1) = "   Ruota   "
 'atitoli(2) = "   Combinazione    "
 atitoli(3) = " RD1 "
 atitoli(4) = " RD2 "
 atitoli(5) = " RD3 "
 atitoli(6) = " RD4 "
 atitoli(7) = " RD5 "
 atitoli(8) = "  Ritardo attuale  "
 atitoli(9) = "  Ritardo Storico  "
 atitoli(10) = " incr. storico "
 atitoli(11) = "  Frequenza  "
 atitoli(12) = "   - esito -   "
 atitoli(13) = "   -  stringa Esito  -    "
 atitoli(14) = "    data estraz.uscita     "
 ' inizializzo la tabella
 Call InitTabella(atitoli,1,,3,5)
 For r = 1 To 12
  'If r = 11 Then r = 12
  ruota(1) = r
  Call AvanzamentoElab(Ini,fin,n)
  If ScriptInterrotto Then Exit For
  Call StatisticaFormazione(num,ruota,sorte,rit,ritmax,incrRitMax,freq,Ini,fine)
  Call VerificaEsito(num,ruota,fin - rit,sorte,1,,retesito,retcolpi,retestratti,retidestr)
  '----- calcolo valori in tabella --------------
  ReDim avalori(14)
  avalori(1) = NomeRuota(r)
  avalori(3) = RitDiPos(num,1,ruota)
  avalori(4) = RitDiPos(num,2,ruota)
  avalori(5) = RitDiPos(num,3,ruota)
  avalori(6) = RitDiPos(num,4,ruota)
  avalori(7) = RitDiPos(num,5,ruota)
  avalori(8) = rit
  avalori(9) = ritmax
  avalori(10) = incrRitMax
  avalori(11) = freq
  avalori(12) = retesito
  avalori(13) = retestratti
  If retesito <> "" Then avalori(14) = DataEstrazione(retidestr)
  If retesito = "" Then avalori(14) = " -- "
  Call AddRigaTabella(avalori,,,3,,"arial black")
  If r = 11 Then Call SetColoreCella(11,3,1)
 Next
 Call SetTableWidth("100%")
 Call CreaTabella()
 Scrivi " Script By Mike58 ",1,- 1,6
 nend = Timer
 Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
 Scrivi
 Scrivi "Totale giocato........ " & diff
 vv = 15*8
 Scrivi"Totale vincite......... " & vv
 Scrivi"Utile.................. " & vv - diff,1
End Sub
Function RitDiPos(num,pos,ruota)
 ReDim apos(5)
 ReDim aruota(1)
 ReDim anum(1)
 anum(1) = num
 apos(pos) = True
 aruota(1) = ruota
 RitDiPos = RitardoCombinazione(ruota,num,1,0,apos)
End Function
Function FormattaSecondi(s)
 'Questa Function trasforma il numero di secondi passato come parametro in una stringa
 ' passando i secondi si ottengono ore  minuti e secondi  in formato hh:mm:ss
 ' s ---> Numero di secondi da formattare
 ' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
 Dim hh
 Dim Mm
 Dim Ss
 Dim TimeStr
 hh = s \ 3600
 Mm =(s Mod 3600) \ 60
 Ss = s -((hh * 3600) +(Mm * 60))
 TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
 FormattaSecondi = TimeStr
End Function


2° script Sviluppo combinazione

Codice: 
Sub Main
 Dim k
 Dim Classe
 Dim aCol
 ReDim aNum(90)
 Dim i
 Dim ruota(1)
 r = InputBox("Quale ruota ",,3)
 cl = CInt(InputBox("Quale classe di sviluppo",,3))
 sorte = CInt(InputBox("Quale sorte esito analizzo ",,2))
 capog = CInt(InputBox("Quale capogioco ",,38))
 ruota(1) = r
 ScegliNumeri(aNum)
 Scrivi " Sviluppo combinazione " & StringaNumeri(aNum) & " Con Capogioco > " & capog,1
 Scrivi " Sulla ruota di..." & NomeRuota(r),1
 Scrivi " In sviluppo di classe..." & cl,1
 ColoreTesto 2
 Scrivi " Verifica statistica per sorte di... " & NomeSorte(sorte),1
 ColoreTesto 1
 Scrivi " Sorte isocroni per...." & NomeSorte(cl),1
 ColoreTesto 0
 For k = 1 To UBound(aNum)
  aNum(0) = capog
  aNum(k) = aNum(k)
 Next
 Classe = cl
 ReDim atitoli(10)
 atitoli(1) = " Contatore "
 atitoli(2) = " Sviluppo comb. "
 atitoli(3) = " Ritardo "
 atitoli(4) = " Ritardo Max "
 atitoli(5) = " Frequenza "
 atitoli(6) = " Incrmax "
 atitoli(7) = " acol(1) "
 atitoli(8) = " Iso rit "
 atitoli(9) = " Iso fre "
 atitoli(10) = " Iso sto "
 Call InitTabella(atitoli,1,,3,5)
 If InitSviluppoIntegrale(aNum,Classe) > 0 Then
  Do While GetCombSviluppo(aCol) = True
   i = i + 1
   Call StatisticaFormazioneTurbo(aCol,ruota,sorte,sr,st,Incr,sf,EstrazioneIni,EstrazioneFin)
   Isorit = SerieRitardo(EstrazioneIni,EstrazioneFin,aCol,ruota,cl)
   isofre = SerieFreq(EstrazioneIni,EstrazioneFin,aCol,ruota,cl)
   isosto = SerieStorico(EstrazioneIni,EstrazioneFin,aCol,ruota,cl)
   ReDim avalori(10)
   avalori(1) = FormattaStringa(i,"00") & "  " & ii
   avalori(2) = StringaNumeri(aCol,,1)
   avalori(3) = sr
   avalori(4) = st
   avalori(5) = sf
   avalori(6) = Incr
   avalori(7) = aCol(1)
   avalori(8) = Isorit
   avalori(9) = Isofre
   avalori(10) = Isosto
   If avalori(7) = capog Then
    Call AddRigaTabella(avalori,4,,3)
   Else
    Call AddRigaTabella(avalori,,,3)
   End If
  Loop
 End If
 CreaTabella()
 ReDim atitoli1(6)
 atitoli1(1) = " Contatore "
 atitoli1(2) = " Sviluppo comb. "
 atitoli1(3) = " Ritardo "
 atitoli1(4) = " Ritardo Max "
 atitoli1(5) = " Frequenza "
 atitoli1(6) = " Incrmax "
 Call InitTabella(atitoli1,1,,3,5)
 Call StatisticaFormazioneTurbo(aNum,ruota,sorte,sr,st,Incr,sf,EstrazioneIni,EstrazioneFin)
 Scrivi"Statistica Globale ",1
 ReDim avalori1(6)
 avalori1(1) = FormattaStringa(i,"0")
 avalori1(2) = StringaNumeri(aNum)
 avalori1(3) = sr
 avalori1(4) = st
 avalori1(5) = sf
 avalori1(6) = Incr
 Call AddRigaTabella(avalori1,4,,3)
 CreaTabella()
 Scrivi
 Scrivi "Tabella Scripted by Mike58 ",1,- 1,3
End Sub


Ciao
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 24 ottobre 2025
    Bari
    33
    75
    32
    35
    10
    Cagliari
    73
    68
    58
    49
    59
    Firenze
    31
    11
    21
    13
    69
    Genova
    27
    35
    21
    42
    59
    Milano
    22
    11
    64
    62
    19
    Napoli
    77
    88
    51
    30
    75
    Palermo
    04
    43
    72
    59
    45
    Roma
    84
    58
    60
    46
    23
    Torino
    13
    27
    31
    86
    49
    Venezia
    45
    03
    70
    14
    56
    Nazionale
    68
    47
    02
    01
    18
    Estrazione Simbolotto
    11
    37
    05
    27
    28
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto