MIKE58

[trivellatomariotretre33]

SCUSA Mike58 TI AVEVO CHIESTO UN ALTRA COSA QUA AIUTO SCRIPT SE PUOI VERIFICARE GRAZIE

 

[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.

 

[trivellatomariotretre33]

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

 

[Mike58]

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]

 

[Mike58]

prova questi 2 script

1° Statistica veloce Lunghette

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

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

 

[trivellatomariotretre33]

GRAZIE Mike58 PER I TUOI SCRIPT IL 2 E PIU ADATTO BRAVO